- Pharo-dev - lists.pharo.org

[Pharo-project] [update 1.2] #12339
by Marcus Denker July 25, 2012

July 25, 2012

12339 ----- Issue 3575: [Failing Tests] Obsolete classes after tests (workaround) -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

4 4

[Pharo-project] ContextPart >> copyTo: -> copyUpTo: ?
by Mariano Martinez Peck July 25, 2012

July 25, 2012

Guys. Did I miss something or ContextPart>>copyTo: should be renamed to #copyUpTo: ? Thanks, -- Mariano http://marianopeck.wordpress.com

2 3

Re: [Pharo-project] [ANN] Alternative view of a system browser
by Fernando Olivero July 25, 2012

July 25, 2012

Hi, nice work. Looking forward to play with it. Is it similar to the Newspeak browser? Where methods expand in place. Fernando On Wed, Jul 18, 2012 at 7:36 AM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > I do not have a connection to look at it. > But I LOVE the idea. I love the idea that we can prototype fast new tools and rethink how processesâ¦. > Spec is one way to enable that. For example I love the GlamourInspector and it would be great to rewrite it with Spec. > Thanks a lot. > Stef > > On Jul 17, 2012, at 3:12 PM, Goubier Thierry wrote: > >> I believe that the traditional SystemBrowser of Smalltalk of old has been made unusable by the amount of code (and structure) you find in today's Smalltalk images. >> >> So this is to show you an alternative, a different way to browse through packages / classes and methods and code. This is Spec-based. >> >> https://picasaweb.google.com/lh/photo/ic_fRnBXXdyqbiJ5NRP9YtMTjNZETYmyPJy0l… >> >> What is missing / targeted ? >> * Drag and drop reorganisation of the tree as preferred / or as package / category reuse. >> * A good search facility in the tree. It is already keyboard navigation friendly (since the tree view is). >> * Most / All menu methods of a complete System Browser. I'm planning on reusing the OmniBrowser command structure as much as possible (to make it faster). >> * Funny ideas on how to use the tree structure : group / selection display, queries, metrics ... >> ** There is probably a lot more to be done here, but it would probably require Mondrian or other graph visualisation tools. >> >> Expect the code sometime by the end of the week, in a Pharo 2.0 / Pharo 1.4 version. >> >> Thierry >> -- >> Thierry Goubier >> CEA list >> Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s >> 91191 Gif sur Yvette Cedex >> France >> Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95 >> >> > >

3 3

Re: [Pharo-project] [squeak-dev] CompiledMethod>>#hash broken on CogVM r2559, Win7, Squeak 4.3
by Mariano Martinez Peck July 24, 2012

July 24, 2012

