diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/test.icl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/test.icl b/test/test.icl index 5717add..9d6f7ea 100644 --- a/test/test.icl +++ b/test/test.icl @@ -9,10 +9,19 @@ import Control.Monad.State import Gtk.Signal import Gtk.State +import Gtk.Types import Gtk.Widgets Start w = runGtk app w where app = newWindow "Hello!" Nothing >>= \window -> - installSignalHandler window (DestroyHandler quit) + installSignalHandler window (DestroyHandler quit) >>| + newPaned Horizontal WideHandle >>= \paned -> + addToContainer paned window >>| + newTextView >>= \text_view_a -> + newTextView >>= \text_view_b -> + packPane1 text_view_a paned Resize Shrink >>| + packPane2 text_view_b paned Resize Shrink >>| + insertAtCursor "Hello" (getTextBuffer text_view_a) >>| + insertAtCursor "world!" (getTextBuffer text_view_b) |