[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F,1.18,1.19

[Ezra B. <ezr...@us...>]

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

Modified Files:
	FORMOBJECT.F 
Log Message:
Small change to using arrow keys to size a selection box. Bug fix in bitmap.f. EAB

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** FORMOBJECT.F	3 Mar 2007 15:31:30 -0000	1.18
--- FORMOBJECT.F	4 Mar 2007 02:58:40 -0000	1.19
***************
*** 751,770 ****
  : adjust-left   ( -- )
                  selecting? not ?exit
!                 Left: FormBox 1- Top: FormBox Right: FormBox Bottom: FormBox
                  SetRect: FormBox Paint: self ;
  
  : adjust-right  ( -- )
                  selecting? not ?exit
!                 Left: FormBox Top: FormBox Right: FormBox 1+ Bottom: FormBox
                  SetRect: FormBox Paint: self ;
  
  : adjust-up     ( -- )
                  selecting? not ?exit
!                 Left: FormBox Top: FormBox 1- Right: FormBox Bottom: FormBox
                  SetRect: FormBox Paint: self ;
  
  : adjust-down   ( -- )
                  selecting? not ?exit
!                 Left: FormBox Top: FormBox Right: FormBox Bottom: FormBox 1+
                  SetRect: FormBox Paint: self ;
  
--- 751,770 ----
  : adjust-left   ( -- )
                  selecting? not ?exit
!                 Left: FormBox cell- Top: FormBox Right: FormBox Bottom: FormBox
                  SetRect: FormBox Paint: self ;
  
  : adjust-right  ( -- )
                  selecting? not ?exit
!                 Left: FormBox Top: FormBox Right: FormBox cell+ Bottom: FormBox
                  SetRect: FormBox Paint: self ;
  
  : adjust-up     ( -- )
                  selecting? not ?exit
!                 Left: FormBox Top: FormBox cell- Right: FormBox Bottom: FormBox
                  SetRect: FormBox Paint: self ;
  
  : adjust-down   ( -- )
                  selecting? not ?exit
!                 Left: FormBox Top: FormBox Right: FormBox Bottom: FormBox cell+
                  SetRect: FormBox Paint: self ;