gtkMessageBox :: Gtk.MessageType -> String -> GtkForm ()
gtkMessageBox msgType text = GtkForm {
    gtkFormRunModal = do
        Gtk.initGUI
        dlg <- Gtk.messageDialogNew Nothing [] msgType Gtk.ButtonsOk text
        -- Bah, does not appear on the taskbar.
        Gtk.dialogRun dlg
        return ()
}
gtkMessageBox :: Gtk.MessageType -> String -> GtkForm ()
gtkMessageBox msgType text = GtkForm {
    gtkFormRunModal = do
        Gtk.initGUI
        dlg <- Gtk.messageDialogNew Nothing [] msgType Gtk.ButtonsOk text
        -- Bah, does not appear on the taskbar.
        Gtk.dialogRun dlg
        return ()
}
gtkMessageBox msgType text = GtkForm {
    gtkFormRunModal = do
        Gtk.initGUI
        dlg <- Gtk.messageDialogNew Nothing [] msgType Gtk.ButtonsOk text
        -- Bah, does not appear on the taskbar.
        Gtk.dialogRun dlg
        return ()
}