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