[Win32forth-cvs] win32forth/apps/Win32ForthIDE ClassBrowser.f, 1.3, 1.4 EdTabControl.f, 1.11, 1.12 Main.f, 1.16, 1.17

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

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

Modified Files:
	ClassBrowser.f EdTabControl.f Main.f 
Log Message:
gah: modified to use separate tasks to initialise vocabularies and classes

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Main.f	29 Jun 2006 04:18:47 -0000	1.16
--- Main.f	29 Jun 2006 10:01:01 -0000	1.17
***************
*** 38,41 ****
--- 38,42 ----
  needs src\lib\Resources.f
  needs excontrols.f
+ needs task.f
  
  0 value ActiveChild   \ the active MDI child window
***************
*** 102,111 ****
  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
--- 103,113 ----
  TabWindow cTabWindow
  
! 0 :NoName ( -- ) InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
  
! 0 :NoName ( -- ) InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
  
  : InitClassBrowsers ( -- )
!                  VocInitTask   run-task 0= abort" Failed to start background Task"
!                  ClassInitTask run-task 0= abort" Failed to start background Task" ;
  
  :Object LeftPane        <Super Child-Window
***************
*** 686,689 ****
--- 688,694 ----
  max-path 2 + bytes FileName
  
+ :M GetTextLength: ( -- n )
+                 0 ;M
+ 
  :M Start:       ( parent -- )
                  New> HtmlControl to ChildWindow

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/ClassBrowser.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ClassBrowser.f	9 Jun 2006 12:10:32 -0000	1.3
--- ClassBrowser.f	29 Jun 2006 10:01:01 -0000	1.4
***************
*** 64,73 ****
                  to hPrev ;
  
! create NameBuf$ MAXSTRING 1+ allot
  
  \ The following definitions enable us to find the name of an object defined with :OBJECT
  \ from the xt of it's nameless class; gah
  
! 0 value SearchClass
  
  : (objname)     ( nfa -- )
--- 64,73 ----
                  to hPrev ;
  
! MAXSTRING 1+ bytes NameBuf$
  
  \ The following definitions enable us to find the name of an object defined with :OBJECT
  \ from the xt of it's nameless class; gah
  
! int SearchClass
  
  : (objname)     ( nfa -- )

Index: EdTabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** EdTabControl.f	29 Jun 2006 04:18:47 -0000	1.11
--- EdTabControl.f	29 Jun 2006 10:01:01 -0000	1.12
***************
*** 257,260 ****
--- 257,266 ----
          AddClasses: cClassTree ;M
  
+ :M InitVocBrowser: ( -- )
+         AddVocabularies: cVocTree ;M
+ 
+ :M InitClassBrowser: ( -- )
+         AddClasses: cClassTree ;M
+ 
  :M SelChange:	( -- )
  \ Show the control for the currently selected tab.