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 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: explorerLabels-wiz.1.cs.gz
Type: application/x-gzip
Size: 873 bytes
Desc: explorerLabels-wiz.1.cs.gz
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20040522/735eb0ef/explorerLabels-wiz.1.cs.bin