[Win32forth-cvs] win32forth/apps/Win32ForthIDE ClassBrowser.f, 1.1, 1.2 EdTabControl.f, 1.6, 1.7 Main.f, 1.7, 1.8

[George H. <geo...@us...>]

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

Modified Files:
	ClassBrowser.f EdTabControl.f Main.f 
Log Message:
gah: Added Task to initialise voc and classe trees at start-up. 

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Main.f	9 Jun 2006 04:31:07 -0000	1.7
--- Main.f	9 Jun 2006 11:44:56 -0000	1.8
***************
*** 95,98 ****
--- 95,105 ----
  TabWindow cTabWindow
  
+ Needs Task.f
+ 
+ 0 :NoName ( -- ) InitBrowsers: cTabWindow ; Task-Block Constant BrowseInitTask
+ 
+ : InitClassBrowsers ( -- )
+                  BrowseInitTask run-task 0= abort" Failed to start background Task" ;
+ 
  :Object LeftPane        <Super Child-Window
  
***************
*** 879,882 ****
--- 886,890 ----
                  init-shared-type
                  ['] sciedit_win32forth-message is win32forth-message
+                 InitClassBrowsers
  \+ sysgen       HandleCmdLine
                  Turnkeyed? IF  Begin key drop again  THEN
***************
*** 885,888 ****
--- 893,900 ----
  [defined] sysgen [IF]
  
+ : InitDir current-dir$ count SetDir: SourceFileOpenDialog ;
+ 
+ Initialization-chain Chain-add InitDir
+ 
  : my-hello      ( -- )
                  init-console
***************
*** 905,908 ****
--- 917,921 ----
  
  debug breaker
+ 
                  Main
  [then]

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ClassBrowser.f	5 Jun 2006 09:19:00 -0000	1.1
--- ClassBrowser.f	9 Jun 2006 11:44:56 -0000	1.2
***************
*** 199,207 ****
  :M AddVocabularies:     ( -- )
                  VocabulariesAdded? 0=
!                 if   SW_HIDE Show: self
!                      IDC_WAIT NULL call LoadCursor call SetCursor \ set wait cursor
!                      AddVocabularies
!                      call SetCursor drop   \ restore cursor
!                      SW_RESTORE Show: self
                       true to VocabulariesAdded?
                  then ;M
--- 199,203 ----
  :M AddVocabularies:     ( -- )
                  VocabulariesAdded? 0=
!                 if   AddVocabularies
                       true to VocabulariesAdded?
                  then ;M
***************
*** 209,217 ****
  :M AddClasses:  ( -- )
                  ClassesAdded? 0=
!                 if   SW_HIDE Show: self
!                      IDC_WAIT NULL call LoadCursor call SetCursor \ set wait cursor
!                      AddClasses
!                      call SetCursor drop   \ restore cursor
!                      SW_RESTORE Show: self
                       true to ClassesAdded?
                  then ;M
--- 205,209 ----
  :M AddClasses:  ( -- )
                  ClassesAdded? 0=
!                 if   AddClasses
                       true to ClassesAdded?
                  then ;M

Index: EdTabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** EdTabControl.f	9 Jun 2006 04:31:07 -0000	1.6
--- EdTabControl.f	9 Jun 2006 11:44:56 -0000	1.7
***************
*** 219,223 ****
  
  : ShowVocs      ( -- )
-         AddVocabularies: cVocTree
          SW_SHOW Show: cVocTree
          SW_HIDE Show: cFileList
--- 219,222 ----
***************
*** 227,231 ****
  
  : ShowClasses   ( -- )
-         AddClasses: cClassTree
          SW_SHOW Show: cClassTree
          SW_HIDE Show: cFileList
--- 226,229 ----
***************
*** 234,237 ****
--- 232,239 ----
          ;
  
+ :M InitBrowsers: ( -- )
+         AddVocabularies: cVocTree
+         AddClasses: cClassTree ;M
+ 
  :M SelChange:	( -- )
  \ Show the control for the currently selected tab.