2015-10-16 03:20:29 -04:00
|
|
|
USING: accessors kernel models namespaces tools.test ui.gadgets
|
2015-08-16 13:33:52 -04:00
|
|
|
ui.gadgets.buttons ;
|
2008-09-02 02:52:22 -04:00
|
|
|
IN: ui.gadgets.buttons.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ } [
|
2007-11-14 16:35:17 -05:00
|
|
|
2 <model> {
|
|
|
|
|
{ 0 "atheist" }
|
|
|
|
|
{ 1 "christian" }
|
|
|
|
|
{ 2 "muslim" }
|
|
|
|
|
{ 3 "jewish" }
|
|
|
|
|
} <radio-buttons> "religion" set
|
|
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 0 } [
|
2008-09-02 02:52:22 -04:00
|
|
|
"religion" get gadget-child value>>
|
2007-11-14 16:35:17 -05:00
|
|
|
] unit-test
|
|
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ 2 } [
|
2007-11-14 16:35:17 -05:00
|
|
|
"religion" get gadget-child control-value
|
|
|
|
|
] unit-test
|
2015-10-16 03:20:29 -04:00
|
|
|
|
|
|
|
|
{ t t } [
|
|
|
|
|
"but1" [ ] <roll-button> "but2" [ ] <roll-button>
|
|
|
|
|
[ [ boundary>> ] bi@ eq? ] [ [ interior>> ] bi@ eq? ] 2bi
|
|
|
|
|
] unit-test
|
