- Pharo-dev - lists.pharo.org

[Pharo-project] A bit of fun: isMagicHalo :)
by stephane ducasse Dec. 26, 2011

Dec. 26, 2011

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

1 0

[Pharo-project] when one sees the code of handMorph...
by StÃ©phane Ducasse Dec. 26, 2011

Dec. 26, 2011

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

1 0

Re: [Pharo-project] Good practicces! Looking for examples
by Marcus Denker Dec. 26, 2011

Dec. 26, 2011

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

1 0

[Pharo-project] [update 1.4] #14269
by StÃ©phane Ducasse Dec. 25, 2011

Dec. 25, 2011

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

2 1

[Pharo-project] [update 1.4] #14270
by stephane ducasse Dec. 25, 2011

Dec. 25, 2011

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

1 0

[Pharo-project] [update 1.4] #14267
by StÃ©phane Ducasse Dec. 25, 2011

Dec. 25, 2011

14267 ----- Issue 5113: Use ZnClient instead of HttpClient. Second attempt

1 0

[Pharo-project] [update 1.4] #14268
by stephane ducasse Dec. 25, 2011

Dec. 25, 2011

14268 ----- Issue 5126: french Date format. Another try to test the changes in update streamer. Now it passed :) Thanks sven. Stef

1 0

[Pharo-project] gtinspector
by Tudor Girba Dec. 25, 2011

Dec. 25, 2011

Hi, Just out of curiosity: Does any of you use the GTInspector? For those that wonder what that is, here is a demo: http://www.humane-assessment.com/blog/glamorous-inspector-for-smalltalk This is available in any recent Moose image mapped as Explorer (CMD+I). You can load it in a Pharo 1.3 image by: Gofer new squeaksource: 'glamoroust'; package: 'ConfigurationOfGlamoroust'; load.(Smalltalk at: #ConfigurationOfGlamoroust) loadDefault.(Smalltalk at: #GTInspector) registerToolsOn: Smalltalk tools. Cheers, Doru -- www.tudorgirba.com "Every thing has its own flow"

4 17

[Pharo-project] [update 1.4] #14267
by stephane ducasse Dec. 25, 2011

Dec. 25, 2011

14267 ----- - Issue 5113: Use ZnClient instead of HttpClient. Let us try to see if the update stream is ok after that one. Stef

3 2

Dec. 25, 2011

14268 ----- - Issue 5126: french Date format. Thanks Olivier Overlot. http://code.google.com/p/pharo/issues/detail?id=5126

1 0