- Pharo-dev - lists.pharo.org

Re: [Pharo-project] About preloaded packages

by Sven Van Caekenberghe

On 07 Jan 2011, at 11:17, Johan Brichau wrote: > I'm not (really) concerned with image size. > > As a user of Pharo, I would expect that a Pharo dev image includes plenty of development tools and an easy way of loading external libraries (such as XML, Seaside, Glorp,....). > With the advent of metacello, we now have an easy loading mechanism for external libraries such that, to me, it's strange to see those libraries being deployed in a dev image of Pharo. > > Even a development image should be a base to start from. But I would like to see a lot of development tools pre-loaded. Pharo is already doing a good job at that, btw, unlike Visualworks where the syntax highlighter and many other useful development packages are add-ons. Explaining that syntax highlighting is an external library to load is something new students always were amazed about when I exposed them to Smalltalk... Advanced users, such as most people on this list, will construct their own images based on either Core or Dev, I guess. So the main target is people starting out or other checking out pharo. Loading big packages such as Seaside or Glorp takes some time and is not always easy. So there is definitively value in having things preloaded. A lot of work goes into building Dev and it constitutes a really useful baseline of tested code which is very important to how other perceive Pharo. Maybe there could be more than one Dev version ? Sven

Jan. 7, 2011

Re: [Pharo-project] About preloaded packages

by Johan Brichau

Hi Mariano, I'm not (really) concerned with image size. As a user of Pharo, I would expect that a Pharo dev image includes plenty of development tools and an easy way of loading external libraries (such as XML, Seaside, Glorp,....). With the advent of metacello, we now have an easy loading mechanism for external libraries such that, to me, it's strange to see those libraries being deployed in a dev image of Pharo. Even a development image should be a base to start from. But I would like to see a lot of development tools pre-loaded. Pharo is already doing a good job at that, btw, unlike Visualworks where the syntax highlighter and many other useful development packages are add-ons. Explaining that syntax highlighting is an external library to load is something new students always were amazed about when I exposed them to Smalltalk... > 1) If you want to do business, XML is REALLY important. You like it or not (I promise I hate XML). APIs, legacy systems, other systems, etc... Then again, database functionality is probably even more crucial than XML for any business app. My point is: if you need an XML library: you can load it. oh, and, not all business requires XML (lucky me ;-) > 2) We like it or not, the packages that are included in the dev images are the most known, supported, maintained and tested. So... Glorp and Seaside too? I'm overstating.... but there are so many good and useful packages out there that is seems strange to include some and others not. > 3) XMLSupport has been asked in the mailing list several times Well, it's not because people ask that it's a good thing. This also applies to my own mail, btw :-)) (it's just my opinion) > Once we have that, and once that searching and installing Metacello projects is really easy, I would start removing some packages from the dev image. I see your point, but XML is really easily installable already. But hey, I'm just expressing my opinion here and sorry that I did not react to any previous email (it's a bit too much for me). cheers, Johan

Jan. 7, 2011

[Pharo-project] Including Zinc HTTP Components in Pharo 1.2 Dev ?

by Sven Van Caekenberghe

Hi, Maybe I am a bit late with this question, I also don't know who makes the decision, and it is probably external people who have to make the judgement, but would it be possible and/or a good idea to include Zinc HTTP Components into Pharo 1.2 Dev ? In any case, the code is in good shape, works on 1.2, has a reasonable number of tests, has comments, is pretty small and elegant. Whether or not to load the Zinc-Patch-HTTPSocket package is another question. This package patches (destructively overwrites) class methods in HTTPSocket, redirecting them to ZnHTTPSocketFacade, effectively steering all HTTP client access in your Smalltalk image through Zinc HTTP Components. This has been working for me for months, but my usage is certainly not universal. So maybe this should remain an option. I would especially like to expose this code to more people to get more feedback. I am also willing to keep on supporting the code. What do you think ? Sven

Jan. 7, 2011

Re: [Pharo-project] About preloaded packages

by Mariano Martinez Peck

On Fri, Jan 7, 2011 at 9:16 AM, Torsten Bergmann <astares(a)gmx.de> wrote: > >I would favor push metacello so that in one click people can load what > they >want. > > You already can. Push the config to the Metacello Repository for 1.2 on > squeaksource.com and use the configuration browser. You can then load > the config or the lates version with a few clicks. > > yes, but that's not a gurantee that the package will work. You never know if the last version is the correct one in the Pharo image where you are. Dale developed the symbolic versions, definfin, for example, a stable, depending on the pharo version. I suggest that all projects commited to such repo, has defined such symbolic versions: stable, bleeding edge, blah. And then, adapt the configuration browser (new buttons?), to load any of those symbolic versions. cheers mariano There are questions left/to discuss ... but at least that works already. > > Bye > T. > > BTW: Squeaksource is down today > -- > NEU: FreePhone - kostenlos mobil telefonieren und surfen! > Jetzt informieren: http://www.gmx.net/de/go/freephone > >

Jan. 7, 2011

Re: [Pharo-project] wiki style help

by Mariano Martinez Peck

