added: #repositoryInspect
changed:
#repositoryListMenu
#updateVersionDetails
--- 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