[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.42,1.43

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

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]