[Win32forth-cvs] win32forth/src/console CommandWindow.f,1.3,1.4

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

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