1 ! Copyright (C) 2021 Doug Coleman.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: accessors alien arrays io kernel namespaces prettyprint
4 ui.backend.windows ui.gadgets.worlds windows.errors windows.types
8 : monitor-enum-proc ( -- callback )
9 BOOL { HMONITOR HDC LPRECT LPARAM } stdcall [
12 MONITORINFOEX new dup byte-length >>cbSize
13 [ GetMonitorInfo win32-error=0/f ] keep ... flush
17 : enum-monitors ( -- )
23 EnumDisplayMonitors win32-error=0/f ;
26 : desktop-enum-proc ( -- callback )
27 BOOL { LPWSTR LPARAM } stdcall [
32 : enum-desktops ( -- )
33 f desktop-enum-proc 0 EnumDesktopsW win32-error=0/f ;