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 ( -- ) \
|
