UIPropertyView.st
changeset 126 cf76b1df0473
parent 122 c6f7d7881634
child 129 e3b7b892e732
equal deleted inserted replaced
125:8d408045b018 126:cf76b1df0473
    21 
    21 
    22 !UIPropertyView class methodsFor:'documentation'!
    22 !UIPropertyView class methodsFor:'documentation'!
    23 
    23 
    24 documentation
    24 documentation
    25 "
    25 "
    26     provides tools to the UIPainter accessing and manipulation
    26     provides tools to the UIPainter accessing and manipulation properties
    27     properties and/or layouts.
    27     and/or layouts.
       
    28 
       
    29     [see also:]
       
    30         UIBuilder
    28 "
    31 "
    29 
    32 
    30 ! !
    33 ! !
    31 
    34 
    32 !UIPropertyView class methodsFor:'instance creation'!
    35 !UIPropertyView class methodsFor:'instance creation'!
  1743             self perform:(('fetch',   selection asString) asSymbol).
  1746             self perform:(('fetch',   selection asString) asSymbol).
  1744             spec := ('specification', selection asString) asSymbol.
  1747             spec := ('specification', selection asString) asSymbol.
  1745             spec := self class perform:spec.
  1748             spec := self class perform:spec.
  1746         ].
  1749         ].
  1747         self buildFromSpec:spec.
  1750         self buildFromSpec:spec.
  1748     ].
  1751     ] ifTrue:[
  1749     idx := layoutTypes findFirst:[:type| type == aLayoutType ].
  1752         selection notNil ifTrue:[
  1750     noteBook setSelection:idx.
       
  1751 
       
  1752     selection == aLayoutType ifFalse:[
       
  1753         (selection := aLayoutType) notNil ifTrue:[
       
  1754             self perform:(('fetch',   selection asString) asSymbol).
  1753             self perform:(('fetch',   selection asString) asSymbol).
  1755             spec := ('specification', selection asString) asSymbol.
  1754             self modified:false.
  1756             spec := self class perform:spec.
  1755         ]
  1757         ].
       
  1758         self buildFromSpec:spec.
       
  1759     ].
  1756     ].
  1760     idx := layoutTypes findFirst:[:type| type == aLayoutType ].
  1757     idx := layoutTypes findFirst:[:type| type == aLayoutType ].
  1761     noteBook setSelection:idx.
  1758     noteBook setSelection:idx.
  1762     noteBook enabled:(forView notNil).
  1759     noteBook enabled:(forView notNil).
  1763 
  1760