1 USING: accessors ui.gadgets.editors tools.test kernel io
2 io.streams.plain definitions namespaces ui.gadgets
3 ui.gadgets.grids prettyprint documents ui.gestures tools.test.ui
5 IN: ui.gadgets.editors.tests
10 "foo bar" "editor" get set-editor-string
11 "editor" get T{ one-line-elt } select-elt
12 "editor" get gadget-selection
19 "foo bar\nbaz quux" "editor" get set-editor-string
20 "editor" get T{ one-line-elt } select-elt
21 "editor" get gadget-selection
28 "foo bar\nbaz quux" "editor" get set-editor-string
30 "editor" get position-caret
37 "bar\nbaz quux" "editor" get set-editor-string
38 { 0 3 } "editor" get caret>> set-model
39 "editor" get select-word
40 "editor" get gadget-selection
46 "hello" <model> <field> "field" set
49 [ "hello" ] [ "field" get field-model>> value>> ] unit-test