[Win32forth-cvs] win32forth/apps/Win32ForthIDE EdTabControl.f, 1.14, 1.15 Main.f, 1.22, 1.23

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

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

Modified Files:
	EdTabControl.f Main.f 
Log Message:
gah:Adjusted priority of tasks and made tabs multi-line.

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Main.f	16 Jul 2006 11:54:34 -0000	1.22
--- Main.f	17 Jul 2006 12:02:21 -0000	1.23
***************
*** 110,117 ****
  2 proc SetThreadPriority
  
! : Idle    ( -- ) THREAD_PRIORITY_IDLE GetCurrentThread SetThreadPriority drop ;
  
! 0 :NoName ( -- ) Idle InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
! 0 :NoName ( -- ) Idle InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
  
  : InitClassBrowsers ( -- )
--- 110,118 ----
  2 proc SetThreadPriority
  
! : Below    ( -- ) THREAD_PRIORITY_BELOW_NORMAL GetCurrentThread SetThreadPriority drop ;
! : Above     ( -- ) THREAD_PRIORITY_ABOVE_NORMAL GetCurrentThread SetThreadPriority drop ;
  
! 0 :NoName ( -- ) Below InitVocBrowser: cTabWindow ; Task-Block Constant VocInitTask
! 0 :NoName ( -- ) Below InitClassBrowser: cTabWindow ; Task-Block Constant ClassInitTask
  
  : InitClassBrowsers ( -- )
***************
*** 957,960 ****
--- 958,962 ----
  
  : Main          ( -- )
+                 above
                  start: Frame
                  GetHandle: frame hwndOwner !  DefaultPrinter   \ initialise PSD and PD

Index: EdTabControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/EdTabControl.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** EdTabControl.f	4 Jul 2006 03:58:57 -0000	1.14
--- EdTabControl.f	17 Jul 2006 12:02:21 -0000	1.15
***************
*** 174,178 ****
  
  :M Start:	( Parent -- )
! \	TCS_BUTTONS TCS_MULTILINE or AddStyle: self
  	Start: super
  	DEFAULT_GUI_FONT call GetStockObject SetFont: self
--- 174,178 ----
  
  :M Start:	( Parent -- )
! 	TCS_MULTILINE AddStyle: self
  	Start: super
  	DEFAULT_GUI_FONT call GetStockObject SetFont: self