--- a/AboutBox.st	Tue May 11 18:36:17 2004 +0200
+++ b/AboutBox.st	Tue May 11 18:39:34 2004 +0200
@@ -175,7 +175,7 @@
 
     self withAllSubViewsDo:[:s | s viewBackground:dark].
 
-    self form:(self class defaultIcon).
+    self image:(self class defaultIcon).
     (lbl := self formLabel) viewBackground:dark.
     lbl foregroundColor:green backgroundColor:dark.
     (lbl := self textLabel) viewBackground:dark.
@@ -207,5 +207,5 @@
 !AboutBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.29 2004-02-20 18:30:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AboutBox.st,v 1.30 2004-05-11 16:39:34 stefan Exp $'
 ! !