One Page Browser

| classToView browser list nav |
classToView := TextMorphForFieldView.
nav := SystemNavigation new 
			browsedEnvironment: RBBrowserEnvironment new;
browser := MessageBrowser new
	title: 'aTitle'; 
	autoSelect: classToView name; 
	messages: #();
list := FTEasyListMorph new
	hResizing: #spaceFill; 
	vResizing: #spaceFill;
	elements: (classToView  withAllSuperclasses reversed flatCollect: [ :cls | cls instVarNames ]);

list onAnnouncement: FTSelectionChanged do: [ :ann | | ivar |
	ivar := [ list dataSource elementAt: ann newSelectedRowIndexes anyOne ] ifError: [ nil ].
	ivar ifNotNil: [ browser messages: (nav allAccessesTo: ivar from: classToView ) ]].

(AlignmentMorph new
	addMorph: browser buildWithSpec;
	addMorph: list;
	openInWindowLabeled: 'Stuff')
	position: 20@20;
	extent: 900@620.

And you get!

Screen Shot 2016-03-09 at 22.07.56.png

Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google photo

You are commenting using your Google account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: