Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22107/win32forth/src
Modified Files:
BUTTON.F
Log Message:
gah: changed to use :noname instead of docol (for STC) and moved some code to system space
Index: BUTTON.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/BUTTON.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** BUTTON.F 21 Dec 2004 00:19:07 -0000 1.1
--- BUTTON.F 24 Aug 2005 07:24:10 -0000 1.2
***************
*** 1,2 ****
--- 1,3 ----
+ \ $Id$
\ button.f
***************
*** 389,393 ****
|CLASS AddButton <Super Button
! :M ClassInit: ( -- )
ClassInit: super
GetBar: BuildBar to bprev \ end of link is NULL
--- 390,399 ----
|CLASS AddButton <Super Button
! in-system
!
! warning off
!
! : (ClassInit) ( -- )
! [ warning on ]
ClassInit: super
GetBar: BuildBar to bprev \ end of link is NULL
***************
*** 403,410 ****
here to title ,"text"
GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count
! here to bfunc
! hide !csp docol , ]
! ;M
;Class
--- 409,420 ----
here to title ,"text"
GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count
! :noname to bfunc
! hide !csp
! ;
+ in-application
+
+ :m ClassInit: ( -- )
+ \in-system-ok (ClassInit) ;m
;Class
***************
*** 431,435 ****
;M
! :M ClassInit: ( x y width height -- )
ClassInit: super
to bheight
--- 441,450 ----
;M
! in-system
!
! warning off
!
! : (ClassInit) ( x y width height -- )
! [ warning on ]
ClassInit: super
to bheight
***************
*** 465,471 ****
here to title ,"text"
GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count
! here to bfunc
! hide !csp docol , ]
! ;M
;Class
--- 480,491 ----
here to title ,"text"
GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count
! :noname to bfunc
! hide !csp
! ;
!
! in-application
!
! :M ClassInit: ( x y width height -- )
! \in-system-ok (ClassInit) ;m
;Class
***************
*** 777,781 ****
int picture-number
! :M ClassInit: ( n1 -- )
to picture-number
ClassInit: super
--- 797,806 ----
int picture-number
! in-system
!
! warning off
!
! : (ClassInit) ( n1 -- )
! [ warning on ]
to picture-number
ClassInit: super
***************
*** 794,800 ****
here to title 0 ,
GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count
! here to bfunc
! hide !csp docol , ]
! ;M
WinDC dc \ The window's device context
--- 819,829 ----
here to title 0 ,
GetBCnt: BuildBar 1+ PutBCnt: BuildBar \ bump count
! :noname to bfunc
! hide !csp
! ;
!
! in-application
! :m ClassInit: ( n1 -- )
! \in-system-ok (Classinit) ;m
WinDC dc \ The window's device context
***************
*** 962,964 ****
- |
