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

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	AccelDemo.f 
Log Message:
Jos: Solved the copy-demo-bitmap problem.

Index: AccelDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/AccelDemo/AccelDemo.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** AccelDemo.f	5 May 2005 09:43:28 -0000	1.2
--- AccelDemo.f	12 May 2007 14:21:20 -0000	1.3
***************
*** 232,236 ****
          SUBMENU         "&Copy"
               MENUITEM   "Plot Window &Normal\tCtrl+C"          4719 Handle-Key-Table ;
!              MENUITEM   "Plot Window &Inverted\tShift+Ctrl+P"  4720 Handle-Key-Table ;
               ENDSUBMENU
          MENUITEM        "Paste\tCtrl+V"                        4721 Handle-Key-Table ;
--- 232,236 ----
          SUBMENU         "&Copy"
               MENUITEM   "Plot Window &Normal\tCtrl+C"          4719 Handle-Key-Table ;
!              MENUITEM   "Plot Window &Inverted\tShift+Ctrl+C"  4720 Handle-Key-Table ;
               ENDSUBMENU
          MENUITEM        "Paste\tCtrl+V"                        4721 Handle-Key-Table ;
***************
*** 523,527 ****
  
                  hbm hdcMem call SelectObject drop
!                 r>
                  IF      NOTSRCCOPY
                  ELSE    SRCCOPY
--- 523,527 ----
  
                  hbm hdcMem call SelectObject drop
!                 flag
                  IF      NOTSRCCOPY
                  ELSE    SRCCOPY
***************
*** 1101,1105 ****
  
          FCONTROL            'C'    4719  ' handle-control-c        ACCELENTRY
!         FCONTROL FSHIFT OR  'C'    4720  ' handle-control-shift-p  ACCELENTRY
          FCONTROL            'V'    4721  ' paste-demo-bitmap       ACCELENTRY
          FCONTROL            'X'    4722  ' handle-control-x        ACCELENTRY
--- 1101,1105 ----
  
          FCONTROL            'C'    4719  ' handle-control-c        ACCELENTRY
!         FCONTROL FSHIFT OR  'C'    4720  ' handle-control-shift-c  ACCELENTRY
          FCONTROL            'V'    4721  ' paste-demo-bitmap       ACCELENTRY
          FCONTROL            'X'    4722  ' handle-control-x        ACCELENTRY
***************
*** 1150,1152 ****
  AccelDemo
  \ ' windemo turnkey AccelDemo
!