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.
>