2015-08-16 13:33:52 -04:00
|
|
|
USING: accessors models namespaces tools.test ui.gadgets
|
|
|
|
|
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
|
