basis/ui/gadgets/editors/editors-tests.factor

   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
   4 models ;
   5 IN: ui.gadgets.editors.tests
   6
   7 [ "foo bar" ] [
   8     <editor> "editor" set
   9     "editor" get [
  10         "foo bar" "editor" get set-editor-string
  11         "editor" get T{ one-line-elt } select-elt
  12         "editor" get gadget-selection
  13     ] with-grafted-gadget
  14 ] unit-test
  15
  16 [ "baz quux" ] [
  17     <editor> "editor" set
  18     "editor" get [
  19         "foo bar\nbaz quux" "editor" get set-editor-string
  20         "editor" get T{ one-line-elt } select-elt
  21         "editor" get gadget-selection
  22     ] with-grafted-gadget
  23 ] unit-test
  24
  25 [ ] [
  26     <editor> "editor" set
  27     "editor" get [
  28         "foo bar\nbaz quux" "editor" get set-editor-string
  29         4 hand-click# set
  30         "editor" get position-caret
  31     ] with-grafted-gadget
  32 ] unit-test
  33
  34 [ "bar" ] [
  35     <editor> "editor" set
  36     "editor" get [
  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
  41     ] with-grafted-gadget
  42 ] unit-test
  43
  44 \ <editor> must-infer
  45
  46 "hello" <model> <field> "field" set
  47
  48 "field" get [
  49     [ "hello" ] [ "field" get field-model>> value>> ] unit-test
  50 ] with-grafted-gadget