[Win32forth-cvs] win32forth/src/tools ClassBrowser.f,1.5,1.6

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23949

Modified Files:
	ClassBrowser.f 
Log Message:
Rod: Changed to use Statusbar.f which works with the New Console

Index: ClassBrowser.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/ClassBrowser.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ClassBrowser.f	16 Apr 2007 08:29:06 -0000	1.5
--- ClassBrowser.f	18 Jul 2008 19:37:57 -0000	1.6
***************
*** 4,7 ****
--- 4,8 ----
  \ Updated: Samstag, Mai 29 2004 - 10:58 - dbu
  \ Updated: Friday, June 09 2006 - gah
+ \ Updated: Friday, July 18 2008 - to use Statusbar class and not Console_MultiStatusbar - rod
  
  \ Win32Forth class and vocabulary browser
***************
*** 9,12 ****
--- 10,14 ----
  ANEW -ClassBrowser.f
  
+ Needs Statusbar.f
  needs TreeView.f \ TreeView class by Michael Hillerström
  needs RegistryWindowPos.f
***************
*** 239,242 ****
--- 241,245 ----
  \ the status bar
  \ ------------------------------------------------------------------------------
+ ((
  :Object ClassBrowserStatusbar  <Super Console_MultiStatusbar
  
***************
*** 262,265 ****
--- 265,271 ----
  
  ;Object
+ ))
+ 
+ Statusbar ClassBrowserStatusbar
  
  
***************
*** 279,284 ****
                  1001 SetId: TreeView
                  self Start: TreeView
!                 GetHandle: self Create: ClassBrowserStatusbar
! 		true to Browser?
                  ;M
  
--- 285,291 ----
                  1001 SetId: TreeView
                  self Start: TreeView
!                 self start: ClassBrowserStatusbar
!                 z" Use CTRL+Click to open the source for a definition in the Editor." SetText: ClassBrowserStatusbar
!                 true to Browser?
                  ;M