     [ dup handle>> hWnd>> register-window ]
     [ handle>> hWnd>> show-window ] tri ;
 
-M: win-base select-gl-context ( handle -- )
+M: win-base select-gl-context
     [ hDC>> ] [ hRC>> ] bi wglMakeCurrent win32-error=0/f
     GdiFlush drop ;
 
-M: win-base flush-gl-context ( handle -- )
+M: win-base flush-gl-context
     hDC>> SwapBuffers win32-error=0/f ;
 
 ! Windows 32-bit bitmaps don't actually use the alpha byte of

        event-loop
    ] [ cleanup-win32-ui ] [ ] cleanup ;

M: windows-ui-backend beep ( -- )
    0 MessageBeep drop ;

M: windows-ui-backend system-alert

        [ drop SW_RESTORE ShowWindow win32-error=0/f ]
    } 2cleave ;

M: windows-ui-backend (set-fullscreen)
    [ enter-fullscreen ] [ exit-fullscreen ] if ;

M: windows-ui-backend (fullscreen?)
    handle>> hWnd>>
    [ hwnd>RECT ] [ fullscreen-RECT ] bi
    [ get-RECT-dimensions 2array 2nip ] same? ;

M:: windows-ui-backend resize-window ( world dim -- )
    world handle>> hWnd>>
    world window-loc>> dim <RECT> dup
    world world>style
    world world>ex-style
    adjust-RECT get-RECT-dimensions FALSE
    MoveWindow win32-error=0/f ;

M: windows-ui-backend ui-backend-available?
    t ;
