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

[Pharo-project] A bit of fun: isMagicHalo :)

by stephane ducasse

We probably do not need that anymoreâ¦ HandMorph>>triggerHaloFor: aMorph after: timeOut "Trigger automatic halo after the given time out for some morph" self addAlarm: #spawnMagicHaloFor: with: aMorph after: timeOut HandMorph>>spawnMagicHaloFor: aMorph (self halo notNil and:[self halo target == aMorph]) ifTrue:[^self]. aMorph addMagicHaloFor: self. Morph>>addMagicHaloFor: aHand | halo prospectiveHaloClass | aHand halo ifNotNil: [ aHand halo target == self ifTrue: [ ^ self ]. aHand halo isMagicHalo ifFalse: [ ^ self ] ]. prospectiveHaloClass := Smalltalk globals at: self haloClass ifAbsent: [ HaloMorph ]. halo := prospectiveHaloClass new. halo bounds: (halo worldBoundsForMorph: self). halo popUpMagicallyFor: self hand: aHand probably a christmas present :) We will have to remove it when we will undress the christmas tree. MagicHalo seems to be halo that smoothly vanish and appear. popUpFor: aMorph event: evt "This message is sent by morphs that explicitly request the halo on a button click. Note: anEvent is in aMorphs coordinate frame." | hand anEvent | self flag: #workAround. "We should really have some event/hand here..." anEvent := evt isNil ifTrue: [hand := aMorph world activeHand. hand ifNil: [hand := aMorph world primaryHand]. hand lastEvent transformedBy: (aMorph transformedFrom: nil)] ifFalse: [hand := evt hand. evt]. self target: aMorph. hand halo: self. hand world addMorphFront: self. positionOffset := anEvent position - (aMorph point: aMorph position in: owner). self startStepping. (self haloTransitions or: [self isMagicHalo]) ifTrue: [self magicAlpha: 0.0. self startSteppingSelector: #fadeInInitially] Stef

Dec. 26, 2011

[Pharo-project] Little list of actions looking for progress

by StÃ©phane Ducasse

Hi guys If you want to help on simple actions: Issue 4913: All the methods in ToolRegistry convenience protocols should be deprecated. - http://code.google.com/p/pharo/issues/detail?id=4913 Issue 2560: Convenient methods from Grease for Strings -http://code.google.com/p/pharo/issues/detail?id=2560 Any takers? Stef

Dec. 26, 2011

[Pharo-project] when one sees the code of handMorph...

by StÃ©phane Ducasse

We can guess why it may be slow. I'm doing another pass to clean it. With isKindOf: in the middle :) Stef showTemporaryCursor: cursorOrNil hotSpotOffset: hotSpotOffset "Set the temporary cursor to the given Form. If the argument is nil, revert to the normal hardware cursor." self changed. temporaryCursorOffset ifNotNil: [bounds := bounds translateBy: temporaryCursorOffset negated]. cursorOrNil isNil ifTrue: [temporaryCursor := temporaryCursorOffset := hardwareCursor := nil] ifFalse: [temporaryCursor := cursorOrNil asCursorForm. temporaryCursorOffset := temporaryCursor offset - hotSpotOffset. (cursorOrNil isKindOf: Cursor) ifTrue: [hardwareCursor := cursorOrNil]]. bounds := self cursorBounds. self userInitials: userInitials andPicture: self userPicture; layoutChanged; changed I will not clean that for the moment, just the handleMorph with initials and picture :). Stef

Dec. 26, 2011

Re: [Pharo-project] Roeltyper

by Lukas Renggli

Does it actually work? I haven't seen a version that correctly works in recent closure images. Lukas On 26 December 2011 05:18, Sean P. DeNigris <sean(a)clipperadams.com> wrote: > I added a little blurb w. link to the collaborative book - > http://book.pharo-project.org/book/PharoTools/roeltyper/ > > -- > View this message in context: http://forum.world.st/Roeltyper-tp4233847p4233847.html > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. > -- Lukas Renggli www.lukas-renggli.ch

Dec. 26, 2011

Re: [Pharo-project] Good practicces! Looking for examples

by Marcus Denker

On Dec 25, 2011, at 3:26 AM, Damien Pollet wrote: > On 24 December 2011 14:53, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: >> If you have some suggestions with examples I could integrate to the chapter. > > HernÃ¡n had a good list in his talk on the design of patagonia: > http://www.slideshare.net/esug/design-principlesbehindpatagonia > This is online as a video, too: http://www.youtube.com/watch?v=8cgmdaKwRvU -- Marcus Denker -- http://marcusdenker.de

Dec. 26, 2011

[Pharo-project] Roeltyper

by Sean P. DeNigris

I added a little blurb w. link to the collaborative book - http://book.pharo-project.org/book/PharoTools/roeltyper/ -- View this message in context: http://forum.world.st/Roeltyper-tp4233847p4233847.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

Dec. 26, 2011

Re: [Pharo-project] [update 1.4] #14269

by Sven Van Caekenberghe

On 25 Dec 2011, at 23:05, StÃ©phane Ducasse wrote: > 14269 > ----- > > - Issue 5127: Zinc update > http://code.google.com/p/pharo/issues/detail?id=5127 Finally ! That was a bit of a rough ride. Let's hope things are and remain OK. > - last bit of Issue 4688: progress bar disappears on image save > http://code.google.com/p/pharo/issues/detail?id=4688 > > > Stef Thx and Merry Xmas to you all ! Sven

Dec. 25, 2011

[Pharo-project] [update 1.4] #14270

by stephane ducasse

14270 ----- - Issue 5114: wrong dependencies in GoferLoad >> #addResolved: Thanks Camillo Bruni and Benjamin van Ryseghem.

Dec. 25, 2011

[Pharo-project] Monticello trickery: pointers needed

by Frank Shearar

Hi, The background to the question is that I'm trying to repackage LanguageBoxes so that both the Squeak and Pharo community can use its features (or just parts of it). Cutie-Helvetia defines a class, CURaisedToExample. Among others, it defines two methods: CURaisedToExample class >> #raise:to and CURaisedToExample >> testSplice. The latter makes use of QQCompiler's splice operation (just like Common Lisp's) - @foo will replace 'foo' with whatever 'foo' evaluates to, so compiling 'a := @(3 + 4)' means the same thing as 'a := 7'. Now testSplice says self assert: `@(self raise: 2 to: -3) = (1/8). which means that, _at_compile_time_, testSplice will invoke #raise:to: (the self refers to the class-side method)... and at this point in time #raise:to: has been compiled, but not installed. Compiling #testSplice fails with a MessageNotUnderstood, and package loading aborts. My question is this: how can I work around this? Can I move the installation of #raise:to: to a preload step? Some hacks that spring to mind, and don't seem very pleasant, are: * introduce a new superclass defining the method, put that in a seperate package, and load that package before Cutie-Helvetia * move the definition of CURaisedToExample and #raise:to: to a separate package, and make all the tests extensions to that package. frank

Dec. 25, 2011

[Pharo-project] [update 1.4] #14269

by StÃ©phane Ducasse

14269 ----- - Issue 5127: Zinc update http://code.google.com/p/pharo/issues/detail?id=5127 - last bit of Issue 4688: progress bar disappears on image save http://code.google.com/p/pharo/issues/detail?id=4688 Stef

Dec. 25, 2011