equal
deleted
inserted
replaced
18 " |
18 " |
19 "{ Package: 'stx:goodies/smallsense' }" |
19 "{ Package: 'stx:goodies/smallsense' }" |
20 |
20 |
21 "{ NameSpace: SmallSense }" |
21 "{ NameSpace: SmallSense }" |
22 |
22 |
23 Smalltalk::TestCase subclass:#EditSupportTests |
23 AbstractTestCase subclass:#EditSupportTests |
24 instanceVariableNames:'codeView codeViewInteractor editService editSupport' |
24 instanceVariableNames:'codeView codeViewInteractor editService editSupport' |
25 classVariableNames:'' |
25 classVariableNames:'' |
26 poolDictionaries:'' |
26 poolDictionaries:'' |
27 category:'SmallSense-Tests' |
27 category:'SmallSense-Tests' |
28 ! |
28 ! |
61 !EditSupportTests methodsFor:'running'! |
61 !EditSupportTests methodsFor:'running'! |
62 |
62 |
63 setUp |
63 setUp |
64 | topView | |
64 | topView | |
65 |
65 |
|
66 Smalltalk loadPackage: 'stx:goodies/sunitext/ui'. |
|
67 |
66 topView := StandardSystemView new. |
68 topView := StandardSystemView new. |
67 topView extent: 320 @ 200. |
69 topView extent: 320 @ 200. |
68 topView label: self printString. |
70 topView label: self printString. |
69 codeView := Tools::CodeView2 origin: 0.0@0.0 extent: 1.0@1.0 in: topView. |
71 codeView := Tools::CodeView2 origin: 0.0@0.0 extent: 1.0@1.0 in: topView. |
70 codeViewInteractor := codeView interactor. |
72 codeViewInteractor := codeView interactor. |
77 |
79 |
78 topView open. |
80 topView open. |
79 topView waitUntilVisible. |
81 topView waitUntilVisible. |
80 |
82 |
81 "Created: / 23-07-2014 / 07:15:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
83 "Created: / 23-07-2014 / 07:15:05 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
82 "Modified: / 23-07-2014 / 09:58:44 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
84 "Modified: / 11-08-2014 / 14:35:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
83 ! |
85 ! |
84 |
86 |
85 tearDown |
87 tearDown |
86 |
88 |
87 editService := nil. |
89 editService := nil. |