Data commit

Task/GUI-Maximum-window-dimensions/BaCon/gui-maximum-window-dimensions.bacon

@@ -0,0 +1,28 @@
+OPTION GUI TRUE
+PRAGMA GUI gtk3
+
+FUNCTION Define_Window
+
+    LOCAL (*max)() = gtk_window_maximize TYPE void
+    LOCAL id
+
+    id = GUIDEFINE("{ type=WINDOW name=window }")
+    CALL GUIFN(id, "window", max)
+    RETURN id
+
+ENDFUNCTION
+
+SUB Print_Dimensions
+
+    LOCAL (*size)() = gtk_window_get_size TYPE void
+    LOCAL x, y
+
+    CALL GUIFN(gui, "window", size, &x, &y)
+    PRINT x, "-", y
+    END
+
+ENDSUB
+
+gui = Define_Window()
+ALARM Print_Dimensions, 500
+event$ = GUIEVENT$(gui)