January 2011 - Pharo-dev - lists.pharo.org

[Pharo-project] Xtreams up to date
by mkobetic＠gmail.com Jan. 13, 2011

Jan. 13, 2011

Hope it's OK to cross-post this, I figured there might be interested people on both sides. I finished the updates of the Xtreams port to match the VW version, so everything (that is available) should work as advertised in the documentation (http://code.google.com/p/xtreams/) Besides the implementation updates this last round of changes includes: * repackaging to match the docs and VW better, the dialect specific parts are now (mostly) gathered in Xtreams-Support * there is now a Gofer expression on the project page (http://www.squeaksource.com/Xtreams.html) to help people loading it, it shouldn't be hard to keep it up to date it shouldn't change very much * the source code is now identical between the dialects as much as possible, to help keeping it up to date. * one significant API change is that we renamed XTIncomplete to Incomplete to make code that uses Xtreams more portable. This is the only class that is very prominent in the API and hard to avoid in any sufficiently complex application, hopefully this is acceptable. I don't anticipate any significant changes in the port for next little while. I'd like to play with Squeak FFI next to see if I can bring the cryptographic streams from Xtreams-Xtras over and then see what it would take to get Xtreams-SSH2 running on Squeak and how it would perform. If you're curious how it went on VW side, I wrote about that in a blog post here: http://www.cincomsmalltalk.com/userblogs/cst/blogView. If you find bugs or issues, feel free to file an issue on the google project page (http://code.google.com/p/xtreams/issues/list) I'm monitoring both of these lists now as well and will try to answer any questions promptly. Cheers! Martin

3 2

[Pharo-project] [update 1.2] # 12301
by StÃ©phane Ducasse Jan. 13, 2011

Jan. 13, 2011

- Issue 3537: Addinf inst average size to SpaceTally. Thanks Mariano Martinez-Peck. - Issue 3530: New pass on RML + new tool for inspecting Senders. Thanks Benjamin van Ryseghem.

1 0

[Pharo-project] Issue 3537 in pharo: Addinf inst average size to SpaceTally
by pharo＠googlecode.com Jan. 13, 2011

Jan. 13, 2011

Status: Accepted Owner: marianopeck Labels: Milestone-1.2 New issue 3537 by marianopeck: Addinf inst average size to SpaceTally http://code.google.com/p/pharo/issues/detail?id=3537 Hi. I did a little change to SpaceTally to add one more column which represents the instance average size per class So. before if you evaluated: SpaceTally new printSpaceAnalysis you get a file something like this: Class code space # instances inst space percent Bitmap 3525 227 3373140 14.4 Array 2152 82896 2804472 12.0 ByteSymbol 1062 40714 1037516 4.4 .... Now, you get something like this: Class code space # instances inst space percent inst average size ByteString 1984 96048 6598440 24.40 68.70 Bitmap 3525 328 5908048 21.80 18012.34 CompiledMethod 19125 65347 4061396 15.00 62.15 Array 2152 88541 3024132 11.20 34.16 ..... Pharo core version: 12300

2 2

[Pharo-project] html parser
by Tudor Girba Jan. 13, 2011

Jan. 13, 2011

Hi, Is there a robust html parser in Pharo? As I understand, there would be one in VW called TwoFlowers, but I do not know the license. Cheers, Doru -- www.tudorgirba.com "No matter how many recipes we know, we still value a chef."

1 0

[Pharo-project] BitmapFillStyle does not support translucent form
by Denis Kudriashov Jan. 13, 2011

Jan. 13, 2011

Hello, I try BitmapFillStyle with translucent form for my morph object. And It's does not work. There is AlphaInfiniteForm in polymorph package that work good as translucent fill styles. BitmapFillStyle used by Morph>>useBitmapFill. This method try set default bitmap form fill: fill := BitmapFillStyle fromForm: self defaultBitmapFillForm. "Note: Must fix the origin due to global coordinates" fill origin: self bounds origin. self fillStyle: fill. For my application I change #useBitmapFill to open file choose dialog and using user selection for fill style (by AlphaInfiniteForm). I want to share this little code. But I don't know how to package this? AlphaInfiniteForm is from Polymorph-... package. But useBitmapFill is from Morphic-.. package. Maybe AlphaInfiniteForm can be moved to Graphics-Display Objects package? What you think?

