--- a/Tools__NewSystemBrowser.st Sat Oct 20 21:54:19 2012 +0200
+++ b/Tools__NewSystemBrowser.st Sun Oct 21 01:03:42 2012 +0200
@@ -5799,14 +5799,12 @@
(MenuItem
label: 'Clone'
itemValue: browseMenuClone
- translateLabel: true
isVisible: shiftNotPressedHolder
shortcutKey: Ctrln
)
(MenuItem
label: 'Old SystemBrowser on Class'
itemValue: browseMenuClone
- translateLabel: true
isVisible: shiftPressedHolder
)
(MenuItem
@@ -5816,18 +5814,15 @@
(MenuItem
label: 'Class...'
itemValue: browseMenuOpenInClass
- translateLabel: true
)
(MenuItem
label: 'Classes'
- translateLabel: true
submenu:
(Menu
(
(MenuItem
label: 'With Name Matching...'
itemValue: browseMenuClassesWithNameMatching
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -5836,32 +5831,27 @@
(MenuItem
label: 'In Current ChangeSet'
itemValue: browseMenuClassesInCurrentChangeSet
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'In All ChangeSets'
itemValue: browseMenuClassesInAllChangeSets
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Which were Autoloaded'
itemValue: browseMenuAutoloadedClasses
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Extensions'
itemValue: browseMenuClassesWithExtensions
- translateLabel: true
isVisible: false
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Recently Opened Applications'
itemValue: browseMenuClassesOfRecentlyOpenedApplications
- translateLabel: true
)
(MenuItem
label: '-'
@@ -5869,31 +5859,26 @@
(MenuItem
label: 'All Subclasses of...'
itemValue: browseMenuAllSubclassesOf
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'All Applications'
itemValue: browseMenuApplicationClasses
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'All Web Services'
itemValue: browseMenuHTTPServiceClasses
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'All TestCases'
itemValue: browseMenuTestCaseClasses
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'All Shared Pools'
itemValue: browseMenuSharedPoolClasses
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -5902,31 +5887,26 @@
(MenuItem
label: 'Without Documentation'
itemValue: browseMenuClassesWithoutDocumentation
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Without Copyright'
itemValue: browseMenuClassesWithoutCopyright
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Without Examples'
itemValue: browseMenuClassesWithoutExamples
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Without CVS Repository Container'
itemValue: browseMenuClassesWithoutCVSRepositoryContainer
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Without SVN Repository Container'
itemValue: browseMenuClassesWithoutSVNRepositoryContainer
- translateLabel: true
isVisible: hasSubversionSupport
showBusyCursorWhilePerforming: true
)
@@ -5936,26 +5916,22 @@
(MenuItem
label: 'Defining Variable...'
itemValue: browseMenuClassesDefiningVariable
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With String in Comment/Documentation...'
itemValue: browseMenuClassesWithStringInCommentOrDocumentation
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With External Function Calls (FFI)'
itemValue: browseMenuClassesWithExternalFunctionCalls
- translateLabel: true
isVisible: false
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Primitive Code'
itemValue: browseMenuClassesWithPrimitiveCode
- translateLabel: true
isVisible: false
showBusyCursorWhilePerforming: true
)
@@ -5965,7 +5941,6 @@
(MenuItem
label: 'For which...'
itemValue: browseMenuClassesWithUserFilter
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -5973,7 +5948,6 @@
)
(MenuItem
label: 'Special'
- translateLabel: true
submenuChannel: specialBrowseMenu
)
)
@@ -5987,13 +5961,11 @@
(MenuItem
label: 'Implementors of...'
itemValue: browseMenuImplementorsOf
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Senders of...'
itemValue: browseSendersOf
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6002,19 +5974,16 @@
(MenuItem
label: 'References to Class or Global...'
itemValue: browseMenuReferencesToGlobal
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'References to Symbol...'
itemValue: browseMenuReferencesToSymbol
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Writes to Global...'
itemValue: browseMenuWritesToGlobal
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6023,31 +5992,26 @@
(MenuItem
label: 'Recently Changed Methods'
itemValue: browseMenuRecentChanges
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Class Extensions'
itemValue: browseMenuClassExtensionsBuffer
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Methods'
- translateLabel: true
submenu:
(Menu
(
(MenuItem
label: 'Changed Methods'
itemValue: browseMenuMethodsInCurrentChangeSet
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Overwritten Methods'
itemValue: browseMenuOverwrittenMethods:
- translateLabel: true
isVisible: false
argument: newBrowser
showBusyCursorWhilePerforming: true
@@ -6055,14 +6019,12 @@
(MenuItem
label: 'Unassigned Extensions'
itemValue: browseMenuUnassignedMethods:
- translateLabel: true
argument: newBrowser
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Break- or Tracepoint'
itemValue: browseMenuMethodsWithWrap
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6071,25 +6033,21 @@
(MenuItem
label: 'With String...'
itemValue: browseMenuMethodsWithString
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With String in Help Spec...'
itemValue: browseMenuMethodsWithStringInHelpSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With String in Menu Spec...'
itemValue: browseMenuMethodsWithStringInMenuSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With String-Literal Matching...'
itemValue: browseMenuMethodsWithStringLiteral
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6098,43 +6056,36 @@
(MenuItem
label: 'With Window Spec...'
itemValue: browseMenuMethodsWithWindowSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Menu Spec...'
itemValue: browseMenuMethodsWithMenuSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Image Spec...'
itemValue: browseMenuMethodsWithImageSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Table Spec...'
itemValue: browseMenuMethodsWithTableSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Help Spec...'
itemValue: browseMenuMethodsWithHelpSpec
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With any Resource...'
itemValue: browseMenuMethodsWithResource
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Annotation'
itemValue: browseMenuMethodsWithAnnotation
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6143,25 +6094,21 @@
(MenuItem
label: 'Without Comment...'
itemValue: browseMenuMethodsWithoutComment
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Ugly Coding Style...'
itemValue: browseMenuMethodsWithUglyCodingStyle
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Possible Leftover Debug Code...'
itemValue: browseMenuMethodsWithLeftoverDebugCode
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'Deprecated'
itemValue: browseMenuDeprecatedMethods
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6170,26 +6117,21 @@
(MenuItem
label: 'With Exception Handlers'
itemValue: browseMenuMethodsWithExceptionHandlers
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Exception Raisers'
itemValue: browseMenuMethodsWithExceptionRaisers
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With Primitive Code'
itemValue: browseMenuMethodsWithPrimitiveCode
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
label: 'With External Function Calls (FFI)'
itemValue: browseMenuMethodsWithExternalFunctionCalls
- translateLabel: true
- isVisible: false
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -6198,7 +6140,6 @@
(MenuItem
label: 'For which...'
itemValue: browseMenuMethodsWithUserFilter
- translateLabel: true
showBusyCursorWhilePerforming: true
)
)
@@ -55792,7 +55733,7 @@
oldMethod := self theSingleSelectedMethod.
oldMethod notNil ifTrue:[
oldSelector := oldMethod selector.
- oldSelector isNil ifTrue:[
+ (oldSelector isNil and:[existingMethod notNil]) ifTrue:[
"/ wrapped?
(existingMethod isWrapped or:[existingMethod isMethodWithBreakpoints]) ifTrue:[
oldSelector := existingMethod selector
@@ -57594,11 +57535,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1793 2012-10-20 19:05:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1794 2012-10-20 23:03:42 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1793 2012-10-20 19:05:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1794 2012-10-20 23:03:42 cg Exp $'
!
version_SVN