[Win32forth-cvs] win32forth/apps/ForthForm FORMOBJECT.F,1.16,1.17

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

Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25164/apps/ForthForm

Modified Files:
	FORMOBJECT.F 
Log Message:
Bugfix for static labels. EAB

Index: FORMOBJECT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORMOBJECT.F,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** FORMOBJECT.F	31 Dec 2006 11:55:17 -0000	1.16
--- FORMOBJECT.F	13 Jan 2007 02:14:08 -0000	1.17
***************
*** 1506,1509 ****
--- 1506,1510 ----
                          TypeBitmapButton  get-array
                          TypeIconButton  get-array or
+                         TypeStaticBitmap get-array or
                          if      s" \- usebitmap needs bitmap.f" append&crlf
                          then
***************
*** 1891,1901 ****
                  if      2tabs s"append append ( bitmap ) "append
                          s"  asciiz LoadBitmap SetImage: " append GetName: ThisControl append&crlf
-                         GetToolTip: ThisControl ?dup
-                         if      2tabs s"append append ( tooltip ) "append
-                                 s"  ToolString: " append GetName: ThisControl append&crlf
-                         else    drop
-                         then
                  else    2drop
!                 then    +crlf ;
  
  : startstaticbitmap     ( -- ) \
--- 1892,1901 ----
                  if      2tabs s"append append ( bitmap ) "append
                          s"  asciiz LoadBitmap SetImage: " append GetName: ThisControl append&crlf
                  else    2drop
!                 then    GetToolTip: ThisControl ?dup
!                 if      2tabs s"append append ( tooltip ) "append
!                         s"  ToolString: " append GetName: ThisControl append&crlf
!                 else    drop
!                 then	+crlf ;
  
  : startstaticbitmap     ( -- ) \