equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
2 |
2 |
3 ApplicationModel subclass:#MCRepositoryBrowser |
3 ApplicationModel subclass:#MCRepositoryBrowser |
4 instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder |
4 instanceVariableNames:'repositoriesHolder packagesHolder versionsHolder |
5 selectedVersionHolder worker selectedVersionDetailsHolder |
5 selectedVersionHolder worker selectedVersionDetailsHolder |
6 selectedRepositoryHolder targetPackage targetNamespace |
6 selectedRepositoryHolder targetPackage targetNamespace |
7 lastPackage targetPackageHolder targetNamespaceNameHolder |
7 lastPackage targetPackageHolder targetNamespaceNameHolder |
8 updateChangefileHolder selectedPackageHolder' |
8 updateChangefileHolder selectedPackageHolder' |
9 classVariableNames:'LastAddedRepository' |
9 classVariableNames:'LastAddedRepository' |
10 poolDictionaries:'' |
10 poolDictionaries:'' |
11 category:'SCM-Monticello-St/X UI' |
11 category:'SCM-Monticello-St/X UI' |
12 ! |
12 ! |
13 |
13 |
14 |
14 |
15 !MCRepositoryBrowser class methodsFor:'initialization'! |
15 !MCRepositoryBrowser class methodsFor:'initialization'! |
16 |
16 |
914 |
914 |
915 "Created: / 05-05-2012 / 19:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
915 "Created: / 05-05-2012 / 19:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
916 ! |
916 ! |
917 |
917 |
918 repositoryAdd |
918 repositoryAdd |
919 |repStr rep url| |
919 |repStr rep url initialURL| |
920 |
920 |
|
921 initialURL := 'http://www.squeaksource.com/project'. |
921 repStr := Dialog |
922 repStr := Dialog |
922 request:'Repository to add (file- or HTTP-URL):' |
923 request:'Repository to add (file- or HTTP-URL):' |
923 initialAnswer:'http://www.squeaksource.com/project'. |
924 initialAnswer:initialURL |
|
925 initialSelection:((initialURL findString:'project') to:(initialURL size)). |
|
926 |
924 repStr isEmptyOrNil ifTrue:[^ self]. |
927 repStr isEmptyOrNil ifTrue:[^ self]. |
925 |
928 |
926 Error handle:[:ex | |
929 Error handle:[:ex | |
927 Dialog warn:'Invalid URL (',ex description,')'. |
930 Dialog warn:'Invalid URL (',ex description,')'. |
928 ^ self |
931 ^ self |
1226 ! ! |
1229 ! ! |
1227 |
1230 |
1228 !MCRepositoryBrowser class methodsFor:'documentation'! |
1231 !MCRepositoryBrowser class methodsFor:'documentation'! |
1229 |
1232 |
1230 version |
1233 version |
1231 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $' |
1234 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.28 2013-04-15 07:10:59 cg Exp $' |
1232 ! |
1235 ! |
1233 |
1236 |
1234 version_CVS |
1237 version_CVS |
1235 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.27 2013-04-03 21:48:08 cg Exp $' |
1238 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.28 2013-04-15 07:10:59 cg Exp $' |
1236 ! |
1239 ! |
1237 |
1240 |
1238 version_SVN |
1241 version_SVN |
1239 ^ '§Id: MCRepositoryBrowser.st 34 2011-08-04 21:44:46Z vranyj1 §' |
1242 ^ '§Id: MCRepositoryBrowser.st 34 2011-08-04 21:44:46Z vranyj1 §' |
1240 ! ! |
1243 ! ! |