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
|
