21 lines
518 B
Haskell
21 lines
518 B
Haskell
{-# LANGUAGE OverloadedStrings, OverloadedLabels #-}
|
|
|
|
module Gui (runWindow) where
|
|
|
|
import qualified GI.Gtk as Gtk
|
|
import qualified GI.Gio as Gio
|
|
|
|
runWindow :: IO ()
|
|
runWindow = do
|
|
|
|
app <- Gtk.applicationNew (Just "com.svitak.reader") []
|
|
|
|
_ <- Gtk.on app #activate $ do
|
|
|
|
window <- Gtk.applicationWindowNew app
|
|
Gtk.windowSetTitle window (Just "Svitak Reader (GTK 4)")
|
|
Gtk.windowSetDefaultSize window 800 600
|
|
#present window
|
|
|
|
_ <- Gio.applicationRun app Nothing
|
|
return ()
|