December 2009 - Pharo-dev - lists.pharo.org

[Pharo-project] CompiledMethodTrailers ready for use
by Igor Stasenko Dec. 20, 2009

Dec. 20, 2009

Hello, i finished this stuff, and its ready for adoption. See http://bugs.squeak.org/view.php?id=7428 Anyone wants to help pushing it into trunk update stream (using MC configs)? It works fine on recent trunk image, on pharo however i had some problems installing changes, because of some differencies. Tried on PharoCore-1.1-11106-ALPHA.image phase2.1.cs - do not filein the TextEditor changes, since pharo-core don't have it. - do not filein the last line (reorganizing).. - tests failing because pharo String class does not implements #squeakToUtf8 nor #utf8ToSqueak Do we having an uniform way how to encode ANY String -> ByteString(utf8) and back? What ANSI standard saying about it? Maybe i'm using wrong methods? Still, i think we need this thing standartized and be common for all dialects (not just Pharo/Squeak). -- Best regards, Igor Stasenko AKA sig.

2 5

Re: [Pharo-project] [Metacello] About projects with Metacello
by Dale Henrichs Dec. 20, 2009

Dec. 20, 2009

Mariano, As a general principle, I think that it is a good idea to create a configuration per project, that way it is easy for different folks to use that project. It _is_ also useful to create configurations of configurations that pull together a number of different projects into an easy to load unit. So creating a ConfigurationOfRefactoring composed of ConfigurationOfRefactoringBrowser, ConfigurationOfOB and ConfigurationOfO2 makes sense. Apparently O2 and OB cannot live together in the same image (at the moment). Presumably the conflicts in this case can be ultimately resolved with a simple matter of coding:) Even so, it makes sense to choose either O2 or OB as the default browser system that would be loaded if none were present, while being tolerant of both if they are already loaded. This can be accommodated with Metacello, by using project level conditionals... Anyway, my $0.02. Dale ----- "Mariano Martinez Peck" <marianopeck(a)gmail.com> wrote: | Hi folks. Now that I am starting to write some configurations, I | realized | that we have a "change of concept" with Metacello. With Gofer or | Installer | (someone tell me if I am wrong) we are use to manage projects that are | a | certain repository of squeaksource or similar. And then we have the | packages. So, for example we are talking about the RefactoringBrowser, | you | have: | | www.squeaksource.com/rb | | and the packages AST-Core, Refactoring-Core and Refactoring-Spelling. | | Then there is the project OB where you have also OB-Refactory and | OB-Regex | for example. | | At first, of course, I thought to have one ConfigurationOf per | project. I | mean, map one to one. But now...I was wondering that I can have a | ConfigurationOfRefactoring for example, that can deals with ALL the | things | related to RB. In this case AST-Core, Refactoring-Core and | Refactoring-Spelling from rb repo and OB-Refactory and OB-Regex from | OB | repo....and see all of them like a project. | | What do you think ? Do you have any thoughts with this? pors and | cons? I | would like to listen opinions. | | Cheers, | | Mariano

1 0

[Pharo-project] Questions about Rome
by Alexandre Bergel Dec. 20, 2009

Dec. 20, 2009

Hi! I am currently studying Rome to see whether I can make Mondrian use it. I have few questions: - Why a RomeCanvas is not polymorphic to a Canvas? E.g., why the drawRectangle: ? Canvas>>frameAndFillRectangle:fillColor:borderWidth:borderColor: is not enough? I am trying to understand the design and rational of Rome - Can I embed a RomeCanvas within a system window? WorldState has an instance variable 'canvas', which is the instance of a FormCanvas. This canvas is passed along down to the drawOn: method used to draw a morph on the screen. Is this mechanism need to be modified? Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

1 0

[Pharo-project] ^ on linux displayed as >
by StÃ©phane Ducasse Dec. 20, 2009

Dec. 20, 2009

Hi guys is this problem still present? http://code.google.com/p/pharo/issues/detail?id=1417 Stef

4 3

[Pharo-project] [BUG]ByteSymbol(Object)>>error:
by csrabak＠bol.com.br Dec. 20, 2009

