[Win32forth-cvs] win32forth/src/lib toolbar.f,1.7,1.8

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv19547/lib

Modified Files:
	toolbar.f 
Log Message:
Moved a few problematic words to application space to reduce number of in system warnings

Index: toolbar.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/toolbar.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** toolbar.f	27 Dec 2006 18:30:18 -0000	1.7
--- toolbar.f	5 Oct 2008 20:29:32 -0000	1.8
***************
*** 105,109 ****
                  ;
  : ;ToolBarTable ( addr1 addr2 12 -- )
! \in-system-ok   12 ?pairs
                  here rot !                      \ Resolve address of cust. table
                  here 0 ,                        \ no of buttons in cust. table
--- 105,109 ----
                  ;
  : ;ToolBarTable ( addr1 addr2 12 -- )
!                 12 ?pairs
                  here rot !                      \ Resolve address of cust. table
                  here 0 ,                        \ no of buttons in cust. table
***************
*** 123,127 ****
                  ;
  : ToolBarTableExtraButtons: ( addr 12 -- addr 12 )
! \in-system-ok   dup 12 ?pairs
                  over dup @ swap cell- !
                  ;
--- 123,127 ----
                  ;
  : ToolBarTableExtraButtons: ( addr 12 -- addr 12 )
!                 dup 12 ?pairs
                  over dup @ swap cell- !
                  ;
***************
*** 129,133 ****
                  2>r  rot ( bidx)   ,  swap ( id) ,  ( state) c,
                  2r> swap ( style) c, 0 w,      0 ,  ( txtno)  ,
! \in-system-ok   dup 12 ?pairs  over 1 swap +!
                  ;
  : SeparatorButton, ( addr 12 -- addr 12 )
--- 129,133 ----
                  2>r  rot ( bidx)   ,  swap ( id) ,  ( state) c,
                  2r> swap ( style) c, 0 w,      0 ,  ( txtno)  ,
!                 dup 12 ?pairs  over 1 swap +!
                  ;
  : SeparatorButton, ( addr 12 -- addr 12 )
***************
*** 168,172 ****
                  ;
  : ;ToolStrings  ( addr 13 -- )
! \in-system-ok   13 ?pairs
                  0 , align
                  here over !                     \ Resolve address of address table
--- 168,172 ----
                  ;
  : ;ToolStrings  ( addr 13 -- )
!                 13 ?pairs
                  0 , align
                  here over !                     \ Resolve address of address table
***************
*** 182,186 ****
                  ;
  : ts,"          ( 13 -<string">- 13 )
! \in-system-ok   dup 13 ?pairs
                  state @
                  if      true abort" Illegal use of tool string compiler"
--- 182,186 ----
                  ;
  : ts,"          ( 13 -<string">- 13 )
!                 dup 13 ?pairs
                  state @
                  if      true abort" Illegal use of tool string compiler"