Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14330
Modified Files:
CommandWindow.f
Log Message:
Jos: Enabled the popu-menu
Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** CommandWindow.f 11 Nov 2007 01:01:18 -0000 1.3
--- CommandWindow.f 11 Nov 2007 14:04:47 -0000 1.4
***************
*** 519,522 ****
--- 519,526 ----
( winpause ) ;
+ :M WM_RBUTTONDOWN ( h l -- res )
+ MouseX MouseY GetHandle: self Track: CurrentPopup 2drop 0
+ ;M
+
:M Deselect: ( -- )
0 to SelectedLength
***************
*** 838,841 ****
--- 842,846 ----
:M ClassInit: ( -- )
ClassInit: super
+ console-popup to CurrentPopup
sizeof(LPWinScrollInfo) to cbSize
SIF_ALL to fMask
|