Cool Alain :) I like it. Maybe in a future we are able to generate different outputs with the same source :) mariano On Fri, Jan 7, 2011 at 7:40 AM, Tudor Girba <tudor.girba(a)gmail.com> wrote: > Nice. > > Doru > > > On 7 Jan 2011, at 07:33, Alain Plantec wrote: > > > I've changed the section start character from $= to $! as in Pier. > > Now, such a help text can be compatible with the pier parser. > > Cheers > > Alain > > > > Le 07/01/2011 00:08, Alain Plantec a Ã©crit : > >> Le 06/01/2011 23:55, Tudor Girba a Ã©crit : > >>> That's cool, but why not use the Pier model/parser? > >> not against except that it would depend on other packages. > >> it implies that it would not be possible for the core. > >> this implementation is only made of an additional class with 3 methods. > >> at least one could use the pier syntax for declaring sections > >> Cheers > >> Alain > >>> Cheers, > >>> Doru > >>> > >>> > >>> On 6 Jan 2011, at 23:33, Alain Plantec wrote: > >>> > >>>> Hello! > >>>> I've prototyped a small addon for the help system. > >>>> It allows the using of formatted text "a la wiki" > >>>> for editing help pages. > >>>> help pages are retrieved thanks to a pragma. > >>>> In order to write an help, only 2 steps > >>>> > >>>> * Step1: You edit you help as follow: > >>>> = Introduction > >>>> Your intro here > >>>> = Section 1 > >>>> bla bla > >>>> == Section 1.1 > >>>> blo blo blo > >>>> === Subsubsection 1.1.1 > >>>> =Section 2 > >>>> == Section 2.1 > >>>> =Conclusion > >>>> > >>>> * Step 2: then you implement a method with a pragma > >>>> that return the formatted string: > >>>> Here, the help is in the comment of the class. > >>>> > >>>> SomeClass class>>help > >>>> <wikiStyleHelp: #'A wiki style help example'> > >>>> ^ self comment > >>>> > >>>> ... and you have your help (see screenshot) > >>>> > >>>> You also can use only a subpart of a comment by using a tag. > >>>> <help> > >>>> you wiki style comments here > >>>> </help> > >>>> > >>>> It is very simple and it allows the using of comments (less help > duplication ?). > >>>> Concerning the builder approach, maybe we don't > >>>> need it because we can use text markup. > >>>> > >>>> try it with HelpSystem-Core-AlainPlantec.69 in PharoTaskForces > >>>> It works. > >>>> not documented > >>>> no tests > >>>> > >>>> Cheers > >>>> Alain > >>>> > >>>> > >>>> > >>>> > >>>> > >>>> > >>>> > >>>> <wikiStyleHelp.png> > >>> -- > >>> www.tudorgirba.com > >>> > >>> "Speaking louder won't make the point worthier." > >>> > >>> > >> > >> > > > > > > -- > www.tudorgirba.com > > "If you interrupt the barber while he is cutting your hair, > you will end up with a messy haircut." > > >

Jan. 7, 2011

Re: [Pharo-project] [BUG]LargePositiveInteger(Object)>>error:

by Mariano Martinez Peck

I couldn't reproduce it. Is there a way to do it? On Fri, Jan 7, 2011 at 6:03 AM, Carla F. Griggio <carla.griggio(a)gmail.com>wrote: > It happened the same to me. > > It's funny because when I try to debug this, everything seems fine, but > later on the error appears again. > > This happens using the Pharo dev image 1.1.1 > > > On Thu, Jan 6, 2011 at 6:30 PM, StÃ©phane Ducasse < > stephane.ducasse(a)inria.fr> wrote: > >> Thanks pat for the report. >> >> Now could you let us know if you loaded OB or if you used the public 1.1.1 >> oneclick? >> >> Stef >> >> On Jan 6, 2011, at 9:18 PM, Pat Maddox wrote: >> >> > 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 >> > >> >> >> >

Jan. 7, 2011

Re: [Pharo-project] Origins [poll]

by Sven Van Caekenberghe

Jan. 7, 2011

Re: [Pharo-project] About preloaded packages

by Mariano Martinez Peck

On Fri, Jan 7, 2011 at 10:15 AM, Johan Brichau <johan(a)inceptive.be> wrote: > > On 07 Jan 2011, at 09:05, StÃ©phane Ducasse wrote: > > > I would really like that pharo-dev does not contain too many libraries > pre loaded (for example XMLSupport). > > I would favor push metacello so that in one click people can load what > they want. > > +1 > > > -1 Sorry, But I don't agree. Who cares the size of a development image? You are not going to deploy it. The less effort for new comers to get what they want, the best. I would let XMLSupport (and the rest) because: 1) If you want to do business, XML is REALLY important. You like it or not (I promise I hate XML). APIs, legacy systems, other systems, etc... 2) We like it or not, the packages that are included in the dev images are the most known, supported, maintained and tested. 3) XMLSupport has been asked in the mailing list several times I asked which packages to include in the dev image and I never received a negative answer, check: - http://forum.world.st/Pharo-1-2-default-packages-tp3092206p3092206.html - http://forum.world.st/Changes-in-external-packages-for-Pharo-1-2-tp2551023p… I would agree that XMLSupport is not installed by defaul only when we have out Metacello structure working: repository for an specific pharo version, stable versions (symbolic versions), self contained (copy all mzc), and finally the Loader to load them. Once we have that, and once that searching and installing Metacello projects is really easy, I would start removing some packages from the dev image. Cheers mariano

Jan. 7, 2011

Re: [Pharo-project] About preloaded packages

by Johan Brichau

On 07 Jan 2011, at 09:05, StÃ©phane Ducasse wrote: > I would really like that pharo-dev does not contain too many libraries pre loaded (for example XMLSupport). > I would favor push metacello so that in one click people can load what they want. +1

Jan. 7, 2011

[Pharo-project] next irc meeting: Thursday 13 at 21h

by Torsten Bergmann

9pm. But what time zone? -- GMX DSL Doppel-Flat ab 19,99 Euro/mtl.! Jetzt mit gratis Handy-Flat! http://portal.gmx.net/de/go/dsl

Jan. 7, 2011