diff options
Diffstat (limited to 'objectio/tut7_2_2.icl')
| -rw-r--r-- | objectio/tut7_2_2.icl | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/objectio/tut7_2_2.icl b/objectio/tut7_2_2.icl deleted file mode 100644 index 57d5e56..0000000 --- a/objectio/tut7_2_2.icl +++ /dev/null @@ -1,18 +0,0 @@ -module tut7_2_2 - -import StdEnv, StdIO - -Start :: *World -> *World -Start world = startIO NDI Void initialise [] world -where - initialise pst - # (error,pst) = openDialog Void dialog pst - | error <> NoError = closeProcess pst - | otherwise = pst - - dialog = Dialog "ObjectIO" controls [WindowClose (noLS closeProcess)] - - controls = ListLS [ TextControl label [ControlWidth (ContentWidth maxlabel), ControlPos (Left, zero)] :+: EditControl "" (PixelWidth 100) 1 [] \\ label <- labels] - maxlength = maxList (map size labels) - maxlabel = hd (dropWhile (\l . size l <> maxlength) labels) - labels = [ "Short label" , "Long and too verbose label" , "Medium length label" ] |