--- a/SystemBrowser.st Fri Mar 19 13:15:37 2004 +0100
+++ b/SystemBrowser.st Fri Mar 19 14:16:44 2004 +0100
@@ -601,6 +601,30 @@
QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a') ; yourself); yourself]
!
+deprecatedMethodIcon
+ ^ self doNotEnterIcon
+!
+
+doNotEnterIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self doNotEnterIcon inspect
+ ImageEditor openOnClass:self andSelector:#doNotEnterIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'SystemBrowser class doNotEnterIcon'
+ ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??C0<NA00CB@EY>P''9B@DL@08GC0<@@a') ; colorMapFromArray:#[255 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@O@A>@O<A?8G? _>A?8C?@G8@O@@@a') ; yourself); yourself]
+!
+
emptyIcon
"This resource specification was automatically generated
by the ImageEditor of ST/X."
@@ -970,6 +994,46 @@
^ self small_methodInheritedFromAboveIcon
!
+methodIsSubclassResponsibilityAndRedefinedBelowIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self methodIsSubclassResponsibilityAndRedefinedBelowIcon inspect
+ ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'SystemBrowser class methodIsSubclassResponsibilityAndRedefinedBelowIcon'
+ ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' @D@@H@@@@@B@@@@@@4UBHR@A@@"@@@a') ; colorMapFromArray:#[0 0 0 255 127 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<HC DO@@>O#8\G@b') ; yourself); yourself]
+!
+
+methodIsSubclassResponsibilityIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ self methodIsSubclassResponsibilityIcon inspect
+ ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityIcon
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'SystemBrowser class methodIsSubclassResponsibilityIcon'
+ ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' @D@@H@@@@@B@@@@@ 4@B@H@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 127 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<HC DO@@<IC0(I@b') ; yourself); yourself]
+!
+
methodRedefinedBelowIcon
^ self small_methodRedefinedBelowIcon
!
@@ -5223,7 +5287,7 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.203 2004-02-19 14:19:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.204 2004-03-19 13:16:44 stefan Exp $'
! !
SystemBrowser initialize!
--- a/Tools_BrowserList.st Fri Mar 19 13:15:37 2004 +0100
+++ b/Tools_BrowserList.st Fri Mar 19 14:16:44 2004 +0100
@@ -708,6 +708,10 @@
!
+deprecatedMethodIcon
+ ^ self fetchIcon:#deprecatedMethodIcon selector:#deprecatedMethodIcon
+!
+
fetchIcon:name selector:fetchSelector
"answer an icon to mark breakPointed methods"
@@ -779,6 +783,14 @@
^ self fetchIcon:#methodInheritedFromAbove selector:#methodInheritedFromAboveIcon
!
+methodIsSubclassResponsibilityAndRedefinedBelowIcon
+ ^ self fetchIcon:#methodIsSubclassResponsibilityAndRedefinedBelowIcon selector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
+!
+
+methodIsSubclassResponsibilityIcon
+ ^ self fetchIcon:#methodIsSubclassResponsibilityIcon selector:#methodIsSubclassResponsibilityIcon
+!
+
methodRedefinedBelowIcon
^ self fetchIcon:#methodRedefinedBelow selector:#methodRedefinedBelowIcon
!
@@ -1211,5 +1223,5 @@
!BrowserList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.2 2004-02-26 20:07:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_BrowserList.st,v 1.3 2004-03-19 13:15:58 stefan Exp $'
! !
--- a/Tools_MethodList.st Fri Mar 19 13:15:37 2004 +0100
+++ b/Tools_MethodList.st Fri Mar 19 14:16:44 2004 +0100
@@ -1159,19 +1159,27 @@
!
redefinedOrInheritedIconFor:aMethod
- |inherited redefined|
+ |inherited redefined subclassResponsibility|
inherited := self methodIsInheritedFromAbove:aMethod.
redefined := self methodIsRedefinedBelow:aMethod.
inherited ifTrue:[
- redefined ifTrue:[
- ^ self methodInheritedFromAboveAndRedefinedBelowIcon.
- ].
- ^ self methodInheritedFromAboveIcon.
+ redefined ifTrue:[
+ ^ self methodInheritedFromAboveAndRedefinedBelowIcon.
+ ].
+ ^ self methodInheritedFromAboveIcon.
].
+
+ subclassResponsibility := aMethod sends:#subclassResponsibility.
redefined ifTrue:[
- ^ self methodRedefinedBelowIcon.
+ subclassResponsibility ifTrue:[
+ ^ self methodIsSubclassResponsibilityAndRedefinedBelowIcon.
+ ].
+ ^ self methodRedefinedBelowIcon.
+ ].
+ subclassResponsibility ifTrue:[
+ ^ self methodIsSubclassResponsibilityIcon.
].
^ self methodEmptyInheritedIcon
@@ -1190,39 +1198,42 @@
|resources|
(resources := aMethod resources) notNil ifTrue:[
- (resources includesKey:#canvas) ifTrue:[
- ^ self canvasIcon
- ].
- (resources includesKey:#menu) ifTrue:[
- ^ self menuIcon
- ].
- (resources includesKey:#image) ifTrue:[
- ^ self imageIcon
- ].
- (resources includesKey:#fileImage) ifTrue:[
- ^ self fileImageIcon
- ].
- (resources includesKey:#programImage) ifTrue:[
- ^ self programImageIcon
- ].
- (resources includesKey:#help) ifTrue:[
- ^ self helpIcon
- ].
- (resources includesKey:#programMenu) ifTrue:[
- ^ self programMenuIcon
- ].
- (resources includesKey:#tableColumns) ifTrue:[
- ^ self tableColumnsIcon
- ].
- (resources includesKey:#tabList) ifTrue:[
- ^ self tabListIcon
- ].
- (resources includesKey:#hierarchicalList) ifTrue:[
- ^ self hierarchicalListIcon
- ].
- (resources includesKey:#programImage) ifTrue:[
- ^ self programImageIcon
- ]
+ (resources includesKey:#obsolete) ifTrue:[
+ ^ self deprecatedMethodIcon
+ ].
+ (resources includesKey:#canvas) ifTrue:[
+ ^ self canvasIcon
+ ].
+ (resources includesKey:#menu) ifTrue:[
+ ^ self menuIcon
+ ].
+ (resources includesKey:#image) ifTrue:[
+ ^ self imageIcon
+ ].
+ (resources includesKey:#fileImage) ifTrue:[
+ ^ self fileImageIcon
+ ].
+ (resources includesKey:#programImage) ifTrue:[
+ ^ self programImageIcon
+ ].
+ (resources includesKey:#help) ifTrue:[
+ ^ self helpIcon
+ ].
+ (resources includesKey:#programMenu) ifTrue:[
+ ^ self programMenuIcon
+ ].
+ (resources includesKey:#tableColumns) ifTrue:[
+ ^ self tableColumnsIcon
+ ].
+ (resources includesKey:#tabList) ifTrue:[
+ ^ self tabListIcon
+ ].
+ (resources includesKey:#hierarchicalList) ifTrue:[
+ ^ self hierarchicalListIcon
+ ].
+ (resources includesKey:#programImage) ifTrue:[
+ ^ self programImageIcon
+ ]
].
^ nil
!
@@ -1399,5 +1410,5 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.1 2004-02-26 18:55:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodList.st,v 1.2 2004-03-19 13:15:30 stefan Exp $'
! !