Closed Ducasse closed 2 months ago
I would be probably good to have a separate class for the class side method and call it IconLoader and ThemeIcons (could be renamed IconPac)
uiFetchPacks
| choosenPacks remotePacks |
UIManager default
informUser: 'Retrieving available packs from remote repository'
during: [ remotePacks := self fetchPacks ].
choosenPacks := (TickDialogWindow
itemsList: remotePacks
itemsHeaderName: nil
wrapBlockOrSelector: #name
title: 'Remote available icon packs')
chooseFromOwner: self currentWorld.
choosenPacks ifNil: [ ^ self ].
UIManager default informUserDuring: [ :bar |
choosenPacks do: [ :each |
bar label: 'Retrieving "', each name, '" icon set from remote repository'.
each downloadFromUrl ]]
So either we have a little presenter for this or we just remove it!
Smalltalk ui theme and UIManager default should be factored out.