--- a/BrowserView.st Wed Sep 05 15:07:50 2001 +0200
+++ b/BrowserView.st Wed Sep 05 16:32:39 2001 +0200
@@ -752,7 +752,7 @@
#label: '-'
)
#(#MenuItem
- #label: 'New class category...'
+ #label: 'New Class Category...'
#translateLabel: true
#value: #classCategoryNewCategory
)
@@ -783,7 +783,7 @@
#value: #classCategoryRepositoryHistory
)
#(#MenuItem
- #label: 'Validate class revisions'
+ #label: 'Validate Class Revisions'
#translateLabel: true
#value: #classCategoryValidateClassRevisions
#enabled: #hasClassCategorySelected
@@ -2415,8 +2415,8 @@
items := #(
('FileOut each binary...' classCategoryFileOutBinaryEach )
('-' nil )
- ('Repository history...' classCategoryRepositoryHistory )
- ('Validate class revisions' classCategoryValidateClassRevisions )
+ ('Repository History...' classCategoryRepositoryHistory )
+ ('Validate Class Revisions' classCategoryValidateClassRevisions )
('-' nil )
('Checkin each...' classCategoryCheckinEach )
('-' nil )
@@ -2424,7 +2424,7 @@
).
] ifFalse:[
items := #(
- ('Repository history...' classCategoryRepositoryHistory )
+ ('Repository History...' classCategoryRepositoryHistory )
('-' nil )
('Load from repository...' classCategoryLoadFromRepository)
).
@@ -2465,17 +2465,17 @@
"/ ('-' nil )
('Clone' browserClone )
- ('Open for class...' browserOpenInClass )
- ('Spawn full class' browserSpawnFullClass )
- ('Class extensions' browserSpawnExtensions )
+ ('Open for Class...' browserOpenInClass )
+ ('Spawn Full Class' browserSpawnFullClass )
+ ('Class Extensions' browserSpawnExtensions )
('-' nil )
('Update' classCategoryUpdate )
- ('Find class...' classCategoryFindClass #Find )
- ('Find method...' classCategoryFindMethod )
- ('Visited history' classHistoryMenu )
- ('Changed history' changeHistoryMenu )
+ ('Find Class...' classCategoryFindClass #Find )
+ ('Find Method...' classCategoryFindMethod )
+ ('Visited History' classHistoryMenu )
+ ('Changed History' changeHistoryMenu )
('-' nil )
- ('New class category...' classCategoryNewCategory #Cmdn )
+ ('New Class Category...' classCategoryNewCategory #Cmdn )
('=' nil )
('Others' otherMenu #Ctrl )
).
@@ -2491,18 +2491,18 @@
"/ ('namespace...' namespaceDialog )
"/ ('-' nil )
('Clone' browserClone Cmdc )
- ('Open for class...' browserOpenInClass Cmdo )
+ ('Open for Class...' browserOpenInClass Cmdo )
('SPAWN_CATEGORY' classCategorySpawn )
- ('Spawn full class' browserSpawnFullClass )
- ('Class extensions' browserSpawnExtensions )
+ ('Spawn Full Class' browserSpawnFullClass )
+ ('Class Extensions' browserSpawnExtensions )
('-' nil )
('Update' classCategoryUpdate )
- ('Find class...' classCategoryFindClass Find )
- ('Find method...' classCategoryFindMethod )
- ('Visited history' classHistoryMenu )
- ('Changed history' changeHistoryMenu )
+ ('Find Class...' classCategoryFindClass Find )
+ ('Find Method...' classCategoryFindMethod )
+ ('Visited History' classHistoryMenu )
+ ('Changed History' changeHistoryMenu )
('-' nil )
- ('New class category...' classCategoryNewCategory Cmdn )
+ ('New Class Category...' classCategoryNewCategory Cmdn )
('Rename...' classCategoryRename )
('Remove...' classCategoryRemove )
('=' nil )
@@ -3683,7 +3683,8 @@
"/ selectors add: nil; add:#emptyClassHistory.
"/ args add: nil; add: nil.
] ifFalse: [
- labels := resources string:#('empty history').
+ ^ nil
+"/ labels := resources string:#('empty history').
].
^ PopUpMenu
@@ -6849,50 +6850,50 @@
(currentMethod notNil
and:[currentMethod isWrapped]) ifTrue:[
items := #(
- ('inspect method' methodInspect )
- ('decompile' methodDecompile )
+ ('Inspect Method' methodInspect )
+ ('Decompile' methodDecompile )
('-' nil )
).
currentMethod isCounting ifTrue:[
items := items , #(
- ('stop counting' methodStopCounting)
- ('reset count' methodResetCounting)
+ ('Stop counting' methodStopCounting)
+ ('Reset count' methodResetCounting)
).
] ifFalse:[
currentMethod isCountingMemoryUsage ifTrue:[
items := items , #(
- ('stop mem usage' methodStopMemoryUsage)
- ('reset mem count' methodResetMemoryUsage)
+ ('Stop mem usage' methodStopMemoryUsage)
+ ('Reset mem count' methodResetMemoryUsage)
).
] ifFalse:[
currentMethod isTimed ifTrue:[
items := items , #(
- ('stop timing' methodStopTiming)
- ('reset times' methodResetTiming)
+ ('Stop timing' methodStopTiming)
+ ('Reset times' methodResetTiming)
).
] ifFalse:[
items := items , #(
- ('remove break/trace' methodRemoveBreakOrTrace )
+ ('Remove break/trace' methodRemoveBreakOrTrace )
).
]
]
]
] ifFalse:[
items := #(
- ('inspect method' methodInspect )
- ('decompile' methodDecompile )
+ ('Inspect method' methodInspect )
+ ('Decompile' methodDecompile )
('-' nil )
- ('breakpoint' methodBreakPoint )
- ('breakpoint in...' methodBreakPointInProcess)
+ ('Breakpoint' methodBreakPoint )
+ ('Breakpoint in...' methodBreakPointInProcess)
('-' nil )
- ('trace' methodTrace )
- ('trace sender' methodTraceSender )
- ('trace full walkback' methodTraceFull )
+ ('Trace' methodTrace )
+ ('Trace sender' methodTraceSender )
+ ('Trace full walkback' methodTraceFull )
('-' nil )
- ('start timing' methodStartTiming )
- ('start counting' methodStartCounting )
- ('start mem usage' methodStartMemoryUsage )
+ ('Start timing' methodStartTiming )
+ ('Start counting' methodStartCounting )
+ ('Start mem usage' methodStartMemoryUsage )
).
].
specialMenu := PopUpMenu
@@ -6915,26 +6916,26 @@
].
items := #(
- ('fileOut' methodFileOut )
- ('fileOut all' classMethodFileOutAll )
- ('printOut' methodPrintOut )
+ ('FileOut' methodFileOut )
+ ('FileOut all' classMethodFileOutAll )
+ ('PrintOut' methodPrintOut )
('-' nil )
- ('browse full' classMethodBrowse )
- ('spawn' methodSpawn )
- ('spawn class' classSpawn )
- ('spawn full protocol' classSpawnFullProtocol )
- ('spawn hierarchy' classSpawnHierarchy )
+ ('Browse full' 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 )
+ ('Filter...' classMethodFilter )
+ ('Senders...' methodSenders Cmds )
+ ('Implementors...' methodImplementors Cmdi )
+ ('Globals...' methodGlobalReferends Cmdg )
('-' nil )
- ('change category...' methodChangeCategory )
- ('move...' methodMove )
- ('remove' methodRemove )
+ ('Change category...' methodChangeCategory )
+ ('Move...' methodMove )
+ ('Remove' methodRemove )
('-' nil )
- ('others' othersMenu Ctrl )
+ ('Others' othersMenu Ctrl )
).
m := PopUpMenu itemList:items resources:resources.
@@ -14826,6 +14827,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.663 2001-09-05 13:06:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.664 2001-09-05 14:32:39 cg Exp $'
! !
BrowserView initialize!