2007-09-20 18:09:08 -04:00
|
|
|
USING: ui.gadgets.editors tools.test kernel io io.streams.plain
|
|
|
|
|
io.streams.string definitions namespaces ui.gadgets
|
2007-10-10 01:53:41 -04:00
|
|
|
ui.gadgets.grids prettyprint documents ui.gestures ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
<editor> "editor" set
|
|
|
|
|
"editor" get graft*
|
|
|
|
|
"editor" get <plain-writer> [ \ = see ] with-stream
|
|
|
|
|
"editor" get editor-string [ \ = see ] string-out =
|
|
|
|
|
"editor" get ungraft*
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "foo bar" ] [
|
|
|
|
|
<editor> "editor" set
|
|
|
|
|
"editor" get graft*
|
|
|
|
|
"foo bar" "editor" get set-editor-string
|
|
|
|
|
"editor" get T{ one-line-elt } select-elt
|
|
|
|
|
"editor" get gadget-selection
|
|
|
|
|
"editor" get ungraft*
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ "baz quux" ] [
|
|
|
|
|
<editor> "editor" set
|
|
|
|
|
"editor" get graft*
|
|
|
|
|
"foo bar\nbaz quux" "editor" get set-editor-string
|
|
|
|
|
"editor" get T{ one-line-elt } select-elt
|
|
|
|
|
"editor" get gadget-selection
|
|
|
|
|
"editor" get ungraft*
|
|
|
|
|
] unit-test
|
2007-10-10 01:53:41 -04:00
|
|
|
|
|
|
|
|
[ ] [
|
|
|
|
|
<editor> "editor" set
|
|
|
|
|
"editor" get graft*
|
|
|
|
|
"foo bar\nbaz quux" "editor" get set-editor-string
|
|
|
|
|
4 hand-click# set
|
|
|
|
|
"editor" get position-caret
|
|
|
|
|
"editor" get ungraft*
|
|
|
|
|
] unit-test
|
