>> Root::Smalltalk::Tools::SmalltalkWorkbench
numberOfLinesOfCode -> ERROR:
>> Parser(Object)>>doesNotUnderstand: a Message with selector: #nodeDo:
> it looks like the metrics visitor has a problem
but this is difficult
> to debug without a debugger.
Sorry for the inconveniences, but saving the MSE fails because there
are streaming errors I haven't tracked, yet ... is there anything else,
I can do to help?
1) As i see now, the ONLY method producing that error is
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
2) when that error is catched in AbstractEntity>>propertyNamed:
you produce a hard coded nil value which fails in the max: method.
This is the reason why mondrian stops painting but does not explain the
origin of the problem, which follows:
3) I do not understand the attached debug stack; showing that #nodeDo
is sent to the wrong receiver; how did I possibly get a Parser instead of
aNode, here?
Tx for any hint
Thomas Schrader
**** debug stack ****
Unhandled exception: Message not understood: #nodeDo:
Parser(Object)>>doesNotUnderstand:
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doNode:
SCG.Moose.VisualWorksParseTreeMetricCalculator(SCG.Moose.VisualWorksParseTree)>>doParameter:
optimized [] in SCG.Moose.VisualWorksParseTree>>doBlock:arguments:body:
Array(SequenceableCollection)>>do:
SCG.Moose.VisualWorksParseTreeMetricCalculator(SCG.Moose.VisualWorksParseTree)>>doBlock:arguments:body:
SCG.Moose.VisualWorksParseTreeMetricCalculator>>doBlock:arguments:body:
BlockNode>>nodeDo:
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doNode:
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doMethod:selector:primitive:block:
SCG.Moose.VisualWorksParseTreeMetricCalculator>>doMethod:selector:primitive:block:
MethodNode>>nodeDo:
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doNode:
SCG.Moose.VisualWorksParseTreeMetricCalculator(SCG.Moose.VisualWorksParseTree)>>processMethod:usingImporter:inModel:
SCG.Moose.VisualWorksParseTreeMetricCalculator>>processMethod:usingImporter:inModel:
UndefinedObject>>unboundMethod
UndefinedObject(Object)>>performMethod:arguments:
UndefinedObject(Object)>>performMethod:
TextEditorController(ParagraphEditor)>>evaluateCompiled:
optimized [] in ParagraphEditor>>evaluateSelection
BlockClosure>>ensure:
Cursor>>showWhile:
TextEditorController(ParagraphEditor)>>evaluateSelection
optimized [] in ParagraphEditor>>doIt
BlockClosure>>on:do:
TextEditorController(ParagraphEditor)>>doIt
WorkspacePage>>doIt
Workbook(AbstractWorkspace)>>smalltalkDoIt
Win98MenuBarButtonController(MenuBarButtonController)>>dispatchMenuSymbol:
Win98MenuBarButtonController(MenuBarButtonController)>>dispatchMenuSelection:
optimized [] in [] in MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
BlockClosure>>ensure:
optimized [] in MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
BlockClosure>>on:do:
Win98MenuBarButtonView(MenuBarButtonView)>>processShortcutKeyEventAsMenuItemAccessor:
[] in Win98MenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
OrderedCollection>>do:
Win98MenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
KeyboardProcessor>>processShortcutKeyEvent:
KeyboardProcessor>>processKeyboardEvent:
KeyboardProcessor>>processKeyboardEvent:for:
EventDispatcher>>dispatchEvent:
KeyPressedEvent(Event)>>dispatch
KeyPressedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:
----------------------------------------------------------------------
Parser(Object)>>doesNotUnderstand:
Receiver:
a Parser
Instance Variables:
source = a ReadStream
mark = 23
prevEnd = 22
hereChar = nil
token = nil
tokenType = #doIt
saveComments = true
currentComment = nil
buffer = a WriteStream
typeTable = a ScannerTable[255]
builder = nil
requestor = nil
oldLanguage = true
newLanguage = true
extendedLanguage = false
parseNode = nil
failBlock = nil
endTemps = 23
targetClass = SmalltalkWorkbench class
environment = a NameSpace[312]
topEnvironment = a NameSpace[247]
bindingRefs = nil
Arguments:
t1 = a Message with selector: #nodeDo: and arguments: #(a
SCG.Moose.VisualWorksParseTreeMetricCalculator)
Temporaries:
t2 = a MessageNotUnderstood
t3 = nil
Context PC = 25
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doNode:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
t1 = a Parser
Context PC = 4
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(SCG.Moose.VisualWorksParseTree)>>doParameter:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
aNode = a Parser
Context PC = 5
----------------------------------------------------------------------
optimized [] in SCG.Moose.VisualWorksParseTree>>doBlock:arguments:body:
Receiver:
an UndefinedObject
Arguments:
each = a Parser
Temporaries:
.self = a SCG.Moose.VisualWorksParseTreeMetricCalculator
Context PC = 7
----------------------------------------------------------------------
Array(SequenceableCollection)>>do:
Receiver:
an Array
Arguments:
aBlock = BlockClosure [] in
SCG.Moose.VisualWorksParseTree>>doBlock:arguments:body:
Temporaries:
i = 1
elem = a Parser
Context PC = 40
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(SCG.Moose.VisualWorksParseTree)>>doBlock:arguments:body:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
aNode = {[:a BlockNode
args = an Array[2]
seq = {}
Context PC = 8
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator>>doBlock:arguments:body:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
aNode = {[:a BlockNode
args = an Array[2]
seq = {}
Context PC = 8
----------------------------------------------------------------------
BlockNode>>nodeDo:
Receiver:
a BlockNode
Instance Variables:
sourcePosition = nil
comment = nil
compilerHints = nil
blockIndex = nil
mapEntry = nil
returnMapEntry = nil
arguments = an Array[2]
body = {}
Arguments:
t1 = a SCG.Moose.VisualWorksParseTreeMetricCalculator
Context PC = 7
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doNode:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
t1 = {[:a BlockNode
Context PC = 4
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doMethod:selector:primitive:block:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
t1 = promptForSelector: a MethodNode
t2 = #promptForSelector:for:
t3 = nil
t4 = {[:a BlockNode
Context PC = 5
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator>>doMethod:selector:primitive:block:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
aNode = promptForSelector: a MethodNode
sel = #promptForSelector:for:
prim = nil
block = {[:a BlockNode
Context PC = 18
----------------------------------------------------------------------
MethodNode>>nodeDo:
Receiver:
a MethodNode
Instance Variables:
sourcePosition = an Interval[22]
comment = nil
compilerHints = nil
blockIndex = nil
mapEntry = nil
returnMapEntry = nil
selector = #promptForSelector:for:
primitive = nil
primitiveErrorCode = nil
primitiveModule = nil
primitiveSourcePosition = nil
block = {[:a BlockNode
attributeMessages = nil
Arguments:
t1 = a SCG.Moose.VisualWorksParseTreeMetricCalculator
Context PC = 8
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(ProgramNodeEnumerator)>>doNode:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
t1 = promptForSelector: a MethodNode
Context PC = 4
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator(SCG.Moose.VisualWorksParseTree)>>processMethod:usingImporter:inModel:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
aMethodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
anImporter = nil
anObject = nil
Temporaries:
parseTreeOrNil = promptForSelector: a MethodNode
Context PC = 28
----------------------------------------------------------------------
SCG.Moose.VisualWorksParseTreeMetricCalculator>>processMethod:usingImporter:inModel:
Receiver:
a SCG.Moose.VisualWorksParseTreeMetricCalculator
Instance Variables:
methodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
stClass = SmalltalkWorkbench class
importer = nil
inModel = nil
methodComplexity = 0.6
numberOfMessageSends = 0
numberOfStatements = 0
numberOfLinesOfCode = 51
parameterComplexityMultiplier = 0
numberOfConditionals = 0
cyclomaticNumber = 1
booleanOperators = 0
cyclomaticNumber2 = 1
Arguments:
aMethodEntity =
{Root::Smalltalk::Tools::SmalltalkWorkbench.promptForSelector:for:(Object,Object)}
anImporter = nil
anObject = nil
Context PC = 11
----------------------------------------------------------------------
UndefinedObject>>unboundMethod
Receiver:
an UndefinedObject
Context PC = 13
----------------------------------------------------------------------
UndefinedObject(Object)>>performMethod:arguments:
Receiver:
an UndefinedObject
Arguments:
t1 = AnnotatedMethod UndefinedObject>>unboundMethod
t2 = an Array[0]
Context PC = 5
----------------------------------------------------------------------
UndefinedObject(Object)>>performMethod:
Receiver:
an UndefinedObject
Arguments:
t1 = AnnotatedMethod UndefinedObject>>unboundMethod
Context PC = 5
----------------------------------------------------------------------
TextEditorController(ParagraphEditor)>>evaluateCompiled:
Receiver:
a TextEditorController
Instance Variables:
model = a PluggableAdaptor
view = a TextEditorView
sensor = a TranslatingSensor
menuHolder = a ValueHolder on: a Menu
performer = a WorkspacePage
beginTypeInIndex = nil
anchorIndex = 266
emphasisHere = nil
dispatchTable = a DispatchTable
charComposer = a CharacterComposer
textHasChanged = true
feelPolicy = a SCG.MagicKeys.MagicFeelPolicy
supportCodeEditingFeels = true
localMenuItems = an Array[20]
extendingDown = true
keyboardProcessor = a KeyboardProcessor
keyboardHook = nil
readOnly = false
accepted = false
autoAccept = false
continuousAccept = false
tabMeansNextField = true
tabRequiresControl = true
dispatcher = an UIDispatcher
selectable = false
Arguments:
t1 = AnnotatedMethod UndefinedObject>>unboundMethod
Temporaries:
t2 = nil
Context PC = 13
----------------------------------------------------------------------
optimized [] in ParagraphEditor>>evaluateSelection
Receiver:
an UndefinedObject
Temporaries:
.self = a TextEditorController(#textModel)
.t1 = AnnotatedMethod UndefinedObject>>unboundMethod
Context PC = 7
----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in ParagraphEditor>>evaluateSelection
outerContext = nil
copiedValues = an Array[2]
Arguments:
t1 = BlockClosure [] in Cursor>>showWhile:
Temporaries:
t2 = nil
Context PC = 4
----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
a Cursor
Instance Variables:
errorCode = 0
handle = 5
image = Depth1Image(extent: 16@16 depth: 1)
mask = Depth1Image(extent: 16@16 depth: 1)
hotSpot = 1@1
name = 'xeq'
Arguments:
t1 = BlockClosure [] in ParagraphEditor>>evaluateSelection
Temporaries:
t2 = Cursor normal
Context PC = 23
----------------------------------------------------------------------
TextEditorController(ParagraphEditor)>>evaluateSelection
Receiver:
a TextEditorController
Instance Variables:
model = a PluggableAdaptor
view = a TextEditorView
sensor = a TranslatingSensor
menuHolder = a ValueHolder on: a Menu
performer = a WorkspacePage
beginTypeInIndex = nil
anchorIndex = 266
emphasisHere = nil
dispatchTable = a DispatchTable
charComposer = a CharacterComposer
textHasChanged = true
feelPolicy = a SCG.MagicKeys.MagicFeelPolicy
supportCodeEditingFeels = true
localMenuItems = an Array[20]
extendingDown = true
keyboardProcessor = a KeyboardProcessor
keyboardHook = nil
readOnly = false
accepted = false
autoAccept = false
continuousAccept = false
tabMeansNextField = true
tabRequiresControl = true
dispatcher = an UIDispatcher
selectable = false
Temporaries:
t1 = AnnotatedMethod UndefinedObject>>unboundMethod
t2 = nil
Context PC = 14
----------------------------------------------------------------------
optimized [] in ParagraphEditor>>doIt
Receiver:
an UndefinedObject
Temporaries:
.self = a TextEditorController(#textModel)
Context PC = 6
----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in ParagraphEditor>>doIt
outerContext = nil
copiedValues = a TextEditorController(#textModel)
Arguments:
t1 = CompilationError
t2 = BlockClosure [] in ParagraphEditor>>doIt
Context PC = 18
----------------------------------------------------------------------
TextEditorController(ParagraphEditor)>>doIt
Receiver:
a TextEditorController
Instance Variables:
model = a PluggableAdaptor
view = a TextEditorView
sensor = a TranslatingSensor
menuHolder = a ValueHolder on: a Menu
performer = a WorkspacePage
beginTypeInIndex = nil
anchorIndex = 266
emphasisHere = nil
dispatchTable = a DispatchTable
charComposer = a CharacterComposer
textHasChanged = true
feelPolicy = a SCG.MagicKeys.MagicFeelPolicy
supportCodeEditingFeels = true
localMenuItems = an Array[20]
extendingDown = true
keyboardProcessor = a KeyboardProcessor
keyboardHook = nil
readOnly = false
accepted = false
autoAccept = false
continuousAccept = false
tabMeansNextField = true
tabRequiresControl = true
dispatcher = an UIDispatcher
selectable = false
Context PC = 20
----------------------------------------------------------------------
WorkspacePage>>doIt
Receiver:
a WorkspacePage
Instance Variables:
dependents = a PluggableAdaptor
builder = an UIBuilder
uiSession = nil
eventHandlers = an IdentityDictionary[1]
workspace = a Workbook
label = 'ERROR.ws'
verboseLabel = nil
filename = a PortableFilename('ERROR.ws')
fileTimestamp = 27. Oktober 2008 12:21:45.000
textModel = a PluggableAdaptor
unacceptedText = nil
savedSelection = nil
savedFileTimestamp = nil
textModelOverride = nil
Context PC = 16
----------------------------------------------------------------------
Workbook(AbstractWorkspace)>>smalltalkDoIt
Receiver:
a Workbook
Instance Variables:
dependents = an ApplicationWindow 1444
builder = an UIBuilder
uiSession = a ControlManager
eventHandlers = nil
locals = a WorkspaceVariablePool[5]
importAll = true
specificImports = an Array[3]
importSummaryHolder = a ValueHolder on: 'All'
pageExplanationHolder = a ValueHolder on: 'ERROR.ws'
statusBarVisible = true
encodingChannel = a ValueHolder on: #Source
menuBarHolder = a ValueHolder on: a Menu
pageHolder = a SelectionInList
lastInstalledPage = a WorkspacePage
Context PC = 5
----------------------------------------------------------------------
Win98MenuBarButtonController(MenuBarButtonController)>>dispatchMenuSymbol:
Receiver:
a Win98MenuBarButtonController
Instance Variables:
model = nil
view = a Win98MenuBarButtonView
sensor = a TranslatingSensor
highlightOnOpen = false
Arguments:
t1 = #smalltalkDoIt
Context PC = 38
----------------------------------------------------------------------
Win98MenuBarButtonController(MenuBarButtonController)>>dispatchMenuSelection:
Receiver:
a Win98MenuBarButtonController
Instance Variables:
model = nil
view = a Win98MenuBarButtonView
sensor = a TranslatingSensor
highlightOnOpen = false
Arguments:
menuSelection = #smalltalkDoIt
Context PC = 21
----------------------------------------------------------------------
optimized [] in [] in MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Receiver:
an UndefinedObject
Temporaries:
.self = a Win98MenuBarButtonView
.t4 = #smalltalkDoIt
Context PC = 12
----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
outerContext = nil
copiedValues = an Array[2]
Arguments:
t1 = BlockClosure [] in [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Temporaries:
t2 = nil
Context PC = 4
----------------------------------------------------------------------
optimized [] in MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Receiver:
an UndefinedObject
Temporaries:
.self = a Win98MenuBarButtonView
.t4 = #smalltalkDoIt
Context PC = 14
----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
outerContext = nil
copiedValues = an Array[2]
Arguments:
t1 = VetoAction
t2 = BlockClosure [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Context PC = 18
----------------------------------------------------------------------
Win98MenuBarButtonView(MenuBarButtonView)>>processShortcutKeyEventAsMenuItemAccessor:
Receiver:
a Win98MenuBarButtonView
Instance Variables:
container = a BoundedWrapper on: a Win98MenuBarButtonView
eventHandlers = nil
model = nil
controller = a Win98MenuBarButtonController
properties = nil
state = a WidgetState
isInTransition = false
latestValue = nil
referenceValue = true
label = Label for 'Smalltalk'
textStyle = a VariableSizeTextAttributes
helpText = nil
menuHolder = a Menu
menuBar = a Win98MenuBar
accessChar = 1
Arguments:
t1 = a KeyPressedEvent
Temporaries:
t2 = a Menu
t3 = a MenuItem 'Do it'
t4 = #smalltalkDoIt
t5 = nil
Context PC = 55
----------------------------------------------------------------------
[] in Win98MenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
Receiver:
a Win98MenuBar
Instance Variables:
container = a MenuBarWrapper on: a Win98MenuBar
eventHandlers = nil
components = an OrderedCollection[5]
preferredBounds = 4@4 corner: 207@27
leftSpace = 4
spaceBetweenItems = 0
extraSpaceTop = 4
extraSpaceBottom = 3
extraSpaceBetweenLines = 0
menuChannel = a ValueHolder on: a Menu
performer = a Workbook
menuButtons = an OrderedCollection[5]
nextMenuButton = nil
lastMousePosition = 558@334
Arguments:
t3 = a Win98MenuBarButtonView
Temporaries:
.t1 = a KeyPressedEvent
Context PC = 10
----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
an OrderedCollection
Instance Variables:
firstIndex = 1
lastIndex = 5
Arguments:
aBlock = BlockClosure [] in MenuBar>>processShortcutKeyEventInMenuBar:
Temporaries:
index = 3
Context PC = 43
----------------------------------------------------------------------
Win98MenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
Receiver:
a Win98MenuBar
Instance Variables:
container = a MenuBarWrapper on: a Win98MenuBar
eventHandlers = nil
components = an OrderedCollection[5]
preferredBounds = 4@4 corner: 207@27
leftSpace = 4
spaceBetweenItems = 0
extraSpaceTop = 4
extraSpaceBottom = 3
extraSpaceBetweenLines = 0
menuChannel = a ValueHolder on: a Menu
performer = a Workbook
menuButtons = an OrderedCollection[5]
nextMenuButton = nil
lastMousePosition = 558@334
Arguments:
t1 = a KeyPressedEvent
Context PC = 20
----------------------------------------------------------------------
KeyboardProcessor>>processShortcutKeyEvent:
Receiver:
a KeyboardProcessor
Instance Variables:
keyboardConsumers = an OrderedCollection[2]
currentConsumer = a TextEditorController(#textModel)
default = nil
cancel = nil
keyboardHook = nil
focusIsShifting = false
currentConsumerChannel = nil
acceptOnControlChange = false
menuBar = a Win98MenuBar
Arguments:
t1 = a KeyPressedEvent
Temporaries:
t2 = a TextEditorController(#textModel)
t3 = nil
t4 = nil
t5 = nil
Context PC = 28
----------------------------------------------------------------------
KeyboardProcessor>>processKeyboardEvent:
Receiver:
a KeyboardProcessor
Instance Variables:
keyboardConsumers = an OrderedCollection[2]
currentConsumer = a TextEditorController(#textModel)
default = nil
cancel = nil
keyboardHook = nil
focusIsShifting = false
currentConsumerChannel = nil
acceptOnControlChange = false
menuBar = a Win98MenuBar
Arguments:
t1 = a KeyPressedEvent
Temporaries:
t2 = nil
Context PC = 8
----------------------------------------------------------------------
KeyboardProcessor>>processKeyboardEvent:for:
Receiver:
a KeyboardProcessor
Instance Variables:
keyboardConsumers = an OrderedCollection[2]
currentConsumer = a TextEditorController(#textModel)
default = nil
cancel = nil
keyboardHook = nil
focusIsShifting = false
currentConsumerChannel = nil
acceptOnControlChange = false
menuBar = a Win98MenuBar
Arguments:
t1 = a KeyPressedEvent
t2 = an ApplicationStandardSystemController
Temporaries:
t3 = a KeyPressedEvent
Context PC = 26
----------------------------------------------------------------------
EventDispatcher>>dispatchEvent:
Receiver:
an EventDispatcher
Instance Variables:
windowController = an ApplicationStandardSystemController
currentMouseConsumer = nil
grabbingMouse = false
keyboardProcessor = a KeyboardProcessor
lastControlObject = nil
trapList = nil
state = nil
repairDamageWhenDebugging = true
flushQueueAfterError = true
distributeEventsWhenDebugging = true
dragDropInProgress = false
dragDropTracker = nil
dispatchUnknownEvents = false
Arguments:
t1 = a KeyPressedEvent
Temporaries:
t2 = nil
t3 = a KeyboardProcessor
Context PC = 82
----------------------------------------------------------------------
KeyPressedEvent(Event)>>dispatch
Receiver:
a KeyPressedEvent
Instance Variables:
time = nil
initiator = an EventDispatcher
window = an ApplicationWindow 1444
state = nil
keyCharacter = $ "16r0004"
metaState = 2
alternativeKeyCharacter = nil
Context PC = 16
----------------------------------------------------------------------
KeyPressedEvent(Event)>>dispatchForWindowManager:
Receiver:
a KeyPressedEvent
Instance Variables:
time = nil
initiator = an EventDispatcher
window = an ApplicationWindow 1444
state = nil
keyCharacter = $ "16r0004"
metaState = 2
alternativeKeyCharacter = nil
Arguments:
t1 = a WindowManager
Context PC = 4
----------------------------------------------------------------------
optimized [] in WindowManager>>safelyDispatchForWindowManager:
Receiver:
an UndefinedObject
Temporaries:
.event = a KeyPressedEvent
.self = a WindowManager
Context PC = 6
----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in WindowManager>>safelyDispatchForWindowManager:
outerContext = nil
copiedValues = an Array[2]
Arguments:
t1 = an ExceptionSet[3]
t2 = BlockClosure [] in WindowManager>>safelyDispatchForWindowManager:
Context PC = 18
----------------------------------------------------------------------
WindowManager>>safelyDispatchForWindowManager:
Receiver:
a WindowManager
Instance Variables:
windows = an OrderedCollection[1]
activeController = nil
interruptLock = false
outstandingMetaOrDamage = false
openInProgress = false
eventQueue = an EventQueue
baseProcess = a Process in Semaphore>>wait
dontFilterEvents = false
Arguments:
event = a KeyPressedEvent
Context PC = 18
----------------------------------------------------------------------
WindowManager>>processNextEvent
Receiver:
a WindowManager
Instance Variables:
windows = an OrderedCollection[1]
activeController = nil
interruptLock = false
outstandingMetaOrDamage = false
openInProgress = false
eventQueue = an EventQueue
baseProcess = a Process in Semaphore>>wait
dontFilterEvents = false
Temporaries:
t1 = a KeyPressedEvent
Context PC = 9
----------------------------------------------------------------------
optimized [] in [] in WindowManager>>newProcess
Receiver:
an UndefinedObject
Temporaries:
.self = a WindowManager
Context PC = 13
----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in [] in WindowManager>>newProcess
outerContext = nil
copiedValues = a WindowManager
Arguments:
t1 = TerminateException
t2 = BlockClosure [] in [] in WindowManager>>newProcess
Context PC = 18
----------------------------------------------------------------------
optimized [] in WindowManager>>newProcess
Receiver:
an UndefinedObject
Temporaries:
.self = a WindowManager
Context PC = 15
----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
a BlockClosure
Instance Variables:
method = CompiledBlock [] in WindowManager>>newProcess
outerContext = nil
copiedValues = a WindowManager
Arguments:
t1 = TerminateException
t2 = BlockClosure [] in [] in Process class>>forBlock:priority:
Context PC = 18
----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
an UndefinedObject
Temporaries:
.t1 = BlockClosure [] in WindowManager>>newProcess
Context PC = 9
_________________________________________________________________________
In 5 Schritten zur eigenen Homepage. Jetzt Domain sichern und gestalten!
Nur 3,99 EUR/Monat!
http://www.maildomain.web.de/?mc=021114