On Mon, Jul 23, 2012 at 8:08 PM, Eliot Miranda <eliot.miranda(a)gmail.com>wrote: > Hi Marcel, > > that's because the old hash method is broken. The Cog VM finally adds > a correct bounds check that prevents byte access to the non-byte parts > (literals) of a CompiledMethod. Accessing the literals of a method via > byte access gives access to the addresses of objects. This is broken since > the GC is a moving garbage collector and so addresses can change. Hence a > hash derived from such bytes is not stable. See Kernel-eem.692 which > provides the attached hash method. > > Hi Eliot. I remember seeing this discussion in the Pharo mailing list also. So...I guess we should commit that also in Pharo, right? > > On Sun, Jul 22, 2012 at 7:10 AM, Marcel Taeumel < > marcel.taeumel(a)student.hpi.uni-potsdam.de> wrote: > >> Hi! >> >> It is not possible to compute the hash value of a CompiledMethod instance >> with the CogVM r2559 on a Windows 7 machine using a Squeak 4.3 image. >> >> Should it be possible despite of all enhancements in the Cog VM? >> >> Best, >> Marcel >> >> 22 July 2012 4:06:54.988 pm >> >> VM: Win32 - Smalltalk >> Image: Squeak4.3 [latest update: #11860] >> >> SecurityManager state: >> Restricted: false >> FileAccess: true >> SocketAccess: true >> Working Dir C:\Tools\vivide_dev >> Trusted Dir C:\Tools\vivide_dev\Marcel >> Untrusted Dir C:\Users\Marcel\Documents\My Squeak >> >> CompiledMethod(Object)>>error: >> Receiver: (Morph>>#drawOn: "a CompiledMethod(337)") >> Arguments and temporary variables: >> aString: 'subscript is out of bounds: 1' >> Receiver's instance variables: >> (Morph>>#drawOn: "a CompiledMethod(337)") >> >> CompiledMethod(Object)>>errorSubscriptBounds: >> Receiver: (Morph>>#drawOn: "a CompiledMethod(337)") >> Arguments and temporary variables: >> index: 1 >> Receiver's instance variables: >> (Morph>>#drawOn: "a CompiledMethod(337)") >> >> CompiledMethod(Object)>>basicAt: >> Receiver: (Morph>>#drawOn: "a CompiledMethod(337)") >> Arguments and temporary variables: >> index: 1 >> Receiver's instance variables: >> (Morph>>#drawOn: "a CompiledMethod(337)") >> >> CompiledMethod class(ByteArray class)>>hashBytes:startingWith: >> Receiver: CompiledMethod >> Arguments and temporary variables: >> aByteArray: (Morph>>#drawOn: "a CompiledMethod(337)") >> speciesHash: 244619647 >> byteArraySize: 43 >> hash: 244619647 >> low: nil >> pos: 1 >> Receiver's instance variables: >> superclass: ByteArray >> methodDict: a MethodDictionary(size 190) >> format: 3586 >> instanceVariables: nil >> organization: ('accessing' clearFlag defaultSelector >> dragLabel endPC flag >> flush...etc... >> subclasses: nil >> name: #CompiledMethod >> classPool: a Dictionary(#LargeFrame->56 >> #SmallFrame->16 ) >> sharedPools: nil >> environment: Smalltalk globals "a SystemDictionary >> with lots of globals" >> category: #'Kernel-Methods' >> >> CompiledMethod(ByteArray)>>hash >> Receiver: (Morph>>#drawOn: "a CompiledMethod(337)") >> Arguments and temporary variables: >> >> Receiver's instance variables: >> (Morph>>#drawOn: "a CompiledMethod(337)") >> >> UndefinedObject>>DoIt >> Receiver: nil >> Arguments and temporary variables: >> >> Receiver's instance variables: >> nil >> >> Compiler>>evaluate:in:to:notifying:ifFail:logged: >> Receiver: a Compiler >> Arguments and temporary variables: >> textOrStream: a ReadWriteStream '(Morph>>#drawOn:) hash' >> aContext: nil >> receiver: nil >> aRequestor: a SmalltalkEditor >> failBlock: [closure] in [] in >> SmalltalkEditor(TextEditor)>>evaluateSelectionAnd...etc... >> logFlag: true >> methodNode: DoIt >> ^ (Morph >> #drawOn:) hash >> method: (UndefinedObject>>#DoIt "a >> CompiledMethod(1506)") >> value: nil >> toLog: nil >> itsSelection: nil >> itsSelectionString: nil >> Receiver's instance variables: >> sourceStream: a ReadWriteStream '(Morph>>#drawOn:) hash' >> requestor: a SmalltalkEditor >> class: UndefinedObject >> category: nil >> context: nil >> parser: a Parser >> >> [] in SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo: >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> <<error during printing> >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> BlockClosure>>on:do: >> Receiver: [closure] in >> SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo: >> Arguments and temporary variables: >> exception: OutOfScopeNotification >> handlerAction: [closure] in >> SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo...etc... >> handlerActive: true >> Receiver's instance variables: >> outerContext: >> SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo: >> startpc: 97 >> numArgs: 0 >> >> SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo: >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> aBlock: [closure] in >> SmalltalkEditor(TextEditor)>>evaluateSelection >> result: nil >> rcvr: nil >> ctxt: nil >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> SmalltalkEditor(TextEditor)>>evaluateSelection >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> SmalltalkEditor(TextEditor)>>doIt >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> SmalltalkEditor(TextEditor)>>doIt: >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> aKeyboardEvent: [keystroke '<Cmd-d>'] >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> SmalltalkEditor(TextEditor)>>dispatchOnKeyboardEvent: >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> aKeyboardEvent: [keystroke '<Cmd-d>'] >> honorCommandKeys: true >> openers: nil >> closers: nil >> result: nil >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> SmalltalkEditor(TextEditor)>>keyStroke: >> Receiver: a SmalltalkEditor >> Arguments and temporary variables: >> anEvent: [keystroke '<Cmd-d>'] >> Receiver's instance variables: >> morph: a TextMorphForEditView(2114) >> selectionShowing: false >> model: a Workspace >> paragraph: a MultiNewParagraph >> markBlock: a CharacterBlock with index 1 and >> character $( and rectangle >> 0@0 cor...etc... >> pointBlock: a CharacterBlock with index 23 and >> rectangle 154@0 corner: >> 154@17 >> ...etc... >> beginTypeInIndex: nil >> emphasisHere: {a TextFontChange font: 1} >> lastParenLocation: nil >> otherInterval: (1 to: 22) >> oldInterval: (1 to: 22) >> typeAhead: a WriteStream '' >> styler: nil >> >> [] in [] in TextMorphForEditView(TextMorph)>>keyStroke: >> Receiver: a TextMorphForEditView(2114) >> Arguments and temporary variables: >> <<error during printing> >> Receiver's instance variables: >> bounds: 0@0 corner: 416@19 >> owner: a TransformMorph(1978) >> submorphs: #() >> fullBounds: 0@0 corner: 416@19 >> color: Color black >> extension: a MorphExtension (2184) [other: >> (signalConnections -> a >> Dictionary(...etc... >> borderWidth: 0 >> borderColor: Color black >> textStyle: a TextStyle Bitmap Envy Code R 10 regular >> text: a Text for '(Morph>>#drawOn:) hash' >> wrapFlag: true >> paragraph: a MultiNewParagraph >> editor: a SmalltalkEditor >> container: nil >> predecessor: nil >> successor: nil >> backgroundColor: nil >> margins: nil >> editHistory: nil >> editView: a PluggableTextMorphPlus(3348) >> acceptOnCR: false >> >> TextMorphForEditView(TextMorph)>>handleInteraction:fromEvent: >> Receiver: a TextMorphForEditView(2114) >> Arguments and temporary variables: >> interactionBlock: [closure] in [] in >> TextMorphForEditView(TextMorph)>>keyStroke...etc... >> evt: [keystroke '<Cmd-d>'] >> oldEditor: a SmalltalkEditor >> oldParagraph: a MultiNewParagraph >> oldText: a Text for '(Morph>>#drawOn:) hash' >> Receiver's instance variables: >> bounds: 0@0 corner: 416@19 >> owner: a TransformMorph(1978) >> submorphs: #() >> fullBounds: 0@0 corner: 416@19 >> color: Color black >> extension: a MorphExtension (2184) [other: >> (signalConnections -> a >> Dictionary(...etc... >> borderWidth: 0 >> borderColor: Color black >> textStyle: a TextStyle Bitmap Envy Code R 10 regular >> text: a Text for '(Morph>>#drawOn:) hash' >> wrapFlag: true >> paragraph: a MultiNewParagraph >> editor: a SmalltalkEditor >> container: nil >> predecessor: nil >> successor: nil >> backgroundColor: nil >> margins: nil >> editHistory: nil >> editView: a PluggableTextMorphPlus(3348) >> acceptOnCR: false >> >> TextMorphForEditView>>handleInteraction:fromEvent: >> Receiver: a TextMorphForEditView(2114) >> Arguments and temporary variables: >> interActionBlock: [closure] in [] in >> TextMorphForEditView(TextMorph)>>keyStroke...etc... >> evt: [keystroke '<Cmd-d>'] >> Receiver's instance variables: >> bounds: 0@0 corner: 416@19 >> owner: a TransformMorph(1978) >> submorphs: #() >> fullBounds: 0@0 corner: 416@19 >> color: Color black >> extension: a MorphExtension (2184) [other: >> (signalConnections -> a >> Dictionary(...etc... >> borderWidth: 0 >> borderColor: Color black >> textStyle: a TextStyle Bitmap Envy Code R 10 regular >> text: a Text for '(Morph>>#drawOn:) hash' >> wrapFlag: true >> paragraph: a MultiNewParagraph >> editor: a SmalltalkEditor >> container: nil >> predecessor: nil >> successor: nil >> backgroundColor: nil >> margins: nil >> editHistory: nil >> editView: a PluggableTextMorphPlus(3348) >> acceptOnCR: false >> >> [] in TextMorphForEditView(TextMorph)>>keyStroke: >> Receiver: a TextMorphForEditView(2114) >> Arguments and temporary variables: >> evt: [keystroke '<Cmd-d>'] >> action: nil >> Receiver's instance variables: >> bounds: 0@0 corner: 416@19 >> owner: a TransformMorph(1978) >> submorphs: #() >> fullBounds: 0@0 corner: 416@19 >> color: Color black >> extension: a MorphExtension (2184) [other: >> (signalConnections -> a >> Dictionary(...etc... >> borderWidth: 0 >> borderColor: Color black >> textStyle: a TextStyle Bitmap Envy Code R 10 regular >> text: a Text for '(Morph>>#drawOn:) hash' >> wrapFlag: true >> paragraph: a MultiNewParagraph >> editor: a SmalltalkEditor >> container: nil >> predecessor: nil >> successor: nil >> backgroundColor: nil >> margins: nil >> editHistory: nil >> editView: a PluggableTextMorphPlus(3348) >> acceptOnCR: false >> >> >> --- The full stack --- >> CompiledMethod(Object)>>error: >> CompiledMethod(Object)>>errorSubscriptBounds: >> CompiledMethod(Object)>>basicAt: >> CompiledMethod class(ByteArray class)>>hashBytes:startingWith: >> CompiledMethod(ByteArray)>>hash >> UndefinedObject>>DoIt >> Compiler>>evaluate:in:to:notifying:ifFail:logged: >> [] in SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo: >> BlockClosure>>on:do: >> SmalltalkEditor(TextEditor)>>evaluateSelectionAndDo: >> SmalltalkEditor(TextEditor)>>evaluateSelection >> SmalltalkEditor(TextEditor)>>doIt >> SmalltalkEditor(TextEditor)>>doIt: >> SmalltalkEditor(TextEditor)>>dispatchOnKeyboardEvent: >> SmalltalkEditor(TextEditor)>>keyStroke: >> [] in [] in TextMorphForEditView(TextMorph)>>keyStroke: >> TextMorphForEditView(TextMorph)>>handleInteraction:fromEvent: >> TextMorphForEditView>>handleInteraction:fromEvent: >> [] in TextMorphForEditView(TextMorph)>>keyStroke: >> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >> ECToolSet class>>codeCompletionAround:textMorph:keyStroke: >> ToolSet class>>codeCompletionAround:textMorph:keyStroke: >> TextMorphForEditView(TextMorph)>>keyStroke: >> TextMorphForEditView>>keyStroke: >> TextMorphForEditView(TextMorph)>>handleKeystroke: >> KeyboardEvent>>sentTo: >> TextMorphForEditView(Morph)>>handleEvent: >> TextMorphForEditView(Morph)>>handleFocusEvent: >> [] in HandMorph>>sendFocusEvent:to:clear: >> BlockClosure>>on:do: >> PasteUpMorph>>becomeActiveDuring: >> HandMorph>>sendFocusEvent:to:clear: >> HandMorph>>sendEvent:focus:clear: >> HandMorph>>sendKeyboardEvent: >> HandMorph>>handleEvent: >> HandMorph>>processEvents >> [] in WorldState>>doOneCycleNowFor: >> Array(SequenceableCollection)>>do: >> WorldState>>handsDo: >> WorldState>>doOneCycleNowFor: >> WorldState>>doOneCycleFor: >> PasteUpMorph>>doOneCycle >> [] in Project class>>spawnNewProcess >> [] in BlockClosure>>newProcess >> >> >> >> -- >> View this message in context: >> http://forum.world.st/CompiledMethod-hash-broken-on-CogVM-r2559-Win7-Squeak… >> Sent from the Squeak - Dev mailing list archive at Nabble.com. >> >> > > > -- > best, > Eliot > > > > > -- Mariano http://marianopeck.wordpress.com

2 11

[Pharo-project] TextMorph: how to change its bounds/extent?
by Gareth Cox July 24, 2012

July 24, 2012

Hi All The default behaviour of a TextMorph is for it to grow down as you enter text. How can I change that behaviour so that the TextMorph grows both up AND down as I enter text? Kind Regards Dusty

2 1

[Pharo-project] what was changed in 20232?
by Pavel Krivanek July 24, 2012

July 24, 2012

Hi, what was changed in 20232? Because the issue http://code.google.com/p/pharo/issues/detail?id=6446 started here. But there is no ScriptLoader record for this version. -- Pavel

2 1

[Pharo-project] pharo-2.0-tests Â» 32,mac - Build # 256 - Failure!
by jenkins-pharo.ci.inria.fr＠jenkins-server.lille.inria.fr July 24, 2012

July 24, 2012

1 0

[Pharo-project] Change in MCCacheRepository that affects Metacello loading
by Mariano Martinez Peck July 24, 2012

July 24, 2012

Hi Dale. http://code.google.com/p/pharo/issues/detail?id=6405 renames MCCacheRepository #default to #uniqueInstance. Therefore, to be able to bootstrap Metacello we need to change: ConfigurationOfMetacello class >> bootstrapPackage: aString from: aPath | repository version | repository := (*MCCacheRepository uniqueInstance* includesVersionNamed: aString) ifTrue: [*MCCacheRepository uniqueInstance*] ifFalse: [MCHttpRepository location: aPath user: '' password: '']. repository versionReaderForFileNamed: aString , '.mcz' do: [:reader | version := reader version. version load. version workingCopy repositoryGroup addRepository: repository] I could commit, but I don't want to break Metacello loading in other images and I don't know how do you handle these cases. Thanks, -- Mariano http://marianopeck.wordpress.com

3 4

[Pharo-project] Cairo, VM?
by Hilaire Fernandes July 23, 2012

July 23, 2012

Hello, Are there VM ready for Cairo? If so for which system? Hilaire -- Dr. Geo -- http://www.drgeo.eu

3 6

[Pharo-project] athens for strikefonts
by Tudor Girba July 23, 2012

July 23, 2012

Hi Igor, I just wanted to ask: is the little fix of having Athens work with StrikeFont still on the roadmap :)? As I mentioned before, this would make the adoption easier, because we can switch the Athens even with the regular CogVMs. Cheers, Doru -- www.tudorgirba.com "It's not what we do that matters most, it's how we do it."

4 8