# HG changeset patch
# User claus
# Date 788622837 -3600
# Node ID 730e270a37e6ca4f7e2c0f82464b3564459b290f
# Parent  9fd1c36af7a83acbba83533a41ec6ee57dd6c794
last version before using new DialogBox

diff -r 9fd1c36af7a8 -r 730e270a37e6 InfoBox.st
--- 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.