- Pharo-users - lists.pharo.org

Re: [Pharo-users] How to #currentVersion from a Configuration

by Hilaire

May be old ConfigurationOf breaks on some part I only added a baseline to my configuration: baseline1801: spec Â Â Â <version: '18.01-baseline'> Â Â Â spec for: #common do: [ Â Â Â Â Â Â spec blessing: #baseline; Â Â Â Â Â Â Â Â Â repository: repoPath; Â Â Â Â Â Â Â Â Â description: 'Dr. Geo, an interactive geometry application.'; Â Â Â Â Â Â Â Â Â author: 'HilaireFernandes'. Â Â Â Â Â Â spec project: 'XML Parser' with: [ Â Â Â Â Â Â Â Â Â spec className: 'ConfigurationOfXMLSupport'; Â Â Â Â Â Â Â Â Â version: '1.0.1'; Â Â Â Â Â Â Â Â Â loads: #('default'); Â Â Â Â Â Â Â Â Â file: 'ConfigurationOfXMLSupport'; Â Â Â Â Â Â Â Â Â repository: repoPath]. Â Â Â Â Â Â spec repository:'http://smalltalkhub.com/mc/PharoExtras/Gettext/main/'; Â Â Â Â Â Â Â Â Â package: 'Gettext' with: 'Gettext-EstebanLorenzano.35'. Â Â Â Â Â Â spec package: 'DrGeoII-Core' with: [spec requires: #('XML Parser' 'Gettext')]. Â Â Â Â Â Â spec group: 'release' with: #('DrGeoII-Core' 'DrGeo-French' 'DrGeoII-Polymorph' 'DrGeoII-User' 'DrGeoII-Installer'); Â Â Â Â Â Â Â Â Â group: 'default' with: 'release'; Â Â Â Â Â Â Â Â Â group: 'development' with: #('release' 'DrGeoII-Test'). Â Â Â Â Â Â ] And modified its initialize so it looks to the tonel repo: initialize Â Â Â super initialize. Â Â Â repoPath := 'tonel://', SmalltalkImage current imageDirectory pathString, '/src' Le 02/04/2018 Ã 19:55, Stephane Ducasse a Ã©critÂ : > In my pharo 6.1 image I have > > currentVersion > | cacheKey cv | > cacheKey := self configuration class. > ^ MetacelloPlatform current > stackCacheFor: #currentVersion > at: cacheKey > doing: [ :cache | > cv := self currentVersionAgainst: nil. > ^ cache at: cacheKey put: cv ] > > And we do not change the code that Dale release and he is making sure > that old code is working so this is strange. > > Stef > -- Dr. Geo http://drgeo.eu

April 2, 2018

Re: [Pharo-users] unsolicited package-cache use

by Hilaire

My needs are simple, but still I don't understand what I should do from my ConfigurationOfDrGeo Le 02/04/2018 Ã 19:53, Stephane Ducasse a Ã©critÂ : > Hilaire > > A BaselineOf is the equivalent in better to a ConifgurationOf > The key benefit is that you just specify a kind of ConfigurationOf > baseline and you are done > No need to express manually versions. > > With a baseline you can get branches, a specific hash.... > So you have all the power but with less burden. > > Side: I do not like the git API but I coding with git and the branches > are really really nice. > You can have multiple versions > - release > - dev > - dev + a features and simply manage it > > So git is really a plus > With Iceberg 20, you will also be able to manage external ressources > (icons, text...) > and this is cool > > Stef > > > -- Dr. Geo http://drgeo.eu

April 2, 2018

Dynamic shapes for RTEdgeBuilder

by Andrei Stebakov

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.

April 2, 2018

Re: [Pharo-users] Quick way to switch from playground to system browser

by Stephane Ducasse

Yes define a test and you can press the green button. Else you can also define a class side method and it you tage it with XX class>> foo <sampleInstance> ^ self new. you will get an inspector in the returned object On Mon, Apr 2, 2018 at 7:48 PM, Andrei Stebakov <lispercat(a)gmail.com> wrote: > 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?

April 2, 2018

Re: [Pharo-users] How to #currentVersion from a Configuration

by Stephane Ducasse

In my pharo 6.1 image I have currentVersion | cacheKey cv | cacheKey := self configuration class. ^ MetacelloPlatform current stackCacheFor: #currentVersion at: cacheKey doing: [ :cache | cv := self currentVersionAgainst: nil. ^ cache at: cacheKey put: cv ] And we do not change the code that Dale release and he is making sure that old code is working so this is strange. Stef On Mon, Apr 2, 2018 at 3:03 PM, Hilaire <hilaire(a)drgeo.eu> wrote: > 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 > > >

April 2, 2018

Re: [Pharo-users] unsolicited package-cache use

by Stephane Ducasse

