--- a/Tools__NewSystemBrowser.st	Sun Dec 04 15:46:15 2011 +0100
+++ b/Tools__NewSystemBrowser.st	Sun Dec 04 15:47:45 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
@@ -37323,9 +37367,16 @@
 !NewSystemBrowser methodsFor:'menu actions-project-monticello'!
 
 projectMenuMonticelloBrowseRepositories
-    MCRepositoryBrowser open.
+    MCRepositoryBrowser openOnPrimaryRepositoryForPackage:(self theSingleSelectedProject).
 
     "Created: / 01-12-2011 / 21:47:24 / cg"
+!
+
+projectMenuMonticelloCommit
+    MCSourceCodeManager checkinPackage:(self theSingleSelectedProject)
+
+    "Created: / 14-09-2010 / 22:54:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-12-2011 / 14:43:16 / cg"
 ! !
 
 !NewSystemBrowser methodsFor:'menu actions-protocol'!
@@ -54637,11 +54688,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1665 2011-12-03 21:12:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1666 2011-12-04 14:47:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1665 2011-12-03 21:12:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1666 2011-12-04 14:47:45 cg Exp $'
 !
 
 version_SVN