--- a/BrowserView.st Sat May 08 14:27:46 1999 +0200
+++ b/BrowserView.st Sat May 08 15:16:41 1999 +0200
@@ -6132,62 +6132,86 @@
(currentMethod notNil
and:[currentMethod isWrapped]) ifTrue:[
- items := #(
- ('inspect method' methodInspect )
- ('decompile' methodDecompile )
- ('-' nil )
- ('remove break/trace' methodRemoveBreakOrTrace )
- ).
+ items := #(
+ ('inspect method' methodInspect )
+ ('decompile' methodDecompile )
+ ('-' nil )
+ ).
+
+ currentMethod isCounting ifTrue:[
+ items := items , #(
+ ('stop counting' methodStopCounting)
+ ('reset count' methodResetCounting)
+ ).
+ ] ifFalse:[
+ currentMethod isCountingMemoryUsage ifTrue:[
+ items := items , #(
+ ('stop mem usage' methodStopMemoryUsage)
+ ('reset mem count' methodResetMemoryUsage)
+ ).
+ ] ifFalse:[
+ currentMethod isTimed ifTrue:[
+ items := items , #(
+ ('stop timing' methodStopTiming)
+ ('reset times' methodResetTiming)
+ ).
+ ] ifFalse:[
+ items := items , #(
+ ('remove break/trace' methodRemoveBreakOrTrace )
+ ).
+ ]
+ ]
+ ]
] ifFalse:[
- items := #(
- ('inspect method' methodInspect )
- ('decompile' methodDecompile )
- ('-' nil )
- ('breakpoint' methodBreakPoint )
- ('breakpoint in...' methodBreakPointInProcess)
- ('-' nil )
- ('trace' methodTrace )
- ('trace sender' methodTraceSender )
- ('trace full walkback' methodTraceFull )
- ('-' nil )
- ('start timing' methodStartTiming )
- ('start counting' methodStartCounting )
- ('start mem usage' methodStartMemoryUsage )
- ).
+ items := #(
+ ('inspect method' methodInspect )
+ ('decompile' methodDecompile )
+ ('-' nil )
+ ('breakpoint' methodBreakPoint )
+ ('breakpoint in...' methodBreakPointInProcess)
+ ('-' nil )
+ ('trace' methodTrace )
+ ('trace sender' methodTraceSender )
+ ('trace full walkback' methodTraceFull )
+ ('-' nil )
+ ('start timing' methodStartTiming )
+ ('start counting' methodStartCounting )
+ ('start mem usage' methodStartMemoryUsage )
+ ).
].
specialMenu := PopUpMenu
- itemList:items
- resources:resources.
+ itemList:items
+ resources:resources.
device ctrlDown ifTrue:[
- currentMethod isNil ifTrue:[
- classMethodListView flash.
- ^ nil
- ].
-
- ^ specialMenu
+ currentMethod isNil ifTrue:[
+ classMethodListView flash.
+ ^ nil
+ ].
+
+ ^ specialMenu
].
items := #(
- ('fileOut' methodFileOut )
- ('fileOut all' classMethodFileOutAll )
- ('printOut' methodPrintOut )
- ('-' nil )
- ('browse' classMethodBrowse )
- ('spawn' methodSpawn )
- ('spawn class' classSpawn )
- ('spawn full protocol' classSpawnFullProtocol )
- ('spawn hierarchy' classSpawnHierarchy )
- ('-' nil )
- ('filter...' classMethodFilter )
- ('senders...' methodSenders Cmds )
- ('implementors...' methodImplementors Cmdi )
- ('globals...' methodGlobalReferends Cmdg )
- ('-' nil )
- ('remove' methodRemove )
- ('-' nil )
- ('others' othersMenu Ctrl )
- ).
+ ('fileOut' methodFileOut )
+ ('fileOut all' classMethodFileOutAll )
+ ('printOut' methodPrintOut )
+ ('-' nil )
+ ('browse' classMethodBrowse )
+ ('spawn' methodSpawn )
+ ('spawn class' classSpawn )
+ ('spawn full protocol' classSpawnFullProtocol )
+ ('spawn hierarchy' classSpawnHierarchy )
+ ('-' nil )
+ ('filter...' classMethodFilter )
+ ('senders...' methodSenders Cmds )
+ ('implementors...' methodImplementors Cmdi )
+ ('globals...' methodGlobalReferends Cmdg )
+ ('-' nil )
+ ('remove' methodRemove )
+ ('-' nil )
+ ('others' othersMenu Ctrl )
+ ).
m := PopUpMenu itemList:items resources:resources.
m subMenuAt:#othersMenu put:specialMenu.
@@ -6385,20 +6409,20 @@
|pos s|
s := aString string withoutSpaces.
- (s endsWith:'}') ifTrue:[
- s := s copyTo:(s lastIndexOf:${) - 1.
- s := s withoutSpaces.
+ (s includes:$}) ifTrue:[
+ s := s copyTo:(s lastIndexOf:${) - 1.
+ s := s withoutSpaces.
].
(s endsWith:' !!') ifTrue:[
- s := s copyWithoutLast:2
+ s := s copyWithoutLast:2
].
(s endsWith:')') ifTrue:[
- s := aString copyTo:(aString lastIndexOf:$()-1.
- s := s withoutSpaces.
+ s := aString copyTo:(aString lastIndexOf:$()-1.
+ s := s withoutSpaces.
].
(s endsWith:' !!') ifTrue:[
- s := s copyWithoutLast:2
+ s := s copyWithoutLast:2
].
pos := s lastIndexOf:(Character space).
s := s copyFrom:(pos + 1).
@@ -13504,6 +13528,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.502 1999-05-06 20:58:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.503 1999-05-08 13:16:41 cg Exp $'
! !
BrowserView initialize!