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

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

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

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

Index: AccelDemo.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/demos/AccelDemo/AccelDemo.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** AccelDemo.f	12 May 2007 13:42:09 -0000	1.1
--- AccelDemo.f	12 May 2007 14:17:47 -0000	1.2
***************
*** 233,237 ****
          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 ;
--- 233,237 ----
          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 ;
***************
*** 522,528 ****
                  GetHandle: demo-dc
                  call CreateCompatibleDC to hdcMem
- 
                  hbm hdcMem call SelectObject drop
!                 r>
                  IF      NOTSRCCOPY
                  ELSE    SRCCOPY
--- 522,527 ----
                  GetHandle: demo-dc
                  call CreateCompatibleDC to hdcMem
                  hbm hdcMem call SelectObject drop
!                 flag
                  IF      NOTSRCCOPY
                  ELSE    SRCCOPY
***************
*** 1102,1106 ****
  
          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