--- 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