- Pharo-dev - lists.pharo.org

[Pharo-project] Issue 1634: Object allSubInstances slooooow
by Stan Shepherd Dec. 21, 2009

Dec. 21, 2009

Pharo image: Pharo | Pharo-core PharoCore1.0rc1 Latest update: #10502 VM: unix - i686 - linux-gnu - Pharo0.1 of 16 May 2008 [latest update: #10074] Steps to reproduce: 1.[Object allSubInstances size inspect] timeToRun 375479 (6 minutes) with fix [Object allSubInstances size inspect] timeToRun 22335 (22 seconds) Attached treats Object as a special case, and takes advantage of primitive in SystemNavigation>>allObjectsDo: Test also attached (it's slow without the mod) http://code.google.com/p/pharo/issues/detail?id=1634 http://code.google.com/p/pharo/issues/detail?id=1634 http://n2.nabble.com/file/n4189848/BehaviorTest-testAllObjectsPerformance.st BehaviorTest-testAllObjectsPerformance.st http://n2.nabble.com/file/n4189848/Behavior-allSubInstancesDo.st Behavior-allSubInstancesDo.st http://n2.nabble.com/file/n4189848/Behavior-allSubInstancesDo.st Behavior-allSubInstancesDo.st -- View this message in context: http://n2.nabble.com/Issue-1634-Object-allSubInstances-slooooow-tp4189848p4… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

5 9

[Pharo-project] SUnit
by Torsten Bergmann Dec. 21, 2009

Dec. 21, 2009

>identified two requirements I would add another one: if necessary keep your additions simple. As of today SUnit is a simple framework everybody is able to understand and therefore able to use. Thx T. -- GRATIS fÃ¼r alle GMX-Mitglieder: Die maxdome Movie-FLAT! Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

2 1

[Pharo-project] About projects with Metacello
by Mariano Martinez Peck Dec. 21, 2009

Dec. 21, 2009

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

7 13

[Pharo-project] Why you need new Method trailers? :)
by Igor Stasenko Dec. 21, 2009

Dec. 21, 2009

I just created a small changeset http://bugs.squeak.org/view.php?id=7432 which gives me a long awaited feature: to see in a browser, where the heck a given method comes from. If method comes from trait, a method's source tells me , from which one exactly! Open a browser on Behavior clas and select an #addExclusionOf:to: method. Usually you'll see: addExclusionOf: aSymbol to: aTrait self setTraitComposition: ( self traitComposition copyWithExclusionOf: aSymbol to: aTrait) But with my changes you'll see: " From: TAccessingTraitCompositionBehavior " addExclusionOf: aSymbol to: aTrait self setTraitComposition: ( self traitComposition copyWithExclusionOf: aSymbol to: aTrait) in code pane. Same applies to traits themselves for instance, browse TPureBehavior>>isAliasSelector: " From: TAccessingTraitCompositionBehavior " isAliasSelector: aSymbol "Return true if the selector aSymbol is an alias defined in my or in another composition somewhere deeper in the tree of traits compositions." ^(self includesLocalSelector: aSymbol) not and: [self hasTraitComposition] and: [self traitComposition isAliasSelector: aSymbol] There is one problem , which requires better expertise than mine and i need a help from Traits experts: an aliased methods. I tried to find out, how to dig out the aliased method from composition, and get its source to display in code pane .. but no luck. Please give me an advice, how a #getSourceCodeBySelector: method should be implemented for proper handling of aliases. Currently, all aliased methods sources shown using decompiler: Behavior>>methodDictAddSelectorSilently: t1 withMethod: t2 self basicAddSelector: t1 withMethod: t2 Aliased methods, obviously, will require an additional info in source header, like: " From: SomeTrait , originalSelector: #blablba " -- Best regards, Igor Stasenko AKA sig.

2 7

[Pharo-project] How is the responsable of planet squeak blog?
by Mariano Martinez Peck Dec. 20, 2009

Dec. 20, 2009

Hi folks. I just wanted to let you know that we created the "News" section for our SqueakDBX/GlorpDBX. This section is a blog and you can put rss. If you are interested to put it inside PlanetSqueak rss, do it :) See you. Mariano

1 0

[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

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