[Win32forth-cvs] win32forth/apps/PictureViewer PictureViewer.f, 1.2, 1.3

[George H. <geo...@us...>]

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