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

About async web stuff
by Stephane Ducasse April 4, 2018

April 4, 2018

Iâm not good enough to understand it simply :) But you are :) http://www.tornadoweb.org/en/stable/guide/intro.html

3 2

Launcher User Templates
by Sean P. DeNigris April 4, 2018

April 4, 2018

How would I make my own images available via Launcher. Where can I read about this or can you point me to a hook? Thanks! ----- Cheers, Sean -- Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html

5 15

Calypso error after clean up
by Hilaire April 3, 2018

April 3, 2018

Hello, I have this error when opening calypso on a P7 image, likely the critic stuff. The image was tightly cleaned. Likely one package was removed and it should not. Any idea which package family to look at Thanks Hilaire -- Dr. Geo http://drgeo.eu

2 3

Is Tonel known to eat code?
by Hilaire April 3, 2018

April 3, 2018

I have method disappearing in my tonel file repo, after save from Monticello. See screenshot, difference between what in the image and in file. Of course, after that kind of treatmentÂ the DrGeo app built is completely nuts! oh man! -- Dr. Geo http://drgeo.eu

2 2

Proper Monticello (with Iceberg integration) update
by Juraj Kubelka April 3, 2018

April 3, 2018

Hi! What is the proper updated mechanism on projects stored on GitHub? To be more explicit, the script: Metacello new baseline: #DiscordSt; repository: 'github://JurajKubelka/DiscordSt/src'; load. With the Iceberg integration, it does not work if an older version is already in a Pharo image. Doing pull from the Iceberg UI neither works as the new version may have new packages and new external dependencies. Actually it is also tricky if the Iceberg integration is not involved. I use this script in such scenario: ``` UIManager default informUserDuring: [ :bar | bar label: 'Removing cached DiscordSt repository from github-cache'. bar current: 0. (FileLocator workingDirectory / 'github-cache' / 'JurajKubelka' / 'DiscordSt') ensureDeleteAll. bar label: 'Updating DiscordSt baseline definition'. bar current: 0.33. Iceberg enableMetacelloIntegration ifFalse: [ Gofer new url: 'github://JurajKubelka/DiscordSt/src' asZnUrl; package: 'BaselineOfDiscordSt'; load ]. bar label: 'Updating DiscordSt source files'. bar current: 0.66. Metacello new baseline: #DiscordSt; repository: 'github://JurajKubelka/DiscordSt/src'; onConflict: [:ex | ex allow]; load: #default. bar current: 1 ]. ``` I think I need a script that: 1. updates a local Iceberg repository (if exists) 2. loads new BaselineOfDiscordSt package version to a Pharo image 3. executes the Metacello script. How can I do properly the first two steps when Iceberg is involved? Thanks! Juraj

1 0

unsolicited package-cache use
by Hilaire April 3, 2018

April 3, 2018

I am using tonel format to install from and save to a local repository. How to prevent Monticello/Configuration/Metacello to save packages to the image package-cache dir? Even when installing from a configuration with repo on tonel file format, packages get created in the image package-cache directory. I have read there and there, Pharo gets confused and uses wrongly the package-cache versions and not the local repo. -- Dr. Geo http://drgeo.eu

11 22

Dynamic shapes for RTEdgeBuilder
by Andrei Stebakov April 2, 2018

April 2, 2018

If I want to select edge shape (solid vs dashed line) based on the property of the "to" element, what technique can I use? Currently it looks like #shape method of RTEdgeBuilder only allows to specify a singe shape for all edges.

2 1

How to #currentVersion from a Configuration
by Hilaire April 2, 2018

April 2, 2018

