1 USING: ui.commands ui.gadgets.buttons ui.gadgets.labels
2 ui.gadgets tools.test namespaces sequences kernel models
4 IN: ui.gadgets.buttons.tests
12 \ foo-gadget "toolbar" f {
17 T{ foo-gadget } <toolbar> "t" set
19 [ 2 ] [ "t" get children>> length ] unit-test
20 [ "Foo A" ] [ "t" get gadget-child gadget-child label-string ] unit-test
28 } <radio-buttons> "religion" set
31 \ <radio-buttons> must-infer
33 \ <toggle-buttons> must-infer
35 \ <checkbox> must-infer
38 "religion" get gadget-child value>>
42 "religion" get gadget-child control-value