fixe ToListSelectionElementEventHandler>>updateSelectionFromEvent:

pharo-graphics · Oct 11, 2024 · 4d6ee3a · 4d6ee3a
1 parent 2be3221
commit 4d6ee3a
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/src/Toplo-Examples/ToListElementStresser.class.st b/src/Toplo-Examples/ToListElementStresser.class.st
@@ -501,6 +501,7 @@ ToListElementStresser >> selectActionsToRun [
 ToListElementStresser >> selectionResultsTextOn: aListElement [
 
 	| nb nbTasks |
+	self tabsPanel space ifNil: [ ^ self ].
 	nbTasks := self tabsPanel space taskQueue tasks size.
 	maxNbTasks := maxNbTasks max: nbTasks.
 	nb := aListElement selectionModel underlyingModel intervals size.

diff --git a/src/Toplo-Widget-List/ToListSelectionElementEventHandler.class.st b/src/Toplo-Widget-List/ToListSelectionElementEventHandler.class.st
@@ -41,7 +41,8 @@ ToListSelectionElementEventHandler >> updateSelectionFromEvent: anEvent [
 		self differUpdateSelectionFrom: target.
 		^ self ].
 
-	anEvent selectionOption
-		updateSelectionIn: target
-		withSelectionModel: anEvent selectionModel
+	anEvent selectionOption ifNotNil: [ :option |
+		option
+			updateSelectionIn: target
+			withSelectionModel: anEvent selectionModel ]
 ]