29 lines
479 B
Plaintext
29 lines
479 B
Plaintext
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)
|