Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Chess Fullscreen.f, 1.3, 1.4 Oglwin.f, 1.5, 1.6
|
From: George H. <geo...@us...> - 2010-02-14 18:03:14
|
Update of /cvsroot/win32forth/win32forth/apps/Chess In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv2321 Modified Files: Fullscreen.f Oglwin.f Log Message: Minor optimisation Index: Oglwin.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Oglwin.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** Oglwin.f 2 Aug 2008 10:16:51 -0000 1.5 --- Oglwin.f 14 Feb 2010 18:03:05 -0000 1.6 *************** *** 52,60 **** 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WndRect ExStyle \ extended style WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ the window style ! AddrOf: WndRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window ^base \ creation parameters lpParam --- 52,60 ---- 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WinRect ExStyle \ extended style WindowHasMenu: [ self ] \ have menu flag? WindowStyle: [ self ] \ the window style ! AddrOf: WinRect \ make a new rectangle call AdjustWindowRectEx ?win-error \ adjust the window ^base \ creation parameters lpParam *************** *** 62,67 **** NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Bottom: WndRect Top: WndRect - \ adjusted height ! Right: WndRect Left: WndRect - \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle --- 62,67 ---- NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Bottom: WinRect Top: WinRect - \ adjusted height ! Right: WinRect Left: WinRect - \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle *************** *** 70,74 **** ExStyle Call CreateWindowEx ! EraseRect: WndRect ; --- 70,74 ---- ExStyle Call CreateWindowEx ! EraseRect: WinRect ; Index: Fullscreen.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Chess/Fullscreen.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Fullscreen.f 29 Jun 2008 19:49:30 -0000 1.3 --- Fullscreen.f 14 Feb 2010 18:02:59 -0000 1.4 *************** *** 4,33 **** struct{ \ devmode ! DWORD dmDeviceName ! WORD dmSpecVersion ! WORD dmDriverVersion ! WORD dmSize ! WORD dmDriverExtra ! DWORD dmFields ! WORD dmOrientation ! WORD dmPaperSize WORD dmPaperLength ! WORD dmPaperWidth ! WORD dmScale ! WORD dmCopies ! WORD dmDefaultSource ! WORD dmPrintQuality ! WORD dmColor ! WORD dmDuplex WORD dmYResolution \ 148 ! WORD dmTTOption WORD dmCollate \ 32 DWORD dmFormName \ 28 WORD dmUnusedPadding ! DWORD dmBitsPerPel DWORD dmPelsWidth \ 1024 \ W98 max width of screen DWORD dmPelsHeight \ 768 \ W98 max height of screen ! DWORD dmDisplayFlags ! DWORD dmDisplayFrequency DWORD dmICMMethod DWORD dmICMIntent --- 4,33 ---- struct{ \ devmode ! DWORD dmDeviceName ! WORD dmSpecVersion ! WORD dmDriverVersion ! WORD dmSize ! WORD dmDriverExtra ! DWORD dmFields ! WORD dmOrientation ! WORD dmPaperSize WORD dmPaperLength ! WORD dmPaperWidth ! WORD dmScale ! WORD dmCopies ! WORD dmDefaultSource ! WORD dmPrintQuality ! WORD dmColor ! WORD dmDuplex WORD dmYResolution \ 148 ! WORD dmTTOption WORD dmCollate \ 32 DWORD dmFormName \ 28 WORD dmUnusedPadding ! DWORD dmBitsPerPel DWORD dmPelsWidth \ 1024 \ W98 max width of screen DWORD dmPelsHeight \ 768 \ W98 max height of screen ! DWORD dmDisplayFlags ! DWORD dmDisplayFrequency DWORD dmICMMethod DWORD dmICMIntent *************** *** 132,142 **** 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WndRect ^base \ creation parameters lpParam appInst \ program instance *hInstance NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Bottom: WndRect Top: WndRect - \ adjusted height ! Right: WndRect Left: WndRect - \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle --- 132,142 ---- 0 0 \ adjust x,y relative to 0,0 StartSize: [ self ] \ width, height ! SetRect: WinRect ^base \ creation parameters lpParam appInst \ program instance *hInstance NULL LoadMenu: [ self ] \ menu hMenu ParentWindow: [ self ] \ parent window handle ok hWndParent ! Height: WinRect \ adjusted height ! Width: WinRect \ adjusted width StartPos: [ self ] swap \ y, x starting position WindowStyle: [ self ] \ the window style dwStyle *************** *** 145,149 **** WS_EX_APPWINDOW WS_EX_TOPMOST or Call CreateWindowEx ! EraseRect: WndRect ; --- 145,149 ---- WS_EX_APPWINDOW WS_EX_TOPMOST or Call CreateWindowEx ! EraseRect: WinRect ; |
