/
GLMTabulatorMorphicTest.class.st
57 lines (48 loc) · 1.49 KB
/
GLMTabulatorMorphicTest.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Class {
#name : #GLMTabulatorMorphicTest,
#superclass : #GLMMorphicTest,
#category : #'Glamour-Tests-Morphic'
}
{ #category : #tests }
GLMTabulatorMorphicTest >> testMultipleInitialSelection [
| browser firstTreeMorph |
browser := GLMTabulator new.
browser column: #one.
browser
transmit to: #one;
andShow: [ :a |
(a tree)
beMultiple;
display: [ :x | 1 to: x * 3 ] ].
window := browser openOn: 5.
(browser panes first port: #selection) value: #(2 5 3).
firstTreeMorph := self find: MorphTreeMorph in: window.
self assert: firstTreeMorph model selection notNil.
self assert: firstTreeMorph model selection selectedItemOrItemsOrNil size equals: 3.
]
{ #category : #tests }
GLMTabulatorMorphicTest >> testSpawnTabulator [
| browser |
browser := GLMTabulator new.
window := browser openOn: ($a to: $d).
self assert: window model == browser.
self waitUntilUIRedrawed.
self assert:
(window submorphs last
submorphs last
submorphs last
submorphs last class) equals: GLMPaginatedMorphTreeMorph
]
{ #category : #tests }
GLMTabulatorMorphicTest >> testStatusbar [
| browser statusMorph |
browser := GLMTabulator new.
browser addStatusbar.
browser row: #one.
browser transmit to: #one; andShow: [:a | a list display: #(1 2 3)].
window := browser openOn: 42.
((browser paneNamed: #one) port: #status) value: 2.
self waitUntilUIRedrawed.
statusMorph := (window submorphs last: 2) first submorphs first.
self assert: (statusMorph isKindOf: LabelMorph)
]