I found this bug,

The odd is what:

0001091: [ENH] NiceCollapseAllWindows
Description     For having the collapsed windows arranged vertical ,
modified also a couple of methods for proper work.
Works in 38 and 3.9

In mantis I can read 04-21-05 16:17

I sure don't have a future bugs fix vision, maybe reviewers have more task
what they could do.

Hope soon this trivial was official and now what I could do jpeg again, add
a deserved BRAVO to all what do hard work.

Edgar

-------------- next part --------------
MessageNotUnderstood: PasteUpMorph>>collapseAllWindows
11 May 2006 8:15:39 am

VM: Mac OS - a SmalltalkImage
Image: Squeak3.9alpha [latest update: #7032]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir Discovery:Users:admin:SqueakDevelop
Trusted Dir Discovery:Users:admin:SqueakDevelop
Untrusted Dir Discovery:Users:admin:Library:Preferences:Squeak:Internet:My Squeak

PasteUpMorph(Object)>>doesNotUnderstand: #collapseAllWindows
	Receiver: a PasteUpMorph(1622) [world]
	Arguments and temporary variables: 
		aMessage: 	collapseAllWindows
	Receiver's instance variables: 
		bounds: 	0 at 0 corner: 789 at 567
		owner: 	nil
		submorphs: 	an Array(a PreDebugWindow(2361) a FlapTab<Tools>(3621) "Tools" a Fla...etc...
		fullBounds: 	nil
		color: 	(Color r: 0.97 g: 0.98 b: 1.0)
		extension: 	a MorphExtension (2543) [eventHandler = an EventHandler]  [other:  (...etc...
		borderWidth: 	0
		borderColor: 	(Color r: 0.03 g: 0.02 b: 0.0)
		presenter: 	a Presenter (1246)
		model: 	nil
		cursor: 	1
		padding: 	3
		backgroundMorph: 	nil
		turtleTrailsForm: 	nil
		turtlePen: 	nil
		lastTurtlePositions: 	nil
		isPartsBin: 	nil
		autoLineLayout: 	false
		indicateCursor: 	nil
		resizeToFit: 	nil
		wantsMouseOverHalos: 	nil
		worldState: 	a WorldState
		griddingOn: 	nil

TheWorldMenu>>doMenuItem:with:
	Receiver: a TheWorldMenu
	Arguments and temporary variables: 
		aCollection: 	#(#myWorld #collapseAllWindows)
		event: 	[653 at 274 mouseUp 141771]
		realTarget: 	a PasteUpMorph(1622) [world]
		selector: 	#collapseAllWindows
		nArgs: 	0
	Receiver's instance variables: 
		myProject: 	a Project(Unnamed1)
		myWorld: 	a PasteUpMorph(1622) [world]
		myHand: 	a HandMorph(3216)

[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0   ifTrue: [target perform: selector] ...]}
	Arguments and temporary variables: 
		evt: 	[653 at 274 mouseUp 141771]
		selArgCount: 	2
		w: 	a PasteUpMorph(1622) [world]

BlockContext>>ensure:
	Receiver: [] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0   ifTrue: [t...etc...
	Arguments and temporary variables: 
		aBlock: 	[] in CursorWithMask(Cursor)>>showWhile: {[oldcursor show]}
		returnValue: 	nil
		b: 	nil
	Receiver's instance variables: 
		sender: 	BlockContext>>ensure:
		pc: 	160
		stackp: 	0
		nargs: 	0
		startpc: 	132
		home: 	MenuItemMorph>>invokeWithEvent:


--- The full stack ---
PasteUpMorph(Object)>>doesNotUnderstand: #collapseAllWindows
TheWorldMenu>>doMenuItem:with:
[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector numArgs) = 0   ifTrue: [target perform: selector] ...]}
BlockContext>>ensure:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
CursorWithMask(Cursor)>>showWhile:
MenuItemMorph>>invokeWithEvent:
MenuItemMorph>>mouseUp:
MenuItemMorph>>handleMouseUp:
MouseButtonEvent>>sentTo:
MenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  ActiveEvent := anEvent.  result := focusHolder     han...]}
[] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
BlockContext>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
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]}
[] in BlockContext>>newProcess {[self value.  Processor terminateActive]}