fixed photo gallery example

src/Toplo/TToCheckable.trait.st

@@ -33,6 +33,13 @@ TToCheckable >> checked: aBooleanOrNil [
 	self privateChecked: request checked
 ]
 
+{ #category : #initialization }
+TToCheckable >> initialize [
+
+	self class initializeSlots: self.
+	super initialize.
+]
+
 { #category : #'t - checkable - initializing' }
 TToCheckable >> initializeCheckable [
 

src/Toplo/ToFilterDresserOnListWithPopupExperiment.class.st

@@ -78,17 +78,18 @@ ToFilterDresserOnListWithPopupExperiment >> open [
 	pane addChild: filler.
 
 	listElement placeholder: self startPlaceholder.
-	listElement placeholder elevation: (BlRelativeElevation elevation: SmallInteger maxVal).
+	listElement placeholder elevation:
+		(BlRelativeElevation elevation: SmallInteger maxVal).
 	listElement showPlaceholder.
 
 	self listElement addDresser: ToDataFilterDresser new.
 
-	listElement
-		when: ToDataFilterResultEvent
-		do: [ :event | event selectionUpdated ifTrue: [ listElement data filterResult: event data ] ].
+	listElement when: ToDataFilterResultEvent do: [ :event |
+		event selectionUpdated ifTrue: [
+			listElement data filterResult: event data ] ].
 
 	listElement requestFocus.
-	pane openInOBlSpace
+	pane openInSpace
 ]
 
 { #category : #'instance creation' }

src/Toplo/ToPicsumPhotosGalleryImageElement.class.st

@@ -63,7 +63,8 @@ ToPicsumPhotosGalleryImageElement >> imageData: anImageData [
 ToPicsumPhotosGalleryImageElement >> initialize [
 	super initialize.
 	label := ToLabel new hFitContent; yourself.
-	label background: Color yellow.
+	label background: Color black.
+	label withSkin: nil.
 	self addChild: label.
 	self whenLayoutedDo: [ self loadImage ]
 ]

src/Toplo/ToSandBox.class.st

@@ -788,7 +788,7 @@ ToSandBox class >> example_ListWithoutSelection [
 
 { #category : #list }
 ToSandBox class >> example_PicsumPhotosGallery [
-
+	"cool example adapted from the feenk Glamorous Toolkit version BlInfiniteExample>>exampleGallery"
 	| space list vscrollBar |
 	list := ToListElement new
 		        matchParent;