April 2015 - Pharo-users - lists.pharo.org

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by kilon alios

actually i was wrong its not that large, only 34kbs , I have also attached it if you want to take a look at it. On Sat, Apr 4, 2015 at 3:41 PM, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > createIconsFromDirectory seems to see only the first png, maybe because >> its too large >> > how large? > > createIconFromFile gives me a MNU >> > it accepts a FileReference, not a string; I should put guard there. > > Peter >

April 4, 2015

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by Peter UhnÃ¡k

Also if it really sees only the first file, try dir allFiles select: [ :each | each extension = 'png' ], because that would mean FileSystem is failing or something. Peter On Sat, Apr 4, 2015 at 2:41 PM, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > createIconsFromDirectory seems to see only the first png, maybe because >> its too large >> > how large? > > createIconFromFile gives me a MNU >> > it accepts a FileReference, not a string; I should put guard there. > > Peter >

April 4, 2015

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by Peter UhnÃ¡k

> > createIconsFromDirectory seems to see only the first png, maybe because > its too large > how large? createIconFromFile gives me a MNU > it accepts a FileReference, not a string; I should put guard there. Peter

April 4, 2015

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by kilon alios

yes thats better , install works, first step works too. createIconsFromDirectory seems to see only the first png, maybe because its too large. createIconFromFile gives me a MNU: ByteString >> base [1]. Why those methods are not on the class side ? [1]ByteString(Object)>>doesNotUnderstand: #base IconFactory>>createIconFromFile:inClass: UndefinedObject>>DoIt OpalCompiler>>evaluate SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [ textMorph editor evaluateSelection ] in PluggableTextMorph>>doIt in Block: [ textMorph editor evaluateSelection ] [ result := editBlock value ] in PluggableTextMorph>>handleEdit: in Block: [ result := editBlock value ] TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt Workspace(Object)>>perform:orSendTo: [ | selArgCount | "show cursor in case item opens a new MVC window" (selArgCount := selector numArgs) = 0 ifTrue: [ target perform: selector ] ifFalse: [ selArgCount = arguments size ifTrue: [ target perform: selector withArguments: arguments ] ifFalse: [ target perform: selector withArguments: (arguments copyWith: evt) ] ]. self changed ] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: in Block: [ ... BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>handleMouseUp: MouseButtonEvent>>sentTo: [ ^ anEvent sentTo: self ] in MorphicEventDispatcher>>dispatchEvent:with: in Block: [ ^ anEvent sentTo: self ] BlockClosure>>ensure: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>handleMouseUp: MouseButtonEvent>>sentTo:

April 4, 2015

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by Sean P. DeNigris

Peter UhnÃ¡k wrote > it accepts a FileReference, not a string; I should put guard there. Or it seems cheap enough to just send #asFileReference to give the user a bit of flexibility ----- Cheers, Sean -- View this message in context: http://forum.world.st/IconFactory-utility-for-creating-icons-in-Pharo-tp481… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

April 4, 2015

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by Peter UhnÃ¡k

