Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23438/apps/ForthForm
Modified Files:
FORMOBJECT.F
Log Message:
Minor bug fix when compiling a form. EAB
Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** FORMOBJECT.F 4 Mar 2007 02:58:40 -0000 1.19
--- FORMOBJECT.F 10 Jun 2007 03:44:27 -0000 1.20
***************
*** 749,752 ****
--- 749,755 ----
then ;
+ \ The following four routines adjust the selection rectangle using the arrow keys
+ \ Each press of the arrow key adjusts by 4, but can be modified
+ \ Handy when a group of controls has been moved out of the selection rectangle
: adjust-left ( -- )
selecting? not ?exit
***************
*** 1214,1230 ****
: SaveIt? { \ temp$ -- f }
! maxstring LocalAlloc: temp$
! s" File " temp$ place formname count temp$ +place
! s" has been modified. Save it?" temp$ +place
! temp$ +NULL temp$ 1+
z" Heads up!" MB_YESNO MB_ICONQUESTION or
MessageBox: self IDYES = ;
: ShowFileName { \ temp$ -- }
! maxstring LocalAlloc: temp$
! ForthFormTitle$ temp$ place
! s" - " temp$ +place
! formname count temp$ +place
! temp$ count SetText: TheMainWindow ;
: ?addext ( -- )
--- 1217,1232 ----
: SaveIt? { \ temp$ -- f }
! join$( s" File "
! formname count
! s" has been modified. Save it?"
! )join$ 1+
z" Heads up!" MB_YESNO MB_ICONQUESTION or
MessageBox: self IDYES = ;
: ShowFileName { \ temp$ -- }
! join$( ForthFormTitle$
! s" - "
! formname count
! )join$ count SetText: TheMainWindow ;
: ?addext ( -- )
***************
*** 1456,1460 ****
FontChanged: ThisControl
if s" Set-" append fontname append&crlf 2tabs
! s" Create: " append fontname append s" drop \ ignore return flag" append&crlf 2tabs
s" Handle: " append fontname append s" SetFont: " append GetName: ThisControl append
else s" Handle: Winfont SetFont: " append GetName: ThisControl append
--- 1458,1462 ----
FontChanged: ThisControl
if s" Set-" append fontname append&crlf 2tabs
! s" Create: " append fontname append&crlf 2tabs
s" Handle: " append fontname append s" SetFont: " append GetName: ThisControl append
else s" Handle: Winfont SetFont: " append GetName: ThisControl append
|
