[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdVersion.f, 1.15, 1.16 GroupAction.f, 1.1, 1.2 Main.f, 1.66, 1.67

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv10857

Modified Files:
	EdVersion.f GroupAction.f Main.f 
Log Message:
Minor mods. EAB

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.66
retrieving revision 1.67
diff -C2 -d -r1.66 -r1.67
*** Main.f	11 Jul 2010 02:48:44 -0000	1.66
--- Main.f	2 Dec 2010 05:22:03 -0000	1.67
***************
*** 240,244 ****
  	tab-index CloseTabFile update ;
  
- 
  : CloseTabsRight	( -- )
  		Begin	tab-index 1+ GetTabCount: OpenfilesTab <
--- 240,243 ----
***************
*** 252,255 ****
--- 251,261 ----
  		Repeat	;
  
+ : CloseAllOthers ( -- )
+                 GetTabCount: OpenFilesTab 1- tab-index >
+                 if      CloseTabsRight
+                 then    tab-index 0>
+                 if      CloseTabsLeft
+                 then    update ;
+ 
  : CompileTabFile	( -- )
  	tab-index GetFileTabChild >r
***************
*** 278,281 ****
--- 284,288 ----
           :MenuItem mnurel "Reload" ReloadTabFile ;
           MenuSeparator
+          :MenuItem mnucae "Close all other files" CloseAllOthers ;
           :MenuItem mnucar "Close all files to right"  CloseTabsRight  ;
           :MenuItem mnucal "Close all files to left"    CloseTabsLeft   ;
***************
*** 285,293 ****
  
  : check-menu-funcs	( -- )
! 			GetTabCount: OpenFilesTab 1- tab-index > Enable: mnucar
! 			tab-index 0> Enable: mnucal
  			tab-index GetFileTabChild >r GetFileType: [ r@ ] FT_SOURCE =
! 			dup Enable: mnucmp
! 			GetFileName: [ r@ ] c@ 0<> and Enable: mnurel
  		        r>drop ;
  
--- 292,301 ----
  
  : check-menu-funcs	( -- )
! 			GetTabCount: OpenFilesTab dup 1- tab-index > Enable: mnucar     \ close all right
! 			1 > Enable: mnucae      \ close all other files
! 			tab-index 0> Enable: mnucal     \ close all left
  			tab-index GetFileTabChild >r GetFileType: [ r@ ] FT_SOURCE =
! 			dup Enable: mnucmp      \ compilable source file
! 			GetFileName: [ r@ ] c@ 0<> and Enable: mnurel   \ reloadable file
  		        r>drop ;
  
***************
*** 667,671 ****
  
                  r> base !
!                 ;
  
  : load-defaults ( -- )
--- 675,679 ----
  
                  r> base !
!                 ; IDM_SAVEDEFAULTS SetCommand
  
  : load-defaults ( -- )
***************
*** 1156,1162 ****
                  GetFileName: self count SetText: super ;M
  
! :M SetURL:      ( zUrl -- )
!                 dup zcount SetFileName: self
!                 SetURL: ChildWindow
                  SetWindowTitle: self ;M
  
--- 1164,1170 ----
                  GetFileName: self count SetText: super ;M
  
! :M SetURL:      ( Url cnt -- )
!                 2dup SetFileName: self
!                 GoURL: ChildWindow
                  SetWindowTitle: self ;M
  
***************
*** 1366,1370 ****
                  temp$ FileNotFound: Frame
                  if   NewHtmlWnd
!                      temp$ count asciiz SetURL: ActiveChild
                  then  Update ;
  
--- 1374,1378 ----
                  temp$ FileNotFound: Frame
                  if   NewHtmlWnd
!                      temp$ count SetURL: ActiveChild
                  then  Update ;
  

Index: EdVersion.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdVersion.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** EdVersion.f	11 Jul 2010 02:47:34 -0000	1.15
--- EdVersion.f	2 Dec 2010 05:22:03 -0000	1.16
***************
*** 349,353 ****
          - Added feature to monitor file system and prompt a reload if a file has been
            modified. Enabled from options dialog
!         - Auto saving of a session also enabled form options dialog. Last active files
            and project now available automatically on startup.
  	- Added MessageBox builder dialog. Really just a port aka copy from BCX. Another example of adding
--- 349,353 ----
          - Added feature to monitor file system and prompt a reload if a file has been
            modified. Enabled from options dialog
!         - Auto saving of a session also enabled from options dialog. Last active files
            and project now available automatically on startup.
  	- Added MessageBox builder dialog. Really just a port aka copy from BCX. Another example of adding
***************
*** 355,357 ****
--- 355,364 ----
          Tuesday, June 22 2010
          - Which tabs are shown is now user configurable, and added a debug dialog ( not shown by default) tab.
+         Tuesday, September 08 2010
+         - Added quick search textbox to Project Navigator. After tracking a project highlight the list to be
+           searched, type text in box and press enter. The entry that begins with the search text will be
+           displayed.
+         - Bug fix (if no form open and any button from Action dialog clicked would cause a crash).
+         Saturday, November 06 2010
+         - Filter specs in the directory tab can now be edited by pressing the control key and clicking the specs tab.
  

Index: GroupAction.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/GroupAction.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** GroupAction.f	28 Apr 2008 05:17:17 -0000	1.1
--- GroupAction.f	2 Dec 2010 05:22:03 -0000	1.2
***************
*** 52,55 ****
--- 52,56 ----
  
  : group-action  { id obj -- }
+                 ActiveForm 0= ?exit
                  id
                  case