diff options
Diffstat (limited to 'objectio/tut6_4_4.icl')
| -rw-r--r-- | objectio/tut6_4_4.icl | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/objectio/tut6_4_4.icl b/objectio/tut6_4_4.icl deleted file mode 100644 index 1e7f4d8..0000000 --- a/objectio/tut6_4_4.icl +++ /dev/null @@ -1,34 +0,0 @@ -module tut6_4_4 - -// ******************************************************************************** -// Clean tutorial example program. -// -// This program creates a window that displays a user selected bitmap. -// Make sure that this application has sufficient heap or extra memory. -// ******************************************************************************** - -import StdIO, StdEnv - -Start :: *World -> *World -Start world - # (maybeFile,world) = selectInputFile world - | isNothing maybeFile - = world - # bitmapfile = fromJust maybeFile - # (maybeBitmap,world) = openBitmap bitmapfile world - | isNothing maybeBitmap - = world - | otherwise - # bitmap = fromJust maybeBitmap - bitmapsize = getBitmapSize bitmap - window = Window "Bitmap" NilLS - [ WindowViewSize bitmapsize - , WindowLook True (\_ _->drawAt zero bitmap) - , WindowClose (noLS closeProcess) - ] - = startIO SDI - Void - (snd o openWindow Void window) - [ProcessClose closeProcess] - world - |