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) >>|
		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)