Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv14624/win32forth/apps/Win32ForthIDE
Modified Files:
Main.f
Log Message:
gah: Modified File tab control to remove flicker and put the task code together in one place
Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** Main.f 30 Dec 2007 03:53:20 -0000 1.42
--- Main.f 26 Feb 2008 22:34:54 -0000 1.43
***************
*** 20,27 ****
true value sysgen
! s" apps\Win32ForthIDE" "fpath+
s" apps\wined\res" "fpath+
s" apps\ProMgr\res" "fpath+
! s" apps\Win32ForthIDE\res" "fpath+
load-dialog WINEDIT \ load the dialogs for WinEd (some of them are recycled here)
--- 20,27 ----
true value sysgen
! s" apps\win32forth" "fpath+
s" apps\wined\res" "fpath+
s" apps\ProMgr\res" "fpath+
! s" apps\win32forth\res" "fpath+
load-dialog WINEDIT \ load the dialogs for WinEd (some of them are recycled here)
***************
*** 100,109 ****
needs EdTabControl.f
- Needs Task.f
-
- 0 proc GetCurrentThread
- 2 proc SetThreadPriority
-
- : Below ( -- ) THREAD_PRIORITY_BELOW_NORMAL GetCurrentThread SetThreadPriority drop ;
TabWindow cTabWindow
--- 100,103 ----
***************
*** 111,115 ****
/* **************** Tab Windows for the Editor ***************************** */
! TabControl OpenFilesTab
TCS_BUTTONS TCS_MULTILINE or TCS_FLATBUTTONS or AddStyle: OpenFilesTab
Font TabFont
--- 105,117 ----
/* **************** Tab Windows for the Editor ***************************** */
! :Object OpenFilesTab <Super TabControl
!
! :M Start: ( Parent -- )
! Start: super
! [ CS_DBLCLKS CS_GLOBALCLASS or ] literal GCL_STYLE hWnd Call SetClassLong drop
! ;M
!
! ;Object
!
TCS_BUTTONS TCS_MULTILINE or TCS_FLATBUTTONS or AddStyle: OpenFilesTab
Font TabFont
***************
*** 207,210 ****
--- 209,223 ----
PROJECT_TAB ShowTab: cTabWindow ; IDM_SHOWPROJECT_TAB SetCommand
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ \ \\\\\ Background tasks for class browsers \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+
+ Needs Task.f
+
+ 0 proc GetCurrentThread
+ 2 proc SetThreadPriority
+
+ : Below ( -- ) THREAD_PRIORITY_BELOW_NORMAL GetCurrentThread SetThreadPriority drop ;
+
0 :NoName ( -- ) Below InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
0 :NoName ( -- ) Below InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
***************
*** 243,247 ****
:Object Frame <Super MDIFrameWindow
! create RegPath$ ," Win32ForthIDE\"
\ --------------------------------------------------------------------------
--- 256,260 ----
:Object Frame <Super MDIFrameWindow
! create RegPath$ ," win32forth\"
\ --------------------------------------------------------------------------
***************
*** 1155,1169 ****
' my-hello is default-hello
! \ create Win32ForthIDE.exe in the Win32Forth folder
&forthdir count &appdir place
! 0 0 ' Main ' Application catch Win32ForthIde.exe checkstack
&appdir off
throw
! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" Prepend<home>\ AddAppIcon
1 pause-seconds bye
[else]
! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" Prepend<home>\ AddAppIcon
Main
[then]
--- 1168,1182 ----
' my-hello is default-hello
! \ create win32forth.exe in the Win32Forth folder
&forthdir count &appdir place
! 0 0 ' Main ' Application catch win32forth.exe checkstack
&appdir off
throw
! s" src\res\SciEditMDI.ico" s" win32forth.exe" Prepend<home>\ AddAppIcon
1 pause-seconds bye
[else]
! s" src\res\SciEditMDI.ico" s" win32forth.exe" Prepend<home>\ AddAppIcon
Main
[then]
|
