On Dec 18, 2010, at 12:51 PM, flebber wrote:
>
> 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.
>