test to check list selection

pharo-graphics · Dec 13, 2023 · fe87f1f · fe87f1f
1 parent 829e2dc
commit fe87f1f
Showing 1 changed file with 29 additions and 0 deletions.
diff --git a/src/Toplo-Widget-List-Tests/ToListElementTest.class.st b/src/Toplo-Widget-List-Tests/ToListElementTest.class.st
@@ -8,3 +8,32 @@ Class {
 	#package : 'Toplo-Widget-List-Tests',
 	#tag : 'Core'
 }
+
+{ #category : 'tests' }
+ToListElementTest >> testSelectionCorrectlyRemovedWhenNodeRemoved [
+
+	| panel list |
+	panel := ToPane vertical.
+	panel constraints horizontal matchParent.
+	panel layout cellSpacing: 10.
+
+	list := ToList new.
+	list nodeBuilder: [ :node :holder |
+		| line remBut |
+		line := ToPane horizontal.
+		remBut := ToButton new.
+		remBut withoutSkin.
+		remBut icon: (ToImage inner: (self iconNamed: #windowClose)).
+		remBut constraintsDo: [ :c | c linear vertical alignCenter ].
+		remBut
+			when: BlClickEvent
+			do: [ :event |
+			event consumed: true.
+			holder infiniteElement data removeAt: holder position ].
+		line addChild: remBut.
+
+		node addChild: line ].
+	list data addAll: (1 to: 2).
+	panel addChild: list.
+
+]