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

Update old accessors from 'ui.windows'

db4
U-CUTLER\dharmatech 2008-09-01 19:55:21 -05:00
parent 03ab685d93
commit c0098e6a52
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
basis/ui/windows/windows.factor
View File

@ -208,7 +208,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
hWnd window-focus send-gesture drop ; hWnd window-focus send-gesture drop ;
:: set-window-active ( hwnd uMsg wParam lParam ? -- n ) :: set-window-active ( hwnd uMsg wParam lParam ? -- n )
? hwnd window set-world-active? ? hwnd window (>>active?)
hwnd uMsg wParam lParam DefWindowProc ; hwnd uMsg wParam lParam DefWindowProc ;
: handle-wm-syscommand ( hWnd uMsg wParam lParam -- n ) : handle-wm-syscommand ( hWnd uMsg wParam lParam -- n )
@ -221,14 +221,14 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
} cond ; } cond ;
: cleanup-window ( handle -- ) : cleanup-window ( handle -- )
dup win-title [ free ] when* dup title>> [ free ] when*
dup win-hRC wglDeleteContext win32-error=0/f dup hRC>> wglDeleteContext win32-error=0/f
dup win-hWnd swap win-hDC ReleaseDC win32-error=0/f ; dup hWnd>> swap hDC>> ReleaseDC win32-error=0/f ;
M: windows-ui-backend (close-window) M: windows-ui-backend (close-window)
dup win-hWnd unregister-window dup hWnd>> unregister-window
dup cleanup-window dup cleanup-window
win-hWnd DestroyWindow win32-error=0/f ; hWnd>> DestroyWindow win32-error=0/f ;
: handle-wm-close ( hWnd uMsg wParam lParam -- ) : handle-wm-close ( hWnd uMsg wParam lParam -- )
3drop window ungraft ; 3drop window ungraft ;
@ -472,28 +472,28 @@ M: windows-ui-backend do-events
M: windows-ui-backend (open-window) ( world -- ) M: windows-ui-backend (open-window) ( world -- )
[ create-window dup setup-gl ] keep [ create-window dup setup-gl ] keep
[ f <win> ] keep [ f <win> ] keep
[ swap win-hWnd register-window ] 2keep [ swap hWnd>> register-window ] 2keep
dupd set-world-handle dupd (>>handle)
win-hWnd show-window ; hWnd>> show-window ;
M: windows-ui-backend select-gl-context ( handle -- ) M: windows-ui-backend select-gl-context ( handle -- )
[ win-hDC ] keep win-hRC wglMakeCurrent win32-error=0/f ; [ hDC>> ] keep hRC>> wglMakeCurrent win32-error=0/f ;
M: windows-ui-backend flush-gl-context ( handle -- ) M: windows-ui-backend flush-gl-context ( handle -- )
win-hDC SwapBuffers win32-error=0/f ; hDC>> SwapBuffers win32-error=0/f ;
! Move window to front ! Move window to front
M: windows-ui-backend raise-window* ( world -- ) M: windows-ui-backend raise-window* ( world -- )
world-handle [ handle>> [
win-hWnd SetFocus drop hWnd>> SetFocus drop
] when* ; ] when* ;
M: windows-ui-backend set-title ( string world -- ) M: windows-ui-backend set-title ( string world -- )
world-handle handle>>
dup win-title [ free ] when* dup title>> [ free ] when*
>r utf16n malloc-string r> >r utf16n malloc-string r>
2dup set-win-title 2dup (>>title)
win-hWnd WM_SETTEXT 0 roll alien-address SendMessage drop ; hWnd>> WM_SETTEXT 0 roll alien-address SendMessage drop ;
M: windows-ui-backend ui M: windows-ui-backend ui
[ [