Posted by Wm Annis on Feb 01, 2017; 12:14am
URL: https://forum.world.st/Mondrian-edge-styling-tp4932317p4932600.html

> Let us know how it goes

Thanks!

While working on getting this to work with string rather than
numerical node values, I ran into a situation where hover events
over notes started throwing unknown message errors on #first.
I decided to start over from a fresh Pharo 5, and now Roassal
will not load from Gopher.

Stacktrace:

RTExampleSelection(Object)>>deprecated:
RTExampleSelection(GTExample)>>method:forClass:selector:
[ aGTExample
        form:
                (aGTExample
                        method: RTExampleMethodIcon
                        forClass: aCompiledMethod methodClass
                        selector: aCompiledMethod selector) ] in RTExampleFactory>>initializeIconFromMethod:forExample: in Block: [ aGTExample...
BlockClosure>>on:do:
RTExampleFactory>>initializeIconFromMethod:forExample:
RTExampleFactory>>initializeExample:fromMethod:
RTExampleSelection(GTExample)>>initializeFromMethod:usingFactory:
RTExampleFactory(GTExampleFactory)>>createExample:
[ self createExample: aCompiledMethod ] in RTExampleFactory(GTExampleFactory)>>exampleFromMethod:do: in Block: [ self createExample: aCompiledMethod ]
[ aBlock value
        ifNotNil: [ :example | methodDict at: selector put: example ] ] in GTExampleOrganizer>>exampleAtClass:selector:ifAbsentPut: in Block: [ aBlock value...
WeakIdentityKeyDictionary(Dictionary)>>at:ifAbsent:
GTExampleOrganizer>>exampleAtClass:selector:ifAbsentPut:
GTExampleOrganizer>>exampleAt:ifAbsentPut:
RTExampleFactory(GTExampleFactory)>>exampleFromMethod:do:
[ :method | self exampleFromMethod: method do: aBlock ] in RTExampleFactory(GTExampleFactory)>>examplesDo: in Block: [ :method | self exampleFromMethod: method do: aBl...etc...
Array(SequenceableCollection)>>select:thenDo:
RTExampleFactory(GTExampleFactory)>>exampleMethodsDo:
RTExampleFactory(GTExampleFactory)>>examplesDo:
[ :class |
class gtExamplesFactory
        examplesDo: [ :example | examples add: example ] ] in SmalltalkImage>>gtExamplesContained in Block: [ :class | ...
[ :each | aBlock value: (self at: each) ] in SystemDictionary>>allClassesAndTraitsDo: in Block: [ :each | aBlock value: (self at: each) ]
OrderedCollection>>do:
SystemDictionary>>allClassesAndTraitsDo:
SmalltalkImage>>allClassesAndTraitsDo:
SmalltalkImage>>gtExamplesContained
GTExampleOrganizer>>reinitialize
[ self startSystemAnnouncements.
self reinitialize ] in GTExampleOrganizer>>loadStopped: in Block: [ self startSystemAnnouncements....
[ aBlock value ] in GTExampleOrganizer>>withoutExceptionsDo: in Block: [ aBlock value ]
BlockClosure>>on:do:
GTExampleOrganizer>>withoutExceptionsDo:
GTExampleOrganizer>>loadStopped: