diff options
| author | Camil Staps | 2015-08-19 11:02:55 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-08-19 11:02:55 +0200 |
| commit | 16df185b13a664389d29ea47141ea88e6166bd84 (patch) | |
| tree | 2e58fb34ea3da76f99fe6b6feb4076b3948af1b7 /objectio/support_radio.icl | |
| parent | Comments & cleanup (diff) | |
Moving objectio tests
Diffstat (limited to 'objectio/support_radio.icl')
| -rw-r--r-- | objectio/support_radio.icl | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/objectio/support_radio.icl b/objectio/support_radio.icl deleted file mode 100644 index dd60858..0000000 --- a/objectio/support_radio.icl +++ /dev/null @@ -1,30 +0,0 @@ -module support_radio - -// ******************************************************************************** -// Clean tutorial example program. -// -// This program can be used to test the different ControlAttributes for a -// RadioControl in a Dialog. -// ******************************************************************************** - -import StdEnv, StdIO - -Start :: *World -> *World -Start world -# (controlid, world) = openId world -# radios = [ - RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 1 [ControlPos (Left, zero), ControlHide], - RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 2 [ControlPos (Left, zero), ControlId controlid], - RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 3 [ControlPos (Left, zero), ControlSelectState Able], - RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 4 [ControlPos (RightTo controlid, zero), ControlSelectState Unable], - RadioControl [("Item &" +++ toString i, Nothing, id) \\ i <- [1..5]] (Columns 2) 5 [ControlPos (Left, zero), ControlTip "Some tip"] - ] -# controls = ListLS radios -# dialog = Dialog "Support - RadioControl" controls [WindowClose (noLS closeProcess)] -= startIO NDI Void (initialise dialog) [] world -where - initialise dialog pst - # (error,pst) = openDialog 0 dialog pst - | error <> NoError = closeProcess pst - | otherwise = pst - |