[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.59,1.60

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18290/apps/Win32ForthIDE

Modified Files:
	Main.f 
Log Message:
Bug fix for ?control. Minor updates. EAB

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.59
retrieving revision 1.60
diff -C2 -d -r1.59 -r1.60
*** Main.f	8 Sep 2008 03:06:13 -0000	1.59
--- Main.f	1 Oct 2008 03:12:51 -0000	1.60
***************
*** 199,202 ****
--- 199,205 ----
                  then    ;
  
+ : control-key?	( -- f )	\ console not available in IDE so ?control doesn't work
+ 		VK_CONTROL Call GetKeyState 0x8000 and ;
+ 
  \ ************************************************************************************
  
***************
*** 646,650 ****
                  ELSE GetID: HelpBox =
                       if    over HIWORD CBN_SELCHANGE  =
!                            if   GetSelectedString: HelpBox ?viewsource
                             then
                       else  OnWmCommand: Super \ intercept Menu commands
--- 649,653 ----
                  ELSE GetID: HelpBox =
                       if    over HIWORD CBN_SELCHANGE  =
!                            if   GetSelectedString: HelpBox GetSomeHelp
                             then
                       else  OnWmCommand: Super \ intercept Menu commands
***************
*** 1227,1231 ****
                  ;
  
! sysgen [if]
  
         : InitDir ( -- ) current-dir$ count SetDir: SourceFileOpenDialog ;
--- 1230,1234 ----
                  ;
  
! [defined] sysgen [if]
  
         : InitDir ( -- ) current-dir$ count SetDir: SourceFileOpenDialog ;