[Win32forth-cvs] win32forth/apps/WinEd Ed_FrameWindowObj.F,1.5,1.6 Ed_Statbar.F,1.3,1.4

[Dirk B. <db...@us...>]

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

Modified Files:
	Ed_FrameWindowObj.F Ed_Statbar.F 
Log Message:
Now using the StatusBar class defined in ExControls instead of the StatusBar class for the console window.

Index: Ed_Statbar.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_Statbar.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** Ed_Statbar.F	28 Aug 2005 07:28:07 -0000	1.3
--- Ed_Statbar.F	14 May 2006 10:40:24 -0000	1.4
***************
*** 4,8 ****
  \ Created: September 10th, 2003 - 12:20 dbu
  \ Updated: September 10th, 2003 - 12:20 dbu
! \ Statusbar for Win-Ed
  \
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 4,8 ----
  \ Created: September 10th, 2003 - 12:20 dbu
  \ Updated: September 10th, 2003 - 12:20 dbu
! \ Statusbar for WinEd
  \
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 10,38 ****
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! needs Statbar.f \ Status bar Class by Jeff Kelm
  
  :Object Win-EdStatusbar  <Super MultiStatusbar
  
  create MultiWidth 125 , 250 , 400 , 580 , \ width of statusbar parts
! create SingleWidth -1 ,                         \ width of statusbar parts
  
! :M SetMulti: ( -- )
!         MultiWidth 4 SetParts: self
!         ;M
  
! :M SetSingle: ( -- )
!         SingleWidth 1 SetParts: self
!         ;M
  
! :M Create: ( hParent )
!         Create: super
          SetMulti: self
-         Show: self
          ;M
  
  ;Object
- 
- : StartStatusBar ( hWnd -- )
-         Create: Win-EdStatusbar
- ;
- 
--- 10,30 ----
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  
! needs ExControls.f
  
  :Object Win-EdStatusbar  <Super MultiStatusbar
  
  create MultiWidth 125 , 250 , 400 , 580 , \ width of statusbar parts
! create SingleWidth -1 ,                   \ width of statusbar parts
  
! :M SetMulti:    ( -- )
!         MultiWidth 4 SetParts: self ;M
  
! :M SetSingle:   ( -- )
!         SingleWidth 1 SetParts: self ;M
  
! :M Start:       ( Parent -- )
!         Start: super
          SetMulti: self
          ;M
  
  ;Object

Index: Ed_FrameWindowObj.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/Ed_FrameWindowObj.F,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Ed_FrameWindowObj.F	28 Aug 2005 07:28:06 -0000	1.5
--- Ed_FrameWindowObj.F	14 May 2006 10:40:24 -0000	1.6
***************
*** 145,149 ****
        self Start: SubjectList
        FilesList  InitSubject: SubjectList     \ we start with files subject
!       GetHandle: self StartStatusBar          \ start the status bar
        window-list
        BEGIN   dup @ ?dup
--- 145,149 ----
        self Start: SubjectList
        FilesList  InitSubject: SubjectList     \ we start with files subject
!       self Start: Win-EdStatusbar             \ start the status bar
        window-list
        BEGIN   dup @ ?dup
***************
*** 151,155 ****
                self Start: [ r@ ]
                TRUE  Hide: [ r> ]
!               cell+
        REPEAT  DROP
        FALSE Hide: FilesList
--- 151,155 ----
                self Start: [ r@ ]
                TRUE  Hide: [ r> ]
!               cell+
        REPEAT  DROP
        FALSE Hide: FilesList
***************
*** 506,510 ****
          cFiles 0
          ?DO     MAXCOUNTED
!                 drop$ 1+ 
                  i
                  wParam
--- 506,510 ----
          cFiles 0
          ?DO     MAXCOUNTED
!                 drop$ 1+
                  i
                  wParam