Tools__NewSystemBrowser.st
changeset 10948 bc8deabfed2e
parent 10946 179fab48c9b6
child 10949 a0b0b9f4d48b
--- a/Tools__NewSystemBrowser.st	Thu Dec 01 21:36:03 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Dec 01 21:49:46 2011 +0100
@@ -14,38 +14,38 @@
 "{ NameSpace: Tools }"
 
 SystemBrowser subclass:#NewSystemBrowser
-	instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
-		bufferUsageOrder browserCanvas immediateUpdate showClassPackages
-		lastMethodCategory lastMethodMoveClass browserCanvasType
-		syntaxColoringProcessRunning syntaxColoringProcess
-		methodInfoProcess browsletShowHideLabelHolder browserPageCanvas'
-	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
-		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
-		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
-		LastSearchPatterns LastClassFilterBlockString
-		LastMethodFilterBlockString LastBreakPointConditionString
-		LastIndividualChecks LastAcceptPackage LastVariableRenames
-		LastVisitorClassName LastTemporaryVariableName BookMarks
-		FindHistory CheckForInstancesWhenRemovingClasses
-		SynchronousUpdate DoubleClickIsOpenBrowser
-		ShowMethodTemplateWhenProtocolIsSelected
-		DefaultShowMethodTemplate DefaultShowMethodInheritance
-		DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
-		DefaultImmediateExplaining DefaultSyntaxColoring
-		DefaultToolBarVisible DefaultCodeInfoVisible
-		DefaultShortNameInTabs DefaultHideUnloadedClasses
-		DefaultMarkApplications DefaultAutoFormat
-		DefaultShowMethodComplexity DefaultShowMethodTypeIcon
-		DefaultShowSpecialResourceEditors SharedMethodCategoryCache
-		LastMethodProcessingBlockString LastLoadedPackages
-		DefaultShortAllClassesInNameSpaceOrganisation LastTag
-		LastBaseVersionTag DefaultShowPseudoProtocols
-		DefaultShowMultitabMode LastRenamedOld LastRenamedNew
-		LastImportedPackage LastLintRules NewNavigationHistory
-		DefaultSortByNameAndInheritance LastLiteralReplacementType
-		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral'
-	poolDictionaries:''
-	category:'Interface-Browsers-New'
+        instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
+                bufferUsageOrder browserCanvas immediateUpdate showClassPackages
+                lastMethodCategory lastMethodMoveClass browserCanvasType
+                syntaxColoringProcessRunning syntaxColoringProcess
+                methodInfoProcess browsletShowHideLabelHolder browserPageCanvas'
+        classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
+                LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
+                LastNameSpaceMove LastMethodMoveOrCopyTargetClass
+                LastSearchPatterns LastClassFilterBlockString
+                LastMethodFilterBlockString LastBreakPointConditionString
+                LastIndividualChecks LastAcceptPackage LastVariableRenames
+                LastVisitorClassName LastTemporaryVariableName BookMarks
+                FindHistory CheckForInstancesWhenRemovingClasses
+                SynchronousUpdate DoubleClickIsOpenBrowser
+                ShowMethodTemplateWhenProtocolIsSelected
+                DefaultShowMethodTemplate DefaultShowMethodInheritance
+                DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
+                DefaultImmediateExplaining DefaultSyntaxColoring
+                DefaultToolBarVisible DefaultCodeInfoVisible
+                DefaultShortNameInTabs DefaultHideUnloadedClasses
+                DefaultMarkApplications DefaultAutoFormat
+                DefaultShowMethodComplexity DefaultShowMethodTypeIcon
+                DefaultShowSpecialResourceEditors SharedMethodCategoryCache
+                LastMethodProcessingBlockString LastLoadedPackages
+                DefaultShortAllClassesInNameSpaceOrganisation LastTag
+                LastBaseVersionTag DefaultShowPseudoProtocols
+                DefaultShowMultitabMode LastRenamedOld LastRenamedNew
+                LastImportedPackage LastLintRules NewNavigationHistory
+                DefaultSortByNameAndInheritance LastLiteralReplacementType
+                LastLiteralReplacementNewName LastLiteralReplacementOldLiteral'
+        poolDictionaries:''
+        category:'Interface-Browsers-New'
 !
 
 !NewSystemBrowser class methodsFor:'documentation'!
@@ -15186,6 +15186,51 @@
     "Modified: / 29-09-2006 / 16:11:08 / cg"
 ! !
 
+!NewSystemBrowser class methodsFor:'menu specs-monticello'!
+
+projectMonticelloMenu
+    "This resource specification was automatically generated
+     by the MenuEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the MenuEditor may not be able to read the specification."
+
+
+    "
+     MenuEditor new openOnClass:Tools::NewSystemBrowser andSelector:#projectMonticelloMenu
+     (Menu new fromLiteralArrayEncoding:(Tools::NewSystemBrowser projectMonticelloMenu)) startUp
+    "
+
+    <resource: #menu>
+
+    ^ 
+     #(Menu
+        (
+         (MenuItem
+            label: 'CheckIn (Commit)...'
+            itemValue: projectMenuMonticelloCommit
+            translateLabel: true
+          )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            itemValue: projectMenuMonticelloBrowseRepositories
+            label: 'Repository Browser'
+            translateLabel: true
+          )
+         (MenuItem
+            enabled: false
+            label: 'Not yet finished...'
+            translateLabel: true
+          )
+         )
+        nil
+        nil
+      )
+
+    "Modified: / 01-12-2011 / 21:46:56 / cg"
+! !
 
 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
@@ -34219,7 +34264,6 @@
     ^ brwsr
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -37320,6 +37364,14 @@
     "Modified: / 23-10-2006 / 11:01:42 / cg"
 ! !
 
+!NewSystemBrowser methodsFor:'menu actions-project-monticello'!
+
+projectMenuMonticelloBrowseRepositories
+    MCRepositoryBrowser open.
+
+    "Created: / 01-12-2011 / 21:47:24 / cg"
+! !
+
 !NewSystemBrowser methodsFor:'menu actions-protocol'!
 
 doMoveSelectedProtocolsToProject:newProject
@@ -54628,11 +54680,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1663 2011-12-01 20:30:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1664 2011-12-01 20:49:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1663 2011-12-01 20:30:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1664 2011-12-01 20:49:46 cg Exp $'
 !
 
 version_SVN