Update of /cvsroot/win32forth/win32forth/apps/PictureViewer
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16038
Modified Files:
PictureViewer.f
Log Message:
Modified to use &of: for registry entries to allow relocation of ivars in window.
Index: PictureViewer.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/PictureViewer/PictureViewer.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** PictureViewer.f 27 Jul 2006 20:44:03 -0000 1.2
--- PictureViewer.f 30 May 2008 22:46:41 -0000 1.3
***************
*** 1048,1052 ****
:M On_SysCommand: ( h m w l -- f ) \ determine whether Child is being Maximized or Restored
! over 0xFFF0 and
dup SC_MAXIMIZE = IF true to ChildMaximizing THEN
SC_RESTORE = IF true to ChildRestoring THEN
--- 1048,1052 ----
:M On_SysCommand: ( h m w l -- f ) \ determine whether Child is being Maximized or Restored
! over 0xFFF0 and
dup SC_MAXIMIZE = IF true to ChildMaximizing THEN
SC_RESTORE = IF true to ChildRestoring THEN
***************
*** 1251,1258 ****
WindowSettings entries
\ Address Length Default Value Reg Type Reg Value Name
! Frame 12 + ( 4 ) 514 REG_DWORD RegEntry "WindowWidth"
! Frame 16 + 434 REG_DWORD RegEntry "WindowHeight"
! Frame 20 + 135 REG_DWORD RegEntry "WindowLeft"
! Frame 24 + 66 REG_DWORD RegEntry "WindowTop"
EndEntries
--- 1251,1258 ----
WindowSettings entries
\ Address Length Default Value Reg Type Reg Value Name
! &Of: Frame.Width ( 4 ) 514 REG_DWORD RegEntry "WindowWidth"
! &Of: Frame.Height 434 REG_DWORD RegEntry "WindowHeight"
! &Of: Frame.OriginX 135 REG_DWORD RegEntry "WindowLeft"
! &Of: Frame.OriginY 66 REG_DWORD RegEntry "WindowTop"
EndEntries
|