Hilaire A BaselineOf is the equivalent in better to a ConifgurationOf The key benefit is that you just specify a kind of ConfigurationOf baseline and you are done No need to express manually versions. With a baseline you can get branches, a specific hash.... So you have all the power but with less burden. Side: I do not like the git API but I coding with git and the branches are really really nice. You can have multiple versions - release - dev - dev + a features and simply manage it So git is really a plus With Iceberg 20, you will also be able to manage external ressources (icons, text...) and this is cool Stef ---------- Forwarded message ---------- From: Hilaire <hilaire(a)drgeo.eu> Date: Mon, Apr 2, 2018 at 3:46 PM Subject: Re: [Pharo-users] unsolicited package-cache use To: pharo-users(a)lists.pharo.org Hi Dale, Sorry to reply very lately to your help email, I am getting slow on Pharo those those days. I am afraid to be a bit out of sync: what is a BaselineOf? I only have a ConfigurationOfDrGeo and baseline methods into. Hilaire Le 18/01/2018 Ã 16:10, Dale Henrichs a Ã©crit : > > > Hilaire, > > Have you included a method in your BaselineOf that looks like this: > > projectClass > > ^ MetacelloCypressBaselineProject > > if not, then what looks like a package-cache problem could be that you haven't told Metacello that you are using a metadataless filetree/tonel repository. > > Metacello has an internal rule to not load Monticello packages of the same version, since they are already loaded. However, when using metadataless repositories the filetree/tonel Monticello package readers typically generate a package name using the author/version `-cypress.1`, which make Metacello think that the versions are the same and the package is not loaded ... by including the above method in your baselineof, Metacello will know to ignore the Monticello author/version of the package and always load it.... > > Of course, because Monticello only installs changed definitions when loading a package, "loading the same package over and over again" costs a little bit in loading the _definitions_ into the image from disk, but doesn't end up compiling any new methods or creating new classes ... > > Dale > > On 1/18/18 6:49 AM, Hilaire wrote: >> >> It was a month ago; I don't remember the details but from what I can recover from my memory the scenario was: >> >> - From my dev. environment I saved code through Tonel, in the DrGeo used CVS. >> >> - When building, I specifically ask the code saved thought Tonel to be installed but the package-cache code version was used instead. It could be out of sync. >> >> >> Le 18/01/2018 Ã 15:22, Dale Henrichs a Ã©crit : >>> >>> Hilaire, >>> >>> Metacello just uses Monticello for loading and it is Monticello that is using the package-cache ... if there were a way to turn of the package-cache for Monticello I don't think that Metacello would know the difference. >>> >>> But, I am curious why you care whether or not package is used? >>> >>> Is there a specific problem that you are having? >>> >>> Dale >> >> -- Dr. Geo http://drgeo.eu

April 2, 2018

Quick way to switch from playground to system browser

by Andrei Stebakov

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?

April 2, 2018

Re: [Pharo-users] unsolicited package-cache use

by Hilaire

Hi Dale, Sorry to reply very lately to your help email, I am getting slow on Pharo those those days. I am afraid to be a bit out of sync: what is a BaselineOf? I only have a ConfigurationOfDrGeo and baseline methods into. Hilaire Le 18/01/2018 Ã 16:10, Dale Henrichs a Ã©critÂ : > > Hilaire, > > Have you included a method in your BaselineOf that looks like this: > > projectClass > > Â Â Â ^ MetacelloCypressBaselineProject > > if not, then what looks like a package-cache problem could be that you > haven't told Metacello that you are using a metadataless > filetree/tonel repository. > > Metacello has an internal rule to not load Monticello packages of the > same version, since they are already loaded. However, when using > metadataless repositories the filetree/tonel Monticello package > readers typically generate a package name using the author/version > `-cypress.1`, which make Metacello think that the versions are the > same and the package is not loaded ... by including the above method > in your baselineof, Metacello will know to ignore the Monticello > author/version of the package and always load it.... > > Of course, because Monticello only installs changed definitions when > loading a package, "loading the same package over and over again" > costs a little bit in loading the _definitions_ into the image from > disk, but doesn't end up compiling any new methods or creating new > classes ... > > Dale > > On 1/18/18 6:49 AM, Hilaire wrote: >> It was a month ago; I don't remember the details but from what I can >> recover from my memory the scenario was: >> >> - From my dev. environment I saved code through Tonel, in the DrGeo >> used CVS. >> >> - When building, I specifically ask the code saved thought Tonel to >> be installed but the package-cache code version was used instead. It >> could be out of sync. >> >> >> Le 18/01/2018 Ã 15:22, Dale Henrichs a Ã©critÂ : >>> Hilaire, >>> >>> Metacello just uses Monticello for loading and it is Monticello that >>> is using the package-cache ... if there were a way to turn of the >>> package-cache for Monticello I don't think that Metacello would know >>> the difference. >>> >>> But, I am curious why you care whether or not package is used? >>> >>> Is there a specific problem that you are having? >>> >>> Dale >> -- Dr. Geo http://drgeo.eu

April 2, 2018

How to #currentVersion from a Configuration

by Hilaire

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

April 2, 2018

Re: [Pharo-users] SDL2SpecialCharacterMapping problem

by Ben Coman

Hi Alvaro, This is not an area I've been involved in, but just a general comment... Can you export a self contained example from your code that can be loaded into a fresh Image that demonstrate the problem? Its always easier if people can see the problem with their own eyes. Also, what version OS/VM/Image are you running? i.e. World Menu > System > System Reporter cheers -ben On 1 April 2018 at 11:45, alvaro piorno <alvaropiorno100(a)gmail.com> wrote: > Hi, > > Iam having a problem handling some OSKeywordEvents. These events should > have character associated. > > The mapping is resolved by SDL2SpecialCharacterMapping using a > dictionary(Mappings), it has the mapping, for example, for left arrow and > right arrow. > > It resolve correctly for "left arrow" with key: 1073741904(Integer) , but > it does not found "right arrow" with key: 1073741903(Integer). > > Both keys are present. > Any idea? > >

April 1, 2018