- Pharo-users - lists.pharo.org

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

[ANN] MaterialDesignLite for Seaside v1.2.0
by Cyril Ferlicot D. April 1, 2018

April 1, 2018

Hello everyone, Today I released the version v1.2.0 of MaterialDesignLite for Seaside. (https://github.com/DuneSt/MaterialDesignLite) The main changes are: - There is a brand new demo with more examples and documentation. You can find it here: https://mdl.ferlicot.fr - There is a new concepts: The extensions. Extensions are not describe by Material Design but are meant to help developers while building web application. This release contains 3. A way to simplify the use of dialogs, called "root dialog", a resizeable left panel and a resizeable right panel with tabs. - There is a new widget: the progress widget - New brushes to use premade typography and typogaphy styles This release is tagged with v1.2.0 and I also introduced tags v1.2.x and v1.x.x which are moving tags following patch and minor versions. Here is the full changelog of the release: https://github.com/DuneSt/MaterialDesignLite/blob/b5ef0dcbcb9b84aeea774db38… If you have issues, need a new feature or have a comment on the project feel free to open a issue: https://github.com/DuneSt/MaterialDesignLite/issues Have a nice day! -- Cyril Ferlicot https://ferlicot.fr

3 3

Regarding Raven: DOCap System
by henry April 1, 2018

April 1, 2018

@m_m#3045 for concurrency without shared state, running on a single green thread (smalltalkâs Process) with support for remote async sends to other images, there is my Raven [1], using Cryptography [2], ParrotTalk [3] and STON. This is an implementation of erightâs [4] ELib. I am working on implementing STON for Java, inside the ASN1 project [5] as I already have ParrotTalk in Java [6], binary interoperate with Squeak/Pharo, and my Raven work in progress in Java [7]. This model allows message send redirection to a promise or farRef (or nearRef) as an asynchronous send returning a promise, which supports whenResolved/whenBroken handlers to be registered per PromiseERef. Iâll be happy to answer any questions you may be having about Raven. Raven is an implementation of an Actor model called Communicating Event Loops, in some literature [8] [9]. I hope this helps! [1] http://www.squeaksource.com/Cryptography/Raven-HenryHouse.21.mcz [2] http://www.squeaksource.com/Cryptography/Cryptography-rww.115.mcz [3] http://www.squeaksource.com/Cryptography/ParrotTalk-rww.19.mcz [4] http://erights.org/elib/index.html [5] https://github.com/CallistoHouseLtd/ASN1 [6] https://github.com/CallistoHouseLtd/ParrotTalk [7] https://github.com/CallistoHouseLtd/Raven [8] https://eighty-twenty.org/2016/10/18/actors-hopl [9] http://soft.vub.ac.be/Publications/2016/vub-soft-tr-16-11.pdf Sent from ProtonMail Mobile

2 6

PharoLauncher image loading error
by H. Fernandes April 1, 2018

April 1, 2018

Hi, On Mac OSX 10.12.6, when asking to load an image from the pharo launcher there is an error. see log Hilaire

3 6