2 1

[Pharo-project] Issue 3535 in pharo: I broke SpaceTally in Pharo 1.2
by pharo＠googlecode.com Jan. 13, 2011

Jan. 13, 2011

Status: Accepted Owner: marianopeck Labels: Milestone-1.2 New issue 3535 by marianopeck: I broke SpaceTally in Pharo 1.2 http://code.google.com/p/pharo/issues/detail?id=3535 Sorry, but as part of a refactor for 1.2 I screwup the SpaceTally. Pharo core version: 12294 Steps to reproduce: 1. SpaceTally new printSpaceAnalysis 2. Check the file STspace.text in the same directory of the image and you will see that the file is almost empty. Only the header is written. I will commit a fix to the inbox. At the same time, I will commit a little roundTo: for the instance space.

1 3

Re: [Pharo-project] Maybe bug in ZnHttpClient
by Sven Van Caekenberghe Jan. 13, 2011

Jan. 13, 2011

Hello Tony, (I am CC'ing the Pharo list) On 11 Jan 2011, at 23:48, Tony Fleig wrote: > Hi Sven, > > At Stef's suggestion I am trying Zinc in place of WebClient in my > automated testing of my Seaside apps. > > I like Zinc better already and I can see that I will need fewer lines > of code using Zinc than WebClients for my purposes. That is great! Thanks for trying Zn and for giving feedback. BTW, I really liked your writeup about testing (and I was thinking/hoping all the time, he should be using Zn ;-) > That said, I have found I think a bug. > > Pharo 1.1.1 Seaside 3.0.3 Zinc latest > > In ZnHttpClient>>#method:for:headers:data:limit, if a 302 response is > received, the Location header field may not contain a complete URL > (i.e. it may not contain scheme://host:port but only the path). When > this happens, the next ZnHttpClient>>#openConnection fails in > NetNameResolver trying to resolve a nil hostname. > > This occurs when the server is Seaside. > > I have solved this by setting followRedirect to false and handling the > redirect myself (as I as doing with WebClient anyway.) Well, strictly speaking it isn't a bug (the specs say that the Location URL has to be absolute), but you are right: there is common support for relative redirect locations, so I added that (did not yet test it though). > Some other observations: > > 1. It is my understanding that many browsers respond to a 302/303 > response from a POST with a following GET to the address specified in > the 302/303 Location header rather than repeating the POST with its > payload as is done in ZnHttpClient. (See > http://en.wikipedia.org/wiki/HTTP_303) I'll have to study/think about that for a while, it depends on what the specs says. It doesn't make much sense for an automated client to do a GET I think. What would you suggest ? > 2. The arguments to the settings accessors in ZnUserAgentSettings are > all anObject. Wouldn't aBoolean and anInteger be more informative > names (for followRedirect: and redirectLimit: for example)? I was > stopped when I saw anObject and went perusing the sources to be sure > that what was wanted was a boolean and not something more complex. You're right, proper parameter names are helpful, I changed some of them. I went over the ZnUserAgent and ZnClient classes (they were originally written by Matt Kennedy). I made various simplifications and cleanups (most related to newer API) which might help when reading the code. I also made an important change/bugfix regarding query parameters (originally reported by CÃ©dric BÃ©ler I think). Thanks again for the feedback, if you have any more questions, feel free to ask them. Sven > Sven Van Caekenberghe uploaded a new version of Zinc-HTTP to project Zinc HTTP Components: > http://www.squeaksource.com/ZincHTTPComponents/Zinc-HTTP-SvenVanCaekenbergh… > > ==================== Summary ==================== > > Name: Zinc-HTTP-SvenVanCaekenberghe.114 > Author: SvenVanCaekenberghe > Time: 12 January 2011, 2:03:44 pm > UUID: e1a49d00-d9f0-4800-8cd7-cb354e86d671 > Ancestors: Zinc-HTTP-SvenVanCaekenberghe.113 > > ZnUserAgent (and ZnClient) now can follow relative redirect locations; > introduced ZnMultiValueDictionary to allow multiple values to be stored under one key as an array; > using ZnMultiValueDictionary for queries and headers; > ZnUrl now uses ZnUtils>>parseQueryFrom: again; > various simplifications and cleanups which might help when reading the code in ZnUserAgent (and ZnClient); > ZnUserAgent (and ZnClient) now handle parameter encoding differently

2 1

[Pharo-project] [BUG]LargePositiveInteger(Object)>>error:
by Pat Maddox Jan. 13, 2011

Jan. 13, 2011

I opened up an OmniBrowser and scrolled to the very bottom. Then I clicked on my package name, and then a class name. 6 January 2011 12:12:44 pm VM: Mac OS - intel - 1065 - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.43] Croquet Cog 3.0.0 Image: Pharo-1.1.1-- [Latest update: #11414] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /Users/padillac/code/pharo_image Trusted Dir /foobar/tooBar/forSqueak/bogus/ Untrusted Dir /Users/padillac/Library/Preferences/Croquet/Internet/Untrusted LargePositiveInteger(Object)>>error: Receiver: 4287876447 Arguments and temporary variables: aString: 'MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth:' Receiver's instance variables: 4287876447 [] in WorldState>>displayWorldSafely: Receiver: a WorldState Arguments and temporary variables: err: 'MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth:' rcvr: 4287876447 errCtx: OBLazyListMorph>>display:atRow:on: errMorph: an OBLazyListMorph(969408512) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: 0@0 corner: 2552@1374 canvas: a FormCanvas on: DisplayScreen(2552x1374x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a SystemWindow(154664960))(a SystemWin...etc... lastStepTime: 805471 lastStepMessage: nil lastCycleTime: 805463 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 805471 menuBuilder: a PragmaMenuBuilder BlockClosure>>valueWithPossibleArgs: Receiver: [:err :rcvr | | errCtx errMorph | errCtx := thisContext. [errCtx := errCtx sender. [err...etc... Arguments and temporary variables: anArray: #('MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth:' 42...etc... Receiver's instance variables: outerContext: WorldState>>displayWorldSafely: startpc: 73 numArgs: 2 [] in BlockClosure>>ifError: Receiver: [aWorld displayWorld] Arguments and temporary variables: errorHandlerBlock: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDep...etc... ex: [:err :rcvr | | errCtx errMorph | errCtx := thisContext. [errCtx := errCt...etc... Receiver's instance variables: outerContext: WorldState>>displayWorldSafely: startpc: 66 numArgs: 0 BlockClosure>>valueWithPossibleArgs: Receiver: [:ex | errorHandlerBlock valueWithPossibleArgs: {ex description. ex receiver}] Arguments and temporary variables: anArray: an Array(MessageNotUnderstood: LargePositiveInteger>>pixelValueForDept...etc... Receiver's instance variables: outerContext: BlockClosure>>ifError: startpc: 40 numArgs: 1 [] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: Receiver's instance variables: sender: BlockClosure>>ifError: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(280231936)") closureOrNil: nil receiver: [aWorld displayWorld] BlockClosure>>ensure: Receiver: [(self tempAt: 2) valueWithPossibleArgs: {exception}] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 90 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: val: nil Receiver's instance variables: sender: BlockClosure>>ifError: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(280231936)") closureOrNil: nil receiver: [aWorld displayWorld] MessageNotUnderstood(Exception)>>signal Receiver: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: MessageNotUnderstood(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil message: pixelValueForDepth: 32 receiver: 4287876447 reachedDefaultHandler: false LargePositiveInteger(Object)>>doesNotUnderstand: #pixelValueForDepth: Receiver: 4287876447 Arguments and temporary variables: aMessage: pixelValueForDepth: 32 exception: MessageNotUnderstood: LargePositiveInteger>>pixelValueForDepth: resumeValue: nil Receiver's instance variables: 4287876447 ColorForm>>colormapIfNeededForDepth: Receiver: ColorForm(12x12x8) Arguments and temporary variables: destDepth: 32 newMap: a Bitmap of length 256 i: 3 iLimiT: 256 Receiver's instance variables: bits: #[36 29 11 7 11 10 10 11 9 11 95 10 9 9 10 11 11 11 11 11 11 11 10 9 0 8 ...etc... width: 12 height: 12 depth: 8 offset: 0@0 colors: a ColorArray((Color r: 0.572 g: 0.804 b: 0.369) (Color r: 0.564 g: 0.76...etc... cachedDepth: nil cachedColormap: nil ColorForm>>colormapIfNeededFor: Receiver: ColorForm(12x12x8) Arguments and temporary variables: destForm: DisplayScreen(2552x1374x32) newMap: nil color: nil pv: nil i: nil iLimiT: nil Receiver's instance variables: bits: #[36 29 11 7 11 10 10 11 9 11 95 10 9 9 10 11 11 11 11 11 11 11 10 9 0 8 ...etc... width: 12 height: 12 depth: 8 offset: 0@0 colors: a ColorArray((Color r: 0.572 g: 0.804 b: 0.369) (Color r: 0.564 g: 0.76...etc... cachedDepth: nil cachedColormap: nil FormCanvas>>image:at:sourceRect:rule: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aForm: ColorForm(12x12x8) aPoint: 0@15 sourceRect: 0@0 corner: 12@12 rule: 24 Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>translucentImage:at:sourceRect: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aForm: ColorForm(12x12x8) aPoint: 0@15 sourceRect: 0@0 corner: 12@12 Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>translucentImage:at: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aForm: ColorForm(12x12x8) aPoint: 0@15 Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil OBLazyListMorph>>display:atRow:on: Receiver: an OBLazyListMorph(969408512) Arguments and temporary variables: item: #renderContentOn: row: 2 canvas: a FormCanvas on: DisplayScreen(2552x1374x32) drawBounds: 0@14 corner: 190@28 top: 15 icon: ColorForm(12x12x8) name: #arrowUp Receiver's instance variables: bounds: 0@0 corner: 190@42 owner: a TransformMorph(743702528) submorphs: #() fullBounds: 0@0 corner: 190@42 color: Color black extension: a MorphExtension (970981376) [other: (errorOnDraw -> true)] listItems: #(#callbackUrlOn:callback: #renderContentOn: nil) font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 0 selectedRows: a PluggableSet() listSource: an OBPluggableListMorph(155189248) maxWidth: 136 OBLazyListMorph(LazyListMorph)>>drawOn: Receiver: an OBLazyListMorph(969408512) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) row: 2 rowLimiT: 3 Receiver's instance variables: bounds: 0@0 corner: 190@42 owner: a TransformMorph(743702528) submorphs: #() fullBounds: 0@0 corner: 190@42 color: Color black extension: a MorphExtension (970981376) [other: (errorOnDraw -> true)] listItems: #(#callbackUrlOn:callback: #renderContentOn: nil) font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 0 selectedRows: a PluggableSet() listSource: an OBPluggableListMorph(155189248) maxWidth: 136 FormCanvas(Canvas)>>draw: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: anObject: an OBLazyListMorph(969408512) Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>drawMorph: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: an OBLazyListMorph(969408512) Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil [] in OBLazyListMorph(Morph)>>fullDrawOn: Receiver: an OBLazyListMorph(969408512) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 0@0 corner: 190@42 owner: a TransformMorph(743702528) submorphs: #() fullBounds: 0@0 corner: 190@42 color: Color black extension: a MorphExtension (970981376) [other: (errorOnDraw -> true)] listItems: #(#callbackUrlOn:callback: #renderContentOn: nil) font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 0 selectedRows: a PluggableSet() listSource: an OBPluggableListMorph(155189248) maxWidth: 136 FormCanvas>>roundCornersOf:in:during: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: an OBLazyListMorph(969408512) bounds: 0@0 corner: 190@42 aBlock: [(aCanvas isVisible: self bounds) ifTrue: [aCanvas drawMorph: self]. ...etc... Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>roundCornersOf:during: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: an OBLazyListMorph(969408512) aBlock: [(aCanvas isVisible: self bounds) ifTrue: [aCanvas drawMorph: self]. ...etc... Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil OBLazyListMorph(Morph)>>fullDrawOn: Receiver: an OBLazyListMorph(969408512) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 0@0 corner: 190@42 owner: a TransformMorph(743702528) submorphs: #() fullBounds: 0@0 corner: 190@42 color: Color black extension: a MorphExtension (970981376) [other: (errorOnDraw -> true)] listItems: #(#callbackUrlOn:callback: #renderContentOn: nil) font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 0 selectedRows: a PluggableSet() listSource: an OBPluggableListMorph(155189248) maxWidth: 136 FormCanvas(Canvas)>>fullDraw: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: anObject: an OBLazyListMorph(969408512) Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>fullDrawMorph: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: an OBLazyListMorph(969408512) Receiver's instance variables: target: nil filterSelector: nil origin: 2367@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil [] in [] in TransformMorph>>drawSubmorphsOn: Receiver: a TransformMorph(743702528) Arguments and temporary variables: myCanvas: an OBLazyListMorph(969408512) m: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPluggableListMorph(155189248) submorphs: an Array(an OBLazyListMorph(969408512)) fullBounds: 520@0 corner: 690@213 color: Color transparent extension: a MorphExtension (745537536) transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -523@0) smoothing: 1 localBounds: nil Array(SequenceableCollection)>>reverseDo: Receiver: an Array(an OBLazyListMorph(969408512)) Arguments and temporary variables: aBlock: [:m | myCanvas fullDrawMorph: m] index: 1 Receiver's instance variables: an Array(an OBLazyListMorph(969408512)) [] in TransformMorph>>drawSubmorphsOn: Receiver: a TransformMorph(743702528) Arguments and temporary variables: myCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPluggableListMorph(155189248) submorphs: an Array(an OBLazyListMorph(969408512)) fullBounds: 520@0 corner: 690@213 color: Color transparent extension: a MorphExtension (745537536) transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -523@0) smoothing: 1 localBounds: nil FormCanvas>>transformBy:clippingTo:during:smoothing: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aDisplayTransform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -523@0...etc... aClipRect: 520@0 corner: 690@213 aBlock: [:myCanvas | (self angle ~= 0.0 or: [self scale ~= 1.0]) ifTrue: [...etc... cellSize: 1 innerRect: nil patchRect: nil sourceQuad: nil warp: nil start: nil subCanvas: nil rule: nil i: nil Receiver's instance variables: target: nil filterSelector: nil origin: 1844@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil TransformMorph>>drawSubmorphsOn: Receiver: a TransformMorph(743702528) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPluggableListMorph(155189248) submorphs: an Array(an OBLazyListMorph(969408512)) fullBounds: 520@0 corner: 690@213 color: Color transparent extension: a MorphExtension (745537536) transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -523@0) smoothing: 1 localBounds: nil [] in TransformMorph(Morph)>>fullDrawOn: Receiver: a TransformMorph(743702528) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPluggableListMorph(155189248) submorphs: an Array(an OBLazyListMorph(969408512)) fullBounds: 520@0 corner: 690@213 color: Color transparent extension: a MorphExtension (745537536) transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -523@0) smoothing: 1 localBounds: nil FormCanvas>>roundCornersOf:in:during: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: a TransformMorph(743702528) bounds: 520@0 corner: 690@213 aBlock: [(aCanvas isVisible: self bounds) ifTrue: [aCanvas drawMorph: self]. ...etc... Receiver's instance variables: target: nil filterSelector: nil origin: 1844@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>roundCornersOf:during: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: a TransformMorph(743702528) aBlock: [(aCanvas isVisible: self bounds) ifTrue: [aCanvas drawMorph: self]. ...etc... Receiver's instance variables: target: nil filterSelector: nil origin: 1844@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil TransformMorph(Morph)>>fullDrawOn: Receiver: a TransformMorph(743702528) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPluggableListMorph(155189248) submorphs: an Array(an OBLazyListMorph(969408512)) fullBounds: 520@0 corner: 690@213 color: Color transparent extension: a MorphExtension (745537536) transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -523@0) smoothing: 1 localBounds: nil FormCanvas(Canvas)>>fullDraw: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: anObject: a TransformMorph(743702528) Receiver's instance variables: target: nil filterSelector: nil origin: 1844@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>fullDrawMorph: Receiver: a FormCanvas on: DisplayScreen(2552x1374x32) Arguments and temporary variables: aMorph: a TransformMorph(743702528) Receiver's instance variables: target: nil filterSelector: nil origin: 1844@187 clipRect: 2364@187 corner: 2534@400 form: DisplayScreen(2552x1374x32) port: a GrafPort shadowColor: nil [] in [] in OBPluggableListMorph(Morph)>>drawSubmorphsOn: Receiver: an OBPluggableListMorph(155189248) Arguments and temporary variables: canvas: a TransformMorph(743702528) m: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPane(127401984) submorphs: an Array(a TransformMorph(743702528)) fullBounds: 520@0 corner: 690@213 color: Color white extension: a MorphExtension (132644864) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 0 borderColor: Color black model: an OBColumn() slotName: nil open: false scrollBar: a ScrollBar(161742848) scroller: a TransformMorph(743702528) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(990642176) list: nil getListSelector: #list getListSizeSelector: #listSize getListElementSelector: #listAt: getIndexSelector: #selection setIndexSelector: #selection: keystrokeActionSelector: #keystroke:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #doubleClick handlesBasicKeys: nil potentialDropRow: nil listMorph: an OBLazyListMorph(969408512) hScrollRangeCache: nil Array(SequenceableCollection)>>reverseDo: Receiver: an Array(a TransformMorph(743702528)) Arguments and temporary variables: aBlock: [:m | canvas fullDrawMorph: m] index: 1 Receiver's instance variables: an Array(a TransformMorph(743702528)) [] in OBPluggableListMorph(Morph)>>drawSubmorphsOn: Receiver: an OBPluggableListMorph(155189248) Arguments and temporary variables: canvas: a FormCanvas on: DisplayScreen(2552x1374x32) Receiver's instance variables: bounds: 520@0 corner: 690@213 owner: an OBPane(127401984) submorphs: an Array(a TransformMorph(743702528)) fullBounds: 520@0 corner: 690@213 color: Color white extension: a MorphExtension (132644864) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 0 borderColor: Color black model: an OBColumn() slotName: nil open: false scrollBar: a ScrollBar(161742848) scroller: a TransformMorph(743702528) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(990642176) list: nil getListSelector: #list getListSizeSelector: #listSize getListElementSelector: #listAt: getIndexSelector: #selection setIndexSelector: #selection: keystrokeActionSelector: #keystroke:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #doubleClick handlesBasicKeys: nil potentialDropRow: nil listMorph: an OBLazyListMorph(969408512) hScrollRangeCache: nil --- The full stack --- LargePositiveInteger(Object)>>error: [] in WorldState>>displayWorldSafely: BlockClosure>>valueWithPossibleArgs: [] in BlockClosure>>ifError: BlockClosure>>valueWithPossibleArgs: [] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MessageNotUnderstood(Exception)>>signal LargePositiveInteger(Object)>>doesNotUnderstand: #pixelValueForDepth: ColorForm>>colormapIfNeededForDepth: ColorForm>>colormapIfNeededFor: FormCanvas>>image:at:sourceRect:rule: FormCanvas(Canvas)>>translucentImage:at:sourceRect: FormCanvas(Canvas)>>translucentImage:at: OBLazyListMorph>>display:atRow:on: OBLazyListMorph(LazyListMorph)>>drawOn: FormCanvas(Canvas)>>draw: FormCanvas(Canvas)>>drawMorph: [] in OBLazyListMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: OBLazyListMorph(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in TransformMorph>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in TransformMorph>>drawSubmorphsOn: FormCanvas>>transformBy:clippingTo:during:smoothing: TransformMorph>>drawSubmorphsOn: [] in TransformMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: TransformMorph(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in OBPluggableListMorph(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in OBPluggableListMorph(Morph)>>drawSubmorphsOn: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OBPluggableListMorph(Morph)>>drawSubmorphsOn: OBPluggableListMorph(PluggableListMorph)>>drawSubmorphsOn: [] in OBPluggableListMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: OBPluggableListMorph(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in OBPane(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in OBPane(Morph)>>drawSubmorphsOn: FormCanvas>>clipBy:during: OBPane(Morph)>>drawSubmorphsOn: [] in OBPane(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: OBPane(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in TransformMorph>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in TransformMorph>>drawSubmorphsOn: FormCanvas>>transformBy:clippingTo:during:smoothing: TransformMorph>>drawSubmorphsOn: [] in TransformMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: TransformMorph(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in OBPaneScroller(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in OBPaneScroller(Morph)>>drawSubmorphsOn: OBPaneScroller(Morph)>>drawSubmorphsOn: [] in OBPaneScroller(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: OBPaneScroller(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in OBGroupingMorph(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in OBGroupingMorph(Morph)>>drawSubmorphsOn: OBGroupingMorph(Morph)>>drawSubmorphsOn: [] in OBGroupingMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: OBGroupingMorph(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in SystemWindow(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in SystemWindow(Morph)>>drawSubmorphsOn: FormCanvas>>clipBy:during: SystemWindow(Morph)>>drawSubmorphsOn: [] in SystemWindow(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: SystemWindow(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in WorldState>>drawWorld:submorphs:invalidAreasOn: Rectangle>>allAreasOutsideList:startingAt:do: Rectangle>>allAreasOutsideList:do: [] in WorldState>>drawWorld:submorphs:invalidAreasOn: Array(SequenceableCollection)>>do: WorldState>>drawWorld:submorphs:invalidAreasOn: [] in WorldState>>displayWorld:submorphs: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: WorldState>>displayWorld:submorphs: PasteUpMorph>>privateOuterDisplayWorld PasteUpMorph>>displayWorld [] in WorldState>>displayWorldSafely: BlockClosure>>on:do: BlockClosure>>ifError: WorldState>>displayWorldSafely: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess

6 9

[Pharo-project] Auto completion and syntax highlighting options
by Schwab,Wilhelm K Jan. 12, 2011

Jan. 12, 2011

I just downloaded the latest (#62) one click 1.2 and did the usual things: (1) turn off autocompletion (2) select win2k, enable fast drag (3) open a workspace, disable syntax highlighting I think Shout is the wonderful; it is very helpful in browsers and the debugger; I shut it off in workspaces because much of what I type there is not code. The snag: OCompletion is still popping up menus and disabling Shout in the workspace has no effect. Bill

1 0

[Pharo-project] ODBC, loadFFI and friends!
by Torsten Bergmann Jan. 12, 2011

Jan. 12, 2011

>Please have a look at > > http://www.squeaksource.com/PharoInbox/DolphinCompatibility-ODBC-BillSchwab… > >It adds a few methods that I missed (one could argue that I should package >some of this separately) and gives access to table and field names. Hi Bill, I once contacted Frank Urbach (creator of the package on squeaksource), but got no response. However: http://www.squeaksource.com/ODBC is "Read And Write" so you can integrate your changes easily. It's MIT and open anyway so anything that makes life easier should be added. Thanks Torsten -- GMX DSL Doppel-Flat ab 19,99 €/mtl.! Jetzt auch mit gratis Notebook-Flat! http://portal.gmx.net/de/go/dsl

6 5