October 2017 - Pharo-users - lists.pharo.org

DesktopManaker from Ctrl-D to Ctrl-M help needed!!
by Torsten Bergmann Oct. 18, 2017

Oct. 18, 2017

> PD to the DesktopManager team: Your tool is really cool, thanks a lot; There is no team, just one person ;) Glad you like it. More infos can be found here: http://smalltalkhub.com/#!/~TorstenBergmann/DesktopManager https://medium.com/concerning-pharo/multiple-desktops-for-pharo-5cbc46f3179f > nevertheless is not nice to hide the Do-It command Use CTRL+D twice in a playground to run the do it. This is already explained in detail here: http://lists.pharo.org/pipermail/pharo-users_lists.pharo.org/2017-September… Side note: ========== I now added also a CTRL + D followed by CTRL + L (âDesktop Logoâ to enable/disable Logo on Desktop) Have fun T.

1 0

NeoJSONObject convenience method hint
by Herby VojÄÃk Oct. 17, 2017

Oct. 17, 2017

newFromAccessors: aCollection ofObject: anObject "Performs supplied accessors on anObject and returns my instance with accessor -> result pairs." ^ self newFrom: (aCollection collect: [ :each | each -> (anObject perform: each) ]) "I use it for example in this piece of code: NeoJSONObject newFromAccessors: #(good bad) ofObject: self dao sumOfAllAnswers "

2 1

[ANN] Pharo Consortium New Bronze Member: OSOCO
by Marcus Denker Oct. 17, 2017

Oct. 17, 2017

The Pharo Consortium is very happy to announce that OSOCO has joined the Consortium as a Bronze Member. About - OSOCO: https://osoco.es - Pharo Consortium: http://consortium.pharo.org The goal of the Pharo Consortium is to allow companies and institutions to support the ongoing development and future of Pharo. Individuals can support Pharo via the Pharo Association: - http://association.pharo.org

1 0

Mocketry willGenerateValueFrom: (was: Re: How do you mock http?)
by Herby VojÄÃk Oct. 17, 2017

Oct. 17, 2017

