[Win32forth-cvs] win32forth/demos/AccelDemo Accel.f,1.1,1.2 AccelDemo.f,1.1,1.2

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/demos/AccelDemo
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5876/demos/AccelDemo

Modified Files:
	Accel.f AccelDemo.f 
Log Message:
Removed REL>ABS and ABS>REL from the applications and demos, and made the demos work with the current w32f version

Index: Accel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/Accel.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Accel.f	21 Dec 2004 00:18:51 -0000	1.1
--- Accel.f	5 May 2005 09:43:28 -0000	1.2
***************
*** 118,122 ****
  
          \ Create the Accelerator Table from the global memory handle
!         addr @ addr2 rel>abs        ( count addr2 )
          call CreateAcceleratorTable ( hAccelTable )
  
--- 118,122 ----
  
          \ Create the Accelerator Table from the global memory handle
!         addr @ addr2                ( count addr2 )
          call CreateAcceleratorTable ( hAccelTable )
  

Index: AccelDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/AccelDemo.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AccelDemo.f	21 Dec 2004 00:18:52 -0000	1.1
--- AccelDemo.f	5 May 2005 09:43:28 -0000	1.2
***************
*** 332,336 ****
                  StartSize: self drop width max
                  StartSize: Demo-Tool-Bar nip SetRect: DemoRect
!                 DemoRect.AddrOf rel>abs GetHandle: dc call FillRect ?win-error
                  EraseRect: DemoRect
                  On_Paint: super
--- 332,336 ----
                  StartSize: self drop width max
                  StartSize: Demo-Tool-Bar nip SetRect: DemoRect
!                 DemoRect.AddrOf GetHandle: dc call FillRect ?win-error
                  EraseRect: DemoRect
                  On_Paint: super
***************
*** 597,601 ****
                          NULL
                          IMAGE_BITMAP
!                         open$ dup +NULL 1+ rel>abs
                          NULL
                          Call LoadImage to hbm
--- 597,601 ----
                          NULL
                          IMAGE_BITMAP
!                         open$ dup +NULL 1+
                          NULL
                          Call LoadImage to hbm
***************
*** 726,730 ****
  
          DIB_RGB_COLORS
!         pbmi rel>abs
          NULL
          SCREEN-HEIGHT
--- 726,730 ----
  
          DIB_RGB_COLORS
!         pbmi
          NULL
          SCREEN-HEIGHT
***************
*** 736,744 ****
  \        pbmi show-bitmapinfoheader
  
!         pbmi biSizeImage + @ malloc rel>abs to lpBits
!         lpBits abs>rel pbmi biSizeImage + @ erase
  
          DIB_RGB_COLORS
!         pbmi rel>abs
          lpBits
          SCREEN-HEIGHT
--- 736,744 ----
  \        pbmi show-bitmapinfoheader
  
!         pbmi biSizeImage + @ malloc to lpBits
!         lpBits pbmi biSizeImage + @ erase
  
          DIB_RGB_COLORS
!         pbmi
          lpBits
          SCREEN-HEIGHT
***************
*** 781,785 ****
          hfile write-file drop
  
!         lpBits abs>rel
          pbmi biSizeImage + @
          hfile write-file drop
--- 781,785 ----
          hfile write-file drop
  
!         lpBits
          pbmi biSizeImage + @
          hfile write-file drop
***************
*** 790,794 ****
          hbm call DeleteObject ?win-error
  
!         lpBits abs>rel release
          pbmi release
       ELSE drop
--- 790,794 ----
          hbm call DeleteObject ?win-error
  
!         lpBits release
          pbmi release
       ELSE drop
***************
*** 1016,1020 ****
  
          DIB_RGB_COLORS
!         pbmi rel>abs
          NULL
          SCREEN-HEIGHT
--- 1016,1020 ----
  
          DIB_RGB_COLORS
!         pbmi
          NULL
          SCREEN-HEIGHT
***************
*** 1026,1034 ****
         \ pbmi show-bitmapinfoheader
  
!         pbmi biSizeImage + @ malloc rel>abs to lpBits
!         lpBits abs>rel pbmi biSizeImage + @ erase
  
          DIB_RGB_COLORS
!         pbmi rel>abs
          lpBits
          SCREEN-HEIGHT
--- 1026,1034 ----
         \ pbmi show-bitmapinfoheader
  
!         pbmi biSizeImage + @ malloc to lpBits
!         lpBits pbmi biSizeImage + @ erase
  
          DIB_RGB_COLORS
!         pbmi
          lpBits
          SCREEN-HEIGHT
***************
*** 1042,1046 ****
          SRCCOPY
          DIB_RGB_COLORS
!         pbmi rel>abs
          lpBits
  
--- 1042,1046 ----
          SRCCOPY
          DIB_RGB_COLORS
!         pbmi
          lpBits
  
***************
*** 1060,1064 ****
          hbm call DeleteObject ?win-error
  
!         lpBits abs>rel release
          pbmi release
          ;
--- 1060,1064 ----
          hbm call DeleteObject ?win-error
  
!         lpBits release
          pbmi release
          ;