To tag element

src/BaselineOfToplo/BaselineOfToplo.class.st

@@ -144,6 +144,10 @@ BaselineOfToplo >> registerPackages: spec [
 	spec package: #'Toplo-Widget-Segmented' with: [
 		spec requires:
 			#( #Toplo  #'Toplo-Widget-Button' #'Toplo-Widget-List' ) ].
+
+	spec package: #'Toplo-Widget-Tag' with: [
+		spec requires:
+			#( #Toplo  #'Toplo-Widget-Button' ) ].
 
 	spec
 		package: #'Toplo-Widget-TabPane-Tests'

src/Toplo-Widget-List/ToListDisabledSelectionElementSkin.class.st → src/Toplo-Examples/ToListDisabledSelectionElementExampleSkin.class.st

@@ -1,11 +1,11 @@
 Class {
-	#name : #ToListDisabledSelectionElementSkin,
+	#name : #ToListDisabledSelectionElementExampleSkin,
 	#superclass : #ToRawSkin,
-	#category : #'Toplo-Widget-List-Selection-Element'
+	#category : #'Toplo-Examples'
 }
 
 { #category : #'event handling' }
-ToListDisabledSelectionElementSkin >> installSkinEvent: anEvent [
+ToListDisabledSelectionElementExampleSkin >> installSkinEvent: anEvent [
 
 	super installSkinEvent: anEvent.
 	anEvent elementDo: [ :e |

src/Toplo-Examples/ToListElementStresser.class.st

@@ -9,7 +9,9 @@ Class {
 		'counter',
 		'listIdentifiers',
 		'maxPrimaryIntervals',
-		'maxNbTasks'
+		'maxNbTasks',
+		'endTime',
+		'startTime'
 	],
 	#category : #'Toplo-Examples'
 }
@@ -203,7 +205,7 @@ ToListElementStresser >> finishedInAllTabs [
 	^ tabsPanel tabs allSatisfy: [ :tab |
 		  | list |
 		  list := tab userData at: #list.
-		  list userData at: #finishedStress ]
+		  list userData at: #finishedStress ifAbsent: [false] ]
 ]
 
 { #category : #initialization }
@@ -237,6 +239,7 @@ ToListElementStresser >> initialize [
 	tabSelectionProcess := [
 	                       | round |
 	                       round := 0.
+	                       startTime := DateAndTime now.
 	                       [ self finishedInAllTabs ] whileFalse: [
 		                       | idx |
 		                       round := round + 1.
@@ -245,10 +248,14 @@ ToListElementStresser >> initialize [
 		                       self tabsPanel enqueueTask:
 			                       (BlTaskAction new action: [
 				                        (self tabsPanel tabs at: idx) check ]).
-		                       1 seconds wait ] ] newProcess.
+		                       1 seconds wait
+		                       "Smalltalk garbageCollect" ].
+	                       endTime := DateAndTime now.
+	                       (endTime - startTime) asDuration traceCr ]
+		                       newProcess.
 
 	tabSelectionProcess name: self class name.
-	tabSelectionProcess priority: Processor systemBackgroundPriority.
+	tabSelectionProcess priority: Processor userBackgroundPriority.
 
 	self tabsPanel
 		addEventHandlerOn: BlElementAddedToSceneGraphEvent
@@ -365,6 +372,7 @@ ToListElementStresser >> newStressedListNumber: aNumber [
 	           list userData at: #finishedStress put: false.
 	           self maxRound timesRepeat: [
 		           round := round + 1.
+		           (round \\ 100) isZero ifTrue: [ Smalltalk garbageCollect ].
 		           self processingRound: round inList: list number: aNumber.
 		           self afterRoundInList: list ].
 	           self processEndInList: list number: aNumber ] newProcess.
@@ -385,7 +393,9 @@ ToListElementStresser >> newStressedListNumber: aNumber [
 
 	pane addChild: list.
 	pane addChild: (self newSelectionBoardOn: list).
-	list userData at: #identifier put: (ident asRopedText bold , suffix asRopedText).
+	list userData
+		at: #identifier
+		put: ident asRopedText bold , suffix asRopedText.
 
 	^ pane -> list
 ]
@@ -400,13 +410,14 @@ ToListElementStresser >> nextCounter [
 { #category : #private }
 ToListElementStresser >> nextProcessPriorityForListNumber: aNumber [
 
-	| priorities |
+	"| priorities |
 	priorities := {
 		              Processor lowestPriority.
 		              Processor userBackgroundPriority.
 		              Processor systemBackgroundPriority }.
 
-	^ priorities at: aNumber \\ priorities size + 1
+	^ priorities at: aNumber \\ priorities size + 1"
+	^ Processor userBackgroundPriority.
 ]
 
 { #category : #accessing }

src/Toplo-Examples/ToListElementStresserWithAdditionalSelecters.class.st

@@ -152,7 +152,7 @@ ToListElementStresserWithAdditionalSelecters >> newListElement [
 
 	| l |
 	l := ToListElement new
-		     nodeBuilder: [ :node :dataItem :holder  |
+		     nodeBuilder: [ :node :dataItem :holder |
 			     | lab |
 			     lab := ToLabel text: dataItem.
 			     node addChild: lab.
@@ -161,15 +161,10 @@ ToListElementStresserWithAdditionalSelecters >> newListElement [
 			     holder isDisabled ifTrue: [
 					     node background: (Color veryLightGray alpha: 0.5) ] ];
 		     yourself.
-	"
-	l newDisabledSelectionMode onInstalledIn: l.
-	l newUnselectableSelectionMode onInstalledIn: l.
-	l withHiddenSelecter.
-	"
-	l
-		withHiddenSelecter;
-		withUnselectableSelecter;
-		withDisabledSelecter.
+
+	l newHiddenSelectionMode on: l.
+	l newUnselectableSelectionMode on: l.
+	l newDisabledSelectionMode on: l.
 
 	^ l
 ]

src/Toplo-Examples/ToListUnselectableSelectionElementExempleSkin.class.st → src/Toplo-Examples/ToListUnselectableSelectionElementExampleSkin.class.st

@@ -1,15 +1,17 @@
 Class {
-	#name : #ToListUnselectableSelectionElementExempleSkin,
+	#name : #ToListUnselectableSelectionElementExampleSkin,
 	#superclass : #ToRawSkin,
 	#category : #'Toplo-Examples'
 }
 
 { #category : #'event handling' }
-ToListUnselectableSelectionElementExempleSkin >> installSkinEvent: anEvent [
+ToListUnselectableSelectionElementExampleSkin >> installSkinEvent: anEvent [
 
 	super installSkinEvent: anEvent.
 	anEvent elementDo: [ :e |
 		| btn border |
+		e positionHook: [ :p :l | p - (l padding left / 2 @ 0) ].
+		e sizeHook: [ :p :l | p + ((l padding left / 2) + (l padding right / 2) @ 0) ].
 		e layout: BlFrameLayout new.
 		e padding: (BlInsets right: 5).
 		btn := ToButton new

src/Toplo-Examples/ToMultiSelectElementCheckSkin.class.st

@@ -0,0 +1,47 @@
+Class {
+	#name : #ToMultiSelectElementCheckSkin,
+	#superclass : #ToRawSkin,
+	#category : #'Toplo-Examples'
+}
+
+{ #category : #'event handling' }
+ToMultiSelectElementCheckSkin >> installSkinEvent: anEvent [
+
+	super installSkinEvent: anEvent.
+	anEvent elementDo: [ :e |
+		| im cont bar w background |
+		w := 2.
+		e background: BlBackground transparent.
+		background := e valueOfTokenNamed: #'border-color-primary-selection'.
+		bar := BlElement new
+			       width: w;
+			       yourself.
+		bar background: background.
+		bar constraintsDo: [ :c |
+			c vertical matchParent.
+			c frame horizontal alignLeft ].
+		e addChild: bar.
+		cont := BlElement new
+			        geometry: BlCircleGeometry new;
+			        layout: BlFrameLayout new;
+			        yourself.
+		im := ToImage inner: self pathCheckSVG.
+		im innerImage firstChild background: background.
+		im margin: (BlInsets right: 20).
+		im constraintsDo: [ :c |
+			c frame vertical alignCenter.
+			c frame horizontal alignRight ].
+		im size: 16 asPoint.
+		im background: Color transparent.
+		e layout: BlFrameLayout new.
+		e addChild: im ]
+]
+
+{ #category : #'event handling' }
+ToMultiSelectElementCheckSkin >> pathCheckSVG [
+
+	^ '<?xml version="1.0" standalone="no"?>
+<svg xmlns="http://www.w3.org/2000/svg" class="icon" viewBox="0 0 1024 1024">
+  <path d="M912 190h-69.9c-9.8 0-19.1 4.5-25.1 12.2L404.7 724.5 207 474a32 32 0 0 0-25.1-12.2H112c-6.7 0-10.4 7.7-6.3 12.9l273.9 347c12.8 16.2 37.4 16.2 50.3 0l488.4-618.9c4.1-5.1.4-12.8-6.3-12.8z"/>
+</svg>'
+]