added reset-statistic entries to menu.
--- a/BrowserView.st Thu Jul 30 17:04:36 1998 +0200
+++ b/BrowserView.st Thu Jul 30 17:52:41 1998 +0200
@@ -821,13 +821,17 @@
and:[currentMethod originalMethod == changedObject]])
ifTrue:[
self refetchMethod.
+ "/ just in case, this is a method which is used during
+ "/ the update ...
+ changedObject removeDependent:self.
self updateMethodListWithScroll:false keepSelection:true.
- ]
+ changedObject addDependent:self.
+ ].
].
]
"Created: / 4.1.1997 / 13:54:00 / cg"
- "Modified: / 27.7.1998 / 12:11:16 / cg"
+ "Modified: / 30.7.1998 / 17:33:03 / cg"
!
refetchClass
@@ -7668,18 +7672,21 @@
brkItems := #(
('-' nil)
('stop mem usage' methodStopMemoryUsage)
+ ('reset count' methodResetMemoryUsage)
).
] ifFalse:[
currentMethod isCounting ifTrue:[
brkItems := #(
('-' nil )
('stop counting' methodStopCounting)
+ ('reset count' methodResetCounting)
).
] ifFalse:[
currentMethod isTimed ifTrue:[
brkItems := #(
('-' nil )
('stop timing' methodStopTiming)
+ ('reset times' methodResetTiming)
).
] ifFalse:[
currentMethod isTraced ifTrue:[
@@ -7894,7 +7901,7 @@
"Created: / 23.11.1995 / 12:02:29 / cg"
"Modified: / 18.12.1995 / 16:20:07 / stefan"
"Modified: / 29.4.1997 / 11:20:59 / dq"
- "Modified: / 20.7.1998 / 14:23:07 / cg"
+ "Modified: / 30.7.1998 / 17:38:44 / cg"
!
methodMove
@@ -8138,6 +8145,33 @@
"Modified: / 12.1.1998 / 19:15:32 / cg"
!
+methodResetCounting
+ "reset the counting statstics for the current method"
+
+ self commonTraceHelperWith:#resetCountingStatistics
+
+ "Modified: / 30.7.1998 / 17:16:26 / cg"
+ "Created: / 30.7.1998 / 17:39:08 / cg"
+!
+
+methodResetMemoryUsage
+ "reset the memory statstics for the current method"
+
+ self commonTraceHelperWith:#resetMemoryUsageStatistics
+
+ "Modified: / 30.7.1998 / 17:16:26 / cg"
+ "Created: / 30.7.1998 / 17:39:20 / cg"
+!
+
+methodResetTiming
+ "reset the timing statstics for the current method"
+
+ self commonTraceHelperWith:#resetTimingStatistics
+
+ "Created: / 30.7.1998 / 17:14:41 / cg"
+ "Modified: / 30.7.1998 / 17:16:26 / cg"
+!
+
methodSTCCompile
"compile the current method to machine code.
This is not supported on all machines, and never supported in
@@ -8283,12 +8317,12 @@
!
methodStopTiming
- "show the execution times on the current method"
+ "stop timing the current method"
self commonTraceHelperWith:#stopTiming
"Created: / 17.6.1996 / 17:12:27 / cg"
- "Modified: / 12.1.1998 / 19:16:12 / cg"
+ "Modified: / 30.7.1998 / 17:15:10 / cg"
!
methodStringSearch
@@ -12005,6 +12039,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.434 1998-07-30 09:29:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.435 1998-07-30 15:52:41 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Thu Jul 30 17:04:36 1998 +0200
+++ b/BrwsrView.st Thu Jul 30 17:52:41 1998 +0200
@@ -821,13 +821,17 @@
and:[currentMethod originalMethod == changedObject]])
ifTrue:[
self refetchMethod.
+ "/ just in case, this is a method which is used during
+ "/ the update ...
+ changedObject removeDependent:self.
self updateMethodListWithScroll:false keepSelection:true.
- ]
+ changedObject addDependent:self.
+ ].
].
]
"Created: / 4.1.1997 / 13:54:00 / cg"
- "Modified: / 27.7.1998 / 12:11:16 / cg"
+ "Modified: / 30.7.1998 / 17:33:03 / cg"
!
refetchClass
@@ -7668,18 +7672,21 @@
brkItems := #(
('-' nil)
('stop mem usage' methodStopMemoryUsage)
+ ('reset count' methodResetMemoryUsage)
).
] ifFalse:[
currentMethod isCounting ifTrue:[
brkItems := #(
('-' nil )
('stop counting' methodStopCounting)
+ ('reset count' methodResetCounting)
).
] ifFalse:[
currentMethod isTimed ifTrue:[
brkItems := #(
('-' nil )
('stop timing' methodStopTiming)
+ ('reset times' methodResetTiming)
).
] ifFalse:[
currentMethod isTraced ifTrue:[
@@ -7894,7 +7901,7 @@
"Created: / 23.11.1995 / 12:02:29 / cg"
"Modified: / 18.12.1995 / 16:20:07 / stefan"
"Modified: / 29.4.1997 / 11:20:59 / dq"
- "Modified: / 20.7.1998 / 14:23:07 / cg"
+ "Modified: / 30.7.1998 / 17:38:44 / cg"
!
methodMove
@@ -8138,6 +8145,33 @@
"Modified: / 12.1.1998 / 19:15:32 / cg"
!
+methodResetCounting
+ "reset the counting statstics for the current method"
+
+ self commonTraceHelperWith:#resetCountingStatistics
+
+ "Modified: / 30.7.1998 / 17:16:26 / cg"
+ "Created: / 30.7.1998 / 17:39:08 / cg"
+!
+
+methodResetMemoryUsage
+ "reset the memory statstics for the current method"
+
+ self commonTraceHelperWith:#resetMemoryUsageStatistics
+
+ "Modified: / 30.7.1998 / 17:16:26 / cg"
+ "Created: / 30.7.1998 / 17:39:20 / cg"
+!
+
+methodResetTiming
+ "reset the timing statstics for the current method"
+
+ self commonTraceHelperWith:#resetTimingStatistics
+
+ "Created: / 30.7.1998 / 17:14:41 / cg"
+ "Modified: / 30.7.1998 / 17:16:26 / cg"
+!
+
methodSTCCompile
"compile the current method to machine code.
This is not supported on all machines, and never supported in
@@ -8283,12 +8317,12 @@
!
methodStopTiming
- "show the execution times on the current method"
+ "stop timing the current method"
self commonTraceHelperWith:#stopTiming
"Created: / 17.6.1996 / 17:12:27 / cg"
- "Modified: / 12.1.1998 / 19:16:12 / cg"
+ "Modified: / 30.7.1998 / 17:15:10 / cg"
!
methodStringSearch
@@ -12005,6 +12039,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.434 1998-07-30 09:29:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.435 1998-07-30 15:52:41 cg Exp $'
! !
BrowserView initialize!