November 2016 - Pharo-users

Re: [Pharo-users] About STONS efficiency at storing nested objects { was : (Re: Keeping data with an application)}

by Sven Van Caekenberghe

You can't serialise blocks with STON. The design goal of STON was to be able to serialise regular domain models. Classes are written as a global reference to their name, as a kind of shortcut (as opposed to writing out the whole class structure). For blocks there is no easy solution, AFAIK. > On 2 Nov 2016, at 20:03, Dimitris Chloupis <kilon.alios(a)gmail.com> wrote: > > I tried to use my ChronosManager object with it and STON does not seem to like this > > m := ChronosManager new. > s:= STON toString: m > s inspect. > > STONWriter>>error: > BlockClosure(Object)>>stonOn: > STONWriter>>nextPut: > STONWriter>>encodeKey:value: > STONMapWriter>>at:put: > [ :each | > (anObject instVarNamed: each) > ifNotNil: [ :value | dictionary at: each asSymbol put: value ] > ifNil: [ anObject stonShouldWriteNilInstVars > ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] in [ :dictionary | > instanceVariableNames > do: [ :each | > (anObject instVarNamed: each) > ifNotNil: [ :value | dictionary at: each asSymbol put: value ] > ifNil: [ anObject stonShouldWriteNilInstVars > ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] ] in STONWriter>>writeObject: in Block: [ :each | ... > Array(SequenceableCollection)>>do: > [ :dictionary | > instanceVariableNames > do: [ :each | > (anObject instVarNamed: each) > ifNotNil: [ :value | dictionary at: each asSymbol put: value ] > ifNil: [ anObject stonShouldWriteNilInstVars > ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] ] in STONWriter>>writeObject: in Block: [ :dictionary | ... > [ self newlineIndent. > block value: mapWriter ] in [ | mapWriter | > mapWriter := STONMapWriter on: self. > writeStream nextPut: ${. > self > indentedDo: [ self newlineIndent. > block value: mapWriter ]. > self newlineIndent. > writeStream nextPut: $} ] in STONWriter>>writeObject:streamMap: in Block: [ self newlineIndent.... > STONWriter>>indentedDo: > [ | mapWriter | > mapWriter := STONMapWriter on: self. > writeStream nextPut: ${. > self > indentedDo: [ self newlineIndent. > block value: mapWriter ]. > self newlineIndent. > writeStream nextPut: $} ] in STONWriter>>writeObject:streamMap: in Block: [ | mapWriter |... > [ writeStream nextPutAll: anObject class stonName. > self prettyPrintSpace. > block value ] in STONWriter>>writeObject:do: in Block: [ writeStream nextPutAll: anObject class stonName....etc... > STONWriter>>with:do: > STONWriter>>writeObject:do: > STONWriter>>writeObject:streamMap: > STONWriter>>writeObject: > KMKeymap(Object)>>stonOn: > STONWriter>>nextPut: > STONWriter>>encodeKey:value: > [ :key :value | > first > ifTrue: [ first := false ] > ifFalse: [ self mapElementSeparator ]. > self encodeKey: key value: value ] in [ self newlineIndent. > pairs > keysAndValuesDo: [ :key :value | > first > ifTrue: [ first := false ] > ifFalse: [ self mapElementSeparator ]. > self encodeKey: key value: value ] ] in STONWriter>>encodeMap: in Block: [ :key :value | ... > [ :assoc | aBlock value: assoc key value: assoc value ] in Dictionary>>keysAndValuesDo: in Block: [ :assoc | aBlock value: assoc key value: assoc va...etc... > [ :each | each ifNotNil: [ aBlock value: each ] ] in Dictionary>>associationsDo: in Block: [ :each | each ifNotNil: [ aBlock value: each ] ] > Array(SequenceableCollection)>>do: > Dictionary>>associationsDo: > Dictionary>>keysAndValuesDo: > [ self newlineIndent. > pairs > keysAndValuesDo: [ :key :value | > first > ifTrue: [ first := false ] > ifFalse: [ self mapElementSeparator ]. > self encodeKey: key value: value ] ] in STONWriter>>encodeMap: in Block: [ self newlineIndent.... > STONWriter>>indentedDo: > STONWriter>>encodeMap: > [ self encodeMap: hashedCollection ] in STONWriter>>writeMap: in Block: [ self encodeMap: hashedCollection ] > STONWriter>>with:do: >