Herby VojÄÃk wrote: > Hello! > > I felt the need to mock http api (like nock in node, that is, mock http > request-response itself on low-level part, leaving aside the question of > what wrapper / library one uses to get to that http; in node it mocks > basic http layer, here I tackled ZnClient), but struggled for a time how > to grasp it. Finally I used something like this (with help of Mocketry, > `1 to: 10` to mean "enough to actually be used even if there are more > unrelated uses", it could as well be `1 to: 100`): > > ZnClient stub new willReturnValueFrom: > ((1 to: 10) collect: [ :i | ZnMockClient For Denis Kudriashov: would you be willing to add something like `willGenerateValueFrom: aBlock` to Mocketry, so previous two lines could be replaced by simpler: ZnClient stub new willGenerateValueFrom: [ ZnMockClient ? If something allowing it is there, I am sorry but I haven't found it. Herby > whenRequest: [ :request | > { request uri scheme. request uri authority. request uri > pathPrintString. request uri query associations asSet } > = { #https. 'onesignal.com'. '/api/v1/players/{1}' format: { UUID > fromString36: 'Q7' }. { 'app_id' -> appId } asSet } > and: [ #(GET HEAD) includes: request method ] ] > thenResponse: [ :request | ZnResponse ok: (ZnEntity json: '{}') ] ]). > > with the help of this class (garbled utf not my fault, iceberg metacello > integration does it): > > 'From Pharo6.0 of 13 May 2016 [Latest update: #60512] on 17 October 2017 > at 12:05:38.908634 pm'! > ZnClient subclass: #ZnMockClient > instanceVariableNames: 'conditionBlock responseBlock' > classVariableNames: '' > poolDictionaries: '' > category: 'Towergame-Tests'! > !ZnMockClient commentStamp: 'HerbyVojcik 10/16/2017 16:43' prior: 0! > I am a mock ZnClient. > > I am created with ZnMockClient whenRequest: whenBlock thenResponse: > thenBlock. > > Upon execution of the request, when (whenBlock cull: request) is true, > response is set to (thenBlock cull: request). Otherwise, behaviour is > delegated to super.! > > > !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 > 12:00:27'! > conditionBlock > ^ conditionBlock! ! > > !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 > 12:00:27'! > responseBlock: anObject > responseBlock := anObject! ! > > !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 > 12:00:27'! > conditionBlock: anObject > conditionBlock := anObject! ! > > !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 > 12:00:27'! > responseBlock > ^ responseBlock! ! > > > !ZnMockClient methodsFor: 'private protocol' stamp: 'HerbertVojÃÂÃÂk > 10/17/2017 12:00:27'! > executeRequestResponse > ^ (self conditionBlock cull: self request) > ifTrue: [ response := self responseBlock cull: self request. response > contents ] > ifFalse: [ super executeRequestResponse ]! ! > > "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! > > ZnMockClient class > instanceVariableNames: ''! > > !ZnMockClient class methodsFor: 'instance creation' stamp: > 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! > whenRequest: aBlock thenResponse: anotherBlock > ^ self new > conditionBlock: aBlock; > responseBlock: anotherBlock; > yourself! ! > > Question 1: Is there a better way? > > Question 2: If not, would ZnMockClient be good addition to Zinc itself, > to ease testing for others? > > Herby >

2 6

[ANN] feenk upgraded to Gold Membership
by Marcus Denker Oct. 17, 2017

Oct. 17, 2017

The Pharo Consortium is very happy to announce that feenk has upgraded to Gold Member status. About - feenk: http://feenk.com - Pharo Consortium: http://consortium.pharo.org The goal of the Pharo Consortium is to allow companies and institutions to support the ongoing development and future of Pharo. Individuals can support Pharo via the Pharo Association: http://association.pharo.org

1 0

Roassal2 in recent Pharo 7 causes DNU #asTraitComposition
by Alistair Grant Oct. 17, 2017

Oct. 17, 2017

Hi All, I'm attempting to load Roassal2 in to Pharo7 and am getting: UndefinedObject(Object)>>doesNotUnderstand: #asTraitComposition It can be reproduced in a clean Pharo7 image, e.g. Pharo7.0-32bit-d1b0e3e.image (downloaded 16 Oct 2017), and executing: Gofer it smalltalkhubUser: 'ObjectProfile' project: 'Roassal2'; configurationOf: 'Roassal2'; loadStable. OS: Ubuntu 16.04. I last rebuilt my image on 3 October without any problems. Any suggestions? I suspect the combination of Monticello and Traits will take me quite a while to figure out. Thanks, Alistair Stack Trace: UndefinedObject(Object)>>doesNotUnderstand: #asTraitComposition MCClassDefinition>>traitCompositionCompiled [ :builder | builder superclass: superClass; name: name; layoutClass: (ObjectLayout layoutForType: type); slots: self instanceVariables; sharedVariables: self classVariables; sharedPools: self sharedPoolsString; classSlots: self classInstanceVariables; traitComposition: self traitCompositionCompiled; classTraitComposition: self classTraitCompositionCompiled; comment: comment stamp: commentStamp; category: category; environment: superClass environment ] in [ PharoClassInstaller make: [ :builder | builder superclass: superClass; name: name; layoutClass: (ObjectLayout layoutForType: type); slots: self instanceVariables; sharedVariables: self classVariables; sharedPools: self sharedPoolsString; classSlots: self classInstanceVariables; traitComposition: self traitCompositionCompiled; classTraitComposition: self classTraitCompositionCompiled; comment: comment stamp: commentStamp; category: category; environment: superClass environment ] ] in MCClassDefinition>>createClass in Block: [ :builder | ... PharoClassInstaller class(AbstractClassInstaller class)>>make: [ PharoClassInstaller make: [ :builder | builder superclass: superClass; name: name; layoutClass: (ObjectLayout layoutForType: type); slots: self instanceVariables; sharedVariables: self classVariables; sharedPools: self sharedPoolsString; classSlots: self classInstanceVariables; traitComposition: self traitCompositionCompiled; classTraitComposition: self classTraitCompositionCompiled; comment: comment stamp: commentStamp; category: category; environment: superClass environment ] ] in MCClassDefinition>>createClass in Block: [ PharoClassInstaller... BlockClosure>>on:do: MCClassDefinition>>createClass MCClassDefinition>>load MCClassDefinition(MCDefinition)>>addMethodAdditionTo: [ :each | each addMethodAdditionTo: methodAdditions ] in MCPackageLoader>>basicLoadDefinitions in Block: [ :each | each addMethodAdditionTo: methodAddition...etc... [ :each | | newLabel | "Special handling for first and last element" (count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ]) ifTrue: [ bar current: count. oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ]) ifFalse: [ bar label: newLabel. oldLabel := newLabel ]. lastUpdate := Time millisecondClockValue ]. aBlock value: each. count := count + 1 ] in [ :bar | labelBlock := aStringOrBlock isString ifTrue: [ bar label: aStringOrBlock. [ :dummyItem | aStringOrBlock ] ] ifFalse: [ aStringOrBlock ]. self do: [ :each | | newLabel | "Special handling for first and last element" (count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ]) ifTrue: [ bar current: count. oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ]) ifFalse: [ bar label: newLabel. oldLabel := newLabel ]. lastUpdate := Time millisecondClockValue ]. aBlock value: each. count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every: in Block: [ :each | ... OrderedCollection>>do: [ :bar | labelBlock := aStringOrBlock isString ifTrue: [ bar label: aStringOrBlock. [ :dummyItem | aStringOrBlock ] ] ifFalse: [ aStringOrBlock ]. self do: [ :each | | newLabel | "Special handling for first and last element" (count = 0 or: [ count + 1 = size or: [ (Time millisecondsSince: lastUpdate) >= msecs ] ]) ifTrue: [ bar current: count. oldLabel = (newLabel := (labelBlock cull: each) ifNil: [ oldLabel ]) ifFalse: [ bar label: newLabel. oldLabel := newLabel ]. lastUpdate := Time millisecondClockValue ]. aBlock value: each. count := count + 1 ] ] in OrderedCollection(Collection)>>do:displayingProgress:every: in Block: [ :bar | ... BlockClosure>>cull: [ ^ block cull: self ] in [ self prepareForRunning. CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run in Block: [ ^ block cull: self ] [ activeProcess psValueAt: index put: anObject. aBlock value ] in CurrentJob(DynamicVariable)>>value:during: in Block: [ activeProcess psValueAt: index put: anObject.... BlockClosure>>ensure: CurrentJob(DynamicVariable)>>value:during: CurrentJob class(DynamicVariable class)>>value:during: [ self prepareForRunning. CurrentJob value: self during: [ ^ block cull: self ] ] in Job>>run in Block: [ self prepareForRunning.... BlockClosure>>ensure: Job>>run MorphicUIManager(UIManager)>>displayProgress:from:to:during: ByteString(String)>>displayProgressFrom:to:during: OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection(Collection)>>do:displayingProgress: MCPackageLoader>>basicLoadDefinitions [ self basicLoadDefinitions ] in MCPackageLoader>>basicLoad in Block: [ self basicLoadDefinitions ] [ aBlock value ] in SourceFileArray>>deferFlushDuring: in Block: [ aBlock value ] BlockClosure>>ensure: --

3 5

How do you mock http?
by Herby VojÄÃk Oct. 17, 2017

Oct. 17, 2017

Hello! I felt the need to mock http api (like nock in node, that is, mock http request-response itself on low-level part, leaving aside the question of what wrapper / library one uses to get to that http; in node it mocks basic http layer, here I tackled ZnClient), but struggled for a time how to grasp it. Finally I used something like this (with help of Mocketry, `1 to: 10` to mean "enough to actually be used even if there are more unrelated uses", it could as well be `1 to: 100`): ZnClient stub new willReturnValueFrom: ((1 to: 10) collect: [ :i | ZnMockClient whenRequest: [ :request | { request uri scheme. request uri authority. request uri pathPrintString. request uri query associations asSet } = { #https. 'onesignal.com'. '/api/v1/players/{1}' format: { UUID fromString36: 'Q7' }. { 'app_id' -> appId } asSet } and: [ #(GET HEAD) includes: request method ] ] thenResponse: [ :request | ZnResponse ok: (ZnEntity json: '{}') ] ]). with the help of this class (garbled utf not my fault, iceberg metacello integration does it): 'From Pharo6.0 of 13 May 2016 [Latest update: #60512] on 17 October 2017 at 12:05:38.908634 pm'! ZnClient subclass: #ZnMockClient instanceVariableNames: 'conditionBlock responseBlock' classVariableNames: '' poolDictionaries: '' category: 'Towergame-Tests'! !ZnMockClient commentStamp: 'HerbyVojcik 10/16/2017 16:43' prior: 0! I am a mock ZnClient. I am created with ZnMockClient whenRequest: whenBlock thenResponse: thenBlock. Upon execution of the request, when (whenBlock cull: request) is true, response is set to (thenBlock cull: request). Otherwise, behaviour is delegated to super.! !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! conditionBlock ^ conditionBlock! ! !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! responseBlock: anObject responseBlock := anObject! ! !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! conditionBlock: anObject conditionBlock := anObject! ! !ZnMockClient methodsFor: 'accessing' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! responseBlock ^ responseBlock! ! !ZnMockClient methodsFor: 'private protocol' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! executeRequestResponse ^ (self conditionBlock cull: self request) ifTrue: [ response := self responseBlock cull: self request. response contents ] ifFalse: [ super executeRequestResponse ]! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! ZnMockClient class instanceVariableNames: ''! !ZnMockClient class methodsFor: 'instance creation' stamp: 'HerbertVojÃÂÃÂk 10/17/2017 12:00:27'! whenRequest: aBlock thenResponse: anotherBlock ^ self new conditionBlock: aBlock; responseBlock: anotherBlock; yourself! ! Question 1: Is there a better way? Question 2: If not, would ZnMockClient be good addition to Zinc itself, to ease testing for others? Herby

1 1

DesktopManaker from Ctrl-D to Ctrl-M help needed!!
by Ricardo Pacheco Oct. 17, 2017

Oct. 17, 2017

Hello. I'm using the Desktop Manager add on in my Pharo 6, but I really dislike the fact that its key shortcuts start with Ctrl-D because it hides the Do-It command. So I looked into the code and changed in the class method DesktopManager >> desktopMenuCommandOn:, to use Ctrl-M instead of Ctrl-D. After saving the new key shortcuts are working now. Nevertheless the old Ctrl-D based are still functional. The question is, how do I disable them? In other words, I do I make the system reset its key short-cuts? Is there a tool where I can see all the active key short-cuts of the system and manage them? Thanks a lot. PD to the DesktopManager team: Your tool is really cool, thanks a lot; nevertheless is not nice to hide the Do-It command -- Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html

2 3

Internationalization
by casimiro barreto Oct. 16, 2017

Oct. 16, 2017

Hello, IÂ´m using seaside & have some trouble regarding dates (displayed in English). WhatÂ´s the easy way to display dates in other languages? Particularly dateInput shows dates in English format (month, day, year) and months in English. Best regards, Casimiro -- The information contained in this message is confidential and intended to the recipients specified in the headers. If you received this message by error, notify the sender immediately. The unauthorized use, disclosure, copy or alteration of this message are strictly forbidden and subjected to civil and criminal sanctions.

2 1

GDPR and the pharo website
by Bruce O'Neel Oct. 15, 2017

Oct. 15, 2017

Hi, We're having some discussions on the Squeak side about GDPR and squeak.org. Â Are there any thoughts about changes to pharo.org for GDPR? Â We have similar web presences so one imagines similar issues. Â If GDPR is not ringing any bells you can startÂ [http://www.eugdpr.org](http://www.eugdpr.org), and the most interesting pages are probablyÂ [http://www.eugdpr.org/key-changes.html](http://www.eugdpr.org/key-changes.h… andÂ [http://www.eugdpr.org/gdpr-faqs.html](http://www.eugdpr.org/gdpr-faqs.html). Thanks. bruce

1 0