changed:
authorClaus Gittinger <cg@exept.de>
Sun, 21 Oct 2012 01:03:42 +0200
changeset 11882 bf377d950529
parent 11881 fe2d88632160
child 11883 8bbbac327082
changed: #acceptMethod:inClass:language:check: #browseMenu
Tools__NewSystemBrowser.st
--- 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