Nov. 2, 2016

Re: [Pharo-users] About STONS efficiency at storing nested objects { was : (Re: Keeping data with an application)}

by Sven Van Caekenberghe

> On 2 Nov 2016, at 19:56, Esteban A. Maringolo <emaringolo(a)gmail.com> wrote: > > 2016-11-02 15:48 GMT-03:00 Offray Vladimir Luna CÃ¡rdenas > <offray.luna(a)mutabit.com>: >> Hi Sven, >> >> In our ongoing Data Week, we found that would be useful to use a unique >> identifier for objects that is not integer (some kind of SHA or similar). >> The use case was this: >> >> We were editing the same Grafoscopio tree in a DVCS (fossil, but could be >> git or something similar) and the nodes changed in a conflicting edition. >> Contents were different, but the order was the same. Do you think is useful >> this kind of unique ID index to make STON even DVCS friendlier? > > The ID for references should be some form of UUID/GUID. > SHA or any other hash wouldn't work since it would be dependant on the > contents of the object. > > However this would increase the file size considerably, 38 bytes per > id (32 hexadecimal leters, 4 hyphens and the quotes for the whole > string). > > However according to what Sven said, the integer used for the ref is > the "order" of the element, so it would be a whole different > referencing strategy. Right (the last conclusion). The reference identifiers in STON are only used when there are actual references needed (in the case of shared instances or circular references). Furthermore they only make sense in one particular graph. If you want some form of external UUID you should add them to your objects. > Esteban A. Maringolo >

Nov. 2, 2016

Re: [Pharo-users] Pharo desktop UI

by Johan Fabry

Hello Vikenti, for writing UIs in Pharo the UI builder you should use is Spec. We have documentation online in the form of a book (which is a work in progress).I think it will answer many of your UI questions, have a look at http://files.pharo.org/books/spec-tutorial/ HTH, -- Does this mail seem too brief? Sorry for that, I donât mean to be rude! Please see http://emailcharter.org . Johan Fabry - http://pleiad.cl/~jfabry PLEIAD and RyCh labs - Computer Science Department (DCC) - University of Chile > On 02 Nov 2016, at 18:43, vikenti <vikenti.potapov(a)gmail.com> wrote: > > Hello, i'm newbie in Pharo, converted from Visual Works which is quite > different from Pharo Smalltalk. > I started to port my application (i've been working on for about three > years) from VW (because of new personal user licensing limitations of Visual > Works), but i have to solve some problems and need your advice. > > These ase some of the most important problems: > 1. I need to rewrite the whole GUI from scratch. What UI framework to > choose and where to get documentation? Please, don't send me to research > code examples instead of docs - i do this during whole last week. The > example should be complete and simple: one task - one example, all examples > i've seen are either not applicable to real life or too complicated to > understand. > - I need simple window with menu (how to attach menu items to menu > handlers???? - no answer in examples) > - Toolbar with icons (how????????) > - components (as i understand - Morphic subclasses, it is the simplest > part) > - when window opens i need handler to do some setup actions. Handler should > fire after UI is built and my app's window is opened (how?????) > - i need another handler, which fires when you try to close Pharo or > application's window. Handler must check whether to close window or not and > do allow or not to close my application. > - how to programmatically close window?????? > > 2. The next task is to do some work on image load (i mean pharo image). I > need some handler which fires immediately after image is loaded. How to > include my handler in this chain???? My app saves data into the image so i > need to manage this and auto-load _my_ application after startup. > > 3. How to drag-n-drop from the host operation system into pharo application > and vice versa? I need to drag-n-drop a list of files from\to file browser. > > 4. Application deployment. How to strip the unnecessary code from the image? > I've heard there is "small image" to add all-i-need-to-run. Where i can > download it and how to use it???? > > > > > > > > > > -- > View this message in context: http://forum.world.st/Pharo-desktop-UI-tp4921212.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > >

