MCRepositoryBrowser.st
changeset 468 11afd0e38d2f
parent 463 8dee452fcd3e
child 472 bd20d42c186c
--- a/MCRepositoryBrowser.st	Mon Sep 05 15:57:30 2011 +0200
+++ b/MCRepositoryBrowser.st	Wed Sep 07 12:29:16 2011 +0200
@@ -308,13 +308,15 @@
         (
          (MenuItem
             enabled: packageSelectedAndOperatingSystemIsWindows
-            label: 'No Entry Yet'
+            label: 'No Menuentry Yet'
             translateLabel: true
           )
          )
         nil
         nil
       )
+
+    "Modified: / 07-09-2011 / 11:44:38 / cg"
 !
 
 repositoryListMenu
@@ -379,7 +381,7 @@
             translateLabel: true
           )
          (MenuItem
-            label: 'Load into package...'
+            label: 'Load into Package...'
             itemValue: versionLoadIntoPackage
             translateLabel: true
           )
@@ -393,7 +395,7 @@
             translateLabel: true
           )
          (MenuItem
-            label: 'Browse unloadable'
+            label: 'Browse Unloadable'
             itemValue: versionBrowseUnloadable
             translateLabel: true
           )
@@ -417,7 +419,7 @@
         nil
       )
 
-    "Modified: / 25-08-2011 / 08:48:36 / cg"
+    "Modified: / 07-09-2011 / 11:44:59 / cg"
 ! !
 
 !MCRepositoryBrowser methodsFor:'accessing'!
@@ -618,6 +620,26 @@
     "Created: / 31-08-2011 / 09:16:33 / cg"
 !
 
+showPackageInWinZip
+    | entry tempFile fileStream|
+
+    tempFile := Filename newTemporary withSuffix:'zip'.
+
+    entry :=  self selectedVersionHolder value.
+    entry repository
+        readStreamForFileNamed:entry name do:[:s |
+            fileStream := tempFile writeStream.
+            s reset.
+            s copyToEndInto:fileStream.
+            fileStream close.
+        ].
+
+    Win32OperatingSystem
+        openApplicationForDocument:tempFile operation:#open
+
+    "Created: / 07-09-2011 / 11:46:08 / cg"
+!
+
 versionBrowseUnloadable
 
      | version snapshot loader unloadables |
@@ -732,11 +754,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.7 2011-09-04 07:33:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.8 2011-09-07 10:29:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.7 2011-09-04 07:33:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.8 2011-09-07 10:29:16 cg Exp $'
 !
 
 version_SVN