Dec. 20, 2009

I also opened an issue http://code.google.com/p/pharo/issues/detail?id=1638 where the stack and a screenshot can be seen. In a nutshell, when you use Method Finder and from there start a Browser, you get an MNU ByteSymbol>>hasWideCharacterFrom:to:. Steps to reproduce: 1. Start the Method Finder 2. in the search pane write 'max:' and accept it 3. click in (first in my image) method 'detectMax:' 4. on the right upper pane click in "Collection detectMax:" More details: As can be seen in the screenshoot in the issue tracker, the method source *is shown* but the Browser fails to render the method name's list and instead a red with a yellow crossings appears instead. If "venturously" another protocol is selected, the same red with yellow crossing is shown and no more navigation to the method sources is possible. 19 December 2009 11:25 pm VM: Win32 - IX86 - NT - Squeak3.10.2 of '5 June 2008' [latest update: #7179] Image: PharoCore1.0rc1 [Latest update: #10502] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir E:\Pharo Trusted Dir E:\Pharo\Cesar S. Rabak Untrusted Dir C:\Documents and Settings\Cesar S. Rabak\Meus documentos\My Squeak ByteSymbol(Object)>>error: Receiver: #do: Arguments and temporary variables: aString: 'MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to:' Receiver's instance variables: #do: [] in WorldState>>displayWorldSafely: Receiver: a WorldState Arguments and temporary variables: err: 'MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to:' rcvr: #do: errCtx: O2LazyListMorph>>display:atRow:on: errMorph: an O2LazyListMorph(3958) Receiver's instance variables: hands: an Array(a HandMorph(3216)) viewBox: 0@0 corner: 976@720 canvas: a FormCanvas on: DisplayScreen(976x720x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a SystemWindow(1419))(a SystemWindow(1...etc... lastStepTime: 22201329 lastStepMessage: nil lastCycleTime: 22201348 commandHistory: a CommandHistory alarms: a Heap() lastAlarmTime: 22201329 BlockClosure>>valueWithPossibleArgs: Receiver: [closure] in WorldState>>displayWorldSafely: Arguments and temporary variables: anArray: #('MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to:' #do:) Receiver's instance variables: outerContext: WorldState>>displayWorldSafely: startpc: 73 numArgs: 2 [] in BlockClosure>>ifError: Receiver: [closure] in WorldState>>displayWorldSafely: Arguments and temporary variables: errorHandlerBlock: MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to: ex: [closure] in WorldState>>displayWorldSafely: Receiver's instance variables: outerContext: WorldState>>displayWorldSafely: startpc: 66 numArgs: 0 BlockClosure>>valueWithPossibleArgs: Receiver: [closure] in BlockClosure>>ifError: Arguments and temporary variables: anArray: an Array(MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to:) 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: ByteSymbol>>hasWideCharacterFrom:to: Receiver's instance variables: sender: BlockClosure>>ifError: pc: 17 stackp: 3 method: a CompiledMethod(3772: BlockClosure>>on:do:) closureOrNil: nil receiver: [closure] in WorldState>>displayWorldSafely: BlockClosure>>ensure: Receiver: [closure] in MethodContext(ContextPart)>>handleSignal: Arguments and temporary variables: aBlock: [closure] in MethodContext(ContextPart)>>handleSignal: returnValue: nil b: 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: ByteSymbol>>hasWideCharacterFrom:to: val: nil Receiver's instance variables: sender: BlockClosure>>ifError: pc: 17 stackp: 3 method: a CompiledMethod(3772: BlockClosure>>on:do:) closureOrNil: nil receiver: [closure] in WorldState>>displayWorldSafely: MessageNotUnderstood(Exception)>>signal Receiver: MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: MessageNotUnderstood(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil message: hasWideCharacterFrom: 1 to: 3 receiver: #do: reachedDefaultHandler: false ByteSymbol(Object)>>doesNotUnderstand: #hasWideCharacterFrom:to: Receiver: #do: Arguments and temporary variables: aMessage: hasWideCharacterFrom: 1 to: 3 exception: MessageNotUnderstood: ByteSymbol>>hasWideCharacterFrom:to: resumeValue: nil Receiver's instance variables: #do: StrikeFont>>displayString:on:from:to:at:kern: Receiver: a StrikeFont(Bitmap DejaVu Sans 9 14) Arguments and temporary variables: aString: #do: aBitBlt: a GrafPort startIndex: 1 stopIndex: 3 aPoint: 768@130 kernDelta: 0 Receiver's instance variables: characterToGlyphMap: #(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 ...etc... xTable: #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 7...etc... glyphs: Form(1646x14x16) name: 'Bitmap DejaVu Sans 9' type: 0 minAscii: 32 maxAscii: 255 maxWidth: 0 strikeLength: nil ascent: 11 descent: 3 xOffset: nil raster: nil subscript: -3 superscript: 2 emphasis: 0 derivativeFonts: an Array(a StrikeFont(Bitmap DejaVu Sans 9B 14) a StrikeFont(B...etc... pointSize: 9 fallbackFont: a FixedFaceFont charIndex: nil FormCanvas>>drawString:from:to:in:font:color: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aString: a Text for #do: firstIndex: 1 lastIndex: 3 bounds: 12@195 corner: 233@210 fontOrNil: a StrikeFont(Bitmap DejaVu Sans 9 14) c: Color blue font: a StrikeFont(Bitmap DejaVu Sans 9 14) portRect: 753@61 corner: 935@222 Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>drawString:in:font:color: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: s: a Text for #do: boundsRect: 12@195 corner: 233@210 fontOrNil: a StrikeFont(Bitmap DejaVu Sans 9 14) c: Color blue Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil O2LazyListMorph>>display:atRow:on: Receiver: an O2LazyListMorph(3958) Arguments and temporary variables: <<error during printing> Receiver's instance variables: bounds: 0@0 corner: 233@435 owner: a TransformMorph(2393) submorphs: #() fullBounds: 0@0 corner: 233@435 color: Color black extension: a MorphExtension (2535) [other: (errorOnDraw -> true)] listItems: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni...etc... font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 10 selectedRows: a PluggableSet() listSource: an O2PluggableListMorph(3401) maxWidth: 213 handPoint: nil balloonShown: nil O2LazyListMorph(LazyListMorph)>>drawOn: Receiver: an O2LazyListMorph(3958) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) row: 14 rowLimiT: 20 Receiver's instance variables: bounds: 0@0 corner: 233@435 owner: a TransformMorph(2393) submorphs: #() fullBounds: 0@0 corner: 233@435 color: Color black extension: a MorphExtension (2535) [other: (errorOnDraw -> true)] listItems: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni...etc... font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 10 selectedRows: a PluggableSet() listSource: an O2PluggableListMorph(3401) maxWidth: 213 handPoint: nil balloonShown: nil FormCanvas(Canvas)>>draw: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: anObject: an O2LazyListMorph(3958) Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>drawMorph: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: an O2LazyListMorph(3958) Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil [] in O2LazyListMorph(Morph)>>fullDrawOn: Receiver: an O2LazyListMorph(3958) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 0@0 corner: 233@435 owner: a TransformMorph(2393) submorphs: #() fullBounds: 0@0 corner: 233@435 color: Color black extension: a MorphExtension (2535) [other: (errorOnDraw -> true)] listItems: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni...etc... font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 10 selectedRows: a PluggableSet() listSource: an O2PluggableListMorph(3401) maxWidth: 213 handPoint: nil balloonShown: nil FormCanvas>>roundCornersOf:in:during: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: an O2LazyListMorph(3958) bounds: 0@0 corner: 233@435 aBlock: [closure] in O2LazyListMorph(Morph)>>fullDrawOn: Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>roundCornersOf:during: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: an O2LazyListMorph(3958) aBlock: [closure] in O2LazyListMorph(Morph)>>fullDrawOn: Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil O2LazyListMorph(Morph)>>fullDrawOn: Receiver: an O2LazyListMorph(3958) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 0@0 corner: 233@435 owner: a TransformMorph(2393) submorphs: #() fullBounds: 0@0 corner: 233@435 color: Color black extension: a MorphExtension (2535) [other: (errorOnDraw -> true)] listItems: #(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ni...etc... font: a StrikeFont(Bitmap DejaVu Sans 9 14) selectedRow: 10 selectedRows: a PluggableSet() listSource: an O2PluggableListMorph(3401) maxWidth: 213 handPoint: nil balloonShown: nil FormCanvas(Canvas)>>fullDraw: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: anObject: an O2LazyListMorph(3958) Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>fullDrawMorph: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: an O2LazyListMorph(3958) Receiver's instance variables: target: nil filterSelector: nil origin: 756@-65 clipRect: 753@61 corner: 935@222 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil [] in [] in TransformMorph>>drawSubmorphsOn: Receiver: a TransformMorph(2393) Arguments and temporary variables: myCanvas: an O2LazyListMorph(3958) m: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 777@161 owner: an O2PluggableListMorph(3401) submorphs: an Array(an O2LazyListMorph(3958)) fullBounds: 595@0 corner: 777@161 color: Color transparent extension: nil transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -598@0) smoothing: 1 localBounds: nil Array(SequenceableCollection)>>reverseDo: Receiver: an Array(an O2LazyListMorph(3958)) Arguments and temporary variables: aBlock: [closure] in [] in TransformMorph>>drawSubmorphsOn: index: 1 Receiver's instance variables: an Array(an O2LazyListMorph(3958)) [] in TransformMorph>>drawSubmorphsOn: Receiver: a TransformMorph(2393) Arguments and temporary variables: myCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 777@161 owner: an O2PluggableListMorph(3401) submorphs: an Array(an O2LazyListMorph(3958)) fullBounds: 595@0 corner: 777@161 color: Color transparent extension: nil transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -598@0) smoothing: 1 localBounds: nil FormCanvas>>transformBy:clippingTo:during:smoothing: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aDisplayTransform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -598@1...etc... aClipRect: 595@0 corner: 777@161 aBlock: [closure] in TransformMorph>>drawSubmorphsOn: cellSize: 1 innerRect: nil patchRect: nil sourceQuad: nil warp: nil start: nil subCanvas: nil i: nil Receiver's instance variables: target: nil filterSelector: nil origin: 158@61 clipRect: 753@61 corner: 948@235 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil TransformMorph>>drawSubmorphsOn: Receiver: a TransformMorph(2393) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 777@161 owner: an O2PluggableListMorph(3401) submorphs: an Array(an O2LazyListMorph(3958)) fullBounds: 595@0 corner: 777@161 color: Color transparent extension: nil transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -598@0) smoothing: 1 localBounds: nil [] in TransformMorph(Morph)>>fullDrawOn: Receiver: a TransformMorph(2393) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 777@161 owner: an O2PluggableListMorph(3401) submorphs: an Array(an O2LazyListMorph(3958)) fullBounds: 595@0 corner: 777@161 color: Color transparent extension: nil transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -598@0) smoothing: 1 localBounds: nil FormCanvas>>roundCornersOf:in:during: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: a TransformMorph(2393) bounds: 595@0 corner: 777@161 aBlock: [closure] in TransformMorph(Morph)>>fullDrawOn: Receiver's instance variables: target: nil filterSelector: nil origin: 158@61 clipRect: 753@61 corner: 948@235 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>roundCornersOf:during: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: a TransformMorph(2393) aBlock: [closure] in TransformMorph(Morph)>>fullDrawOn: Receiver's instance variables: target: nil filterSelector: nil origin: 158@61 clipRect: 753@61 corner: 948@235 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil TransformMorph(Morph)>>fullDrawOn: Receiver: a TransformMorph(2393) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 777@161 owner: an O2PluggableListMorph(3401) submorphs: an Array(an O2LazyListMorph(3958)) fullBounds: 595@0 corner: 777@161 color: Color transparent extension: nil transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = -598@0) smoothing: 1 localBounds: nil FormCanvas(Canvas)>>fullDraw: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: anObject: a TransformMorph(2393) Receiver's instance variables: target: nil filterSelector: nil origin: 158@61 clipRect: 753@61 corner: 948@235 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil FormCanvas(Canvas)>>fullDrawMorph: Receiver: a FormCanvas on: DisplayScreen(976x720x32) Arguments and temporary variables: aMorph: a TransformMorph(2393) Receiver's instance variables: target: nil filterSelector: nil origin: 158@61 clipRect: 753@61 corner: 948@235 form: DisplayScreen(976x720x32) port: a GrafPort shadowColor: nil [] in [] in O2PluggableListMorph(Morph)>>drawSubmorphsOn: Receiver: an O2PluggableListMorph(3401) Arguments and temporary variables: canvas: a TransformMorph(2393) m: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 790@174 owner: an O2Pane(2662) submorphs: an Array(a ScrollBar(2523) a ScrollBar(800) a TransformMorph(2393)) fullBounds: 595@0 corner: 790@174 color: Color white extension: a MorphExtension (2227) [other: (dragEnabled -> true) (dropEnabled ...etc... borderWidth: 0 borderColor: Color black model: an O2EnhancementColumn(detectMax:) slotName: nil open: false scrollBar: a ScrollBar(800) scroller: a TransformMorph(2393) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(2523) list: nil getListSelector: #list getListSizeSelector: #listSize getListElementSelector: #listAt: getIndexSelector: #selection setIndexSelector: #selection: keystrokeActionSelector: #keystroke:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: an O2LazyListMorph(3958) hScrollRangeCache: nil Array(SequenceableCollection)>>reverseDo: Receiver: an Array(a ScrollBar(2523) a ScrollBar(800) a TransformMorph(2393)) Arguments and temporary variables: aBlock: [closure] in [] in O2PluggableListMorph(Morph)>>drawSubmorphsOn: index: 3 Receiver's instance variables: an Array(a ScrollBar(2523) a ScrollBar(800) a TransformMorph(2393)) [] in O2PluggableListMorph(Morph)>>drawSubmorphsOn: Receiver: an O2PluggableListMorph(3401) Arguments and temporary variables: canvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 790@174 owner: an O2Pane(2662) submorphs: an Array(a ScrollBar(2523) a ScrollBar(800) a TransformMorph(2393)) fullBounds: 595@0 corner: 790@174 color: Color white extension: a MorphExtension (2227) [other: (dragEnabled -> true) (dropEnabled ...etc... borderWidth: 0 borderColor: Color black model: an O2EnhancementColumn(detectMax:) slotName: nil open: false scrollBar: a ScrollBar(800) scroller: a TransformMorph(2393) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(2523) list: nil getListSelector: #list getListSizeSelector: #listSize getListElementSelector: #listAt: getIndexSelector: #selection setIndexSelector: #selection: keystrokeActionSelector: #keystroke:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: an O2LazyListMorph(3958) hScrollRangeCache: nil O2PluggableListMorph(Morph)>>drawSubmorphsOn: Receiver: an O2PluggableListMorph(3401) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) drawBlock: [closure] in O2PluggableListMorph(Morph)>>drawSubmorphsOn: Receiver's instance variables: bounds: 595@0 corner: 790@174 owner: an O2Pane(2662) submorphs: an Array(a ScrollBar(2523) a ScrollBar(800) a TransformMorph(2393)) fullBounds: 595@0 corner: 790@174 color: Color white extension: a MorphExtension (2227) [other: (dragEnabled -> true) (dropEnabled ...etc... borderWidth: 0 borderColor: Color black model: an O2EnhancementColumn(detectMax:) slotName: nil open: false scrollBar: a ScrollBar(800) scroller: a TransformMorph(2393) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(2523) list: nil getListSelector: #list getListSizeSelector: #listSize getListElementSelector: #listAt: getIndexSelector: #selection setIndexSelector: #selection: keystrokeActionSelector: #keystroke:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: an O2LazyListMorph(3958) hScrollRangeCache: nil O2PluggableListMorph(PluggableListMorph)>>drawSubmorphsOn: Receiver: an O2PluggableListMorph(3401) Arguments and temporary variables: aCanvas: a FormCanvas on: DisplayScreen(976x720x32) Receiver's instance variables: bounds: 595@0 corner: 790@174 owner: an O2Pane(2662) submorphs: an Array(a ScrollBar(2523) a ScrollBar(800) a TransformMorph(2393)) fullBounds: 595@0 corner: 790@174 color: Color white extension: a MorphExtension (2227) [other: (dragEnabled -> true) (dropEnabled ...etc... borderWidth: 0 borderColor: Color black model: an O2EnhancementColumn(detectMax:) slotName: nil open: false scrollBar: a ScrollBar(800) scroller: a TransformMorph(2393) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(2523) list: nil getListSelector: #list getListSizeSelector: #listSize getListElementSelector: #listAt: getIndexSelector: #selection setIndexSelector: #selection: keystrokeActionSelector: #keystroke:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: an O2LazyListMorph(3958) hScrollRangeCache: nil --- The full stack --- ByteSymbol(Object)>>error: [] in WorldState>>displayWorldSafely: BlockClosure>>valueWithPossibleArgs: [] in BlockClosure>>ifError: BlockClosure>>valueWithPossibleArgs: [] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MessageNotUnderstood(Exception)>>signal ByteSymbol(Object)>>doesNotUnderstand: #hasWideCharacterFrom:to: StrikeFont>>displayString:on:from:to:at:kern: FormCanvas>>drawString:from:to:in:font:color: FormCanvas(Canvas)>>drawString:in:font:color: O2LazyListMorph>>display:atRow:on: O2LazyListMorph(LazyListMorph)>>drawOn: FormCanvas(Canvas)>>draw: FormCanvas(Canvas)>>drawMorph: [] in O2LazyListMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: O2LazyListMorph(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 O2PluggableListMorph(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in O2PluggableListMorph(Morph)>>drawSubmorphsOn: O2PluggableListMorph(Morph)>>drawSubmorphsOn: O2PluggableListMorph(PluggableListMorph)>>drawSubmorphsOn: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [] in O2PluggableListMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: O2PluggableListMorph(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in O2Pane(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in O2Pane(Morph)>>drawSubmorphsOn: FormCanvas>>clipBy:during: O2Pane(Morph)>>drawSubmorphsOn: [] in O2Pane(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: O2Pane(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 O2PaneScroller(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in O2PaneScroller(Morph)>>drawSubmorphsOn: O2PaneScroller(Morph)>>drawSubmorphsOn: [] in O2PaneScroller(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: O2PaneScroller(Morph)>>fullDrawOn: FormCanvas(Canvas)>>fullDraw: FormCanvas(Canvas)>>fullDrawMorph: [] in [] in O2GroupingMorph(Morph)>>drawSubmorphsOn: Array(SequenceableCollection)>>reverseDo: [] in O2GroupingMorph(Morph)>>drawSubmorphsOn: O2GroupingMorph(Morph)>>drawSubmorphsOn: [] in O2GroupingMorph(Morph)>>fullDrawOn: FormCanvas>>roundCornersOf:in:during: FormCanvas(Canvas)>>roundCornersOf:during: O2GroupingMorph(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