Nov. 2, 2016

Pharo desktop UI

by vikenti

Hello, i'm newbie in Pharo, converted from Visual Works which is quite different from Pharo Smalltalk. I started to port my application (i've been working on for about three years) from VW (because of new personal user licensing limitations of Visual Works), but i have to solve some problems and need your advice. These ase some of the most important problems: 1. I need to rewrite the whole GUI from scratch. What UI framework to choose and where to get documentation? Please, don't send me to research code examples instead of docs - i do this during whole last week. The example should be complete and simple: one task - one example, all examples i've seen are either not applicable to real life or too complicated to understand. - I need simple window with menu (how to attach menu items to menu handlers???? - no answer in examples) - Toolbar with icons (how????????) - components (as i understand - Morphic subclasses, it is the simplest part) - when window opens i need handler to do some setup actions. Handler should fire after UI is built and my app's window is opened (how?????) - i need another handler, which fires when you try to close Pharo or application's window. Handler must check whether to close window or not and do allow or not to close my application. - how to programmatically close window?????? 2. The next task is to do some work on image load (i mean pharo image). I need some handler which fires immediately after image is loaded. How to include my handler in this chain???? My app saves data into the image so i need to manage this and auto-load _my_ application after startup. 3. How to drag-n-drop from the host operation system into pharo application and vice versa? I need to drag-n-drop a list of files from\to file browser. 4. Application deployment. How to strip the unnecessary code from the image? I've heard there is "small image" to add all-i-need-to-run. Where i can download it and how to use it???? -- View this message in context: http://forum.world.st/Pharo-desktop-UI-tp4921212.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Nov. 2, 2016

Re: [Pharo-users] About STONS efficiency at storing nested objects { was : (Re: Keeping data with an application)}

by Offray Vladimir Luna CÃ¡rdenas

On 02/11/16 13:56, Esteban A. Maringolo wrote: > 2016-11-02 15:48 GMT-03:00 Offray Vladimir Luna CÃ¡rdenas > <offray.luna(a)mutabit.com>: >> Hi Sven, >> >> In our ongoing Data Week, we found that would be useful to use a unique >> identifier for objects that is not integer (some kind of SHA or similar). >> The use case was this: >> >> We were editing the same Grafoscopio tree in a DVCS (fossil, but could be >> git or something similar) and the nodes changed in a conflicting edition. >> Contents were different, but the order was the same. Do you think is useful >> this kind of unique ID index to make STON even DVCS friendlier? > The ID for references should be some form of UUID/GUID. > SHA or any other hash wouldn't work since it would be dependant on the > contents of the object. > > However this would increase the file size considerably, 38 bytes per > id (32 hexadecimal leters, 4 hyphens and the quotes for the whole > string). > > However according to what Sven said, the integer used for the ref is > the "order" of the element, so it would be a whole different > referencing strategy. > > > Esteban A. Maringolo > > OK. We will think about this to device a better conflict resolution and collaborative editing strategy. Cheers, Offray

Nov. 2, 2016

Re: [Pharo-users] How does Boolean ifTrue work?

by Igor Stasenko

