[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdCommand.f, 1.18, 1.19 Main.f, 1.70, 1.71 ScintillaMDI.f, 1.15, 1.16

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory vz-cvs-4.sog:/tmp/cvs-serv20162

Modified Files:
	EdCommand.f Main.f ScintillaMDI.f 
Log Message:
IDE bug fixes. EAB

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.70
retrieving revision 1.71
diff -C2 -d -r1.70 -r1.71
*** Main.f	19 Aug 2011 12:59:47 -0000	1.70
--- Main.f	7 Sep 2011 03:00:23 -0000	1.71
***************
*** 324,327 ****
--- 324,330 ----
  		VK_CONTROL Call GetKeyState 0x8000 and ;
  
+ : shift-key?	( -- f )	\ console not available in IDE
+ 		VK_SHIFT Call GetKeyState 0x8000 and ;
+ 
  \ ************************************************************************************
  

Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** EdCommand.f	26 Jul 2011 20:29:55 -0000	1.18
--- EdCommand.f	7 Sep 2011 03:00:23 -0000	1.19
***************
*** 94,100 ****
                  0= if call PostQuitMessage drop then ; IDM_EXIT SetCommand
  
! : OpenRecentFile { \ ctrl? -- }
                   ( File$ -- )
                  control-key? to ctrl?
                  count LoadFile: ViewerFile 0= ?exit
                  GetName: ViewerFile count 2dup OpenedByExtension?
--- 94,101 ----
                  0= if call PostQuitMessage drop then ; IDM_EXIT SetCommand
  
! : OpenRecentFile { \ ctrl? shift? -- }
                   ( File$ -- )
                  control-key? to ctrl?
+                 shift-key? to shift?
                  count LoadFile: ViewerFile 0= ?exit
                  GetName: ViewerFile count 2dup OpenedByExtension?
***************
*** 112,116 ****
                          else  (OpenSourceFile)
                          then   exit
!                 then    ctrl?
                  if      (OpenBinaryFile)   \ open text file as hex
                  else    (OpenSourceFile)
--- 113,117 ----
                          else  (OpenSourceFile)
                          then   exit
!                 then    ctrl? shift? 0= and
                  if      (OpenBinaryFile)   \ open text file as hex
                  else    (OpenSourceFile)

Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ScintillaMDI.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** ScintillaMDI.f	26 Jul 2011 20:29:55 -0000	1.15
--- ScintillaMDI.f	7 Sep 2011 03:00:23 -0000	1.16
***************
*** 187,198 ****
  :M FindText:    { \ SelBuf$ -- }
                  \ move selected text into find-buf
!                 0 GetSelText: ChildWindow LocalAlloc: SelBuf$
                  SelBuf$ GetSelText: ChildWindow
!                 if   SelBuf$ zcount BL skip -trailing 10 -TRAILCHARS 13 -TRAILCHARS
                       ?dup if FindText$ place else drop then
                  then
  
                  FindText$ self Start: FindTextDlg
!                 case    0 of exitm            endof
                          1 of 0                endof \ ignore case
                          2 of SCFIND_MATCHCASE endof
--- 187,198 ----
  :M FindText:    { \ SelBuf$ -- }
                  \ move selected text into find-buf
!                 0 GetSelText: ChildWindow malloc to SelBuf$
                  SelBuf$ GetSelText: ChildWindow
!                 if   SelBuf$ zcount maxcounted min BL skip -trailing 10 -TRAILCHARS 13 -TRAILCHARS
                       ?dup if FindText$ place else drop then
                  then
  
                  FindText$ self Start: FindTextDlg
!                 case    0 of SelBuf$ free exitm            endof
                          1 of 0                endof \ ignore case
                          2 of SCFIND_MATCHCASE endof
***************
*** 207,211 ****
                       then
                  else drop
!                 then ;M
  
  :M Find:        ( addr cnt -- )
--- 207,211 ----
                       then
                  else drop
!                 then SelBuf$ free ;M
  
  :M Find:        ( addr cnt -- )