I have this code below from Gettext package becoming broken with latest
Ring Pharo 1.4 package.
Can someone with the appropriate knowledge help me there?
Problem occurs at (Smalltalk at: methodReference classSymbol)
methodReference is a RGMethodDefinition
Enclosed PharoDebug.log
appendStringReceivers: aSymbol into: domains
| literals references domainName methodReference keywords found |
found := TranslatedReceiverFinder new stringReceiversWithContext:
aSymbol.
found do: [ :assoc |
methodReference := assoc key.
keywords := assoc value.
domainName := self getTextDomainForClassCategory:
(Smalltalk at: methodReference classSymbol) category.
literals := domains at: domainName ifAbsentPut: [Dictionary
new].
keywords do: [ :literal |
references := literals at: literal ifAbsentPut:
[OrderedCollection new].
references add: methodReference.
].
].
--
Dr. Geo -- http://www.drgeo.eu
THERE_BE_DRAGONS_HERE
KeyNotFound: key #'AbstractFont class' not found in SystemDictionary
14 March 2012 9:41:29 pm
VM: unix - i686 - linux - nil, nil, nil
Image: Pharo1.4a [Latest update: #14367]
SystemDictionary(Dictionary)>>errorKeyNotFound:
Receiver: a SystemDictionary(lots of globals)
Arguments and temporary variables:
aKey: #'AbstractFont class'
Receiver's instance variables:
tally: 2526
array: an Array(nil nil #KoreanEnvironment->KoreanEnvironment #MultiCharacterSc...etc...
cachedClassNames: an OrderedCollection(#AColorSelectorMorph #Abort #AboutDialog...etc...
cachedNonClassNames: an OrderedCollection(#ActiveEvent #ActiveHand #ActiveWorld...etc...
[self errorKeyNotFound: key] in SystemDictionary(Dictionary)>>at:
Receiver: a SystemDictionary(lots of globals)
Arguments and temporary variables:
key: #'AbstractFont class'
Receiver's instance variables:
tally: 2526
array: an Array(nil nil #KoreanEnvironment->KoreanEnvironment #MultiCharacterSc...etc...
cachedClassNames: an OrderedCollection(#AColorSelectorMorph #Abort #AboutDialog...etc...
cachedNonClassNames: an OrderedCollection(#ActiveEvent #ActiveHand #ActiveWorld...etc...
SystemDictionary(Dictionary)>>at:ifAbsent:
Receiver: a SystemDictionary(lots of globals)
Arguments and temporary variables:
key: #'AbstractFont class'
aBlock: [self errorKeyNotFound: key]
assoc: nil
Receiver's instance variables:
tally: 2526
array: an Array(nil nil #KoreanEnvironment->KoreanEnvironment #MultiCharacterSc...etc...
cachedClassNames: an OrderedCollection(#AColorSelectorMorph #Abort #AboutDialog...etc...
cachedNonClassNames: an OrderedCollection(#ActiveEvent #ActiveHand #ActiveWorld...etc...
SystemDictionary(Dictionary)>>at:
Receiver: a SystemDictionary(lots of globals)
Arguments and temporary variables:
key: #'AbstractFont class'
Receiver's instance variables:
tally: 2526
array: an Array(nil nil #KoreanEnvironment->KoreanEnvironment #MultiCharacterSc...etc...
cachedClassNames: an OrderedCollection(#AColorSelectorMorph #Abort #AboutDialog...etc...
cachedNonClassNames: an OrderedCollection(#ActiveEvent #ActiveHand #ActiveWorld...etc...
SmalltalkImage>>at:
Receiver: Smalltalk
Arguments and temporary variables:
aKey: #'AbstractFont class'
Receiver's instance variables:
globals: a SystemDictionary(lots of globals)
deferredStartupActions: nil
[:assoc |
methodReference := assoc key.
keywords := assoc value.
domainName := self getTextDomainForClassCategory: (Smalltalk at: methodReference classSymbol) category.
literals := domains
at: domainName
ifAbsentPut: [Dictionary new].
keywords
do: [:literal |
references := literals
at: literal
ifAbsentPut: [OrderedCollection new].
references add: methodReference]] in GetTextExporter>>appendStringReceivers:into:
Receiver: a GetTextExporter
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
stream: nil
OrderedCollection>>do:
Receiver: an OrderedCollection(AbstractFont class>>emphasisStringFor:->an OrderedCollection('Italic'...etc...
Arguments and temporary variables:
aBlock: [:assoc |
methodReference := assoc key.
keywords := assoc value.
dom...etc...
index: 1
Receiver's instance variables:
array: an Array(AbstractFont class>>emphasisStringFor:->an OrderedCollection('I...etc...
firstIndex: 1
lastIndex: 659
GetTextExporter>>appendStringReceivers:into:
Receiver: a GetTextExporter
Arguments and temporary variables:
<<error during printing>
Receiver's instance variables:
stream: nil
GetTextExporter>>appendTranslations:
Receiver: a GetTextExporter
Arguments and temporary variables:
domains: a Dictionary()
Receiver's instance variables:
stream: nil
GetTextExporter>>exportTranslator:
Receiver: a GetTextExporter
Arguments and temporary variables:
translator: nil
domains: a Dictionary()
Receiver's instance variables:
stream: nil
GetTextExporter>>exportTemplate
Receiver: a GetTextExporter
Arguments and temporary variables:
Receiver's instance variables:
stream: nil
GetTextExporter class>>exportTemplate
Receiver: GetTextExporter
Arguments and temporary variables:
Receiver's instance variables:
superclass: Object
methodDict: a MethodDictionary(#appendStringReceivers:into:->(GetTextExporter>>...etc...
format: 132
instanceVariables: #('stream')
organization: ('private' appendStringReceivers:into: appendVocabulary:domains: ...etc...
subclasses: nil
name: #GetTextExporter
classPool: nil
sharedPools: nil
environment: a SystemDictionary(lots of globals)
category: #Gettext
traitComposition: {}
localSelectors: nil
UndefinedObject>>DoIt
Receiver: nil
Arguments and temporary variables:
Receiver's instance variables:
nil
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Receiver: a Compiler
Arguments and temporary variables:
textOrStream: a ReadWriteStream
aContext: nil
receiver: nil
aRequestor: a TextMorphForEditView(175636480)
failBlock: [self morph flash.
^ nil]
logFlag: true
methodNode: DoIt
TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: '...etc...
method: (UndefinedObject>>#DoIt "a CompiledMethod(173015040)")
value: nil
toLog: nil
itsSelection: nil
itsSelectionString: nil
Receiver's instance variables:
sourceStream: a ReadWriteStream
requestor: a TextMorphForEditView(175636480)
class: UndefinedObject
category: nil
context: nil
parser: a Parser
[rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: rcvr
notifying: self morph
ifFail: [self morph flash.
^ nil]
logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
rcvr: nil
ctxt: nil
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
BlockClosure>>on:do:
Receiver: [rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: ...etc...
Arguments and temporary variables:
exception: OutOfScopeNotification
handlerAction: [:ex | ex resume: true]
handlerActive: true
Receiver's instance variables:
outerContext: SmalltalkEditor>>evaluateSelectionAndDo:
startpc: 110
numArgs: 0
SmalltalkEditor>>evaluateSelectionAndDo:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [:result | result]
result: nil
rcvr: nil
ctxt: nil
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>evaluateSelection
Receiver: a SmalltalkEditor
Arguments and temporary variables:
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>doIt
Receiver: a SmalltalkEditor
Arguments and temporary variables:
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor>>doIt:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
aBoolean: false
return: [:val | ^ val]
asciiValue: 101
actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop: #noop: #noop: #...etc...
action: #doIt:
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>dispatchCommandOn:return:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
return: [:val | ^ val]
asciiValue: 100
honorCommandKeys: true
char: nil
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>dispatchOn:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
char: nil
return: [:val | ^ val]
keyEvents: nil
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
[self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>handleKeystrokeAction:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [self dispatchOn: aKeyboardEvent]
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
anAction: [self dispatchOn: aKeyboardEvent]
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
SmalltalkEditor(TextEditor)>>keystroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aKeyboardEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
[editor keystroke: evt] in [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
evt: [keystroke '<Cmd-d>']
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView(TextMorph)>>handleInteraction:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
interactionBlock: [editor keystroke: evt]
oldEditor: a SmalltalkEditor
oldParagraph: a Paragraph
oldText: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
Dr...etc...
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView>>handleInteraction:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
interActionBlock: [editor keystroke: evt]
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
[| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
evt: [keystroke '<Cmd-d>']
action: nil
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
ToolRegistry>>codeCompletionAround:textMorph:keyStroke:
Receiver: a ToolRegistry
Arguments and temporary variables:
aBlock: [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
ac...etc...
aTextMorph: a TextMorphForEditView(175636480)
evt: [keystroke '<Cmd-d>']
Receiver's instance variables:
tools: an IdentityDictionary(#basicInspector->BasicInspector #browser->[self de...etc...
inspectorsMap: an IdentityDictionary(#CompiledMethod->#CompiledMethodInspector ...etc...
SmalltalkEditor>>codeCompletionAround:textMorph:keyStroke:
Receiver: a SmalltalkEditor
Arguments and temporary variables:
aBlock: [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
ac...etc...
aTextMorph: a TextMorphForEditView(175636480)
anEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
morph: a TextMorphForEditView(175636480)
selectionShowing: true
model: a Workspace
editingState: a SmalltalkEditingState
TextMorphForEditView(TextMorph)>>keyStroke:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
evt: [keystroke '<Cmd-d>']
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView>>keyStroke:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
evt: [keystroke '<Cmd-d>']
view: a PluggableTextMorph(149684224)
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView(TextMorph)>>handleKeystroke:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
anEvent: [keystroke '<Cmd-d>']
pasteUp: nil
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
KeyboardEvent>>sentTo:
Receiver: [keystroke '<Cmd-d>']
Arguments and temporary variables:
anObject: a TextMorphForEditView(175636480)
Receiver's instance variables:
timeStamp: 5236446
source: a HandMorph(843055104)
windowIndex: nil
type: #keystroke
buttons: 64
position: (201@94)
handler: nil
wasHandled: true
keyValue: 100
charCode: 100
scanCode: 100
TextMorphForEditView(Morph)>>handleEvent:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
anEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
TextMorphForEditView(Morph)>>handleFocusEvent:
Receiver: a TextMorphForEditView(175636480)
Arguments and temporary variables:
anEvent: [keystroke '<Cmd-d>']
Receiver's instance variables:
bounds: (0@0) corner: (562@114)
owner: a TransformMorph(879755264)
submorphs: #()
fullBounds: (0@0) corner: (562@114)
color: Color black
extension: a MorphExtension (48758784) [other: (blinkStart -> 5236946) (myDepe...etc...
borderWidth: 0
borderColor: Color black
textStyle: a TextStyle Bitmap DejaVu Sans 9
text: a Text for 'DrGeo new.
DrGDefault beWorkstation.
DrGDefault beiPad.
DrGDe...etc...
wrapFlag: true
paragraph: a Paragraph
editor: a SmalltalkEditor
container: nil
predecessor: nil
successor: nil
backgroundColor: nil
margins: (0@0) corner: (0@0)
editView: a PluggableTextMorph(149684224)
acceptOnCR: false
autoAccept: false
acceptOnFocusChange: false
selectionColor: nil
--- The full stack ---
SystemDictionary(Dictionary)>>errorKeyNotFound:
[self errorKeyNotFound: key] in SystemDictionary(Dictionary)>>at:
SystemDictionary(Dictionary)>>at:ifAbsent:
SystemDictionary(Dictionary)>>at:
SmalltalkImage>>at:
[:assoc |
methodReference := assoc key.
keywords := assoc value.
domainName := self getTextDomainForClassCategory: (Smalltalk at: methodReference classSymbol) category.
literals := domains
at: domainName
ifAbsentPut: [Dictionary new].
keywords
do: [:literal |
references := literals
at: literal
ifAbsentPut: [OrderedCollection new].
references add: methodReference]] in GetTextExporter>>appendStringReceivers:into:
OrderedCollection>>do:
GetTextExporter>>appendStringReceivers:into:
GetTextExporter>>appendTranslations:
GetTextExporter>>exportTranslator:
GetTextExporter>>exportTemplate
GetTextExporter class>>exportTemplate
UndefinedObject>>DoIt
Compiler>>evaluate:in:to:notifying:ifFail:logged:
[rcvr class evaluatorClass new
evaluate: self selectionForDoitAsStream
in: ctxt
to: rcvr
notifying: self morph
ifFail: [self morph flash.
^ nil]
logged: true] in SmalltalkEditor>>evaluateSelectionAndDo:
BlockClosure>>on:do:
SmalltalkEditor>>evaluateSelectionAndDo:
SmalltalkEditor>>evaluateSelection
SmalltalkEditor>>doIt
SmalltalkEditor>>doIt:
SmalltalkEditor(TextEditor)>>performCmdActionsWith:shifted:return:
SmalltalkEditor(TextEditor)>>dispatchCommandOn:return:
SmalltalkEditor(TextEditor)>>dispatchOn:
[self dispatchOn: aKeyboardEvent] in SmalltalkEditor(TextEditor)>>keystroke:
SmalltalkEditor(TextEditor)>>handleKeystrokeAction:
SmalltalkEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent:
SmalltalkEditor(TextEditor)>>keystroke:
[editor keystroke: evt] in [| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView(TextMorph)>>handleInteraction:
TextMorphForEditView>>handleInteraction:
[| action |
evt keyValue = 13
ifTrue: [action := self crAction.
action
ifNotNil: [evt hand newKeyboardFocus: nil.
^ action value]].
self
handleInteraction: [editor keystroke: evt].
self updateFromParagraph.
super keyStroke: evt] in TextMorphForEditView(TextMorph)>>keyStroke:
ToolRegistry>>codeCompletionAround:textMorph:keyStroke:
SmalltalkEditor>>codeCompletionAround:textMorph:keyStroke:
TextMorphForEditView(TextMorph)>>keyStroke:
TextMorphForEditView>>keyStroke:
TextMorphForEditView(TextMorph)>>handleKeystroke:
KeyboardEvent>>sentTo:
TextMorphForEditView(Morph)>>handleEvent:
TextMorphForEditView(Morph)>>handleFocusEvent:
- - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
[ActiveHand := self.
ActiveEvent := anEvent.
result := focusHolder
handleFocusEvent: (anEvent
transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendKeyboardEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h |
ActiveHand := h.
h processEvents.
ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
Processor yield.
false] whileFalse.
nil] in MorphicUIManager>>spawnNewProcess
[self value.
Processor terminateActive] in BlockClosure>>newProcess
------------------------------------------------------------
