This bug, which seemingly dates back *years*, is seen whenever cmd-x is issued  while the cursor is over the one of the top-left pane in a browser that has no class selected.

I attach a suggested fix.

Cheers,

 -- Scott

At 9:07 PM +0100 11/15/02, Markus Fritsche wrote:
>I tried to delete a package in the package browser with cmd-x
>
>
>Regards, Markus
>
>15 November 2002 9:06:13 pm
>
>VM: Win32 - Squeak3.3alpha of 24 January 2002 [latest update: #4967]
>Image: Squeak3.4alpha [latest update: #5108]
>
>PackagePaneBrowser(Object)>>mustBeBoolean
>	Receiver: a PackagePaneBrowser
>	Arguments and temporary variables:
>		proceedValue:	nil
>	Receiver's instance variables:
>		dependents:	#(a SystemWindow(1679) a PluggableListMorph(2824) a PluggableListMo...etc...
>		contents:	nil
>		currentCompiledMethod:	nil
>		contentsSymbol:	#source
>		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
>		package:	'Refactory'
>		packageListIndex:	37
>		packageList:	nil
>
>PackagePaneBrowser(Browser)>>removeClass
>	Receiver: a PackagePaneBrowser
>	Arguments and temporary variables:
>
>	Receiver's instance variables:
>		dependents:	#(a SystemWindow(1679) a PluggableListMorph(2824) a PluggableListMo...etc...
>		contents:	nil
>		currentCompiledMethod:	nil
>		contentsSymbol:	#source
>		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
>		package:	'Refactory'
>		packageListIndex:	37
>		packageList:	nil
>
>PackagePaneBrowser(StringHolder)>>classListKey:from:
>	Receiver: a PackagePaneBrowser
>	Arguments and temporary variables:
>		aChar:	$x
>		view:	a PluggableListMorph(2824)
>	Receiver's instance variables:
>		dependents:	#(a SystemWindow(1679) a PluggableListMorph(2824) a PluggableListMo...etc...
>		contents:	nil
>		currentCompiledMethod:	nil
>		contentsSymbol:	#source
>		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
>		package:	'Refactory'
>		packageListIndex:	37
>		packageList:	nil
>
>PackagePaneBrowser(StringHolder)>>packageListKey:from:
>	Receiver: a PackagePaneBrowser
>	Arguments and temporary variables:
>		aChar:	$x
>		view:	a PluggableListMorph(2824)
>	Receiver's instance variables:
>		dependents:	#(a SystemWindow(1679) a PluggableListMorph(2824) a PluggableListMo...etc...
>		contents:	nil
>		currentCompiledMethod:	nil
>		contentsSymbol:	#source
>		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
>		package:	'Refactory'
>		packageListIndex:	37
>		packageList:	nil
>
>
>--- The full stack ---
>PackagePaneBrowser(Object)>>mustBeBoolean
>PackagePaneBrowser(Browser)>>removeClass
>PackagePaneBrowser(StringHolder)>>classListKey:from:
>PackagePaneBrowser(StringHolder)>>packageListKey:from:
> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
>PluggableListMorph>>modifierKeyPressed:
>PluggableListMorph>>keyStroke:
>PluggableListMorph(Morph)>>handleKeystroke:
>KeyboardEvent>>sentTo:
>PluggableListMorph(Morph)>>handleEvent:
>PluggableListMorph(Morph)>>handleFocusEvent:
>[] in HandMorph>>sendFocusEvent:to:clear:
>PasteUpMorph>>becomeActiveDuring:
>HandMorph>>sendFocusEvent:to:clear:
>HandMorph>>sendEvent:focus:clear:
>HandMorph>>sendKeyboardEvent:
>HandMorph>>handleEvent:
>HandMorph>>processEvents
>[] in WorldState>>doOneCycleNowFor:
>Array(SequenceableCollection)>>do:
>WorldState>>handsDo:
>WorldState>>doOneCycleNowFor:
>WorldState>>doOneCycleFor:
>PasteUpMorph>>doOneCycle
>[] in Project class>>spawnNewProcess
>[] in BlockContext>>newProcess
-------------- next part --------------
Skipped content of type multipart/appledouble