--- a/WarningBox.st Tue Oct 28 21:02:12 1997 +0100
+++ b/WarningBox.st Tue Oct 28 21:02:59 1997 +0100
@@ -138,16 +138,16 @@
This is the default image; you can overwrite this in a concrete
instance with the image: message"
- <resource: #style (#warningBoxIcon #warningBoxIconFile)>
+ <resource: #style (#'warningBox.icon' #'warningBox.iconFile')>
|img imgFileName|
WarnBitmap isNil ifTrue:[
- img := StyleSheet at:'warningBoxIcon'.
+ img := StyleSheet at:'warningBox.icon'.
img notNil ifTrue:[
WarnBitmap := img
] ifFalse:[
- imgFileName := StyleSheet at:'warningBoxIconFile' default:'bitmaps/Warning.xbm'.
+ imgFileName := StyleSheet at:'warningBox.iconFile' default:'bitmaps/Warning.xbm'.
WarnBitmap := Image fromFile:imgFileName.
].
WarnBitmap notNil ifTrue:[
@@ -173,8 +173,8 @@
box showAtPointer.
"
- "Created: 17.11.1995 / 18:16:47 / cg"
- "Modified: 1.4.1997 / 14:28:07 / cg"
+ "Created: / 17.11.1995 / 18:16:47 / cg"
+ "Modified: / 26.10.1997 / 17:05:55 / cg"
! !
!WarningBox class methodsFor:'styles'!
@@ -213,5 +213,5 @@
!WarningBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.21 1997-04-01 12:54:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/WarningBox.st,v 1.22 1997-10-28 20:02:49 cg Exp $'
! !