[ENH] explorerLabels-wiz (sm)
stéphane ducasse
ducasse at iam.unibe.ch
Sun May 23 08:27:34 UTC 2004
hi jerome
I think that you should classify your methods using the MC convention
as there are conceptually linked with ObjectExplorer.
So you should have category '*xxx' where xxx is the category containing
ObjectExplorer
stef
On 22 mai 04, at 18:29, Peace Jerome wrote:
> The method exploreYourself is a debugging convenience
> to rev up an explorer on a complex object as it is on
> its way to being used in another way.
>
> Also added to this change set are methods to specify a
> label to the explorer. This makes it much easier when
> you are trying to distinguish and compare multiple
> collections of results in explorer windows."!
>
>
> !Object methodsFor: 'user interface' stamp: 'wiz
> 5/2/2004 16:20'!
> exploreWithLabel: label
> ^ ObjectExplorer new openExplorerFor: self withLabel:
> label ! !
>
> !Object methodsFor: 'user interface' stamp: 'wiz
> 4/19/2004 15:38'!
> exploreYourself
> "i.e. explore; yourself. Thisway i can peek w/o typing
> all the parentheses"
> self explore.
> ^self! !
>
>
> !ObjectExplorer methodsFor: 'accessing' stamp: 'wiz
> 5/2/2004 16:15'!
> explorerFor: anObject withLabel: label
> | window listMorph |
> rootObject := anObject.
> window := (SystemWindow labelled: label)
> model: self.
> window
> addMorph: (listMorph := SimpleHierarchicalListMorph
> on: self
> list: #getList
> selected: #getCurrentSelection
> changeSelected: #noteNewSelection:
> menu: #genericMenu:
> keystroke: nil)
> frame: (0 @ 0 corner: 1 @ 0.8).
> window
> addMorph: ((PluggableTextMorph
> on: self
> text: #trash
> accept: #trash:
> readSelection: #contentsSelection
> menu: #codePaneMenu:shifted:)
> askBeforeDiscardingEdits: false)
> frame: (0 @ 0.8 corner: 1 @ 1).
> listMorph autoDeselect: false.
> ^ window! !
>
> !ObjectExplorer methodsFor: 'user interface' stamp:
> 'wiz 5/2/2004 16:20'!
> openExplorerFor: anObject withLabel: label
> "
> ObjectExplorer new openExplorerFor: Smalltalk
> "
> (self explorerFor: anObject withLabel: label)
> openInWorld! !
>
>
>
> attached is a gziped copy of the change set.
>
> Yours in service, Jerome Peace (wiz)
>
>
>
>
>
> __________________________________
> Do you Yahoo!?
> Yahoo! Domains Claim yours for only $14.70/year
> http://smallbusiness.promotions.yahoo.com/offer
> <explorerLabels-wiz.1.cs.gz>
More information about the Squeak-dev
mailing list
|