--- a/WarningBox.st	Sat Jun 28 14:15:32 2008 +0200
+++ b/WarningBox.st	Mon Jul 14 21:33:37 2008 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 InfoBox subclass:#WarningBox
@@ -156,7 +155,7 @@
     ErrorBitmap isNil ifTrue:[
         ErrorBitmap := self iconBitmapFromStyle:'errorBox.icon' orStyleFile:'errorBox.iconFile' orFilename:'bitmaps/Error.xbm'.
         ErrorBitmap isNil ifTrue:[
-            ErrorBitmap := self warnIconBitmap.
+            ErrorBitmap := ToolbarIconLibrary errorIcon.
         ].
     ].
     ^ ErrorBitmap
@@ -206,6 +205,9 @@
 
     WarnBitmap isNil ifTrue:[
         WarnBitmap := self iconBitmapFromStyle:'warningBox.icon' orStyleFile:'warningBox.iconFile' orFilename:'bitmaps/Warning.xbm'.
+        WarnBitmap isNil ifTrue:[
+            WarnBitmap := ToolbarIconLibrary warnIcon.
+        ].
     ].
     ^ WarnBitmap
 
@@ -254,5 +256,5 @@
 !WarningBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.34 2005-01-12 11:05:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.35 2008-07-14 19:33:37 cg Exp $'
 ! !