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

Re: [Pharo-users] looking for a tutorial on sounds in Pharo

by Grigory Hatsevich

thanks! On Sun, 16 Oct 2016 21:47:22 +0700, stepharo <stepharo(a)free.fr> wrote: > > https://ci.inria.fr/pharo-contribution/view/Books/job/PharoReadyForReviews/… > > > > > > Le 16/10/16 Ã 13:29, phil(a)highoctane.be a Ã©crit : >> https://github.com/xmessner/PharoSoundTutorial/blob/master/Sound_en.pier >> >> On Sun, Oct 16, 2016 at 1:16 PM, Grigory Hatsevich >> <g.hatsevich(a)gmail.com> wrote: >>> Hi! I'm looking for a tutorial about sound generation in Pharo. I've >>> found >>> "PharoSoundTutorial" (https://github.com/xmessner/PharoSoundTutorial) >>> but >>> it is in French. Is there an English version of this tutorial or some >>> other English text about sounds in Pharo?

Oct. 16, 2016

Re: [Pharo-users] looking for a tutorial on sounds in Pharo

by stepharo

https://ci.inria.fr/pharo-contribution/view/Books/job/PharoReadyForReviews/… Le 16/10/16 Ã 13:29, phil(a)highoctane.be a Ã©crit : > https://github.com/xmessner/PharoSoundTutorial/blob/master/Sound_en.pier > > On Sun, Oct 16, 2016 at 1:16 PM, Grigory Hatsevich > <g.hatsevich(a)gmail.com <mailto:g.hatsevich@gmail.com>> wrote: > > Hi! I'm looking for a tutorial about sound generation in Pharo. > I've found > "PharoSoundTutorial" > (https://github.com/xmessner/PharoSoundTutorial > <https://github.com/xmessner/PharoSoundTutorial>) but > it is in French. Is there an English version of this tutorial or some > other English text about sounds in Pharo? > > >

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Charlie Robbats

Oops, that should be.. | array lookupClosure performClosure | lookupClosure := []. lookupClosure := [:cls :selector | (cls == nil) ifTrue: [Warning signal: ('method lookup failure: ', selector)]. cls methodDictionary at: selector ifPresent: [:meth | meth] ifAbsent: [lookupClosure value: cls superclass value: selector]]. performClosure := [ :receiver :selector :args | (lookupClosure value: receiver class value: selector) valueWithReceiver: receiver arguments: args ]. array := { 1 }. performClosure value: array value: #at:put: value: {1. 'Hello, world'}. array inspect. On 10/16/2016 10:03 AM, Charlie Robbats wrote: > > and a little block cleanup: > > | array lookupClosure performClosure | > lookupClosure := []. > lookupClosure := [:cls :selector | > (cls == nil) > ifTrue: [Warning signal: ('method lookup failure: ', > selector)]. > cls methodDictionary > at: selector > ifPresent: [:meth | meth] > ifAbsent: [lookupClosure value: cls superclass value: > selector]]. > performClosure := [ :receiver :args | > (lookupClosure value: array class value: #at:put:) > valueWithReceiver: array arguments: args ]. > array := { 1 }. > performClosure value: array value: {1. 'Hello, world'}. > array inspect. > > > Charlie > > > On 10/16/2016 9:54 AM, Charlie Robbats wrote: >> Here's a little change to get your #perform:withArguments: implemented. >> >> | array lookupClosure method | >> array := { 1 }. >> lookupClosure := []. >> lookupClosure := [:cls :selector | >> (cls == nil) >> ifTrue: [Warning signal: ('method lookup failure: ', selector)]. >> cls methodDictionary >> at: selector >> " ifPresent: [:meth | Smalltalk tools browser openOnMethod: >> meth]" >> ifPresent: [:meth | meth] >> ifAbsent: [lookupClosure value: cls superclass value: >> selector]]. >> method := lookupClosure value: Array value: #at:put:. >> method valueWithReceiver: array arguments: {1. 'Hello, world'}. >> array >> >> >> On 10/16/2016 9:32 AM, Ben Coman wrote: >>> On Sun, Oct 16, 2016 at 9:11 PM, Charlie Robbats >>> <charlie.robbats(a)gmail.com> wrote: >>>> Here, Dmitry, try this code in playground...maybe helps you understand >>>> >>>> | lookupClosure | >>>> lookupClosure := []. >>>> lookupClosure := [:cls :selector | >>>> (cls == nil) >>>> ifTrue: [Warning signal: ('selector lookup failure: ', >>>> selector)]. >>>> (cls methodDictionary >>>> at: selector >>>> ifAbsent: [nil]) >>>> ifNil: [lookupClosure value: cls superclass value: >>>> selector] >>>> ifNotNil: [:meth | Smalltalk tools browser >>>> openOnMethod: meth]]. >>>> lookupClosure value: Array value: #at:put:. >>> Nice example. Slightly improved... >>> >>> | lookupClosure | >>> lookupClosure := []. >>> lookupClosure := [:cls :selector | >>> (cls == nil) >>> ifTrue: [Warning signal: ('selector lookup failure: ', >>> selector)]. >>> cls methodDictionary >>> at: selector >>> ifPresent: [:meth | Smalltalk tools browser openOnMethod: >>> meth] >>> ifAbsent: [lookupClosure value: cls superclass value: >>> selector]]. >>> lookupClosure value: Array value: #at:put:. >>> >>> cheers -ben >>> >> >

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Charlie Robbats

