--- a/StandardSystemView.st Mon Oct 25 15:20:40 2004 +0200
+++ b/StandardSystemView.st Mon Oct 25 15:22:58 2004 +0200
@@ -713,7 +713,7 @@
icon
"return the form defined as icon"
- ^ icon
+ ^ icon value
!
icon:aFormOrImage
@@ -771,9 +771,9 @@
"/ only images possibly have iconMasks
icon notNil ifTrue:[
- (mask := icon mask) notNil ifTrue:[
- ^ self convertedIconMask:mask
- ]
+ (mask := icon value mask) notNil ifTrue:[
+ ^ self convertedIconMask:mask
+ ]
].
^ nil
@@ -1543,7 +1543,7 @@
!StandardSystemView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.162 2004-10-25 13:20:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.163 2004-10-25 13:22:58 cg Exp $'
! !
StandardSystemView initialize!