Squeak 6 / trunk, Algernon keybinding doesn't respond

[dto]

In trunk, Algernon doesn't respond to its keybinding after choosing "Activate Algernon" in the preferences. Nothing happens.

[dto]

I now get the following error when attempting to activate Algernon from the preferences browser:

29 January 2022 3:37:48.240317 pm

VM: unix - Smalltalk
Image: Squeak6.0alpha [latest update: #21120]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/dto/Squeak6-future/shared
Trusted Dir /home/dto/Squeak6-future/shared/secure
Untrusted Dir /home/dto/Squeak6-future/shared/My Squeak

UndefinedObject(Object)>>doesNotUnderstand: #removeAttributesThat:
Receiver: nil
Arguments and temporary variables:
aMessage: removeAttributesThat: [closure] in ALGInputField(TextMorph)>>font:
exception: MessageNotUnderstood: UndefinedObject>>removeAttributesThat:
resumeValue: nil
Receiver's instance variables:
nil

ALGInputField(TextMorph)>>font:
Receiver: an ALGInputField(406878)
Arguments and temporary variables:
aFont: a StrikeFont(Bitmap DejaVu Sans 23.5pt 95ppi 31px Normal)
newTextStyle: nil
style: nil
Receiver's instance variables:
bounds: 0@0 corner: 50@40
owner: nil
submorphs: #()
fullBounds: nil
color: Color black
extension: a MorphExtension (1698782) [other: (borderStyle -> a SimpleBorder)]...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle(6) Bitmap DejaVu Sans 10.5pt 96ppi 14px Normal
text: nil
wrapFlag: false
paragraph: nil
editor: nil
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: nil
readOnly: nil
autoFit: true
plainTextOnly: nil
controller: nil

ALGInputField(TextMorph)>>beAllFont:
Receiver: an ALGInputField(406878)
Arguments and temporary variables:
aFont: a StrikeFont(Bitmap DejaVu Sans 23.5pt 95ppi 31px Normal)
Receiver's instance variables:
bounds: 0@0 corner: 50@40
owner: nil
submorphs: #()
fullBounds: nil
color: Color black
extension: a MorphExtension (1698782) [other: (borderStyle -> a SimpleBorder)]...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle(6) Bitmap DejaVu Sans 10.5pt 96ppi 14px Normal
text: nil
wrapFlag: false
paragraph: nil
editor: nil
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: nil
readOnly: nil
autoFit: true
plainTextOnly: nil
controller: nil

ALGInputField>>initialize
Receiver: an ALGInputField(406878)
Arguments and temporary variables:

Receiver's instance variables: 
	bounds: 	0@0 corner: 50@40
	owner: 	nil
	submorphs: 	#()
	fullBounds: 	nil
	color: 	Color black
	extension: 	a MorphExtension (1698782) [other:  (borderStyle -> a SimpleBorder)]...etc...
	borderWidth: 	0
	borderColor: 	Color black
	textStyle: 	a TextStyle(6) Bitmap DejaVu Sans 10.5pt 96ppi 14px Normal
	text: 	nil
	wrapFlag: 	false
	paragraph: 	nil
	editor: 	nil
	container: 	nil
	predecessor: 	nil
	successor: 	nil
	backgroundColor: 	nil
	margins: 	nil
	readOnly: 	nil
	autoFit: 	true
	plainTextOnly: 	nil
	controller: 	nil

ALGInputField class(Behavior)>>new
Receiver: ALGInputField
Arguments and temporary variables:

Receiver's instance variables: 
	superclass: 	TextMorph
	methodDict: 	a MethodDictionary(#clear->(ALGInputField>>#clear "a CompiledMethod...etc...
	format: 	65558
	instanceVariables: 	#('controller')
	organization: 	('initialization' clear createParagraph initialize)

('accessing' controller...etc...
subclasses: nil
name: #ALGInputField
classPool: nil
sharedPools: nil
environment: Smalltalk
category: #Algernon

ALGCore>>createInputField
Receiver: an ALGCore(811199)
Arguments and temporary variables:

Receiver's instance variables: 
	bounds: 	746@185 corner: 1166@235
	owner: 	nil
	submorphs: 	{an ALGBreadcrumbs(340240)}
	fullBounds: 	nil
	color: 	Color blue
	extension: 	a MorphExtension (1593084) [other:  (borderStyle -> a SimpleBorder) ...etc...
	itemList: 	nil
	breadcrumbs: 	an ALGBreadcrumbs(340240)
	background: 	an ALGBackground(2729809)
	oldFoci: 	nil
	active: 	false
	searchStack: 	nil
	parentStack: 	a Stack
	itemProvider: 	an ALGItemProvider
	textField: 	nil
	receivedActivation: 	false
	firstStep: 	true
	lastInputString: 	nil

ALGCore>>initializeInputField
Receiver: an ALGCore(811199)
Arguments and temporary variables:
helper: nil
Receiver's instance variables:
bounds: 746@185 corner: 1166@235
owner: nil
submorphs: {an ALGBreadcrumbs(340240)}
fullBounds: nil
color: Color blue
extension: a MorphExtension (1593084) [other: (borderStyle -> a SimpleBorder) ...etc...
itemList: nil
breadcrumbs: an ALGBreadcrumbs(340240)
background: an ALGBackground(2729809)
oldFoci: nil
active: false
searchStack: nil
parentStack: a Stack
itemProvider: an ALGItemProvider
textField: nil
receivedActivation: false
firstStep: true
lastInputString: nil

ALGCore>>initializeMorphs
Receiver: an ALGCore(811199)
Arguments and temporary variables:

Receiver's instance variables: 
	bounds: 	746@185 corner: 1166@235
	owner: 	nil
	submorphs: 	{an ALGBreadcrumbs(340240)}
	fullBounds: 	nil
	color: 	Color blue
	extension: 	a MorphExtension (1593084) [other:  (borderStyle -> a SimpleBorder) ...etc...
	itemList: 	nil
	breadcrumbs: 	an ALGBreadcrumbs(340240)
	background: 	an ALGBackground(2729809)
	oldFoci: 	nil
	active: 	false
	searchStack: 	nil
	parentStack: 	a Stack
	itemProvider: 	an ALGItemProvider
	textField: 	nil
	receivedActivation: 	false
	firstStep: 	true
	lastInputString: 	nil

ALGCore>>initialize
Receiver: an ALGCore(811199)
Arguments and temporary variables:

Receiver's instance variables: 
	bounds: 	746@185 corner: 1166@235
	owner: 	nil
	submorphs: 	{an ALGBreadcrumbs(340240)}
	fullBounds: 	nil
	color: 	Color blue
	extension: 	a MorphExtension (1593084) [other:  (borderStyle -> a SimpleBorder) ...etc...
	itemList: 	nil
	breadcrumbs: 	an ALGBreadcrumbs(340240)
	background: 	an ALGBackground(2729809)
	oldFoci: 	nil
	active: 	false
	searchStack: 	nil
	parentStack: 	a Stack
	itemProvider: 	an ALGItemProvider
	textField: 	nil
	receivedActivation: 	false
	firstStep: 	true
	lastInputString: 	nil

ALGCore class(Behavior)>>new
Receiver: ALGCore
Arguments and temporary variables:

Receiver's instance variables: 
	superclass: 	Morph
	methodDict: 	a MethodDictionary(#activate->(ALGCore>>#activate "a CompiledMethod...etc...
	format: 	65554
	instanceVariables: 	#('itemList' 'breadcrumbs' 'background' 'oldFoci' 'active' 'searchStack...etc...
	organization: 	('visibility' activate activate: checkWorldBounds deactivate deactivate:...etc...
	subclasses: 	{Algernon}
	name: 	#ALGCore
	classPool: 	a Dictionary(#ActivationString->'<Cmd-space>' #CurrentInstance->nil ...etc...
	sharedPools: 	nil
	environment: 	Smalltalk
	category: 	#Algernon

ALGCore class>>initializeAlgernon
Receiver: ALGCore
Arguments and temporary variables:

Receiver's instance variables: 
	superclass: 	Morph
	methodDict: 	a MethodDictionary(#activate->(ALGCore>>#activate "a CompiledMethod...etc...
	format: 	65554
	instanceVariables: 	#('itemList' 'breadcrumbs' 'background' 'oldFoci' 'active' 'searchStack...etc...
	organization: 	('visibility' activate activate: checkWorldBounds deactivate deactivate:...etc...
	subclasses: 	{Algernon}
	name: 	#ALGCore
	classPool: 	a Dictionary(#ActivationString->'<Cmd-space>' #CurrentInstance->nil ...etc...
	sharedPools: 	nil
	environment: 	Smalltalk
	category: 	#Algernon

ALGCore class>>activateAlgernon:
Receiver: ALGCore
Arguments and temporary variables:
boolean: true
Receiver's instance variables:
superclass: Morph
methodDict: a MethodDictionary(#activate->(ALGCore>>#activate "a CompiledMethod...etc...
format: 65554
instanceVariables: #('itemList' 'breadcrumbs' 'background' 'oldFoci' 'active' 'searchStack...etc...
organization: ('visibility' activate activate: checkWorldBounds deactivate deactivate:...etc...
subclasses: {Algernon}
name: #ALGCore
classPool: a Dictionary(#ActivationString->'' #CurrentInstance->nil ...etc...
sharedPools: nil
environment: Smalltalk
category: #Algernon

[] in PragmaPreference>>rawValue:
Receiver: a PragmaPreference#'Activate Algernon' nil#'Activate Algernon' (PragmaPreference basicNew ...etc...
Arguments and temporary variables:
aValue: true
Receiver's instance variables:
name: #'Activate Algernon'
value: nil
defaultValue: nil
helpString: 'Registers the keyboard shortcut to open Algernon.'
localToProject: false
categoryList: #(#Algernon)
changeInformee: nil
changeSelector: nil
type: #Boolean
provider: ALGCore
getter: #activateAlgernon
setter: #activateAlgernon:

FullBlockClosure(BlockClosure)>>on:do:
Receiver: [closure] in PragmaPreference>>rawValue:
Arguments and temporary variables:
exceptionOrExceptionSet: MessageNotUnderstood
handlerAction: [closure] in PragmaPreference>>rawValue:
handlerActive: false
handlerRearmed: false
Receiver's instance variables:
outerContext: PragmaPreference>>rawValue:
startpcOrMethod: ([] in PragmaPreference>>#rawValue: "a CompiledBlock(4120148)"...etc...
numArgs: 0
receiver: a PragmaPreference#'Activate Algernon' nil#'Activate Algernon' (Pragm...etc...

PragmaPreference>>rawValue:
Receiver: a PragmaPreference#'Activate Algernon' nil#'Activate Algernon' (PragmaPreference basicNew ...etc...
Arguments and temporary variables:
aValue: true
Receiver's instance variables:
name: #'Activate Algernon'
value: nil
defaultValue: nil
helpString: 'Registers the keyboard shortcut to open Algernon.'
localToProject: false
categoryList: #(#Algernon)
changeInformee: nil
changeSelector: nil
type: #Boolean
provider: ALGCore
getter: #activateAlgernon
setter: #activateAlgernon:

PragmaPreference>>preferenceValue:
Receiver: a PragmaPreference#'Activate Algernon' nil#'Activate Algernon' (PragmaPreference basicNew ...etc...
Arguments and temporary variables:
aValue: true
Receiver's instance variables:
name: #'Activate Algernon'
value: nil
defaultValue: nil
helpString: 'Registers the keyboard shortcut to open Algernon.'
localToProject: false
categoryList: #(#Algernon)
changeInformee: nil
changeSelector: nil
type: #Boolean
provider: ALGCore
getter: #activateAlgernon
setter: #activateAlgernon:

PragmaPreference>>togglePreferenceValue
Receiver: a PragmaPreference#'Activate Algernon' nil#'Activate Algernon' (PragmaPreference basicNew ...etc...
Arguments and temporary variables:

Receiver's instance variables: 
	name: 	#'Activate Algernon'
	value: 	nil
	defaultValue: 	nil
	helpString: 	'Registers the keyboard shortcut to open Algernon.'
	localToProject: 	false
	categoryList: 	#(#Algernon)
	changeInformee: 	nil
	changeSelector: 	nil
	type: 	#Boolean
	provider: 	ALGCore
	getter: 	#activateAlgernon
	setter: 	#activateAlgernon:

[] in UpdatingThreePhaseButtonMorph(ThreePhaseButtonMorph)>>doButtonAction:
Receiver: 3PButton(#togglePreferenceValue 4065847)
Arguments and temporary variables:
evt: [385@10 mouseUp ( red ) 878910]
moreArgs: #()
Receiver's instance variables:
bounds: 382@3 corner: 436@15
owner: a BorderedMorph(1099214)
submorphs: #()
fullBounds: 382@3 corner: 436@15
color: (Color r: 0.027 g: 0.212 b: 0.259)
extension: a MorphExtension (1551018) [other: (borderStyle -> a BorderStyle) (...etc...
image: Form(12x12x32)
offImage: Form(12x12x32)
pressedImage: Form(12x12x32)
state: #off
target: a PragmaPreference#'Activate Algernon' nil#'Activate Algernon' (PragmaP...etc...
actionSelector: #togglePreferenceValue
arguments: #()
actWhen: #buttonUp
label: 'enabled'
font: a StrikeFont(Bitmap DejaVu Sans 7.5pt 96ppi 10px Normal)
textColor: (Color r: 0.027 g: 0.212 b: 0.259)
getSelector: #preferenceValue
getArgument: nil

FullBlockClosure(BlockClosure)>>ensure:
Receiver: [closure] in UpdatingThreePhaseButtonMorph(ThreePhaseButtonMorph)>>doButtonAction:
Arguments and temporary variables:
aBlock: [closure] in CursorWithMask(Cursor)>>showWhile:
complete: nil
returnValue: nil
Receiver's instance variables:
outerContext: UpdatingThreePhaseButtonMorph(ThreePhaseButtonMorph)>>doButtonAction:...etc...
startpcOrMethod: ([] in ThreePhaseButtonMorph>>#doButtonAction: "a CompiledBlock...etc...
numArgs: 0
receiver: 3PButton(#togglePreferenceValue 4065847)

--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #removeAttributesThat:
ALGInputField(TextMorph)>>font:
ALGInputField(TextMorph)>>beAllFont:
ALGInputField>>initialize
ALGInputField class(Behavior)>>new
ALGCore>>createInputField
ALGCore>>initializeInputField
ALGCore>>initializeMorphs
ALGCore>>initialize
ALGCore class(Behavior)>>new
ALGCore class>>initializeAlgernon
ALGCore class>>activateAlgernon:
[] in PragmaPreference>>rawValue:
FullBlockClosure(BlockClosure)>>on:do:
PragmaPreference>>rawValue:
PragmaPreference>>preferenceValue:
PragmaPreference>>togglePreferenceValue
[] in UpdatingThreePhaseButtonMorph(ThreePhaseButtonMorph)>>doButtonAction:
FullBlockClosure(BlockClosure)>>ensure:

---

CursorWithMask(Cursor)>>showWhile:
UpdatingThreePhaseButtonMorph(ThreePhaseButtonMorph)>>doButtonAction:
UpdatingThreePhaseButtonMorph(ThreePhaseButtonMorph)>>mouseUp:
UpdatingThreePhaseButtonMorph>>mouseUp:
UpdatingThreePhaseButtonMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
UpdatingThreePhaseButtonMorph(Morph)>>handleEvent:
UpdatingThreePhaseButtonMorph(Morph)>>handleFocusEvent:
MorphicEventDispatcher>>doHandlingForFocusEvent:with:
MorphicEventDispatcher>>dispatchFocusEvent:with:
UpdatingThreePhaseButtonMorph(Morph)>>processFocusEvent:using:
UpdatingThreePhaseButtonMorph(Morph)>>processFocusEvent:
[] in [] in [] in HandMorph>>sendFocusEvent:to:clear:
[] in ActiveEventVariable class(DynamicVariable class)>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ActiveEventVariable class(DynamicVariable class)>>value:during:
[] in ActiveEventVariable class>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ActiveEventVariable class>>value:during:
MouseButtonEvent(MorphicEvent)>>becomeActiveDuring:
[] in [] in HandMorph>>sendFocusEvent:to:clear:
[] in ActiveHandVariable class(DynamicVariable class)>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ActiveHandVariable class(DynamicVariable class)>>value:during:
[] in ActiveHandVariable class>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ActiveHandVariable class>>value:during:
HandMorph>>becomeActiveDuring:
[] in HandMorph>>sendFocusEvent:to:clear:
[] in ActiveWorldVariable class(DynamicVariable class)>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ActiveWorldVariable class(DynamicVariable class)>>value:during:
[] in ActiveWorldVariable class>>value:during:
FullBlockClosure(BlockClosure)>>ensure:
ActiveWorldVariable class>>value:during:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in [] in AnimWorldState(WorldState)>>doOneCycleNowFor:
-- and more not shown --