basic stuff is working
ADD
src/Image-Launcher.package/ImageLauncherButtonToolBar.class/instance/loadingModel..st
+initialization
+loadingModel: aString
+
+ self primaryUI loadModel: aString
+

MODIFY
src/Image-Launcher.package/ImageLauncherButtonToolBar.class/instance/setLoadingModel..st
src/Image-Launcher.package/ImageLauncherButtonToolBar.class/instance/setLoadingModel..st
@@ -4,5 +4,5 @@ setLoadingModel: aString
loadingButtonModel
state: false;
label: 'Loading ', aString;
- action: [ self refreshModel ].
+ action: [ self loadingModel: aString ].

MODIFY
src/Image-Launcher.package/ImageLauncherModel.class/class/initialize.st
src/Image-Launcher.package/ImageLauncherModel.class/class/initialize.st
instance creation
initialize
^ self new
- url: 'https://gitorious.org/pharo-build/pharo-build/blobs/raw/aebcfb9a214ed8aab98c3c944828dd7786eabf21/pharo-templates/template.xml';
+ url: 'https://gitorious.org/pharo-build/pharo-build/blobs/raw/master/pharo-templates/template.xml';
fetchOnlineImage.
\ No newline at end of file

ADD
src/Image-Launcher.package/ImageLauncherModel.class/instance/load..st
+runnnig
+load: aString
+ self listElement do: [ :each | Transcript cr; show: aString, '- ', each name asString.(each name asString = aString) ifTrue: [ self loadAndRun: each ] ].
\ No newline at end of file

ADD
src/Image-Launcher.package/ImageLauncherModel.class/instance/loadAndRun..st
+runnnig
+loadAndRun: anElement
+ self download: anElement url asString.
+ self unzip: anElement url asString asZnUrl lastPathSegment .
+ self run: anElement name asString, '.image'.
\ No newline at end of file

DELETE
src/Image-Launcher.package/ImageLauncherModel.class/instance/loadAndRun.st
-runnnig
-loadAndRun
- self download: (self listElement at: self listModel selectedItem).
- self unzip: (self listModel selectedItem).
\ No newline at end of file

ADD
src/Image-Launcher.package/ImageLauncherModel.class/instance/run..st
+runnnig
+run: anElement
+ self halt.
+ OSProcess command:
+ (Smalltalk vm fullPath asString,
+ ' ',
+ FileSystem disk workingDirectory pathString,
+ '\',
+ anElement asString).
\ No newline at end of file

MODIFY
src/Image-Launcher.package/ImageLauncherModel.class/instance/unzip..st
src/Image-Launcher.package/ImageLauncherModel.class/instance/unzip..st
unzipping
-unzip: anURL
-
- GZipReadStream
- saveContents: (FileSystem disk workingDirectory/ anURL, 'zip' ) fullName.
\ No newline at end of file
+unzip: aFileName
+ ZipArchive
+ extractAllIn: (FileSystem disk workingDirectory/ aFileName) fullName.
\ No newline at end of file

ADD
src/Image-Launcher.package/ImageLauncherUI.class/instance/loadModel..st
+accessing
+loadModel: aString
+ self model load: aString
\ No newline at end of file

basic stuff is working