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.
|