1 0

[Pharo-project] Default code browser
by Alexandre Bergel Dec. 19, 2009

Dec. 19, 2009

Hi! I saw many people using the package browser instead of OBSystemBrowserAdaptor, even if this last is faster and has less bug. I am just wondering whether reverting the default browser to O2PackageBrowser is not something we should consider. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

13 30

[Pharo-project] OCompletion and the O2PackageBrowser search panel problem
by Adrian Lienhard Dec. 19, 2009

Dec. 19, 2009

There is an issue with OCompletion and the O2PackageBrowser in the latest 1.0 dev image. I created issue 1635: OCompletion +O2PackageBrowser: mercury search bar backspace delete error. http://code.google.com/p/pharo/issues/detail?id=1635 Adrian

1 0

[Pharo-project] Seaside2.8 and Seaside3.0 configs online in MetacelloRepository
by Dale Henrichs Dec. 19, 2009

Dec. 19, 2009

Just published ConfigurationOfSeaside28 to http://www.squeaksource.com/MetacelloRepository. In a pharo dev image: Gofer new squeaksource: 'MetacelloRepository'; addPackage: 'ConfigurationOfSeaside28'; load. (Smalltalk at: #ConfigurationOfSeaside28) perform: #load. ConfigurationOfSeaside28 was published a while ago, but I'll mention the Seaside3.0 config for completeness: Gofer new squeaksource: 'MetacelloRepository'; addPackage: 'ConfigurationOfSeaside30'; load. (Smalltalk at: #ConfigurationOfSeaside30) perform: #load. Note that Seaside2.8 and Seaside3.0 cannot be loaded into the same image as there are class name conflicts. Both of these configurations have been successfully loaded into 'Pharo1.0rc1 #10493' and 'Squeak3.10.2-trunk' (Squeak requires manual load of configuration package:). I will be integrating ConfigurationOfSeaside28 for use with GLASS. ConfigurationOfSeaside30 is already integrated into GLASS (for GemStone/S 2.4). Dale

