[Win32forth-cvs] win32forth/apps/Win32ForthIDE FORMOBJECT.F, 1.7, 1.8

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

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sfp-cvsdas-4.v30.ch3.sourceforge.com:/tmp/cvs-serv7483

Modified Files:
	FORMOBJECT.F 
Log Message:
Updates. Enhancement to search & replace, auto detect disk file changes,debug tab and others. EAB

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/FORMOBJECT.F,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** FORMOBJECT.F	1 Feb 2010 01:43:50 -0000	1.7
--- FORMOBJECT.F	11 Jul 2010 02:48:11 -0000	1.8
***************
*** 386,390 ****
  \ this test code can be simplified, get rid of all these "if "then"!
                  >FirstLink: ControlList
!                 0 to this   \ will hold desired control
                  n 2 > to flag
                  #controls 0
--- 386,390 ----
  \ this test code can be simplified, get rid of all these "if "then"!
                  >FirstLink: ControlList
!                 0 to this   \ will hold desired control dimension for adjustment
                  n 2 > to flag
                  #controls 0
***************
*** 1352,1357 ****
  : SaveCodeFile	( -- )
  		GlobalCode zcount nip LocalCode zcount nip or OnInitCode zcount nip or
! 		any-code? or 0= ?exit	\ don't waste time
!                 initbuffer
                  fform_version# intappend	\ version info for future possibilities
                  GlobalCode zcount dup intappend append
--- 1352,1361 ----
  : SaveCodeFile	( -- )
  		GlobalCode zcount nip LocalCode zcount nip or OnInitCode zcount nip or
! 		any-code? or 0=
! 		if      code-filename SetName: FormFile
!                         Exist?: FormFile
!                         if      Delete: FormFile 	\ delete any code file first before leaving
!                         then    exit
!                 then    initbuffer
                  fform_version# intappend	\ version info for future possibilities
                  GlobalCode zcount dup intappend append
***************
*** 1606,1609 ****
--- 1610,1622 ----
                  s"  SetText: " append GetName: ThisControl append  ;
  
+ : writeTooltip  ( -- ) \ any object of control class can have a tooltip by default, most don't use it however.
+ \ we will use it for pushbuttons only at this time. To add to another control simply add it to the appropiate
+ \ "startcontrol" definition
+                 GetToolTip: ThisControl ?dup
+                 if      +crlf 2tabs s"append append ( tooltip ) "append
+                         s"  BInfo: " append GetName: ThisControl append s"  place" append
+                 else    drop
+                 then	;
+ 
  : writeStyle    ( addr cnt -- )
                  +crlf
***************
*** 2072,2076 ****
                          endcase writestyle
                  else    drop
!                 then    writetext +crlf ;
  
  : starttextbox  ( -- )
--- 2085,2089 ----
                          endcase writestyle
                  else    drop
!                 then    writetext writetooltip +crlf ;
  
  : starttextbox  ( -- )
***************
*** 2381,2386 ****
  				s"  has been successfully compiled!"
                          )join$ 1+
!                         z" Yes!"                   \ title
!                         MB_OK                          \ style
                          MessageBox: MainWindow
                  else    flag s" Nothing compiled!" ?MessageBox
--- 2394,2399 ----
  				s"  has been successfully compiled!"
                          )join$ 1+
!                         z" Yes!"                        \ title
!                         MB_OK MB_ICONEXCLAMATION or     \ style
                          MessageBox: MainWindow
                  else    flag s" Nothing compiled!" ?MessageBox