added: #repositoryInspect
authorClaus Gittinger <cg@exept.de>
Fri, 25 Nov 2011 11:33:38 +0100
changeset 516 41006ee80f02
parent 515 c89e117f2158
child 517 6201502d98fb
added: #repositoryInspect changed: #repositoryListMenu #updateVersionDetails
MCRepositoryBrowser.st
--- a/MCRepositoryBrowser.st	Fri Nov 25 11:31:31 2011 +0100
+++ b/MCRepositoryBrowser.st	Fri Nov 25 11:33:38 2011 +0100
@@ -470,12 +470,20 @@
             itemValue: repositoryBrowseDirectory
             translateLabel: true
           )
+         (MenuItem
+            label: '-'
+          )
+         (MenuItem
+            label: 'Inspect'
+            itemValue: repositoryInspect
+            translateLabel: true
+          )
          )
         nil
         nil
       )
 
-    "Modified: / 07-09-2011 / 15:00:57 / cg"
+    "Modified: / 25-11-2011 / 11:32:44 / cg"
 !
 
 versionsMenu
@@ -810,6 +818,14 @@
     "Created: / 07-09-2011 / 15:02:21 / cg"
 !
 
+repositoryInspect
+    "for debugging"
+
+    self selectedRepositoryHolder value repository inspect
+
+    "Created: / 25-11-2011 / 11:33:09 / cg"
+!
+
 setTargetNamespace
     "specify an st/x namespace to be used as default"
 
@@ -994,7 +1010,7 @@
     versionEntry := self selectedVersion.
     versionEntry ifNil:[selectedVersionDetailsHolder value:'No version selected'. ^self].
     worker := 
-        [[selectedVersionDetailsHolder value:'Reading ' , versionEntry name.
+        [[selectedVersionDetailsHolder value:'Reading ',versionEntry name,'...'.
         version := versionEntry asMCVersion.
         version ifNotNil:
             [selectedVersionDetailsHolder value: version summary]] ensure:[worker := nil]] newProcess.
@@ -1002,16 +1018,17 @@
 
     "Created: / 17-09-2010 / 15:23:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 26-10-2010 / 22:08:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-11-2011 / 11:33:31 / cg"
 ! !
 
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.14 2011-09-07 18:25:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.15 2011-11-25 10:33:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.14 2011-09-07 18:25:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.15 2011-11-25 10:33:38 cg Exp $'
 !
 
 version_SVN