YesNoBox.st
changeset 943 034b63540f10
parent 856 1b5b9d753163
child 946 ccaa76951823
--- a/YesNoBox.st	Tue Jan 14 01:41:47 1997 +0100
+++ b/YesNoBox.st	Wed Jan 15 15:02:08 1997 +0100
@@ -163,13 +163,17 @@
 iconBitmap
     "return the bitmap shown as icon in my instances"
 
+    |img|
+
     RequestBitmap isNil ifTrue:[
-	RequestBitmap := Image fromFile:'bitmaps/Request.xbm'. 
-	RequestBitmap notNil ifTrue:[
-	    RequestBitmap := RequestBitmap on:Display 
-	].
+        img := Image fromFile:'bitmaps/Request.xbm'. 
+        img notNil ifTrue:[
+            RequestBitmap := img on:Display 
+        ].
     ].
     ^ RequestBitmap
+
+    "Modified: 15.2.1997 / 15:01:56 / cg"
 ! !
 
 !YesNoBox class methodsFor:'styles'!
@@ -182,9 +186,13 @@
     |img|
 
     img := StyleSheet at:'requestBoxIcon'.
-    img notNil ifTrue:[RequestBitmap := img on:Display].
+    img notNil ifTrue:[
+        RequestBitmap := img on:Display
+    ] ifFalse:[
+        RequestBitmap := nil
+    ].
 
-    "Modified: 1.3.1996 / 13:52:18 / cg"
+    "Modified: 15.2.1997 / 15:01:09 / cg"
 ! !
 
 !YesNoBox methodsFor:'accessing'!
@@ -392,5 +400,5 @@
 !YesNoBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.33 1996-10-28 08:58:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/YesNoBox.st,v 1.34 1997-01-15 14:02:08 cg Exp $'
 ! !