Add example to test GtPhlowColumnedListView resizing

feenkcom · Jul 17, 2024 · 2bcc069 · 2bcc069
1 parent 3cfe8bc
commit 2bcc069
Showing 1 changed file with 35 additions and 0 deletions.
diff --git a/src/GToolkit-Phlow-Examples/GtPhlowColumnedListViewExamples.class.st b/src/GToolkit-Phlow-Examples/GtPhlowColumnedListViewExamples.class.st
@@ -350,6 +350,41 @@ GtPhlowColumnedListViewExamples >> columnItemView [
 	^ aView
 ]
 
+{ #category : #accessing }
+GtPhlowColumnedListViewExamples >> columnedListViewColumnResizing [
+	<gtExample>
+	| scripter |
+	scripter := BlScripter new.
+	scripter element: self viewWithItems asElement.
+	scripter
+		assertStep: [ :s | 
+			s
+				label: 'Check initial column widths';
+				// BrColumnedList;
+				satisfies: [ :list | 
+					list columns
+						allSatisfy: [ :each | each columnWidth isKindOf: GtPhlowColumnProportionalWidth ] ];
+				onSelf ].
+	scripter
+		substep: 'Move first column resizer'
+		do: [ :aStep | 
+			aStep mouseMoveOver id: #'x-resizer'.
+			aStep mouseDown.
+			aStep mouseMove by: -50 @ 0.
+			aStep mouseUp.
+			aStep play ].
+	scripter
+		assertStep: [ :s | 
+			s
+				label: 'Check moved column widths';
+				// BrColumnedList;
+				satisfies: [ :list | 
+					(list columns first columnWidth isKindOf: BrColumnFixedWidth)
+						and: [ list columns second columnWidth isKindOf: GtPhlowColumnProportionalWidth ] ];
+				onSelf ].
+	^ scripter
+]
+
 { #category : #'examples - text' }
 GtPhlowColumnedListViewExamples >> columnedListWithHorizontalScrolling [
 	<gtExample>