class: MCRepositoryBrowser
added:
#removeRepository:
#repositoryRemove
changed: #repositoryListMenu
--- a/MCRepositoryBrowser.st Sat Apr 12 15:07:01 2014 +0200
+++ b/MCRepositoryBrowser.st Sun May 18 11:07:27 2014 +0200
@@ -518,6 +518,11 @@
)
(MenuItem
enabled: hasRepositorySelectedHolder
+ label: 'Remove from List'
+ itemValue: repositoryRemove
+ )
+ (MenuItem
+ enabled: hasRepositorySelectedHolder
label: 'Flush Cache'
itemValue: repositoryFlushCache
)
@@ -917,6 +922,11 @@
"Created: / 05-05-2012 / 19:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+removeRepository:rep
+ MCRepositoryGroup default removeRepository:rep.
+ self repositoriesHolder value:(MCRepositoryGroup default repositories)
+!
+
repositoryAdd
|repStr rep url initialURL|
@@ -1039,6 +1049,17 @@
"Created: / 25-11-2011 / 11:33:09 / cg"
!
+repositoryRemove
+ |entry rep|
+
+ entry := self selectedRepositoryHolder value.
+ entry isNil ifTrue:[^ self].
+ rep := entry repository.
+ self withWaitCursorDo:[
+ self removeRepository:rep
+ ].
+!
+
saveMCZFileAs
|entry fn|
@@ -1280,15 +1301,15 @@
!MCRepositoryBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.33 2014-04-12 12:33:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.34 2014-05-18 09:07:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.33 2014-04-12 12:33:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.34 2014-05-18 09:07:27 cg Exp $'
!
version_SVN
- ^ '$Id: MCRepositoryBrowser.st,v 1.33 2014-04-12 12:33:00 cg Exp $'
+ ^ '$Id: MCRepositoryBrowser.st,v 1.34 2014-05-18 09:07:27 cg Exp $'
! !