MCRepositoryBrowser.st
changeset 923 5e64988682fe
parent 921 dda5a9038a51
child 924 9e110e13d059
--- 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 $'
 ! !