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
-- 
View this message in context: 
http://forum.world.st/Installing-Morphic-UI-designer-in-Pharo-1-1-tp3093047p3093610.html
Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Reply via email to