Hi doru
I sent you a drop box where you just have to click to repeat the problem.
Let me know if this is enough. Else I should send you more scripts and
files.
Stef
Le 9/8/16 à 12:07, Tudor Girba a écrit :
Hi,
Thanks for the report. Do you happen to have an image around?
Doru
On Aug 9, 2016, at 11:47 AM, stepharo <steph...@free.fr> wrote:
While trying to debug pillar I got a DNU when clicking on the raw pane (when
the items was selected)
DNU:
presentation rawSelection is aLinkedList and it does not understand key
'From Pharo 6.0 of 13 May 2016 [Latest update: #60173] on 9 August 2016 at
11:45:10.355092 am'!
!GTRawObjectVariablesBrowser methodsFor: 'private building' stamp: 'AndreiChis
4/26/2016 10:37'!
variablesIn: composite
^ composite table
showOnly: 50;
shouldValidate: false;
allowsRecursiveSearch: false;
children: [ :assoc |
assoc key = 'self'
ifTrue: [ #() ]
ifFalse: [ self variableValuePairsFor: assoc value ] ];
icon: [ :assoc | self iconFor: assoc value ];
display: [ :anObject |
self rebuildCacheFor: anObject.
self variableValuePairsFor: anObject ];
column: 'Variable'
evaluated: [:assoc | ' ', (GTObjectPrinter new
asNonTruncatedTextFrom: assoc key) ];
column: 'Value'
evaluated: [:assoc | GTObjectPrinter new asTruncatedTextFrom: assoc
value ]
modified: [:newValue :assoc :presentation |
self updateInstanceVariable: assoc key from: presentation
entity basedOn: newValue.
presentation update ];
morphicSelectionAct: [:list | list selection value browse ]
icon: GLMUIThemeExtraIcons glamorousBrowse
on: $b
entitled: 'Browse';
morphicSelectionAct: [:list | list selection value inspect ]
icon: GLMUIThemeExtraIcons glamorousInspect
on: $i
entitled: 'Inspect';
selectionAct: [:list |
((list selection pointersToExcept: { list selection })
reject: [ :each | each pointsOnlyWeaklyTo:
list selection ]) inspect ]
on: $t
entitled: 'Open pointers to';
dynamicActionsOnSelection: [ :presentation |
(presentation entity class hasInstVarNamed: presentation
rawSelection key)
^^^^^^^^ here
ifTrue: [
{
GLMGenericAction new
action: [:list | self systemNavigation
browseAllAccessesTo: list rawSelection key from: list entity class ];
title: 'List methods using this variable'.
GLMGenericAction new
action: [:list | self systemNavigation
browseAllStoresInto: list rawSelection key from: list entity class ];
title: 'List methods storing into this
variable'.
}
]
ifFalse: [ #() ] ]! !
<GTRawObjectVariablesBrowser-variablesIn.st>
--
www.tudorgirba.com
www.feenk.com
"Reasonable is what we are accustomed with."
