--- a/MCRepositoryBrowser.st Wed Apr 03 23:48:08 2013 +0200
+++ b/MCRepositoryBrowser.st Mon Apr 15 09:10:59 2013 +0200
@@ -1,14 +1,14 @@
"{ Package: 'stx:goodies/monticello' }"
ApplicationModel subclass:#MCRepositoryBrowser
- instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
- selectedVersionHolder worker selectedVersionDetailsHolder
- selectedRepositoryHolder targetPackage targetNamespace
- lastPackage targetPackageHolder targetNamespaceNameHolder
- updateChangefileHolder selectedPackageHolder'
- classVariableNames:'LastAddedRepository'
- poolDictionaries:''
- category:'SCM-Monticello-St/X UI'
+ instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder
+ selectedVersionHolder worker selectedVersionDetailsHolder
+ selectedRepositoryHolder targetPackage targetNamespace
+ lastPackage targetPackageHolder targetNamespaceNameHolder
+ updateChangefileHolder selectedPackageHolder'
+ classVariableNames:'LastAddedRepository'
+ poolDictionaries:''
+ category:'SCM-Monticello-St/X UI'
!
@@ -916,11 +916,14 @@
!
repositoryAdd
- |repStr rep url|
+ |repStr rep url initialURL|
+ initialURL := 'http://www.squeaksource.com/project'.
repStr := Dialog
- request:'Repository to add (file- or HTTP-URL):'
- initialAnswer:'http://www.squeaksource.com/project'.
+ request:'Repository to add (file- or HTTP-URL):'
+ initialAnswer:initialURL
+ initialSelection:((initialURL findString:'project') to:(initialURL size)).
+
repStr isEmptyOrNil ifTrue:[^ self].
Error handle:[:ex |
@@ -1228,11 +1231,11 @@
!MCRepositoryBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.28 2013-04-15 07:10:59 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.28 2013-04-15 07:10:59 cg Exp $'
!
version_SVN