# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1216064017 -7200
# Node ID 7ff70da31a251ec21672f9e0acce69c119fdab42
# Parent  a81dcabda35e5ed63386534291c8d31a50bb9452
care for non-existing bitmap files

diff -r a81dcabda35e -r 7ff70da31a25 WarningBox.st
--- 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 $'
 ! !