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

fix windows

db4
Joe Groff 2009-09-25 10:00:23 -05:00
parent 653a74a314
commit bcd5e72989
1 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -537,14 +537,13 @@ SYMBOL: nc-buttons
COLOR_BTNFACE GetSysColor RGB>color ; COLOR_BTNFACE GetSysColor RGB>color ;
: ?make-glass ( world hwnd -- ) : ?make-glass ( world hwnd -- )
over { over window-controls>> textured-background swap memq? [
[ composition-enabled? ] composition-enabled? [
[ window-controls>> textured-background swap memq? ] full-window-margins DwmExtendFrameIntoClientArea drop
} 1&& T{ rgba f 0.0 0.0 0.0 0.0 }
[ ] [ drop system-background-color ] if >>background-color
full-window-margins DwmExtendFrameIntoClientArea drop drop
T{ rgba f 0.0 0.0 0.0 0.0 } ] [ 2drop ] if ;
] [ system-background-color ] if >>background-color ;
: handle-wm-dwmcompositionchanged ( hWnd uMsg wParam lParam -- ) : handle-wm-dwmcompositionchanged ( hWnd uMsg wParam lParam -- )
3drop [ window ] keep ?make-glass ; 3drop [ window ] keep ?make-glass ;