From: George H. <geo...@us...> - 2013-12-17 19:25:23
|
Update of /cvsroot/win32forth/win32forth/apps/PictureViewer In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv25360/apps/PictureViewer Modified Files: PictureViewer.f Log Message: Minor bug fixes and enhancements Index: PictureViewer.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PictureViewer/PictureViewer.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** PictureViewer.f 17 Jan 2012 19:36:11 -0000 1.9 --- PictureViewer.f 17 Dec 2013 19:25:21 -0000 1.10 *************** *** 695,699 **** ChildWindowState SIZE_RESTORED = IF ! AddrOf: WindowRect dup hWnd Call GetWindowRect drop MDIClient: Frame Call ScreenToClient drop --- 695,699 ---- ChildWindowState SIZE_RESTORED = IF ! WindowRect dup hWnd Call GetWindowRect drop MDIClient: Frame Call ScreenToClient drop *************** *** 724,729 **** :M GetMDIClientRect: ( -- w h ) ! AddrOf: WindowRect MDIClient: Frame Call GetClientRect drop ! WindowRect.Right WindowRect.Bottom ;M --- 724,729 ---- :M GetMDIClientRect: ( -- w h ) ! WindowRect MDIClient: Frame Call GetClientRect drop ! Right: WindowRect Bottom: WindowRect ;M |