[Pharo-project] Parent of ExampleBuilderMorph

Fernando Olivero fernando.olivero at usi.ch
Tue May 10 06:26:28 CEST 2011


Hi Doug, note that its using a trait. Even though the methods show up
in the browser, they dont belong to the class itself.

ExampleBuilderMorph  localSelectors size 2

MorphicModel subclass: #ExampleBuilderMorph
	uses: TEasilyThemed
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Polymorph-Widgets'

Fernando

On Mon, May 9, 2011 at 11:45 PM, DougEdmunds <dougedmunds at gmail.com> wrote:
> If subclassed under ComposableMorph instead of MorphicModel,
> ExampleBuilderMorph would need only this one method, instead of 157 methods:
>
> !ExampleBuilderMorph methodsFor: 'as yet unclassified' stamp: 'gvc 3/6/2010
> 17:08'!
> openModal: aSystemWindow
>        "Open the given window an available position without modality.
>        Answer the system window."
>
>        |baseArea areas searching foundRect|
>        aSystemWindow extent: aSystemWindow initialExtent.
>        areas := World submorphs
>                select: [:m | m isKindOf: DialogWindow]
>                thenCollect: [:m | m bounds expandBy: 8].
>        baseArea := RealEstateAgent maximumUsableArea insetBy: 8.
>        searching := true.
>        baseArea allAreasOutsideList: areas do: [:rect |
>                searching ifTrue: [
>                        aSystemWindow extent <= (rect insetBy: 8) extent
>                                ifTrue: [foundRect := rect.
>                                                searching := false]]].
>        searching ifTrue: [foundRect := baseArea].
>        aSystemWindow setWindowColor: self theme windowColor.
>        aSystemWindow position: foundRect topLeft + 8.
>        aSystemWindow openAsIs.
>        ^aSystemWindow! !
>
>
>
> --
> View this message in context: http://forum.world.st/Parent-of-ExampleBuilderMorph-tp3510422p3510422.html
> Sent from the Pharo Smalltalk mailing list archive at Nabble.com.
>
>



More information about the Pharo-project mailing list