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

tweak textured windows on windows

db4
Joe Groff 2009-09-24 13:26:15 -05:00
parent d5b267c401
commit c4d4f1b337
1 changed files with 3 additions and 1 deletions
basis/ui/backend/windows

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

@ -230,6 +230,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
CONSTANT: window-control>style
H{
{ close-button 0 }
{ textured-background 0 }
{ minimize-button $ WS_MINIMIZEBOX }
{ maximize-button $ WS_MAXIMIZEBOX }
{ resize-handles $ WS_THICKFRAME }
@ -240,6 +241,7 @@ CONSTANT: window-control>style
CONSTANT: window-control>ex-style
H{
{ close-button 0 }
{ textured-background 0 }
{ minimize-button 0 }
{ maximize-button 0 }
{ resize-handles $ WS_EX_WINDOWEDGE }
@ -681,7 +683,7 @@ M: windows-ui-backend do-events
SC_CLOSE MF_BYCOMMAND MF_GRAYED bitor EnableMenuItem drop ;
: ?make-glass ( world hwnd -- )
swap { [ transparent?>> ] [ drop windows-major 6 >= ] } 0&&
swap { [ transparent?>> ] [ drop windows-major 6 >= ] } 1&&
[ full-window-margins DwmExtendFrameIntoClientArea drop ]
[ drop ] if ;