Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv11395/apps/ForthForm
Modified Files:
FORMOBJECT.F
Log Message:
ForthForm updates. EAB
Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** FORMOBJECT.F 27 Dec 2006 18:43:57 -0000 1.15
--- FORMOBJECT.F 31 Dec 2006 11:55:17 -0000 1.16
***************
*** 749,752 ****
--- 749,772 ----
then ;
+ : 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 ;
+
: sizebottomright { \ l t r b -- }
ActiveControl 0= ?exit
***************
*** 1306,1309 ****
--- 1326,1333 ----
( Ctrl-W ) 'W' +k_control of doWrite endof
K_DELETE of dodelete endof
+ K_LEFT of adjust-left endof
+ K_RIGHT of adjust-right endof
+ K_UP of adjust-up endof
+ K_DOWN of adjust-down endof
K_F12 of K_F12 PushKey: TheMainWindow endof
K_F1 of K_F1 PushKey: TheMainWindow endof
|
