In a virgin 3.7a-5764 image, I opened up a Browser, selected the Boolean
class, and tried to browse its protocol.

frank

3 March 2004 4:37:43 pm

VM: Win32 - a SmalltalkImage
Image: Squeak3.7alpha [latest update: #5764]

UndefinedObject(Object)>>doesNotUnderstand: #at:ifAbsent:
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	at: 0 ifAbsent: [] in Lexicon(MessageSet)>>selection {[]}
	Receiver's instance variables: 
nil

Lexicon(MessageSet)>>selection
	Receiver: a Lexicon
	Arguments and temporary variables: 

	Receiver's instance variables: 
		dependents: 	#(a SystemWindow(1471) a
PluggableListMorph<categoryList>(2413) a P...etc...
		contents: 	nil
		currentCompiledMethod: 	nil
		contentsSymbol: 	nil
		systemOrganizer: 	('Kernel-Objects' Boolean DependentsArray False
MessageSend Mo...etc...
		classOrganizer: 	nil
		metaClassOrganizer: 	nil
		systemCategoryListIndex: 	0
		classListIndex: 	0
		messageCategoryListIndex: 	0
		messageListIndex: 	0
		editSelection: 	#none
		metaClassIndicated: 	false
		messageList: 	nil
		autoSelectString: 	nil
		growable: 	nil
		selectedClass: 	nil
		selectedSelector: 	nil
		currentVocabulary: 	a FullVocabulary named "Object"
		categoryList: 	#(#'*system-support' #accessing #associating #binding
#Breakpoint...etc...
		categoryListIndex: 	1
		targetClass: 	Boolean
		limitClass: 	Object
		currentQuery: 	nil
		currentQueryParameter: 	nil
		selectorsVisited: 	nil

Lexicon>>setClassAndSelectorIn:
	Receiver: a Lexicon
	Arguments and temporary variables: 
		csBlock: 	[] in Lexicon>>selectedClassOrMetaClass {[:c :s | ^ c]}
	Receiver's instance variables: 
		dependents: 	#(a SystemWindow(1471) a
PluggableListMorph<categoryList>(2413) a P...etc...
		contents: 	nil
		currentCompiledMethod: 	nil
		contentsSymbol: 	nil
		systemOrganizer: 	('Kernel-Objects' Boolean DependentsArray False
MessageSend Mo...etc...
		classOrganizer: 	nil
		metaClassOrganizer: 	nil
		systemCategoryListIndex: 	0
		classListIndex: 	0
		messageCategoryListIndex: 	0
		messageListIndex: 	0
		editSelection: 	#none
		metaClassIndicated: 	false
		messageList: 	nil
		autoSelectString: 	nil
		growable: 	nil
		selectedClass: 	nil
		selectedSelector: 	nil
		currentVocabulary: 	a FullVocabulary named "Object"
		categoryList: 	#(#'*system-support' #accessing #associating #binding
#Breakpoint...etc...
		categoryListIndex: 	1
		targetClass: 	Boolean
		limitClass: 	Object
		currentQuery: 	nil
		currentQueryParameter: 	nil
		selectorsVisited: 	nil

Lexicon>>selectedClassOrMetaClass
	Receiver: a Lexicon
	Arguments and temporary variables: 
		c: 	nil
		s: 	nil
	Receiver's instance variables: 
		dependents: 	#(a SystemWindow(1471) a
PluggableListMorph<categoryList>(2413) a P...etc...
		contents: 	nil
		currentCompiledMethod: 	nil
		contentsSymbol: 	nil
		systemOrganizer: 	('Kernel-Objects' Boolean DependentsArray False
MessageSend Mo...etc...
		classOrganizer: 	nil
		metaClassOrganizer: 	nil
		systemCategoryListIndex: 	0
		classListIndex: 	0
		messageCategoryListIndex: 	0
		messageListIndex: 	0
		editSelection: 	#none
		metaClassIndicated: 	false
		messageList: 	nil
		autoSelectString: 	nil
		growable: 	nil
		selectedClass: 	nil
		selectedSelector: 	nil
		currentVocabulary: 	a FullVocabulary named "Object"
		categoryList: 	#(#'*system-support' #accessing #associating #binding
#Breakpoint...etc...
		categoryListIndex: 	1
		targetClass: 	Boolean
		limitClass: 	Object
		currentQuery: 	nil
		currentQueryParameter: 	nil
		selectorsVisited: 	nil


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #at:ifAbsent:
Lexicon(MessageSet)>>selection
Lexicon>>setClassAndSelectorIn:
Lexicon>>selectedClassOrMetaClass
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Lexicon(Browser)>>classCommentText
BrowserCommentTextMorph(PluggableTextMorph)>>getText
BrowserCommentTextMorph(PluggableTextMorph)>>on:text:accept:readSelectio
n:menu:
BrowserCommentTextMorph class(PluggableTextMorph
class)>>on:text:accept:readSelection:menu:
Lexicon(Browser)>>buildMorphicCommentPane
Lexicon(Browser)>>addLowerPanesTo:at:with:
Lexicon>>openOnClass:inWorld:showingSelector:
Browser(StringHolder)>>browseFullProtocol
Browser(StringHolder)>>perform:orSendTo:
[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector
numArgs) = 0   ifTrue: [target perform: selector] ...]}
...etc...