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 ;
: ?make-glass ( world hwnd -- )
over {
[ composition-enabled? ]
[ window-controls>> textured-background swap memq? ]
} 1&&
[
full-window-margins DwmExtendFrameIntoClientArea drop
T{ rgba f 0.0 0.0 0.0 0.0 }
] [ system-background-color ] if >>background-color ;
over window-controls>> textured-background swap memq? [
composition-enabled? [
full-window-margins DwmExtendFrameIntoClientArea drop
T{ rgba f 0.0 0.0 0.0 0.0 }
] [ drop system-background-color ] if >>background-color
drop
] [ 2drop ] if ;
: handle-wm-dwmcompositionchanged ( hWnd uMsg wParam lParam -- )
3drop [ window ] keep ?make-glass ;