34 lines
921 B
Factor
Executable File
34 lines
921 B
Factor
Executable File
USING: ui.gadgets.editors tools.test kernel io io.streams.plain
|
|
definitions namespaces ui.gadgets
|
|
ui.gadgets.grids prettyprint documents ui.gestures
|
|
tools.test.inference tools.test.ui ;
|
|
|
|
[ "foo bar" ] [
|
|
<editor> "editor" set
|
|
"editor" get [
|
|
"foo bar" "editor" get set-editor-string
|
|
"editor" get T{ one-line-elt } select-elt
|
|
"editor" get gadget-selection
|
|
] with-grafted-gadget
|
|
] unit-test
|
|
|
|
[ "baz quux" ] [
|
|
<editor> "editor" set
|
|
"editor" get [
|
|
"foo bar\nbaz quux" "editor" get set-editor-string
|
|
"editor" get T{ one-line-elt } select-elt
|
|
"editor" get gadget-selection
|
|
] with-grafted-gadget
|
|
] unit-test
|
|
|
|
[ ] [
|
|
<editor> "editor" set
|
|
"editor" get [
|
|
"foo bar\nbaz quux" "editor" get set-editor-string
|
|
4 hand-click# set
|
|
"editor" get position-caret
|
|
] with-grafted-gadget
|
|
] unit-test
|
|
|
|
{ 0 1 } [ <editor> ] unit-test-effect
|