--- a/BrowserView.st Fri Apr 11 14:43:10 1997 +0200
+++ b/BrowserView.st Fri Apr 11 17:31:09 1997 +0200
@@ -21,7 +21,7 @@
lastCategory lastModule lastPackage lastMethodMoveClass
namespaceList allNamespaces gotClassList classList'
classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
- StopIcon TraceIcon'
+ StopIcon TraceIcon TimeIcon'
poolDictionaries:''
category:'Interface-Browsers'
!
@@ -183,6 +183,64 @@
"Created: 7.4.1997 / 17:31:23 / cg"
!
+timeIcon
+ "answer an icon to mark timed methods"
+
+ |timeIcon|
+
+ TimeIcon notNil ifTrue:[^ TimeIcon].
+
+ timeIcon := Depth1Image
+ width:16
+ height:16
+ fromArray:#(
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000111 2r11100000
+ 2r00001111 2r11110000
+ 2r00011110 2r01111000
+ 2r00111110 2r01111100
+ 2r00111110 2r01111100
+ 2r00111110 2r00000100
+ 2r00111110 2r00000100
+ 2r00111111 2r11111100
+ 2r00111111 2r11111100
+ 2r00011111 2r11111000
+ 2r00001111 2r11110000
+ 2r00000111 2r11100000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ ).
+
+ timeIcon mask:(Depth1Image
+ width:16
+ height:16
+ fromArray:#(
+ 2r00000000 2r00000000
+ 2r00000111 2r11100000
+ 2r00001111 2r11110000
+ 2r00011111 2r11111000
+ 2r00111111 2r11111100
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r00111111 2r11111100
+ 2r00011111 2r11111000
+ 2r00001111 2r11110000
+ 2r00000111 2r11100000
+ 2r00000000 2r00000000
+ )).
+ timeIcon colorMap:(Array with:Color black with:Color white).
+ TimeIcon := timeIcon.
+ ^ timeIcon
+
+ "Created: 11.4.1997 / 17:01:55 / cg"
+ "Modified: 11.4.1997 / 17:19:09 / cg"
+!
+
traceIcon
"answer an icon to mark traced methods"
@@ -7433,14 +7491,18 @@
aMethod isBreakpointed ifTrue:[
icn := self stopIcon
] ifFalse:[
- icn := self traceIcon
+ aMethod isTimed ifTrue:[
+ icn := self timeIcon
+ ] ifFalse:[
+ icn := self traceIcon
+ ]
].
^ LabelAndIcon icon:icn string:s
].
^ s
"Created: 22.10.1996 / 19:51:00 / cg"
- "Modified: 7.4.1997 / 17:26:33 / cg"
+ "Modified: 11.4.1997 / 17:16:19 / cg"
!
listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass
@@ -7805,7 +7867,11 @@
mthd isBreakpointed ifTrue:[
icn := self stopIcon
] ifFalse:[
- icn := self traceIcon
+ mthd isTimed ifTrue:[
+ icn := self timeIcon
+ ] ifFalse:[
+ icn := self traceIcon
+ ]
].
newList add:(LabelAndIcon icon:icn string:s)
] ifFalse:[
@@ -7819,7 +7885,7 @@
"Modified: 18.12.1995 / 22:54:04 / stefan"
"Created: 3.3.1997 / 15:10:15 / cg"
- "Modified: 7.4.1997 / 17:26:58 / cg"
+ "Modified: 11.4.1997 / 17:16:51 / cg"
!
updateMethodList
@@ -9098,14 +9164,6 @@
self information:someText
!
-stopIcon
- "answer an icon to mark breakPointed methods"
-
- ^ self class stopIcon
-
- "Modified: 7.4.1997 / 17:31:40 / cg"
-!
-
stringToSearchFor
"look in codeView and methodListView for a search-string when searching for classes/names"
@@ -9129,14 +9187,6 @@
^ sel
!
-traceIcon
- "answer an icon to mark traced methods"
-
- ^ self class traceIcon
-
- "Modified: 7.4.1997 / 17:32:14 / cg"
-!
-
warnLabel:what
"set the title for some warning"
@@ -9149,6 +9199,33 @@
"Created: 23.11.1995 / 14:11:14 / cg"
! !
+!BrowserView methodsFor:'private - defaults'!
+
+stopIcon
+ "answer an icon to mark breakPointed methods"
+
+ ^ self class stopIcon
+
+ "Modified: 7.4.1997 / 17:31:40 / cg"
+!
+
+timeIcon
+ "answer an icon to mark timed methods"
+
+ ^ self class timeIcon
+
+ "Modified: 7.4.1997 / 17:31:40 / cg"
+ "Created: 11.4.1997 / 17:02:55 / cg"
+!
+
+traceIcon
+ "answer an icon to mark traced methods"
+
+ ^ self class traceIcon
+
+ "Modified: 7.4.1997 / 17:32:14 / cg"
+! !
+
!BrowserView methodsFor:'unused'!
listOfAllMethodCategoriesInHierarchy:aClass
@@ -9861,6 +9938,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.288 1997-04-07 17:31:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.289 1997-04-11 15:31:09 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Fri Apr 11 14:43:10 1997 +0200
+++ b/BrwsrView.st Fri Apr 11 17:31:09 1997 +0200
@@ -21,7 +21,7 @@
lastCategory lastModule lastPackage lastMethodMoveClass
namespaceList allNamespaces gotClassList classList'
classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
- StopIcon TraceIcon'
+ StopIcon TraceIcon TimeIcon'
poolDictionaries:''
category:'Interface-Browsers'
!
@@ -183,6 +183,64 @@
"Created: 7.4.1997 / 17:31:23 / cg"
!
+timeIcon
+ "answer an icon to mark timed methods"
+
+ |timeIcon|
+
+ TimeIcon notNil ifTrue:[^ TimeIcon].
+
+ timeIcon := Depth1Image
+ width:16
+ height:16
+ fromArray:#(
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ 2r00000111 2r11100000
+ 2r00001111 2r11110000
+ 2r00011110 2r01111000
+ 2r00111110 2r01111100
+ 2r00111110 2r01111100
+ 2r00111110 2r00000100
+ 2r00111110 2r00000100
+ 2r00111111 2r11111100
+ 2r00111111 2r11111100
+ 2r00011111 2r11111000
+ 2r00001111 2r11110000
+ 2r00000111 2r11100000
+ 2r00000000 2r00000000
+ 2r00000000 2r00000000
+ ).
+
+ timeIcon mask:(Depth1Image
+ width:16
+ height:16
+ fromArray:#(
+ 2r00000000 2r00000000
+ 2r00000111 2r11100000
+ 2r00001111 2r11110000
+ 2r00011111 2r11111000
+ 2r00111111 2r11111100
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r01111111 2r11111110
+ 2r00111111 2r11111100
+ 2r00011111 2r11111000
+ 2r00001111 2r11110000
+ 2r00000111 2r11100000
+ 2r00000000 2r00000000
+ )).
+ timeIcon colorMap:(Array with:Color black with:Color white).
+ TimeIcon := timeIcon.
+ ^ timeIcon
+
+ "Created: 11.4.1997 / 17:01:55 / cg"
+ "Modified: 11.4.1997 / 17:19:09 / cg"
+!
+
traceIcon
"answer an icon to mark traced methods"
@@ -7433,14 +7491,18 @@
aMethod isBreakpointed ifTrue:[
icn := self stopIcon
] ifFalse:[
- icn := self traceIcon
+ aMethod isTimed ifTrue:[
+ icn := self timeIcon
+ ] ifFalse:[
+ icn := self traceIcon
+ ]
].
^ LabelAndIcon icon:icn string:s
].
^ s
"Created: 22.10.1996 / 19:51:00 / cg"
- "Modified: 7.4.1997 / 17:26:33 / cg"
+ "Modified: 11.4.1997 / 17:16:19 / cg"
!
listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass
@@ -7805,7 +7867,11 @@
mthd isBreakpointed ifTrue:[
icn := self stopIcon
] ifFalse:[
- icn := self traceIcon
+ mthd isTimed ifTrue:[
+ icn := self timeIcon
+ ] ifFalse:[
+ icn := self traceIcon
+ ]
].
newList add:(LabelAndIcon icon:icn string:s)
] ifFalse:[
@@ -7819,7 +7885,7 @@
"Modified: 18.12.1995 / 22:54:04 / stefan"
"Created: 3.3.1997 / 15:10:15 / cg"
- "Modified: 7.4.1997 / 17:26:58 / cg"
+ "Modified: 11.4.1997 / 17:16:51 / cg"
!
updateMethodList
@@ -9098,14 +9164,6 @@
self information:someText
!
-stopIcon
- "answer an icon to mark breakPointed methods"
-
- ^ self class stopIcon
-
- "Modified: 7.4.1997 / 17:31:40 / cg"
-!
-
stringToSearchFor
"look in codeView and methodListView for a search-string when searching for classes/names"
@@ -9129,14 +9187,6 @@
^ sel
!
-traceIcon
- "answer an icon to mark traced methods"
-
- ^ self class traceIcon
-
- "Modified: 7.4.1997 / 17:32:14 / cg"
-!
-
warnLabel:what
"set the title for some warning"
@@ -9149,6 +9199,33 @@
"Created: 23.11.1995 / 14:11:14 / cg"
! !
+!BrowserView methodsFor:'private - defaults'!
+
+stopIcon
+ "answer an icon to mark breakPointed methods"
+
+ ^ self class stopIcon
+
+ "Modified: 7.4.1997 / 17:31:40 / cg"
+!
+
+timeIcon
+ "answer an icon to mark timed methods"
+
+ ^ self class timeIcon
+
+ "Modified: 7.4.1997 / 17:31:40 / cg"
+ "Created: 11.4.1997 / 17:02:55 / cg"
+!
+
+traceIcon
+ "answer an icon to mark traced methods"
+
+ ^ self class traceIcon
+
+ "Modified: 7.4.1997 / 17:32:14 / cg"
+! !
+
!BrowserView methodsFor:'unused'!
listOfAllMethodCategoriesInHierarchy:aClass
@@ -9861,6 +9938,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.288 1997-04-07 17:31:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.289 1997-04-11 15:31:09 cg Exp $'
! !
BrowserView initialize!