Menu
▾
▴
[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F,1.15,1.16
|
From: Ezra B. <ezr...@us...> - 2006-12-31 11:55:25
|
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 |