If you want to ensure that your class(es) comply with certain protocol, just write a test that covers the protocol and checks that class instances will understand messages you want it to understand. But there's no way to restrict your class to comply to whole protocol once at a time, because tools made in a way, that you populating your class with methods, each method is add individually and compiled separately, and the only validation, the compiler is capable of is basically compliance with smalltalk syntax. And it doesn't cares about higher lever requirement, like whether your class turns to be 'valid' because of a method you just added, ready to be used and for what. Even more, there's no way to connect all those 'interface' formalisation garbage rules with send sites (the place where you actually invoking one or another method of one of potetial implementor of your interface), so it makes no sense to do any (pre)validation on whatever class/object in a system in order to check whether it conforms with it or not. That's " Why don't Smalltalk or Smalltalklike languages have checked interfaces?" -- Best regards, Igor Stasenko.

Nov. 2, 2016

Re: [Pharo-users] How does Boolean ifTrue work?

by Igor Stasenko

On 2 November 2016 at 20:36, Henrik Sperre Johansen < henrik.s.johansen(a)veloxit.no> wrote: > CodeDmitry wrote > > Why don't Smalltalk or Smalltalklike languages have checked interfaces? > > The compilation occurs at runtime but it is still technically a > > compilation, why don't languages allow implementing interfaces at > runtime? > > The type information is there, and the source can load the list of > > messages expected and check if the compiled class contains all members or > > removes it and throws an exception. Is this just too expensive? > > <rude mode on> because it's smalltalk. and because you don't come into existing temple with own rules </rude mode still on> well.. i hope you will stay here a little bit longer, to learn and undestand, that what you proposing/asking for is ether already there in one or another form, or simply unnecessary. P.S. please forgive me for being rude, impatient and trollish towards newcomers.. but i just can't help with it. -- Best regards, Igor Stasenko.

Nov. 2, 2016

Re: [Pharo-users] How does Boolean ifTrue work?

by Dimitris Chloupis

I try to avoid ifs altogether. Most of the time I use polymorphism , which means instead of checking you preform no check and just call a method, depending on the object the method of the same name will have different code which replaces ifs and is far more readable. Of course this technique can replace while loops, switches , even for loops. Obviously though there will be times you will have to use an if, in that case I prefer ifEmpty: , compatibility is not an issue since Smalltalk allows you to override and insert your custom methods to existing objects with ease. Those techniques are also available in Python. Though in the case of python people love ifs and you rarely see coders take advantages of OOP.

Nov. 2, 2016

Re: [Pharo-users] About STONS efficiency at storing nested objects { was : (Re: Keeping data with an application)}

by Dimitris Chloupis

