Refactor a bit.
Fix bug
MODIFY
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/class/category..st
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/class/category..st
@@ -2,4 +2,4 @@ instance creation
category: aString
"Default directory where a .xml should be there"
^ self category: aString
- url: 'https://gitorious.org/pharo-build/pharo-build/blobs/raw/master/pharo-templates/template.xml'
\ No newline at end of file
+ url: 'http://files.pharo.org/templates/template.xml'
\ No newline at end of file

MODIFY
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/fetchOnlineImage.st
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/fetchOnlineImage.st
items creation
fetchOnlineImage
- self listElement: OrderedCollection new.
self listElement addAll: (self fetchOnlineImage: self url)
\ No newline at end of file

ADD
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/initialize.st
+initialize-release
+initialize
+ super initialize.
+ self listElement: OrderedCollection new.
\ No newline at end of file

MODIFY
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/listElement.st
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/listElement.st
accessing
listElement
+
^ listElement
\ No newline at end of file

MODIFY
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/userChoiceName..st
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/userChoiceName..st
@@ -10,7 +10,7 @@ userChoiceName: anElement
World openModal: widget openDialogWithSpec window.
(widget value contents asString = '')
- ifTrue: [ self userChoiceName: anElement ]
+ ifTrue: [ ^ self userChoiceName: anElement ]
ifFalse: [
self rename: (self tmpDirectory: anElement) to: widget value contents asString.
self move: (widget value contents asString, '.image') from: (self tmpDirectory: anElement) to: self imageDirectory pathString.

DELETE
src/Pharo-Launcher-Core.package/PharoLauncherModelExistingImage.class/class/category.url..st
-as yet unclassified
-category: aString url: anURL
- ^ self new
- url: anURL;
- yourself;
- category: aString;
- yourself;
- fetchOnlineImage.
\ No newline at end of file

Refactor a bit. 
Fix bug