diff --git a/Main.hs b/Main.hs index f8195a1..7132633 100644 --- a/Main.hs +++ b/Main.hs @@ -13,7 +13,9 @@ import Data.GI.Base -- This function runs when the application is activated activate :: Gtk.Application -> IO () activate app = do - -- Create an Image widget from the file + + -- todo: change to this: + -- https://git.ajattix.org/hashirama/xcdat-Cwrapper/src/commit/dd731c93e1612e4001b0b3d6dd1465ea06189ab8/haskell.hs#L80 image <- imageNewFromFile "/home/hashirama/image_test.jpg" -- Set image to expand and fill available space