[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