1 0

[Pharo-project] Need someone to commit on RoelTyper
by Mariano Martinez Peck Dec. 19, 2009

Dec. 19, 2009

Hi FrÃ©d! I fixed the _ in assignment problem in RoelTyper. I don't have access to commit as I am not as developer and the global setting in ss is read. I attach the .mcz. Can you commit it please or give me access? Thanks Mariano

1 1

Dec. 19, 2009

> > > Yep, IDE tools in Pharo are at least a few years behind what you can find > in other IDEs, at least in terms of usability. > yes and this is sad because in term of real possiblities, this is far better to me... > This is a known problem :) and there already has been a stream of > propositions, enhancements, and talks about this (I myself did a > presentation at ESUG 2009 about what I wanted). > Yes It was interesting :) I agreed on most of them (especially the "in context search" which is essential to me) > The issue was also discussed at the last Pharo sprint, and the major > problem is simply lack of resources: nobody has the time nor the money to > invest at least 2 or 3 months full work, in order to do a major clean > up/rewrite of the graphical framework for dev tools (which would be a good > first step). Now there is Morphic which is low-level, OB which is > complicated, Glamour which needs enhancements... > Yes I know all that ! That why it probably better to discuss first. Maybe the proposition to pay someone (the count me in stuff) could be used for that. Because to me this is not just a problem but the BIG problem (at least so that newcommers don't leave with a bad feeling). Pay someone for 3 months is easier than for 12 :). And you could count me in for that (to give a contribution and also to participate) :) Every Dolphin users seems enligthened by their tools. Couldn't we mimic them ? Laurent just made propositions, you too in your ESUG presentation. We should collect, organize and provide a clear view of what we expect. Then maybe pay someone or simply create a project but with clear goals. Then make this tool rock solid (even in alpha or unstable ;) ) > > However, the primary annoyance right now is the dichotomy between the OB > new framework and the O2 derived for David's work. The problem is that now, > whenever the tools changed in OB (especially refactoring support), O2 can > not follow and it breaks the tools in the package browser. > > 1) Remove O2SystemBrowser from the menu. Does anybody uses this browser? > It's the same as OBSystemBrowser, so I guess people either use > OBSystemBrowser or O2PackageBrowser. > 2) How can we backport changes from O2 into OB? > I use OB. I gave up on the package browser to have a snappier reaction. But, with all due respect, these are projects. The abstraction behind OB make some operations difficult. IMO, this could be easier to use classic rigid tool (as we ( I ) want only one big coding tool). But I actually don't care of what's behind as far as it works as defined in the future specs. > > About the taskbar: I'm more and more convinced that the taskbar does not > work well for me, in particular does not scale. I would prefer something > like the Mac Os dock. On the other hand, Algernon is a great tool to > navigate quickly to a class (unfortunately, it does not support yet the > queries as in a Mercury panel). > Mercury seems quite broken to me. I've stopped looking at it and using it. Mercury and Algernon by the way need also some kind of uniformisation. Do we start some actions in the direction of that ? What other thinks ? CÃ©drick

6 7