steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

rename set-fullscreen? to set-fullscreen, add a toggle-fullscreen word, fix windows backend for fullscreen*

db4
Doug Coleman 2009-05-13 20:05:22 -05:00
parent edeeabb9a1
commit 31e3fe5a2f
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/ui/backend/windows/windows.factor
View File

@ -761,6 +761,11 @@ M: windows-ui-backend (ungrab-input) ( handle -- )
M: windows-ui-backend set-fullscreen* ( ? world -- ) M: windows-ui-backend set-fullscreen* ( ? world -- )
swap [ enter-fullscreen ] [ exit-fullscreen ] if ; swap [ enter-fullscreen ] [ exit-fullscreen ] if ;
M: windows-ui-backend fullscreen* ( world -- ? )
[ handle>> hWnd>> hwnd>RECT ]
[ handle>> hWnd>> fullscreen-RECT ] bi
[ get-RECT-dimensions 2array 2nip ] bi@ = ;
windows-ui-backend ui-backend set-global windows-ui-backend ui-backend set-global
[ "ui.tools" ] main-vocab-hook set-global [ "ui.tools" ] main-vocab-hook set-global

4
basis/ui/ui-docs.factor
View File

@ -25,7 +25,7 @@ HELP: world-attributes
{ { $snippet "pixel-format-attributes" } " is a sequence of " { $link "ui.pixel-formats-attributes" } " that the window will request for its OpenGL pixel format." } { { $snippet "pixel-format-attributes" } " is a sequence of " { $link "ui.pixel-formats-attributes" } " that the window will request for its OpenGL pixel format." }
} ; } ;
HELP: set-fullscreen? HELP: set-fullscreen
{ $values { "?" "a boolean" } { "gadget" gadget } } { $values { "?" "a boolean" } { "gadget" gadget } }
{ $description "Sets and unsets fullscreen mode for the gadget's world." } ; { $description "Sets and unsets fullscreen mode for the gadget's world." } ;
@ -33,7 +33,7 @@ HELP: fullscreen?
{ $values { "gadget" gadget } { "?" "a boolean" } } { $values { "gadget" gadget } { "?" "a boolean" } }
{ $description "Queries the gadget's world to see if it is running in fullscreen mode." } ; { $description "Queries the gadget's world to see if it is running in fullscreen mode." } ;
{ fullscreen? set-fullscreen? } related-words { fullscreen? set-fullscreen } related-words
HELP: find-window HELP: find-window
{ $values { "quot" { $quotation "( world -- ? )" } } { "world" { $maybe world } } } { $values { "quot" { $quotation "( world -- ? )" } } { "world" { $maybe world } } }

5
basis/ui/ui.factor
View File

@ -209,12 +209,15 @@ PRIVATE>
: open-window ( gadget title/attributes -- ) : open-window ( gadget title/attributes -- )
?attributes <world> open-world-window ; ?attributes <world> open-world-window ;
: set-fullscreen? ( ? gadget -- ) : set-fullscreen ( ? gadget -- )
find-world set-fullscreen* ; find-world set-fullscreen* ;
: fullscreen? ( gadget -- ? ) : fullscreen? ( gadget -- ? )
find-world fullscreen* ; find-world fullscreen* ;
: toggle-fullscreen ( gadget -- )
[ fullscreen? not ] keep set-fullscreen ;
: raise-window ( gadget -- ) : raise-window ( gadget -- )
find-world raise-window* ; find-world raise-window* ;