[Win32forth-cvs] win32forth/src BUTTON.F,1.1,1.2

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

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 ****
  
  
-