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
|
