From b6325f4e396400f6f9ef22346e3125982e88af3f Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Wed, 23 Oct 2019 08:50:07 +0200 Subject: Fix config; remove test --- test/test.icl | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 test/test.icl (limited to 'test/test.icl') diff --git a/test/test.icl b/test/test.icl deleted file mode 100644 index 5341e9f..0000000 --- a/test/test.icl +++ /dev/null @@ -1,27 +0,0 @@ -module test - -import StdMaybe - -import Control.Applicative -import Control.Monad -import Control.Monad.Identity -import Control.Monad.State - -import Gtk - -Start w = runGtk app w -where - app = - newWindow "Hello!" Nothing >>= \window -> - installSignalHandler window (DestroyHandler quit) >>| - framed (Label "label") (newPaned Horizontal WideHandle) >>= \(paned,frame) -> - setMargins (margin 8) frame >>| - addToContainer frame window >>| - newTextView >>= \text_view_a -> - newTextView >>= \text_view_b -> - setMargins (margin 3) text_view_a >>| - setMargins (margin 3) text_view_b >>| - packPane1 text_view_a paned Resize NoShrink >>| - packPane2 text_view_b paned Resize NoShrink >>| - insertAtCursor "Hello" (getTextBuffer text_view_a) >>| - insertAtCursor "world!" (getTextBuffer text_view_b) -- cgit v1.2.3