]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/windows/hardware/hardware.factor
Update actions, because Node.js 16 actions are deprecated, to Node.js 20
[factor.git] / basis / windows / hardware / hardware.factor
index b7d7e4516735f2bf910c32cc140cabb39e16c4e5..d1d0e4a4f2f15fd5c224e733f0f6f09fa063ae87 100644 (file)
@@ -1,15 +1,15 @@
 ! Copyright (C) 2021 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien alien.data arrays classes.struct io
-kernel namespaces prettyprint ui.backend.windows
-ui.gadgets.worlds windows.errors windows.types windows.user32 ;
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors alien arrays io kernel namespaces prettyprint
+ui.backend.windows ui.gadgets.worlds windows.errors windows.types
+windows.user32 ;
 IN: windows.hardware
 
 : monitor-enum-proc ( -- callback )
     BOOL { HMONITOR HDC LPRECT LPARAM } stdcall [
         4dup 4array .
         3drop
-        MONITORINFOEX <struct> dup byte-length >>cbSize
+        MONITORINFOEX new dup byte-length >>cbSize
         [ GetMonitorInfo win32-error=0/f ] keep ... flush
         TRUE
     ] alien-callback ;