Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (10 sloc) 293 Bytes
module Util where
import PropLang.Gtk
import Data
import Graphics.UI.Gtk
errorMessage :: Data -> String -> IO ()
errorMessage dat msg = do
let parent = getWindowRaw (window dat)
md <- messageDialogNew (Just parent) [] MessageError ButtonsOk msg
dialogRun md
widgetHide md