[Win32forth-cvs] win32forth/apps/Win32ForthIDE CommandID.f, 1.6, 1.7 EdCommand.f, 1.5, 1.6 EdTabControl.f, 1.12, 1.13 EdToolbar.f, 1.3, 1.4 Main.f, 1.17, 1.18 ProjectTree.f, 1.10, 1.11

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1634

Modified Files:
	CommandID.f EdCommand.f EdTabControl.f EdToolbar.f Main.f 
	ProjectTree.f 
Log Message:
Switch to Project Manager tab when a project is opened. Bug fixes.EAB

Index: EdTabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** EdTabControl.f	29 Jun 2006 10:01:01 -0000	1.12
--- EdTabControl.f	30 Jun 2006 04:17:13 -0000	1.13
***************
*** 282,285 ****
--- 282,290 ----
  	false ;
  
+ :M ShowTab:	( n -- )
+ \ show tab n
+ 	SetSelectedTab: ctab
+ 	SelChange: self ;M
+ 
  :M WM_NOTIFY    ( h m w l -- f )
  \ Handle the notification messages of the controls.

Index: ProjectTree.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ProjectTree.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ProjectTree.f	14 Jun 2006 06:02:56 -0000	1.10
--- ProjectTree.f	30 Jun 2006 04:17:13 -0000	1.11
***************
*** 707,711 ****
          ReleaseBuffer: viewerfile
          arrow-cursor
! \         IDM_SHOW_FILE_PRJ DoCommand
          ;
  
--- 707,711 ----
          ReleaseBuffer: viewerfile
          arrow-cursor
!         IDM_SHOWPROJECT_TAB DoCommand
          ;
  

Index: EdToolbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdToolbar.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** EdToolbar.f	15 Jun 2006 20:55:08 -0000	1.3
--- EdToolbar.f	30 Jun 2006 04:17:13 -0000	1.4
***************
*** 182,185 ****
--- 182,186 ----
  :M On_ToolBarChange: ( -- f )                   \ User has changed toolbar
                  Autosize: self false
+                 Update
                  ;M
  

Index: EdCommand.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdCommand.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** EdCommand.f	11 Jun 2006 18:04:10 -0000	1.5
--- EdCommand.f	30 Jun 2006 04:17:13 -0000	1.6
***************
*** 307,311 ****
  
  : mcCompile	( -- )
! 		SaveAllBeforeCompile?
  		if SaveAllSourceFiles then
  
--- 307,311 ----
  
  : mcCompile	( -- )
! 		SaveAllBeforeCompile?  ActiveChild 0<> and  \ avoid crash when compiling with no open file
  		if SaveAllSourceFiles then
  

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Main.f	29 Jun 2006 10:01:01 -0000	1.17
--- Main.f	30 Jun 2006 04:17:13 -0000	1.18
***************
*** 19,23 ****
  only forth also editor definitions \ put all words into the EDITOR vocabulary
  
! true value sysgen
  
  s" apps\Win32ForthIDE" "fpath+
--- 19,23 ----
  only forth also editor definitions \ put all words into the EDITOR vocabulary
  
!  true value sysgen
  
  s" apps\Win32ForthIDE" "fpath+
***************
*** 71,78 ****
  3 constant FT_BITMAP
  
- needs EdToolbar.f
- needs EdStatusbar.f
- needs EdMenu.f
- 
  defer Compile-File   ' beep is Compile-File
  defer HandleW32FMsg  ' noop is HandleW32FMsg
--- 71,74 ----
***************
*** 81,84 ****
--- 77,84 ----
  defer OnSelect       ' drop is OnSelect   \ called when item is selected in the file listview
  
+ needs EdToolbar.f
+ needs EdStatusbar.f
+ needs EdMenu.f
+ 
  AcceleratorTable AccelTable \ create the Accelerator-Key-Table
  
***************
*** 103,108 ****
  TabWindow cTabWindow
  
! 0 :NoName ( -- ) InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
  
  0 :NoName ( -- ) InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
  
--- 103,112 ----
  TabWindow cTabWindow
  
! : show-project-tab	( -- )
! 			1 ShowTab: cTabWindow ; IDM_SHOWPROJECT_TAB SetCommand
  
+ Needs Task.f
+ 
+ 0 :NoName ( -- ) InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
  0 :NoName ( -- ) InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
  
***************
*** 455,458 ****
--- 459,463 ----
                  On_Init: super
                  load-defaults
+                 Update
                  ;M
  

Index: CommandID.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/CommandID.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** CommandID.f	29 Jun 2006 04:18:47 -0000	1.6
--- CommandID.f	30 Jun 2006 04:17:13 -0000	1.7
***************
*** 136,139 ****
--- 136,140 ----
  NewID IDM_COPY_PRJ
  NewID IDM_OPEN_RECENT_FILE_PRJ
+ NewID IDM_SHOWPROJECT_TAB
  
  IdCounter constant IDM_LAST