That's strange :< try this please Gofer new smalltalkhubUser: 'peteruhnak' project: 'IconFactory'; package: 'IconFactory'; load. In the meantime I'll be fixing the configuration... but it should be ok. :/ Peter On Sat, Apr 4, 2015 at 2:00 PM, kilon alios <kilon.alios(a)gmail.com> wrote: > Tried your install instructions but give me an error[1] about being unable > to resolve IconFactory , tries to look inside my package-cache of my image > (pharo 4 - 40591 -MACOSX 10). > > Interesting tool, out of coincidence I am also working with icons but in > my cases its SVG icons using Bloc . > > [1] > > MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>retryingResolvePackageSpecReferences:gofer: > linearLoadPackageSpec: packageSpec gofer: gofer > MetacelloPlatform current > do: [ > | references nearestReference cachedReference > externalReference mcVersion loadedVersionInfos | > "check to see if mcz file is already in cacheRepository" > cachedReference := self resolvePackageSpec: packageSpec > cachedGofer: self loaderPolicy cacheGofer. > (cachedReference ~~ nil and: [ packageSpec getFile ~~ nil ]) > ifTrue: [ > cachedReference name = packageSpec file > ifTrue: [ > "exact match between packageSpec file and > cache" > ^ self scheduleFetchFor: packageSpec > cachedReference: cachedReference ] ]. "look up mcz file" > references := self retryingResolvePackageSpecReferences: > packageSpec gofer: gofer. > nearestReference := references last > asMetacelloCachingResolvedReference. "If the mcz is already in the > cacheRepository, no need to copy" > (cachedReference ~~ nil and: [ cachedReference name = > nearestReference name ]) > ifTrue: [ > "latest reference in repository matches > cachedReference ... " > ^ self scheduleFetchFor: packageSpec nearestReference: > nearestReference ]. "If the mcz is already loaded into the image, no > need to copy" > (self ignoreImage not and: [ (loadedVersionInfos := self > ancestorsFor: packageSpec) ~~ nil ]) > ifTrue: [ > loadedVersionInfos > do: [ :info | > info name = nearestReference name > ifTrue: [ ^ self ] ] ]. > externalReference := (references select: [ :ref | ref name = > nearestReference name ]) first > asMetacelloCachingResolvedReference. > self repositoryMap at: externalReference name put: > externalReference repository. > (self > resolveDependencies: externalReference > nearest: nearestReference > into: (OrderedCollection with: nearestReference)) > do: [ :reference | > | pSpec l | > mcVersion := reference version. > (l := (GoferVersionReference name: reference name) > resolveAllWith: self loaderPolicy cacheGofer) isEmpty > ifTrue: [ > self cacheRepository storeVersion: mcVersion. > reference == nearestReference > ifTrue: [ pSpec := packageSpec ] > ifFalse: [ > pSpec := packageSpec project > packageSpec. > pSpec name: mcVersion package name ]. > self loadData > addVersion: mcVersion > versionInfo: mcVersion info > resolvedReference: reference > packageSpec: pSpec ] ]. > self scheduleFetchFor: packageSpec externalReference: > externalReference ] > displaying: 'Fetching ' , packageSpec file in > MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: in Block: > linearLoadPackageSpec: packageSpec gofer: gofer... > MetacelloPharo30Platform(MetacelloPlatform)>>do:displaying: > MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: > MetacelloPackageSpec>>loadUsing:gofer: > [ :pkg | pkg loadUsing: self gofer: gofer ] in > MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: > in Block: [ :pkg | pkg loadUsing: self gofer: gofer ] > OrderedCollection>>do: > > MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: > [ super linearLoadPackageSpecs: packageSpecs repositories: repositories ] > in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: in > Block: [ super linearLoadPackageSpecs: packageSpecs repos...etc... > BlockClosure>>ensure: > MetacelloLoaderPolicy>>pushLoadDirective:during: > MetacelloLoaderPolicy>>pushLinearLoadDirectivesDuring:for: > MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: > MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load > MetacelloMCVersionSpecLoader>>load > MetacelloMCVersion>>executeLoadFromArray: > [ :dict | ^ self executeLoadFromArray: anArray ] in [ > self versionSpec loader: newLoader. > MetacelloPlatform current > useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] > defaultDictionary: Dictionary new ] in [ > [ > self versionSpec loader: newLoader. > MetacelloPlatform current > useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] > defaultDictionary: Dictionary new ] > ensure: [ self versionSpec loader: originalLoader ] ] in > MetacelloMCVersion>>fetchRequiredFromArray: in Block: [ :dict | ^ self > executeLoadFromArray: anArray ] > [ ^ aBlock value: dict ] in > MetacelloPharo30Platform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: > in Block: [ ^ aBlock value: dict ] > BlockClosure>>on:do: > > MetacelloPharo30Platform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: > [ > self versionSpec loader: newLoader. > MetacelloPlatform current > useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] > defaultDictionary: Dictionary new ] in [ > [ > self versionSpec loader: newLoader. > MetacelloPlatform current > useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] > defaultDictionary: Dictionary new ] > ensure: [ self versionSpec loader: originalLoader ] ] in > MetacelloMCVersion>>fetchRequiredFromArray: in Block: [ ... > BlockClosure>>ensure: > [ > [ > self versionSpec loader: newLoader. > MetacelloPlatform current > useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] > defaultDictionary: Dictionary new ] > ensure: [ self versionSpec loader: originalLoader ] ] in > MetacelloMCVersion>>fetchRequiredFromArray: in Block: [ ... > MetacelloPharo30Platform(MetacelloPlatform)>>do:displaying: > MetacelloMCVersion>>fetchRequiredFromArray: > [ > | fetchLoader | > fetchLoader := self fetchRequiredFromArray: (self > defaultPackageNamesToLoad: anArray). > MetacelloPlatform current do: [ fetchLoader doLoad ] displaying: 'Loading > ' , displayString. > Transcript > cr; > show: '...finished ' , self versionNumber printString. > ^ fetchLoader ] in MetacelloMCVersion>>doLoadRequiredFromArray: in Block: > [ ... > BlockClosure>>ensure: > MetacelloMCVersion>>doLoadRequiredFromArray: > MetacelloMCVersion>>load > GoferMetacelloLoad>>loadConfiguration > > > On Sat, Apr 4, 2015 at 2:50 PM, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > >> Hi, >> >> since I've been making new icons lately for my project I was frustrated >> with constantly copying code and methods around... so I've made a small >> utility for it >> >> http://smalltalkhub.com/#!/~peteruhnak/IconFactory >> >> >> â >> >> on top of creating the icons it can add extra stuff like GTInspector >> support. >> >> Any feedback appreciated. >> >> Peter >> > >

April 4, 2015

Re: [Pharo-users] IconFactory - utility for creating icons in Pharo

by kilon alios

Tried your install instructions but give me an error[1] about being unable to resolve IconFactory , tries to look inside my package-cache of my image (pharo 4 - 40591 -MACOSX 10). Interesting tool, out of coincidence I am also working with icons but in my cases its SVG icons using Bloc . [1] MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>retryingResolvePackageSpecReferences:gofer: linearLoadPackageSpec: packageSpec gofer: gofer MetacelloPlatform current do: [ | references nearestReference cachedReference externalReference mcVersion loadedVersionInfos | "check to see if mcz file is already in cacheRepository" cachedReference := self resolvePackageSpec: packageSpec cachedGofer: self loaderPolicy cacheGofer. (cachedReference ~~ nil and: [ packageSpec getFile ~~ nil ]) ifTrue: [ cachedReference name = packageSpec file ifTrue: [ "exact match between packageSpec file and cache" ^ self scheduleFetchFor: packageSpec cachedReference: cachedReference ] ]. "look up mcz file" references := self retryingResolvePackageSpecReferences: packageSpec gofer: gofer. nearestReference := references last asMetacelloCachingResolvedReference. "If the mcz is already in the cacheRepository, no need to copy" (cachedReference ~~ nil and: [ cachedReference name = nearestReference name ]) ifTrue: [ "latest reference in repository matches cachedReference ... " ^ self scheduleFetchFor: packageSpec nearestReference: nearestReference ]. "If the mcz is already loaded into the image, no need to copy" (self ignoreImage not and: [ (loadedVersionInfos := self ancestorsFor: packageSpec) ~~ nil ]) ifTrue: [ loadedVersionInfos do: [ :info | info name = nearestReference name ifTrue: [ ^ self ] ] ]. externalReference := (references select: [ :ref | ref name = nearestReference name ]) first asMetacelloCachingResolvedReference. self repositoryMap at: externalReference name put: externalReference repository. (self resolveDependencies: externalReference nearest: nearestReference into: (OrderedCollection with: nearestReference)) do: [ :reference | | pSpec l | mcVersion := reference version. (l := (GoferVersionReference name: reference name) resolveAllWith: self loaderPolicy cacheGofer) isEmpty ifTrue: [ self cacheRepository storeVersion: mcVersion. reference == nearestReference ifTrue: [ pSpec := packageSpec ] ifFalse: [ pSpec := packageSpec project packageSpec. pSpec name: mcVersion package name ]. self loadData addVersion: mcVersion versionInfo: mcVersion info resolvedReference: reference packageSpec: pSpec ] ]. self scheduleFetchFor: packageSpec externalReference: externalReference ] displaying: 'Fetching ' , packageSpec file in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: in Block: linearLoadPackageSpec: packageSpec gofer: gofer... MetacelloPharo30Platform(MetacelloPlatform)>>do:displaying: MetacelloFetchingMCSpecLoader>>linearLoadPackageSpec:gofer: MetacelloPackageSpec>>loadUsing:gofer: [ :pkg | pkg loadUsing: self gofer: gofer ] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: in Block: [ :pkg | pkg loadUsing: self gofer: gofer ] OrderedCollection>>do: MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: [ super linearLoadPackageSpecs: packageSpecs repositories: repositories ] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: in Block: [ super linearLoadPackageSpecs: packageSpecs repos...etc... BlockClosure>>ensure: MetacelloLoaderPolicy>>pushLoadDirective:during: MetacelloLoaderPolicy>>pushLinearLoadDirectivesDuring:for: MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load MetacelloMCVersionSpecLoader>>load MetacelloMCVersion>>executeLoadFromArray: [ :dict | ^ self executeLoadFromArray: anArray ] in [ self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] defaultDictionary: Dictionary new ] in [ [ self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] defaultDictionary: Dictionary new ] ensure: [ self versionSpec loader: originalLoader ] ] in MetacelloMCVersion>>fetchRequiredFromArray: in Block: [ :dict | ^ self executeLoadFromArray: anArray ] [ ^ aBlock value: dict ] in MetacelloPharo30Platform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: in Block: [ ^ aBlock value: dict ] BlockClosure>>on:do: MetacelloPharo30Platform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: [ self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] defaultDictionary: Dictionary new ] in [ [ self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] defaultDictionary: Dictionary new ] ensure: [ self versionSpec loader: originalLoader ] ] in MetacelloMCVersion>>fetchRequiredFromArray: in Block: [ ... BlockClosure>>ensure: [ [ self versionSpec loader: newLoader. MetacelloPlatform current useStackCacheDuring: [ :dict | ^ self executeLoadFromArray: anArray ] defaultDictionary: Dictionary new ] ensure: [ self versionSpec loader: originalLoader ] ] in MetacelloMCVersion>>fetchRequiredFromArray: in Block: [ ... MetacelloPharo30Platform(MetacelloPlatform)>>do:displaying: MetacelloMCVersion>>fetchRequiredFromArray: [ | fetchLoader | fetchLoader := self fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray). MetacelloPlatform current do: [ fetchLoader doLoad ] displaying: 'Loading ' , displayString. Transcript cr; show: '...finished ' , self versionNumber printString. ^ fetchLoader ] in MetacelloMCVersion>>doLoadRequiredFromArray: in Block: [ ... BlockClosure>>ensure: MetacelloMCVersion>>doLoadRequiredFromArray: MetacelloMCVersion>>load GoferMetacelloLoad>>loadConfiguration On Sat, Apr 4, 2015 at 2:50 PM, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > Hi, > > since I've been making new icons lately for my project I was frustrated > with constantly copying code and methods around... so I've made a small > utility for it > > http://smalltalkhub.com/#!/~peteruhnak/IconFactory > > > â > > on top of creating the icons it can add extra stuff like GTInspector > support. > > Any feedback appreciated. > > Peter >

April 4, 2015

IconFactory - utility for creating icons in Pharo

by Peter UhnÃ¡k

Hi, since I've been making new icons lately for my project I was frustrated with constantly copying code and methods around... so I've made a small utility for it http://smalltalkhub.com/#!/~peteruhnak/IconFactory â on top of creating the icons it can add extra stuff like GTInspector support. Any feedback appreciated. Peter

April 4, 2015

Re: [Pharo-users] how to properly create icons

by Peter UhnÃ¡k

Thanks Esteban! Peter On Sat, Apr 4, 2015 at 9:29 AM, Esteban Lorenzano <estebanlm(a)gmail.com> wrote: > > On 04 Apr 2015, at 09:14, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > > Hi, > > I've been using using ThemeIcons>>createIconMethodsFromFile:directory: > method to create my own icons, however there are some reported problems > https://pharo.fogbugz.com/f/cases/15277/some-icons-from-ThemeIcons-are-brok… > with the code it generates. > > this is the right way and issue 15277 does not have anything to do with > it. > > > My questions are: > 1) what exactly is the problem with the generated code? > > none. > > 2) what would then be the correct way to generate it? > > as pointed. > > > Glamorous (Moose) icons seem to use different format (using byte array > instead of Base64), but I do not see any code that would generate those > methods. > > their fault, not ours :) > > and more in deep: there is obviously several ways to do this, and none of > them are incorrect. The way provided in ThemeIcons is the way that consumes > less space (in sources) I could findâ¦ At the end, you have to provide a > bitmap, the difference is how to encode them, so is just a different way of > encoding the same information. > > cheers, > Esteban > > > Thanks, > > Peter > > >

April 4, 2015

videos of 4 min showing a cool pharo XP

by stepharo

I would like that we all brainstorm about videos of 4 min showing a cool pharo XP I think about - haltif implementation - on the fly changing somehting - chipmunks - earth shadder - picasa scripting. â¦. - rotating cubes I think that doing some teasers in the GT vein is important.

April 4, 2015