changed selectionModel

pharo-graphics · Mar 22, 2024 · 9e23fc2 · 9e23fc2
1 parent c5e32bc
commit 9e23fc2
Show file tree

Hide file tree

Showing 21 changed files with 710 additions and 853 deletions.
diff --git a/src/Toplo-Examples/ToPicsumPhotosGalleryImageHolder.class.st b/src/Toplo-Examples/ToPicsumPhotosGalleryImageHolder.class.st
@@ -0,0 +1,5 @@
+Class {
+	#name : #ToPicsumPhotosGalleryImageHolder,
+	#superclass : #ToNodeHolder,
+	#category : #'Toplo-Examples'
+}
diff --git a/src/Toplo-Examples/ToSandBox.class.st b/src/Toplo-Examples/ToSandBox.class.st
@@ -937,7 +937,7 @@ ToSandBox class >> example_ListWithEditableAndContextMenu [
 		               menu addItem: (ToMenuItem new
 				                labelText: 'Show all';
 				                whenClickedDo: [ :event |
-					                target hiddenSelecter deselectAll ];
+					                target selectionModel unhideAll ];
 				                yourself) ].
 	               selectedIndexes ifNotEmpty: [
 		               selectionMenu := ToMenu new.
@@ -972,21 +972,21 @@ ToSandBox class >> example_ListWithEditableAndContextMenu [
 							                (target disabledSelectionModel containsIndex:
 									                 idx)
 								                ifTrue: [
-									                target disabledSelecter deselectIndex: idx ]
+									                target selectionModel enableIndex: idx ]
 								                ifFalse: [
-									                target disabledSelecter selectIndex: idx ] ] ];
+									                target selectionModel disableIndex: idx ] ] ];
 				                yourself).
 		               selectionMenu addItem: (ToMenuItem new
 				                labelText: 'Set unselectable';
 				                whenClickedDo: [ :event |
 					                selectedIndexes do: [ :idx |
-							                target unselectableSelecter selectIndex: idx ] ];
+							                target selectionModel unselectableIndex: idx ] ];
 				                yourself).
 		               selectionMenu addItem: (ToMenuItem new
 				                labelText: 'Hide';
 				                whenClickedDo: [ :event |
 					                selectedIndexes do: [ :idx |
-							                target hiddenSelecter selectIndex: idx ] ];
+							                target selectionModel hideIndex: idx ] ];
 				                yourself).
 		               selectionMenu addItem: (ToMenuItem new
 				                labelText: 'Insert before';
@@ -2429,7 +2429,7 @@ ToSandBox class >> example_contactList [
 				 on: BlClickEvent
 				 do: [ :event |
 					 event consumed: true.
-					 holder infiniteElement dataAccessor removeAt: holder position ]).
+					 holder listElement dataAccessor removeAt: holder position ]).
 		line addChild: remBut.
 		node addChild: line ].
 	list dataAccessor addAll: contacts.