Update Main.hs

This commit is contained in:
千住柱間 2025-01-17 03:04:26 +00:00
commit bc49d27bbb

View file

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