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