On a Squeak3.7b 5868 fresh image after doing: World menu->open->morphic
project and clicking on the 'Unamed1' label on the project's window I
got this walkback.

1 April 2004 2:39:03 pm

VM: Win32 - a SmalltalkImage
Image: Squeak3.7beta [latest update: #5868]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Squeak\Squeak-Updated
Trusted Dir C:\Squeak\Squeak-Updated\guru
Untrusted Dir C:\My Squeak\guru

UndefinedObject(Object)>>doesNotUnderstand: #focused:
	Receiver: nil
	Arguments and temporary variables: 
		aMessage: 	focused: true
	Receiver's instance variables: 
nil

StringMorphEditor(TextMorph)>>keyboardFocusChange:
	Receiver: a StringMorphEditor(2773)
	Arguments and temporary variables: 
		aBoolean: 	true
	Receiver's instance variables: 
		bounds: 	141 at 118 corner: 194 at 133
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	141 at 118 corner: 194 at 133
		color: 	Color red
		extension: 	a MorphExtension (3583)
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Accuny11B
		text: 	a Text for 'Unnamed1'
		wrapFlag: 	false
		paragraph: 	a NewParagraph
		editor: 	a TextMorphEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	Color white
		margins: 	nil

StringMorphEditor>>keyboardFocusChange:
	Receiver: a StringMorphEditor(2773)
	Arguments and temporary variables: 
		aBoolean: 	true
		hadFocus: 	true
	Receiver's instance variables: 
		bounds: 	141 at 118 corner: 194 at 133
		owner: 	nil
		submorphs: 	#()
		fullBounds: 	141 at 118 corner: 194 at 133
		color: 	Color red
		extension: 	a MorphExtension (3583)
		borderWidth: 	0
		borderColor: 	Color black
		textStyle: 	a TextStyle Accuny11B
		text: 	a Text for 'Unnamed1'
		wrapFlag: 	false
		paragraph: 	a NewParagraph
		editor: 	a TextMorphEditor
		container: 	nil
		predecessor: 	nil
		successor: 	nil
		backgroundColor: 	Color white
		margins: 	nil

HandMorph>>newKeyboardFocus:
	Receiver: a HandMorph(3216)
	Arguments and temporary variables: 
		aMorphOrNil: 	a StringMorphEditor(2773)
		oldFocus: 	nil
	Receiver's instance variables: 
		bounds: 	539 at 424 corner: 555 at 440
		owner: 	a PasteUpMorph(1622) [world]
		submorphs: 	#()
		fullBounds: 	539 at 424 corner: 555 at 440
		color: 	Color blue
		extension: 	a MorphExtension (539) [eventHandler = an EventHandler] 
		mouseFocus: 	nil
		keyboardFocus: 	a TextMorphForEditView(2331)
		eventListeners: 	nil
		mouseListeners: 	nil
		keyboardListeners: 	nil
		mouseClickState: 	nil
		mouseOverHandler: 	a MouseOverHandler
		lastMouseEvent: 	[539 at 424 mouseUp 17455699]
		targetOffset: 	34 at 5
		damageRecorder: 	a DamageRecorder
		cacheCanvas: 	nil
		cachedCanvasHasHoles: 	true
		temporaryCursor: 	nil
		temporaryCursorOffset: 	nil
		hasChanged: 	true
		savedPatch: 	nil
		userInitials: 	''
		lastEventBuffer: 	#(1 17455699 539 424 0 0 0 0)


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #focused:
StringMorphEditor(TextMorph)>>keyboardFocusChange:
StringMorphEditor>>keyboardFocusChange:
HandMorph>>newKeyboardFocus:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
UpdatingStringMorph(StringMorph)>>launchMiniEditor:
ProjectViewMorph>>editTheName:
EventHandler>>send:to:withEvent:fromMorph:
EventHandler>>mouseDown:fromMorph:
AlignmentMorph(Morph)>>mouseDown:
AlignmentMorph(Morph)>>handleMouseDown:
MouseButtonEvent>>sentTo:
AlignmentMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
AlignmentMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
ProjectViewMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
SystemWindow(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PasteUpMorph(Morph)>>processEvent:using:
PasteUpMorph>>processEvent:using:
PasteUpMorph(Morph)>>processEvent:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h
processEvents.  capturingGesture := capturingGest...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor
yield.  false] whileFalse.  nil]}
...etc...