Algernon-Launcher
Algernon-Launcher copied to clipboard
hpi-swa-teaching
Squeak 6 / trunk, Algernon keybinding doesn't respond
In trunk, Algernon doesn't respond to its keybinding after choosing "Activate Algernon" in the preferences. Nothing happens.
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->'<Cmd-space>' #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 --