Thanks for catching it. I opened a Pharo bug:
https://pharo.fogbugz.com/f/cases/12370/MorphTreeMorph-raises-exception-w...
Doru
On Sat, Dec 7, 2013 at 6:50 PM, Stéphane Ducasse
<stephane.ducasse(a)inria.fr>wrote:
On Dec 7, 2013, at 6:29 PM, Tudor Girba <tudor(a)tudorgirba.com> wrote:
I never saw this error. Could you describe exactly what you do?
apparently
Model1
allNamespace
allclasses
I have the impression that this is when I went from allclasses to Models
I got it several times already and again now.
Now I can reproduce it each time :)
Model1 is selected
allclasses is selected
and you should click in the empty space below Model1
mouseUp: event on: aNodeMorph
^^^^^^^^^^^^^^^^^^^ nil
| path cmdOrCtrl clickedTheCheckbox |
"No change if model is locked"
clickedTheCheckbox := self clicked: event inTheCheckboxOf: aNodeMorph.
self listModel okToChange ifFalse: [^self].
self listModel okToDiscardEdits ifFalse: [^ self].
cmdOrCtrl := self commandOrCrontrolKeyPressed: event.
path := (event shiftPressed and: [self isMultiple])
ifTrue: [self shiftSelectMorph: aNodeMorph]
ifFalse: [
self autoMultiSelection
ifTrue: [self selectedMorphList ifEmpty: [] ifNotEmpty: [:l | l last path
collect: [:p | p complexContents]]]
ifFalse: [self selectMorph: aNodeMorph multiple: ((cmdOrCtrl and: [self
isMultiple]) or: [self autoMultiSelection]) clickedTheCheckBox:
clickedTheCheckbox ]].
self selectionUpdateFromViewWhile: [ | selHolder |
selHolder := self newSelectionHolderWithNodePath: path.
self listModel selection: selHolder].
clickedTheCheckbox ifFalse: [ self lastClickedMorph: aNodeMorph ].
self selectionChanged.
Stef
Doru
On Sat, Dec 7, 2013 at 6:14 PM, Stéphane Ducasse <
stephane.ducasse(a)inria.fr> wrote:
> Apparently when I move the moose from the finder elements (classes) to
> the model item I get
> a DNU point:from:
>
>
>
> MoprhTreeListManager>>clicked: event inTheCheckboxOf: aTargetMorph
> | position |
>
> position := aTargetMorph point: event position from: client.
> ^ self isCheckList and: [ (aTargetMorph checkClickableZone
> translateBy: 2 @ 0) containsPoint: position ]
>
> Stef
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
>
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
--
www.tudorgirba.com
"Every thing has its own flow"
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Every thing has its own flow"