I have some concerns about the design of this method. Stef 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-tp3093047p... Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.