fgl_setsize()
fgl_setsize() allows you to change the default size of the program window. The function takes two INTEGER arguments, lines and columns, which specify the size at which the program window is displayed.
MAIN
OPEN WINDOW win1 AT 1,1 WITH 24 rows, 80 columns ATTRIBUTES (BORDER)
CALL report_winsize()
CALL fgl_winmessage("fgl_setsize()", "Setting window size to 15 rows, 75 columns", "info")
CALL fgl_setsize(75,15)
CALL report_winsize()
CALL fgl_winmessage("fgl_setsize()", "Setting window size to 10 rows, 70 columns", "info")
CALL fgl_setsize(70,10)
CALL report_winsize()
END MAIN
FUNCTION report_winsize()
DEFINE y, x INTEGER
DEFINE msg CHAR(60)
CALL fgl_winsize() RETURNING y, x
LET msg = "Window w_size has ", x USING "<&", " columns, and ", y USING "<&", " rows"
CALL fgl_winmessage("fgl_winsize()",msg,"info")
END FUNCTION