working on ToSelect/ToListElementSieve

src/Toplo-Examples/ToSandBox.class.st

@@ -985,12 +985,13 @@ ToSandBox class >> example_MonoNotFiltrable [
 	select data addAll: self statesOfAmerica.
 
 
-	
+
 	select strategy: ToSingleSelectStrategy new.
 	select mode: ToSelectReadOnlyMode new.
-	select placeholderText: ('Select a state' asRopedText foreground: Color red).
+	select placeholderText:
+		('Select a state' asRopedText foreground: Color red).
 	select listElement nodeBuilder: [ :node :holder |
-		node addChild: (ToLabel text: holder data asString) hMatchParent ].
+		node addChild: (ToLabel text: holder dataItem asString) hMatchParent ].
 	innerWindow := ToInnerWindow new.
 	select windowManager anchorRoot: innerWindow root.
 	select width: 300.
@@ -1017,6 +1018,7 @@ ToSandBox class >> example_MultiFiltrable [
 	select width: 300.
 	select position: 50 @ 50.
 	innerWindow pane addChild: select.
+	innerWindow height: 500.
 	innerWindow openInSpace
 ]
 

src/Toplo-Tests/TToElementWithContextMenuTest.class.st

@@ -1,6 +1,6 @@
 Class {
 	#name : #TToElementWithContextMenuTest,
-	#superclass : #ToTestCaseWithSpace,
+	#superclass : #ToParameterizedHostTest,
 	#category : #'Toplo-Tests-Core'
 }
 
