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

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

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