fix a bug in PharoLauncherModel (asString -> string)
MODIFY
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/buildList..st
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/buildList..st
items creation
buildList: aString
| list |
+ self halt.
list := OrderedCollection new.
self listElement do:[ :each |
(each category asString = aString)
ifTrue: [ list add: (each name) asString ] ].
+ self halt.
^list sorted: [:a :b | a name < b name].
\ No newline at end of file

MODIFY
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/buildList.st
src/Pharo-Launcher-Core.package/PharoLauncherModel.class/instance/buildList.st
items creation
buildList
-
+ self halt.
^ self buildList: self category
\ 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
@@ -6,7 +6,7 @@ fetchOnlineImage: anURL
list := OrderedCollection new.
xmlDoc allElementsNamed: #template do: [:each |
list add: (PharoLauncherElement
- name: (each nodes elementAt: #name) nodes first asString
- url: (each nodes elementAt: #url) nodes first asString
- category: (each nodes elementAt: #category) nodes first asString )].
+ name: (each nodes elementAt: #name) nodes first string
+ url: (each nodes elementAt: #url) nodes first string
+ category: (each nodes elementAt: #category) nodes first string )].
^ list
\ No newline at end of file

fix a bug in PharoLauncherModel (asString -> string)