and a little block cleanup: | array lookupClosure performClosure | lookupClosure := []. lookupClosure := [:cls :selector | (cls == nil) ifTrue: [Warning signal: ('method lookup failure: ', selector)]. cls methodDictionary at: selector ifPresent: [:meth | meth] ifAbsent: [lookupClosure value: cls superclass value: selector]]. performClosure := [ :receiver :args | (lookupClosure value: array class value: #at:put:) valueWithReceiver: array arguments: args ]. array := { 1 }. performClosure value: array value: {1. 'Hello, world'}. array inspect. Charlie On 10/16/2016 9:54 AM, Charlie Robbats wrote: > Here's a little change to get your #perform:withArguments: implemented. > > | array lookupClosure method | > array := { 1 }. > lookupClosure := []. > lookupClosure := [:cls :selector | > (cls == nil) > ifTrue: [Warning signal: ('method lookup failure: ', selector)]. > cls methodDictionary > at: selector > " ifPresent: [:meth | Smalltalk tools browser openOnMethod: meth]" > ifPresent: [:meth | meth] > ifAbsent: [lookupClosure value: cls superclass value: selector]]. > method := lookupClosure value: Array value: #at:put:. > method valueWithReceiver: array arguments: {1. 'Hello, world'}. > array > > > On 10/16/2016 9:32 AM, Ben Coman wrote: >> On Sun, Oct 16, 2016 at 9:11 PM, Charlie Robbats >> <charlie.robbats(a)gmail.com> wrote: >>> Here, Dmitry, try this code in playground...maybe helps you understand >>> >>> | lookupClosure | >>> lookupClosure := []. >>> lookupClosure := [:cls :selector | >>> (cls == nil) >>> ifTrue: [Warning signal: ('selector lookup failure: ', >>> selector)]. >>> (cls methodDictionary >>> at: selector >>> ifAbsent: [nil]) >>> ifNil: [lookupClosure value: cls superclass value: >>> selector] >>> ifNotNil: [:meth | Smalltalk tools browser >>> openOnMethod: meth]]. >>> lookupClosure value: Array value: #at:put:. >> Nice example. Slightly improved... >> >> | lookupClosure | >> lookupClosure := []. >> lookupClosure := [:cls :selector | >> (cls == nil) >> ifTrue: [Warning signal: ('selector lookup failure: ', >> selector)]. >> cls methodDictionary >> at: selector >> ifPresent: [:meth | Smalltalk tools browser openOnMethod: meth] >> ifAbsent: [lookupClosure value: cls superclass value: >> selector]]. >> lookupClosure value: Array value: #at:put:. >> >> cheers -ben >> >

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Charlie Robbats

Here's a little change to get your #perform:withArguments: implemented. | array lookupClosure method | array := { 1 }. lookupClosure := []. lookupClosure := [:cls :selector | (cls == nil) ifTrue: [Warning signal: ('method lookup failure: ', selector)]. cls methodDictionary at: selector " ifPresent: [:meth | Smalltalk tools browser openOnMethod: meth]" ifPresent: [:meth | meth] ifAbsent: [lookupClosure value: cls superclass value: selector]]. method := lookupClosure value: Array value: #at:put:. method valueWithReceiver: array arguments: {1. 'Hello, world'}. array On 10/16/2016 9:32 AM, Ben Coman wrote: > On Sun, Oct 16, 2016 at 9:11 PM, Charlie Robbats > <charlie.robbats(a)gmail.com> wrote: >> Here, Dmitry, try this code in playground...maybe helps you understand >> >> | lookupClosure | >> lookupClosure := []. >> lookupClosure := [:cls :selector | >> (cls == nil) >> ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. >> (cls methodDictionary >> at: selector >> ifAbsent: [nil]) >> ifNil: [lookupClosure value: cls superclass value: selector] >> ifNotNil: [:meth | Smalltalk tools browser openOnMethod: meth]]. >> lookupClosure value: Array value: #at:put:. > Nice example. Slightly improved... > > | lookupClosure | > lookupClosure := []. > lookupClosure := [:cls :selector | > (cls == nil) > ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. > cls methodDictionary > at: selector > ifPresent: [:meth | Smalltalk tools browser openOnMethod: meth] > ifAbsent: [lookupClosure value: cls superclass value: selector]]. > lookupClosure value: Array value: #at:put:. > > cheers -ben >

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Charlie Robbats

Thanks, that's a good improvement, more readable. On 10/16/2016 9:32 AM, Ben Coman wrote: > On Sun, Oct 16, 2016 at 9:11 PM, Charlie Robbats > <charlie.robbats(a)gmail.com> wrote: >> Here, Dmitry, try this code in playground...maybe helps you understand >> >> | lookupClosure | >> lookupClosure := []. >> lookupClosure := [:cls :selector | >> (cls == nil) >> ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. >> (cls methodDictionary >> at: selector >> ifAbsent: [nil]) >> ifNil: [lookupClosure value: cls superclass value: selector] >> ifNotNil: [:meth | Smalltalk tools browser openOnMethod: meth]]. >> lookupClosure value: Array value: #at:put:. > Nice example. Slightly improved... > > | lookupClosure | > lookupClosure := []. > lookupClosure := [:cls :selector | > (cls == nil) > ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. > cls methodDictionary > at: selector > ifPresent: [:meth | Smalltalk tools browser openOnMethod: meth] > ifAbsent: [lookupClosure value: cls superclass value: selector]]. > lookupClosure value: Array value: #at:put:. > > cheers -ben >

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Ben Coman

On Sun, Oct 16, 2016 at 9:11 PM, Charlie Robbats <charlie.robbats(a)gmail.com> wrote: > Here, Dmitry, try this code in playground...maybe helps you understand > > | lookupClosure | > lookupClosure := []. > lookupClosure := [:cls :selector | > (cls == nil) > ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. > (cls methodDictionary > at: selector > ifAbsent: [nil]) > ifNil: [lookupClosure value: cls superclass value: selector] > ifNotNil: [:meth | Smalltalk tools browser openOnMethod: meth]]. > lookupClosure value: Array value: #at:put:. Nice example. Slightly improved... | lookupClosure | lookupClosure := []. lookupClosure := [:cls :selector | (cls == nil) ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. cls methodDictionary at: selector ifPresent: [:meth | Smalltalk tools browser openOnMethod: meth] ifAbsent: [lookupClosure value: cls superclass value: selector]]. lookupClosure value: Array value: #at:put:. cheers -ben

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by CodeDmitry

Thanks! That works! (And I learned that I can create collections with {a. b. c} syntax). -- View this message in context: http://forum.world.st/How-do-Smalltalk-disambiguate-messages-tp4918946p4918… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Charlie Robbats

Here, Dmitry, try this code in playground...maybe helps you understand | lookupClosure | lookupClosure := []. lookupClosure := [:cls :selector | (cls == nil) ifTrue: [Warning signal: ('selector lookup failure: ', selector)]. (cls methodDictionary at: selector ifAbsent: [nil]) ifNil: [lookupClosure value: cls superclass value: selector] ifNotNil: [:meth | Smalltalk tools browser openOnMethod: meth]]. lookupClosure value: Array value: #at:put:. On 10/16/2016 8:27 AM, CodeDmitry wrote: > I define Magic as "An opaque abstraction or an abstraction you think is > opaque until you learn better.", to a beginner, everything is deeply > Magical. > > That said, much of Smalltalk's opaqueness is not due to the language, but > due to me being a beginner. I'm sure there's a way to actually force sending > a message to a dictionary via something like dict['at:put:']('foo', 'bar') > but I am not familiar enough with Smalltalk to express it, so it feels like > the only way to send a message is via this multi-part message abstraction. > > > > > > > -- > View this message in context: http://forum.world.st/How-do-Smalltalk-disambiguate-messages-tp4918946p4918… > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. >

Oct. 16, 2016

Re: [Pharo-users] How do Smalltalk disambiguate messages?

by Ben Coman

On Sun, Oct 16, 2016 at 8:38 PM, Nicolai Hess <nicolaihess(a)gmail.com> wrote: > Am 16.10.2016 14:35 schrieb "CodeDmitry" <dimamakhnin(a)gmail.com>: >> >> I define Magic as "An opaque abstraction or an abstraction you think is >> opaque until you learn better.", to a beginner, everything is deeply >> Magical. >> >> That said, much of Smalltalk's opaqueness is not due to the language, but >> due to me being a beginner. I'm sure there's a way to actually force >> sending >> a message to a dictionary via something like dict['at:put:']('foo', 'bar') >> but I am not familiar enough with Smalltalk to express it, so it feels >> like >> the only way to send a message is via this multi-part message abstraction. >> > > You can always access the method dict directly to get a method and call > "perform" or perform with arguments. To put that in more concrete terms... a := Array new: 1. a perform: #at:put: withArguments: {1. 'Hello, world'}. a inspect. Note how #at:put: is a single identifier. cheers -ben

Oct. 16, 2016