@@ -17,6 +17,7 @@ TToElementWithContextMenuTest >> testContextMenu [
 	ttwin := e newContextMenuEvent: nil.
 	self assert: e currentContextMenu identicalTo: ttwin.
 	ttwin popupEvent: (BlMouseDownEvent new position: 0@0).
+	self waitTestingSpaces.
 	self assert: ttwin root firstChild identicalTo: tt.
 	self assert: ttwin element identicalTo: e.
 	self assert: (e eventDispatcher hasEventHandlerSuchThat: [ :eh |
@@ -41,6 +42,7 @@ TToElementWithContextMenuTest >> testContextMenuAddItem [
 	self assert: ttwin isClosed.
 	self assert: ttwin root hasChildren.
 	ttwin popupEvent: (BlMouseDownEvent new position: 0@0).
+	self waitTestingSpaces.
 	self assert: ttwin isOpened.
 	self assert: ttwin root hasChildren.
 	self assert: e contextMenuWindowManager currentWindow notNil.
@@ -88,6 +90,7 @@ TToElementWithContextMenuTest >> testContextMenuCanPopupIfElementInSpace [
 	self assert: ttwin root hasChildren.
 	space root addChild: e.
 	ttwin popupEvent: (BlMouseDownEvent new position: 0@0).
+	self waitTestingSpaces.
 	self assert: ttwin isOpened.
 	self assert: ttwin root hasChildren.
 	self assert: e contextMenuWindowManager currentWindow notNil.
@@ -110,6 +113,7 @@ TToElementWithContextMenuTest >> testContextMenuContent [
 	self assert: e hasContextMenu.
 	ttwin := e newContextMenuEvent: (BlMouseDownEvent new).
 	ttwin popupEvent: (BlMouseDownEvent new position: 0@0).
+	self waitTestingSpaces.
 	self assert: ttwin root firstChild notNil.
 	e contextMenuContent: nil.
 	self assert: e currentContextMenu isNil.
@@ -149,6 +153,7 @@ TToElementWithContextMenuTest >> testContextMenuWindowManager [
 	self assert: e rawContextMenuWindowManager notNil.
 	ttwin := e newContextMenuEvent: nil.
 	ttwin popupEvent: (BlMouseDownEvent new position: 0@0).
+	self waitTestingSpaces.
 	self assert: e contextMenuWindowManager currentWindow notNil.
 	self assert: e contextMenuWindowManager element identicalTo: e.
 	ttwin close.

src/Toplo-Tests/ToAnchoredWindowManagerTest.class.st

@@ -114,6 +114,7 @@ ToAnchoredWindowManagerTest >> testCloseWindow [
 	windowManager onInstalledIn: e.
 	win := windowManager newWindowEvent: nil.
 	win popup.
+	self waitTestingSpaces.
 	self assert: win isOpened.
 	win close.
 	self assert: win isClosed
@@ -133,6 +134,7 @@ ToAnchoredWindowManagerTest >> testCurrentWindow [
 	win := windowManager newWindowEvent: nil.
 	self assert: windowManager currentWindow identicalTo: win.
 	win popup.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow identicalTo: win.
 	win close.
 	self assert: windowManager currentWindow isNil
@@ -217,6 +219,7 @@ ToAnchoredWindowManagerTest >> testElement [
 	self assert: win element equals: e.
 
 	win popup.
+	self waitTestingSpaces.
 	self assert: openEventFromWindow notNil.
 	self assert: openEventFromWindow currentTarget equals: win.
 	self assert: openEventFromWidget notNil.
@@ -258,6 +261,7 @@ ToAnchoredWindowManagerTest >> testElementEventHandlerClass [
 	windowManager onInstalledIn: e.
 	win := windowManager newWindowEvent: nil.
 	win popup.
+	self waitTestingSpaces.
 	self assert: win element equals: e.
 	self assert: (e eventDispatcher hasEventHandlerSuchThat: [ :eh |
 			 eh isKindOf: ToAnchorEventHandler ]).
@@ -283,6 +287,7 @@ ToAnchoredWindowManagerTest >> testHasWindow [
 	win := windowManager newWindowEvent: nil.
 	self assert: windowManager hasWindow.
 	win popup.
+	self waitTestingSpaces.
 	self assert: windowManager hasWindow.
 	win close.
 	self deny: windowManager hasWindow

src/Toplo-Tests/ToAnchoredWindowTest.class.st

@@ -48,6 +48,7 @@ ToAnchoredWindowTest >> testClosedEventClass [
 			 do: [ :event | closeEvent := event ]).
 	self assert: closeEvent isNil.
 	win popup.
+	self waitTestingSpaces.
 	win close.
 	" need to wait space pulsing "
 	self waitTestingSpaces.
@@ -94,6 +95,7 @@ ToAnchoredWindowTest >> testDispatchClosedEvent [
 			 on: win closedEventClass
 			 do: [ :event | closedEventReceivedByElement := event ]).
 	win popup.
+	self waitTestingSpaces.
 	win close.
 	self waitTestingSpaces.
 	self assert: closedEventReceivedByWin notNil.
@@ -252,6 +254,7 @@ ToAnchoredWindowTest >> testPopup [
 	windowHandler onInstalledIn: e.
 	win := windowHandler newWindowEvent: nil.
 	win popup.
+	self waitTestingSpaces.
 	self assert: win isOpened.
 	self assert: win parent notNil
 ]
@@ -315,6 +318,7 @@ ToAnchoredWindowTest >> testPopupEventNotInSpace [
 	self assert: openEventFromWidget isNil.
 	space root addChild: e.
 	win popup.
+	self waitTestingSpaces.
 	win close.
 	self assert: closeEventFromWindow notNil.
 	self assert: closeEventFromWidget notNil

src/Toplo-Tests/ToElementWithPopupEventHandlerTest.class.st

@@ -63,6 +63,7 @@ ToElementWithPopupEventHandlerTest >> testMouseDownOutsideEvent [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -95,6 +96,7 @@ ToElementWithPopupEventHandlerTest >> testMouseDownOutsideEventWithAutoCloseWith
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -125,6 +127,7 @@ ToElementWithPopupEventHandlerTest >> testMouseUpEvent [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -156,6 +159,7 @@ ToElementWithPopupEventHandlerTest >> testMouseUpOutsideEvent [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -188,6 +192,7 @@ ToElementWithPopupEventHandlerTest >> testMouseUpOutsideEventWithAutoCloseWithDo
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.

src/Toplo-Tests/ToOverlayWindowManagerTest.class.st

@@ -40,6 +40,7 @@ ToOverlayWindowManagerTest >> testElementEventHandlerClass [
 	windowManager onInstalledIn: e.
 	win := windowManager newWindowEvent: nil.
 	win popup.
+	self waitTestingSpaces.
 	self assert: win element equals: e.
 	self assert: (e eventDispatcher hasEventHandlerSuchThat: [ :eh |
 			 eh isKindOf: ToOverlayedEventHandler ]).

src/Toplo-Tests/ToPopupWindowManagerTest.class.st

@@ -35,6 +35,7 @@ ToPopupWindowManagerTest >> testAutoClosePickOutsideEventClass [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -64,6 +65,7 @@ ToPopupWindowManagerTest >> testAutoClosePickOutsideEventClass2 [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -93,6 +95,7 @@ ToPopupWindowManagerTest >> testAutoClosePickOutsideEventClass3 [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -122,6 +125,7 @@ ToPopupWindowManagerTest >> testAutoClosePickOutsideEventClass4 [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -159,6 +163,7 @@ ToPopupWindowManagerTest >> testElementEventHandlerClass [
 	windowManager onInstalledIn: e.
 	win := windowManager newWindowEvent: nil.
 	win popup.
+	self waitTestingSpaces.
 	self assert: win element equals: e.
 	self assert: (e eventDispatcher hasEventHandlerSuchThat: [ :eh |
 			 eh isKindOf: ToElementWithPopupEventHandler ]).
@@ -183,6 +188,7 @@ ToPopupWindowManagerTest >> testMouseDownInElementEvent [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened
 ]
@@ -200,6 +206,7 @@ ToPopupWindowManagerTest >> testMouseUpInElementEvent [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -226,6 +233,7 @@ ToPopupWindowManagerTest >> testMouseUpInElementEventAfterLongDelayShouldCloseWi
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -252,6 +260,7 @@ ToPopupWindowManagerTest >> testNoAutoCloseEvenAfterLongDelay [
 
 	windowManager onInstalledIn: e.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened.
 	closed := false.
@@ -284,6 +293,7 @@ ToPopupWindowManagerTest >> testUsePrimaryMouseButton [
 	event := BlMouseDownEvent primary.
 	event position: e bounds inSpace center.
 	BlSpace simulateEvent: event on: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened
 ]
@@ -321,6 +331,7 @@ ToPopupWindowManagerTest >> testUseSecondaryMouseButton [
 	event := BlMouseDownEvent secondary.
 	event position: e bounds inSpace center.
 	BlSpace simulateEvent: event on: e.
+	self waitTestingSpaces.
 	self assert: windowManager currentWindow notNil.
 	self assert: windowManager currentWindow isOpened
 ]

src/Toplo-Tests/ToPopupWindowTest.class.st

@@ -60,13 +60,17 @@ ToPopupWindowTest >> testPopupOpenCloseWithMouseDownDelayUp [
 
 	" mouse down immediately followed by a mouse up -> the popup should stay opened"
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isOpened.
 	BlSpace simulateMouseUpOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isOpened.
 
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isNil.
 	BlSpace simulateMouseUpOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isNil
 ]
 
@@ -87,10 +91,12 @@ ToPopupWindowTest >> testPopupOpenCloseWithMouseDownDelayUp2 [
 
 	" mouse down then wait a delay then a mouse up -> the popup should be closed"
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow notNil.
 	self assert: windowHandler currentWindow isOpened.
 	(windowHandler autoCloseOnMouseUpDelay + 1 milliSecond) wait.
 	BlSpace simulateMouseUpOn: e.
+	self waitTestingSpaces.
 	" window is closed on mouse-up "
 	self assert: windowHandler currentWindow isNil
 ]
@@ -112,8 +118,10 @@ ToPopupWindowTest >> testPopupOpenCloseWithMouseDownOutside [
 
 	" mouse down immediately followed by a mouse up -> the popup should stay opened"
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isOpened.
 	BlSpace simulateMouseUpOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isOpened.
 
 	closed := false.
@@ -123,6 +131,7 @@ ToPopupWindowTest >> testPopupOpenCloseWithMouseDownOutside [
 	BlSpace simulateMouseMoveOutside: windowHandler currentWindow.
 	BlSpace simulateMouseDownOn: space root.
 	BlSpace simulateMouseUpOn: space root.
+	self waitTestingSpaces.
 	self assert: closed.
 	self assert: windowHandler currentWindow isNil
 ]
@@ -145,6 +154,7 @@ ToPopupWindowTest >> testPopupOpenCloseWithMouseUpOutsideAssociateElement [
 	" mouse down on widget then up on popup"
 	self waitTestingSpaces.
 	BlSpace simulateMouseDownOn: e.
+	self waitTestingSpaces.
 	self assert: windowHandler currentWindow isOpened.
 	self waitTestingSpaces.
 	BlSpace simulateMouseUpOn: windowHandler currentWindow.

src/Toplo-Tests/ToTooltipWindowTest.class.st

@@ -3,7 +3,7 @@ A ToTooltipWindowTest is a test class for testing the behavior of ToTooltipWindo
 "
 Class {
 	#name : #ToTooltipWindowTest,
-	#superclass : #ToTestCaseWithSpace,
+	#superclass : #ToParameterizedHostTest,
 	#category : #'Toplo-Tests-Core-Tooltip'
 }
 
@@ -17,11 +17,13 @@ ToTooltipWindowTest >> testContent [
 	windowHandler := e tooltipWindowManager.
 	self assert: (windowHandler isKindOf: ToTooltipWindowManager).
 	space root addChild: e.
-	"self waitTestingSpaces."
+	self waitTestingSpaces.
 
 	BlSpace simulateMouseMoveInside: e.
+	self waitTestingSpaces.
 	(windowHandler popupDelay + 100 milliSecond ) wait.
-	space pulse.
+	self waitTestingSpaces.
+
 	self assert: (windowHandler currentWindow root firstChild isKindOf: ToLabel) .
 	self assert: windowHandler currentWindow root firstChild text asString equals: 'Tooltip content' .
 	^  windowHandler currentWindow

src/Toplo-Widget-List/TToListElementDecorator.trait.st

@@ -102,6 +102,12 @@ TToListElementDecorator >> scrollToIndexAtTop: anIndex [
 	self next scrollToIndexAtTop: anIndex
 ]
 
+{ #category : #'t - infinite accessing' }
+TToListElementDecorator >> stopScroll [
+
+	self next stopScroll 
+]
+
 { #category : #'t - infinite accessing' }
 TToListElementDecorator >> withRowNumbers [