[ALLY] getting the screen-size
From: allenk:powerup:au at: 15-Aug-2000 16:18
Here is a little function that can return the screen size. This one will
work on all OS's including BeOS, and those Linux systems that can't initiate
the screen-face until after a face is shown. On some platforms, screen-face
returns a size of 100x100 until after face is shown (because the gui libs
have to be loaded).
Most of us want to the know the screen size before we show our main face,
(for window sizing or centering), and also want the script to run on all
platforms. Thanks to Bo for suggesting this idea.
screen-size: does [
if system/view/screen-face/size = 100x100 [view/new make face [1x1]
unview/all]
system/view/screen-face/size
]
Cheers,
Allen K