I suspected so , ok thanks will keep in mind. On Wed, Nov 2, 2016 at 9:13 PM phil(a)highoctane.be <phil(a)highoctane.be> wrote: > Of course, you need a specfic stonOn: aStream for objects that aren't > standard objects: > > Check out the Ston chapter. Or a couple of stonOn: implementers. > > Phil > > On Wed, Nov 2, 2016 at 8:03 PM, Dimitris Chloupis <kilon.alios(a)gmail.com> > wrote: > > I tried to use my ChronosManager object with it and STON does not seem to > like this > > m := ChronosManager new. > s:= STON toString: m > s inspect. > > STONWriter>>error: > BlockClosure(Object)>>stonOn: > STONWriter>>nextPut: > STONWriter>>encodeKey:value: > STONMapWriter>>at:put: > [ :each | > (anObject instVarNamed: each) > ifNotNil: [ :value | dictionary at: each asSymbol put: value ] > ifNil: [ anObject stonShouldWriteNilInstVars > ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] in [ :dictionary | > instanceVariableNames > do: [ :each | > (anObject instVarNamed: each) > ifNotNil: [ :value | dictionary at: each asSymbol put: value ] > ifNil: [ anObject stonShouldWriteNilInstVars > ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] ] in > STONWriter>>writeObject: in Block: [ :each | ... > Array(SequenceableCollection)>>do: > [ :dictionary | > instanceVariableNames > do: [ :each | > (anObject instVarNamed: each) > ifNotNil: [ :value | dictionary at: each asSymbol put: value ] > ifNil: [ anObject stonShouldWriteNilInstVars > ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] ] in > STONWriter>>writeObject: in Block: [ :dictionary | ... > [ self newlineIndent. > block value: mapWriter ] in [ | mapWriter | > mapWriter := STONMapWriter on: self. > writeStream nextPut: ${. > self > indentedDo: [ self newlineIndent. > block value: mapWriter ]. > self newlineIndent. > writeStream nextPut: $} ] in STONWriter>>writeObject:streamMap: in Block: > [ self newlineIndent.... > STONWriter>>indentedDo: > [ | mapWriter | > mapWriter := STONMapWriter on: self. > writeStream nextPut: ${. > self > indentedDo: [ self newlineIndent. > block value: mapWriter ]. > self newlineIndent. > writeStream nextPut: $} ] in STONWriter>>writeObject:streamMap: in Block: > [ | mapWriter |... > [ writeStream nextPutAll: anObject class stonName. > self prettyPrintSpace. > block value ] in STONWriter>>writeObject:do: in Block: [ writeStream > nextPutAll: anObject class stonName....etc... > STONWriter>>with:do: > STONWriter>>writeObject:do: > STONWriter>>writeObject:streamMap: > STONWriter>>writeObject: > KMKeymap(Object)>>stonOn: > STONWriter>>nextPut: > STONWriter>>encodeKey:value: > [ :key :value | > first > ifTrue: [ first := false ] > ifFalse: [ self mapElementSeparator ]. > self encodeKey: key value: value ] in [ self newlineIndent. > pairs > keysAndValuesDo: [ :key :value | > first > ifTrue: [ first := false ] > ifFalse: [ self mapElementSeparator ]. > self encodeKey: key value: value ] ] in STONWriter>>encodeMap: in Block: [ > :key :value | ... > [ :assoc | aBlock value: assoc key value: assoc value ] in > Dictionary>>keysAndValuesDo: in Block: [ :assoc | aBlock value: assoc key > value: assoc va...etc... > [ :each | each ifNotNil: [ aBlock value: each ] ] in > Dictionary>>associationsDo: in Block: [ :each | each ifNotNil: [ aBlock > value: each ] ] > Array(SequenceableCollection)>>do: > Dictionary>>associationsDo: > Dictionary>>keysAndValuesDo: > [ self newlineIndent. > pairs > keysAndValuesDo: [ :key :value | > first > ifTrue: [ first := false ] > ifFalse: [ self mapElementSeparator ]. > self encodeKey: key value: value ] ] in STONWriter>>encodeMap: in Block: [ > self newlineIndent.... > STONWriter>>indentedDo: > STONWriter>>encodeMap: > [ self encodeMap: hashedCollection ] in STONWriter>>writeMap: in Block: [ > self encodeMap: hashedCollection ] > STONWriter>>with:do: > > >

Nov. 2, 2016

Re: [Pharo-users] UDP Socket primitive failure

by Dimitris Chloupis

good catch , now we know why it does what it does. The reason why I did this is that there is an example method in OSCMessage that use this bad syntax in the comment. So it seems the Socket does send the message because Pharo does not perform a check on the argument, the Socket fails obviously but it may send the message to an unknown address. I think Supercollider watches for any kind of messages on various addresses and ports. At least that is only explanation I can think of. Or maybe I used the address string method and I forgot to mention it. Anyway thanks will keep this in mind. On Wed, Nov 2, 2016 at 9:07 PM Henrik Sperre Johansen < henrik.s.johansen(a)veloxit.no> wrote: > I'm amazed that ever works, as (in general, maybe mac is special,) you need > to specify the ipv4 address as a ByteArray, not a string. > > (OSCMessage for:{'/mixer.volume'. 1 . 0.2})sendTo: #[127 0 0 1] port: 57120 > > Cheers, > Henry > > > > -- > View this message in context: > http://forum.world.st/UDP-Socket-primitive-failure-tp4920870p4921195.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > >

Nov. 2, 2016