From 16df185b13a664389d29ea47141ea88e6166bd84 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 19 Aug 2015 11:02:55 +0200
Subject: Moving objectio tests

---
 objectio/tut6_4_4.icl | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 objectio/tut6_4_4.icl

(limited to 'objectio/tut6_4_4.icl')

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
-
-- 
cgit v1.2.3