Hello, I use to do perform this code to get the installed version from a ConfigurationOfDrGeo: drgeoVersion Â Â Â ^ 'Installed version: ', ConfigurationOfDrGeo new project currentVersion versionNumber versionString It does not work anymore, and produce the following error stack Any idea? Hilaire MetacelloMCVersionSpec(Object)>>error: [ ^ self error: 'Name not found: ' , aString ] in MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpec:forLoad:forMap:packages: in Block: [ ^ self error: 'Name not found: ' , aString ] [ (self importArray notNil or: [ self import notNil ]) Â Â Â ifTrue: Â Â Â Â Â Â [ "expect the 'missing' name to be satisfied within context of imported project" Â Â Â Â Â Â importArray Â Â Â Â Â Â Â Â Â ifNotNil: [ importArray Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â do: [ :assoc | Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ((assoc value includes: aString) and: [ map includesKey: assoc key ]) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ importSpec := (map at: assoc key) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â mergeImportLoads: {aString}; Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â yourself ] ]. Â Â Â Â Â Â Â Â Â Â Â Â importSpec ifNotNil: [ ^ importSpec ] ]. Â Â Â Â Â Â (importSpec isNil and: [ self import notNil ]) Â Â Â Â Â Â Â Â Â ifTrue: [ ^ (map at: self import ifAbsent: absentBlock) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â mergeImportLoads: {aString}; Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â yourself ] ]. (aString = 'default' or: [ aString = 'ALL' ]) Â Â Â ifTrue: [ self project groupSpec Â Â Â Â Â Â Â Â Â name: aString; Â Â Â Â Â Â Â Â Â includes: self packageNames; Â Â Â Â Â Â Â Â Â yourself ] Â Â Â ifFalse: [ absentBlock value ] ] in MetacelloMCVersionSpec(MetacelloVersionSpec)>>packageNamed:forLoad:forMap:ifAbsent: in Block: [ (self importArray notNil or: [ self import notNi...etc... Dictionary>>at:ifAbsent: MetacelloMCVersionSpec(MetacelloVersionSpec)>>packageNamed:forLoad:forMap:ifAbsent: MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpec:forLoad:forMap:packages: [ :req | (self Â Â Â resolveToLoadableSpec: req Â Â Â forLoad: forLoad Â Â Â forMap: map Â Â Â packages: packageMap) Â Â Â do: [ :loadableSpec | Â Â Â Â Â Â newReqd addAll: loadableSpec requires. Â Â Â Â Â Â newReqd addAll: loadableSpec includes ] ] in MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpecs:forLoad:map: in Block: [ :req | ... Set>>do: MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpecs:forLoad:map: MetacelloMCVersionSpec(MetacelloVersionSpec)>>resolveToLoadableSpecs: [ :cache | names := (self resolveToLoadableSpecs: nameList) Â Â Â collect: [ :spec | spec name ]. cache at: cacheKey put: names ] in MetacelloMCVersionSpec(MetacelloVersionSpec)>>expandToLoadableSpecNames: in Block: [ :cache | ... [ :dict | | cache | cache := dict at: cacheName ifAbsent: [Â ]. cache ~~ nil Â Â Â ifTrue: [ | value hasEntry | Â Â Â Â Â Â hasEntry := true. Â Â Â Â Â Â value := cache at: key ifAbsent: [ hasEntry := false ]. Â Â Â Â Â Â hasEntry Â Â Â Â Â Â Â Â Â ifTrue: [ ^ value ] ] Â Â Â ifFalse: [ cache := cacheClass new. Â Â Â Â Â Â dict at: cacheName put: cache ]. ^ aBlock value: cache ] in IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing: in Block: [ :dict | ... [ ^ aBlock value: dict ] in IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: in Block: [ ^ aBlock value: dict ] BlockClosure>>on:do: IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing: IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:at:doing: MetacelloMCVersionSpec(MetacelloVersionSpec)>>expandToLoadableSpecNames: MetacelloMCVersionSpec>>isPartiallyCurrent [ :version | | status matchBlock | status := resolvedPackageAndProjectNames isNil Â Â Â ifTrue: [ version spec isPartiallyCurrent ] Â Â Â ifFalse: [ version spec Â Â Â Â Â Â Â Â Â isPartiallyCurrentAgainst: resolvedPackageAndProjectNames ]. matchBlock := [ :matchStatus | cv := version copy. cv versionStatus: matchStatus. ^ cache at: cacheKey put: cv ]. status isAllLoadedToSpec: matchBlock. status isLoadedToSpec: matchBlock. status isLoadedMatchConstraints: matchBlock. status Â Â Â isSomethingLoaded: [ :matchStatus | Â Â Â Â Â Â latestSomethingLoaded isNil Â Â Â Â Â Â Â Â Â ifTrue: [ cv := version copy. Â Â Â Â Â Â Â Â Â Â Â Â cv versionStatus: matchStatus. Â Â Â Â Â Â Â Â Â Â Â Â latestSomethingLoaded := cv ] ] ] in [ :cache | | cv versions latestSomethingLoaded | cv := nil. versions := self sortedAndFilteredVersions. versions Â Â Â do: [ :version | Â Â Â Â Â Â | status matchBlock | Â Â Â Â Â Â status := resolvedPackageAndProjectNames isNil Â Â Â Â Â Â Â Â Â ifTrue: [ version spec isPartiallyCurrent ] Â Â Â Â Â Â Â Â Â ifFalse: [ version spec Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â isPartiallyCurrentAgainst: resolvedPackageAndProjectNames ]. Â Â Â Â Â Â matchBlock := [ :matchStatus | Â Â Â Â Â Â cv := version copy. Â Â Â Â Â Â cv versionStatus: matchStatus. Â Â Â Â Â Â ^ cache at: cacheKey put: cv ]. Â Â Â Â Â Â status isAllLoadedToSpec: matchBlock. Â Â Â Â Â Â status isLoadedToSpec: matchBlock. Â Â Â Â Â Â status isLoadedMatchConstraints: matchBlock. Â Â Â Â Â Â status Â Â Â Â Â Â Â Â Â isSomethingLoaded: [ :matchStatus | Â Â Â Â Â Â Â Â Â Â Â Â latestSomethingLoaded isNil Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ cv := version copy. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cv versionStatus: matchStatus. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â latestSomethingLoaded := cv ] ] ]. latestSomethingLoaded Â Â Â ifNotNil: [ ^ cache at: cacheKey put: latestSomethingLoaded ]. ^ cache at: cacheKey put: nil ] in MetacelloMCProject(MetacelloProject)>>currentVersionAgainst: in Block: [ :version | ... Array(SequenceableCollection)>>do: [ :cache | | cv versions latestSomethingLoaded | cv := nil. versions := self sortedAndFilteredVersions. versions Â Â Â do: [ :version | Â Â Â Â Â Â | status matchBlock | Â Â Â Â Â Â status := resolvedPackageAndProjectNames isNil Â Â Â Â Â Â Â Â Â ifTrue: [ version spec isPartiallyCurrent ] Â Â Â Â Â Â Â Â Â ifFalse: [ version spec Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â isPartiallyCurrentAgainst: resolvedPackageAndProjectNames ]. Â Â Â Â Â Â matchBlock := [ :matchStatus | Â Â Â Â Â Â cv := version copy. Â Â Â Â Â Â cv versionStatus: matchStatus. Â Â Â Â Â Â ^ cache at: cacheKey put: cv ]. Â Â Â Â Â Â status isAllLoadedToSpec: matchBlock. Â Â Â Â Â Â status isLoadedToSpec: matchBlock. Â Â Â Â Â Â status isLoadedMatchConstraints: matchBlock. Â Â Â Â Â Â status Â Â Â Â Â Â Â Â Â isSomethingLoaded: [ :matchStatus | Â Â Â Â Â Â Â Â Â Â Â Â latestSomethingLoaded isNil Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [ cv := version copy. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â cv versionStatus: matchStatus. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â latestSomethingLoaded := cv ] ] ]. latestSomethingLoaded Â Â Â ifNotNil: [ ^ cache at: cacheKey put: latestSomethingLoaded ]. ^ cache at: cacheKey put: nil ] in MetacelloMCProject(MetacelloProject)>>currentVersionAgainst: in Block: [ :cache | ... [ :dict | | cache | cache := dict at: cacheName ifAbsent: [Â ]. cache ~~ nil Â Â Â ifTrue: [ | value hasEntry | Â Â Â Â Â Â hasEntry := true. Â Â Â Â Â Â value := cache at: key ifAbsent: [ hasEntry := false ]. Â Â Â Â Â Â hasEntry Â Â Â Â Â Â Â Â Â ifTrue: [ ^ value ] ] Â Â Â ifFalse: [ cache := cacheClass new. Â Â Â Â Â Â dict at: cacheName put: cache ]. ^ aBlock value: cache ] in IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing: in Block: [ :dict | ... [ ^ aBlock value: dict ] in IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: in Block: [ ^ aBlock value: dict ] BlockClosure>>on:do: IceMetacelloPharoPlatform(MetacelloPlatform)>>useStackCacheDuring:defaultDictionary: IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:cacheClass:at:doing: IceMetacelloPharoPlatform(MetacelloPlatform)>>stackCacheFor:at:doing: MetacelloMCProject(MetacelloProject)>>currentVersionAgainst: [ :cache | cv := self currentVersionAgainst: nil. ^ cache at: cacheKey put: cv ] in MetacelloMCProject(MetacelloProject)>>currentVersion in Block: [ :cache | ... -- Dr. Geo http://drgeo.eu

2 2

Quick way to switch from playground to system browser
by Andrei Stebakov April 2, 2018

April 2, 2018

I wonder if there is a best practice for modifying code in you class in system browser and testing the behavior in the playground. The way I do it, I have to type the code, use the mouse to find and switch to the playground and then execute some code in it. Is there a more ergonomic way to modify/test the new code?

2 1

Keeping packages up to date
by Andrei Stebakov April 1, 2018

April 1, 2018

I wonder if there is a generic solution to keeping certain Pharo project in sync with development tree. For example when I want to get latest Roassal I execute Gofer it smalltalkhubUser: 'ObjectProfile' project: 'Roassal2'; package: 'Roassal2'; package: 'Roassal2GT'; package: 'Trachel'; load. Also I wouldn't know this unless the maintainers (thanks Alexandre!) of the project told me what script to execute to get the latest version. If I went to Project Catalog I can only get the stable version and if I go and find Roassal2 it won't give me information how to get its latest version. How would I get info about how to update, say Roassal given the script above from some Roassal project public page? Talking about Roassal, if I go to http://smalltalkhub.com/#!/~ObjectProfile/Roassal2/ page, it offers the following script: Gofer it smalltalkhubUser: 'ObjectProfile' project: 'Roassal2'; configurationOf: 'Roassal2'; loadDevelopment Which is probably not exactly equal to the script above (or is it?). So, is there a generic way to get a latest version of some XYZ package? What do I need to learn to be able to get that information about any Pharo project (other than asking the community)? Something similar to "git pull" when you know the repository.

5 8