--- a/InfoBox.st Wed Dec 21 20:19:42 1994 +0100
+++ b/InfoBox.st Wed Dec 28 14:53:57 1994 +0100
@@ -23,7 +23,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.9 1994-11-17 14:38:06 claus Exp $
+$Header: /cvs/stx/stx/libwidg/InfoBox.st,v 1.10 1994-12-28 13:53:57 claus Exp $
written Spring/Summer 89 by claus
'!
@@ -161,7 +161,7 @@
|img|
img := StyleSheet at:'informationBoxIcon'.
- img notNil ifTrue:[InfoBitmap := img asFormOn:Display].
+ img notNil ifTrue:[InfoBitmap := img on:Display].
! !
!InfoBox class methodsFor:'icon bitmap'!
@@ -171,7 +171,7 @@
The form is cached and reused, for faster opening."
InfoBitmap isNil ifTrue:[
- InfoBitmap := (Image fromFile:'bitmaps/Information.xbm') asFormOn:Display
+ InfoBitmap := (Image fromFile:'bitmaps/Information.xbm') on:Display
].
^ InfoBitmap
! !
@@ -191,6 +191,8 @@
super initialize.
+ label := 'Info'.
+
mm := ViewSpacing.
acceptReturnAsOK := true.