Posted by flebber on Dec 18, 2010; 11:51am
URL: https://forum.world.st/Installing-Morphic-UI-designer-in-Pharo-1-1-tp3093047p3093610.html

I tried installing with using your underscores code on my win64 setup. I get to the end of setup and receive
this error. The install then freezes with configurationOfDesigner Frozen

textFor: aModelIndex

        | col package systemCategory class protocol method |
        col := aModelIndex column.
        package := aModelIndex valueOfProperty: #package ifAbsent: [].
        systemCategory := aModelIndex valueOfProperty: #systemCategory  ifAbsent: [].
        class := aModelIndex valueOfProperty: #class ifAbsent: [].
        protocol := aModelIndex valueOfProperty: #protocol ifAbsent: [].
        method := aModelIndex valueOfProperty: #method ifAbsent: [].
       
        "Horizontal headers."
        aModelIndex row = 0 ifTrue: [
                col = 1 ifTrue: [^ 'Name' asHtmlText].
                col = 2 ifTrue: [^ 'Size' asHtmlText].
                col = 3 ifTrue: [^ 'Type' asHtmlText]].
       
        "Vertical headers."
        aModelIndex column = 0 ifTrue: [
                ^ aModelIndex row asString].
       
        package ifNotNil: [:p |
                col = 1 ifTrue: [^ p name].
                col = 2 ifTrue: [^ ('', p systemCategories size asString, '') asHtmlText].
                col = 3 ifTrue: [^ 'package' asHtmlText]].
       
        systemCategory ifNotNil: [:cat |
                | prefix |
                prefix := aModelIndex valueOfProperty: #systemCategoryPrefix.
               
                col = 2 ifTrue: [^ ('', (SystemOrganization listAtCategoryNamed: cat) size asString, '') asHtmlText].
               
                cat = prefix ifFalse: [Cannot store into ->cat := cat allButFirst: prefix size + 1].
                col = 1 ifTrue: [^ cat].
                col = 3 ifTrue: [^ 'system category' asHtmlText]].
       
        class ifNotNil: [:c |
                col = 1 ifTrue: [^ c].
                col = 2 ifTrue: [^ ('', (Smalltalk at: c) organization categories size asString, '') asHtmlText].
                col = 3 ifTrue: [^ 'class' asHtmlText]].

        protocol ifNotNil: [:p |
                | organization |
                organization := aModelIndex valueOfProperty: #organization.
                col = 1 ifTrue: [^ p].
                col = 2 ifTrue: [^ ('', (organization listAtCategoryNamed: p) size asString, '') asHtmlText].
                col = 3 ifTrue: [^ 'protocol' asHtmlText]].
       
        method ifNotNil: [:m |
                col = 1 ifTrue: [^ '#', m].
                col = 3 ifTrue: [^ 'method' asHtmlText]].
               
        ^ nil