--- 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 $'
! !