 : (opaque-pixels) ( world -- pixels )
     [ handle>> bits>> ] [ dim>> ] bi bitmap>byte-array (make-opaque) ;
 
-M: windows-ui-backend raise-window* ( world -- )
+M: windows-ui-backend raise-window*
     handle>> [ hWnd>> SetFocus drop ] when* ;
 
-M: windows-ui-backend set-title ( string world -- )
+M: windows-ui-backend set-title
     handle>>
     dup title>> [ free ] when*
     swap utf16n malloc-string

    swap window-controls>> close-button swap member? not
    [ disable-close-button ] [ drop ] if ;

M: windows-ui-backend (open-window) ( world -- )
    [
        dup
        [ ] [ world>style ] [ world>ex-style ] tri create-window

    [ dup handle>> hWnd>> register-window ]
    [ handle>> hWnd>> show-window ] tri ;

M: win-base select-gl-context
    [ hDC>> ] [ hRC>> ] bi wglMakeCurrent win32-error=0/f
    GdiFlush drop ;

M: win-base flush-gl-context
    hDC>> SwapBuffers win32-error=0/f ;

! Windows 32-bit bitmaps don't actually use the alpha byte of
