--- a/Tools__NewSystemBrowser.st Tue Oct 23 21:01:57 2012 +0200
+++ b/Tools__NewSystemBrowser.st Wed Oct 24 12:08:06 2012 +0200
@@ -7565,7 +7565,6 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'FileOut'
- translateLabel: true
submenu:
(Menu
(
@@ -7573,7 +7572,6 @@
enabled: hasClassSelectedHolder
label: 'as...'
itemValue: classMenuFileOutAs
- translateLabel: true
isVisible: hasSingleClassSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7581,7 +7579,6 @@
enabled: hasClassSelectedAndCanFileOutXMLHolder
label: 'XML as...'
itemValue: classMenuFileOutXMLAs
- translateLabel: true
isVisible: hasSingleClassSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7589,7 +7586,6 @@
enabled: hasClassSelectedAndCanFileOutSIFHolder
label: 'SIF as...'
itemValue: classMenuFileOutSIFAs
- translateLabel: true
isVisible: hasSingleClassSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7597,7 +7593,6 @@
enabled: hasClassSelectedAndCanFileOutBinaryHolder
label: 'Binary as...'
itemValue: classMenuFileOutBinaryAs
- translateLabel: true
isVisible: hasSingleClassSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7605,7 +7600,6 @@
enabled: hasClassSelectedHolder
label: 'Each in...'
itemValue: classMenuFileOutEachIn
- translateLabel: true
isVisible: hasMultipleClassesSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7613,14 +7607,12 @@
enabled: hasProjectDefinitionSelectedHolder
label: 'Build Support Files in...'
itemValue: classMenuFileOutBuildSupportFiles
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasClassSelectedAndCanFileOutXMLHolder
label: 'Each XML in...'
itemValue: classMenuFileOutEachXMLIn
- translateLabel: true
isVisible: hasMultipleClassesSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7628,7 +7620,6 @@
enabled: hasClassSelectedAndCanFileOutSIFHolder
label: 'Each SIF in...'
itemValue: classMenuFileOutEachSIFIn
- translateLabel: true
isVisible: hasMultipleClassesSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7636,7 +7627,6 @@
enabled: hasClassSelectedHolder
label: 'Each Binary in...'
itemValue: classMenuFileOutEachBinaryIn
- translateLabel: true
isVisible: hasMultipleClassesSelectedHolder
showBusyCursorWhilePerforming: true
)
@@ -7647,14 +7637,12 @@
enabled: hasClassSelectedAndCanSendMailHolder
label: 'Mail To...'
itemValue: classMenuMailTo
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Copy Source to Clipboard'
itemValue: classMenuCopySourceToClipboard
- translateLabel: true
showBusyCursorWhilePerforming: true
)
)
@@ -7664,7 +7652,6 @@
)
(MenuItem
label: 'Repository Slice'
- translateLabel: true
submenuChannel: classMenuSCMSlice
isMenuSlice: true
)
@@ -7674,7 +7661,6 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Documentation'
- translateLabel: true
submenu:
(Menu
(
@@ -7682,14 +7668,12 @@
enabled: hasClassSelectedHolder
label: 'PrintOut'
itemValue: classMenuPrintOut
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'PrintOut Protocol'
itemValue: classMenuPrintOutProtocol
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -7699,14 +7683,12 @@
enabled: hasClassSelectedHolder
label: 'HTML Documentation'
itemValue: classMenuDocumentation
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Save HTML Documentation As...'
itemValue: classMenuSaveDocumentationAs
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -7715,17 +7697,14 @@
(MenuItem
label: 'Show Comment'
itemValue: classMenuComment
- translateLabel: true
)
(MenuItem
label: 'Show Hierarchy'
itemValue: classMenuHierarchy
- translateLabel: true
)
(MenuItem
label: 'Show Definition'
itemValue: classMenuDefinition
- translateLabel: true
)
(MenuItem
label: '-'
@@ -7734,7 +7713,6 @@
enabled: hasOOMPackageLoadedHolder
label: 'Metrics Report'
itemValue: classMenuMetrics
- translateLabel: true
)
)
nil
@@ -7747,7 +7725,6 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Spawn'
- translateLabel: true
submenu:
(Menu
(
@@ -7755,51 +7732,42 @@
enabled: hasClassSelectedHolder
label: 'Buffer with Class(es)'
itemValue: classMenuSpawnClassesBuffer
- translateLabel: true
isVisible: isLintResultBrowserHolder
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Buffer with References to Class'
itemValue: classMenuSpawnBufferWithClassReferences
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Buffer with References to Class or Subclass'
itemValue: classMenuSpawnBufferWithClassOrSubclassReferences
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Buffer with Subclasses'
itemValue: classMenuSpawnBufferWithAllSubclasses
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Buffer with Superclasses'
itemValue: classMenuSpawnBufferWithAllSuperclasses
- translateLabel: true
)
(MenuItem
enabled: hasMultipleClassesSelectedHolder
label: 'Buffer with Common Superclass'
itemValue: classMenuSpawnBufferWithCommonSuperclass
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
- label: 'Buffer with Projects'
+ label: 'Buffer with Project(s)'
itemValue: classMenuSpawnBufferWithClassProjects
- translateLabel: true
- isVisible: false
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Buffer'
itemValue: classMenuSpawnClassBuffer
- translateLabel: true
isVisible: false
)
(MenuItem
@@ -7809,54 +7777,44 @@
enabled: hasClassSelectedHolder
label: 'Browser on Class(es)'
itemValue: classMenuSpawnClassesBuffer
- translateLabel: true
isVisible: isLintResultBrowserHolder
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Browser on References to Class'
itemValue: classMenuSpawnClassReferences
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Browser on References to Class or Subclass'
itemValue: classMenuSpawnClassOrSubclassReferences
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Browser on Subclasses'
itemValue: classMenuSpawnWithAllSubclasses
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Browser on Superclasses'
itemValue: classMenuSpawnWithAllSuperclasses
- translateLabel: true
)
(MenuItem
enabled: hasMultipleClassesSelectedHolder
label: 'Browser on Common Superclass'
itemValue: classMenuSpawnWithCommonSuperclass
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
- label: 'Browser on Projects'
+ label: 'Browser on Project(s)'
itemValue: classMenuSpawnClassProjects
- translateLabel: true
- isVisible: false
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Browser'
itemValue: classMenuSpawnClass
- translateLabel: true
isVisible: false
)
-
)
nil
nil
@@ -7865,7 +7823,6 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Find'
- translateLabel: true
isVisible: false
submenu:
(Menu
@@ -7874,7 +7831,6 @@
enabled: hasClassSelectedHolder
label: 'String...'
itemValue: classMenuFindString
- translateLabel: true
)
)
nil
@@ -7887,21 +7843,18 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Instance Variables'
- translateLabel: true
isVisible: hasNonMetaSelectedHolder
submenuChannel: classInstanceVariablesMenu
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Class Instance Variables'
- translateLabel: true
isVisible: hasMetaSelectedHolder
submenuChannel: classInstanceVariablesMenu
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Class Variables'
- translateLabel: true
submenuChannel: classClassVariablesMenu
)
(MenuItem
@@ -7909,13 +7862,11 @@
)
(MenuItem
label: 'New'
- translateLabel: true
submenu:
(Menu
(
(MenuItem
label: 'classNewSlice'
- translateLabel: true
submenuChannel: classNewSlice
isMenuSlice: true
)
@@ -7928,12 +7879,10 @@
enabled: hasSingleClassSelectedHolder
label: 'Copy...'
itemValue: classMenuCopyAs
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Move'
- translateLabel: true
submenu:
(Menu
(
@@ -7941,19 +7890,16 @@
enabled: hasNonPrivateClassSelected
label: 'To Category...'
itemValue: classMenuMoveToCategory
- translateLabel: true
)
(MenuItem
enabled: hasNonPrivateClassSelected
label: 'To Namespace...'
itemValue: classMenuMoveToNamespace
- translateLabel: true
)
(MenuItem
enabled: hasNonPrivateClassSelected
label: 'To Package...'
itemValue: classMenuMoveToProject
- translateLabel: true
)
(MenuItem
label: '-'
@@ -7962,19 +7908,16 @@
enabled: hasClassSelectedHolder
label: 'Make Private in...'
itemValue: classMenuMakePrivateIn
- translateLabel: true
)
(MenuItem
enabled: canMakePublicClass
label: 'Make Public'
itemValue: classMenuMakePublic
- translateLabel: true
)
(MenuItem
enabled: canMakePublicClass
label: 'Make Public in...'
itemValue: classMenuMakePublicIn
- translateLabel: true
)
(MenuItem
label: '-'
@@ -7984,14 +7927,12 @@
label: 'New Common Superclass with Children (Convert to Siblings)...'
itemValue: classMenuChildrenToSiblings
nameKey: convertToSibling
- translateLabel: true
)
(MenuItem
enabled: canInsertSuperclassHolder
label: 'New Common Superclass (Insert Superclass)...'
itemValue: classMenuInsertNewSuperclass
nameKey: insertSuperclass
- translateLabel: true
)
)
nil
@@ -8002,7 +7943,6 @@
enabled: hasSingleClassSelectedHolder
label: 'Rename...'
itemValue: classMenuRename
- translateLabel: true
shortcutKey: Rename
ignoreShortcutKeys: true
)
@@ -8010,13 +7950,11 @@
enabled: hasClassSelectedHolder
label: 'Safe Remove...'
itemValue: classMenuSaveRemove
- translateLabel: true
)
(MenuItem
enabled: hasClassSelectedHolder
label: 'Remove...'
itemValue: classMenuRemove
- translateLabel: true
shortcutKey: Delete
labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Remove...')
ignoreShortcutKeys: true
@@ -8027,7 +7965,6 @@
(MenuItem
enabled: hasClassSelectedHolder
label: 'Compare'
- translateLabel: true
submenu:
(Menu
(
@@ -8035,28 +7972,24 @@
enabled: hasClassSelectedAndSourceCodeManagerHolder
label: 'With Newest in Repository...'
itemValue: classMenuCompareAgainstNewestInRepository
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'With Original in Repository...'
itemValue: classMenuCompareAgainstOriginalInRepository
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasSingleClassSelectedAndSourceCodeManagerHolder
label: 'With Repository...'
itemValue: classMenuCompareWithRepository
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasSingleClassSelected
label: 'With File...'
itemValue: classMenuCompareWithFile
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
@@ -8065,7 +7998,6 @@
)
(MenuItem
label: 'With SmallTeam Version on Host'
- translateLabel: true
isVisible: smallTeamAvailable
submenuChannel: compareClassWithSmallTeamVersionMenu
)
@@ -8076,14 +8008,12 @@
enabled: hasSingleClassSelectedHolder
label: 'With Class...'
itemValue: classMenuCompareWithClass
- translateLabel: true
showBusyCursorWhilePerforming: true
)
(MenuItem
enabled: hasExactlyTwoClassesSelectedHolder
label: 'With each other'
itemValue: classMenuCompareTwoSelectedClasses
- translateLabel: true
showBusyCursorWhilePerforming: true
)
)
@@ -8093,25 +8023,21 @@
)
(MenuItem
label: 'Generate'
- translateLabel: true
submenuChannel: classGenerateMenu
keepLinkedMenu: true
)
(MenuItem
label: 'Static Analysis (Lint)'
- translateLabel: true
submenuChannel: classCheckMenu
labelImage: (ResourceRetriever ToolbarIconLibrary lint16x16Icon 'Static Analysis (Lint)')
)
(MenuItem
label: 'Debug'
- translateLabel: true
submenuChannel: classDebugMenu
keepLinkedMenu: true
)
(MenuItem
label: 'Special'
- translateLabel: true
submenuChannel: classSpecialMenu
keepLinkedMenu: true
)
@@ -8121,7 +8047,6 @@
(MenuItem
label: 'Search && Rewrite...'
itemValue: classMenuRewrite
- translateLabel: true
)
(MenuItem
label: '-'
@@ -8130,15 +8055,12 @@
(MenuItem
label: 'Update'
itemValue: classMenuUpdate
- translateLabel: true
isVisible: false
)
)
nil
nil
)
-
- "Modified: / 28-02-2012 / 08:57:35 / cg"
!
classNewHaskellClassSlice
@@ -40287,7 +40209,7 @@
forSpec:spec
setupWith:[:brwsr |
"/ setup for a constant list ...
-self halt.
+
brwsr projectListApp includedPseudoEntryForChanged:false.
brwsr immediateUpdate value:true.
@@ -57674,11 +57596,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1800 2012-10-23 19:01:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1801 2012-10-24 10:08:06 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1800 2012-10-23 19:01:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1801 2012-10-24 10:08:06 cg Exp $'
!
version_SVN