ApplicationModel subclass:#UIPropertyView

	instanceVariableNames:'window specClass aspects modified modifiedHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

UIPropertyView subclass:#Specification

	instanceVariableNames:'specEdited specChannel'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIPropertyView

!

UIPropertyView subclass:#Dimension

	instanceVariableNames:'noteBook forView selection layoutTypes'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UIPropertyView

!

!UIPropertyView class methodsFor:'documentation'!

documentation

"

    provides tools to the UIPainter accessing and manipulation

    properties and/or layouts.

"

! !

!UIPropertyView class methodsFor:'instance creation'!

for:aTool in:aTopview

    |cls appl|

    cls := Smalltalk classNamed:(self name asString, '::', aTool asString).

    appl := cls new.

    appl origin:0.0@0.0 corner:1.0@1.0 in:aTopview.

  ^ appl

!

in:aTopview

    |appl|

    appl := self new.

    appl origin:0.0@0.0 corner:1.0@1.0 in:aTopview.

  ^ appl

! !

!UIPropertyView methodsFor:'accessing'!

buildFromSpec:aSpec

    |state subViews backGroundColor|

    aSpec ~= specClass ifTrue:[

        window destroySubViews.

        aSpec notNil ifTrue:[

            builder buildFromSpec:aSpec in:window.

            window allViewBackground:(self viewBackground).

            window realizeAllSubViews

        ]

    ].

    specClass := aSpec.

    self modified:false

!

modified

    "returns modifying state

    "

    ^ modified

!

modified:aState

    "set modifying state

    "

    modified := aState.

    modifiedHolder notNil ifTrue:[

        modifiedHolder value ~~ modified ifTrue:[

            modifiedHolder value:modified

        ]

    ]

!

modifiedHolder

    "returns the value holder set to true in case of modifying attributes

    "

    ^ modifiedHolder

!

modifiedHolder:aValueHolder

    "set the value holder set to true in case of modifying attributes

    "

    modifiedHolder notNil ifTrue:[

        modifiedHolder removeDependent:self. 

    ].

    (modifiedHolder := aValueHolder) notNil ifTrue:[

        modifiedHolder addDependent:self.

        modifiedHolder setValue:modified.

    ].

! !

!UIPropertyView methodsFor:'accessing hierarchy'!

lower

    "bring window to back

    "

    self window back

!

raise

    "bring window to front

    "

    self window raise

!

viewBackground

    ^ window viewBackground

!

viewBackground:aColor

    window viewBackground:aColor

!

window

    "returns window application is running in

    "

    ^ window

! !

!UIPropertyView methodsFor:'bindings'!

aspectFor:aKey

    "returns aspect for a key or nil

    "

    aspects notNil ifTrue:[

        ^ aspects at:aKey ifAbsent:nil

    ].

    ^ super aspectFor:aKey

!

aspects

    "returned monitored aspects

    "

    ^ aspects

!

aspects:aListOfAspects

    "set aspects to be monitored

    "

    (aspects := aListOfAspects) notNil ifTrue:[

        aspects do:[:el | el addDependent:self ].

    ].

    self modified:false.

! !

!UIPropertyView methodsFor:'change & update'!

update:something with:someArgument from:someone

    "any attribute changed its state in the current specification

    "

    someone == modifiedHolder ifTrue:[

        modified := modifiedHolder value

    ] ifFalse:[

        self modified:true

    ]

! !

!UIPropertyView methodsFor:'initialization'!

closeRequest

    modifiedHolder notNil ifTrue:[

        modifiedHolder removeDependent:self. 

        modifiedHolder := nil.

    ].

    super closeRequest

!

initialize

    super initialize.

    modified := false.

!

origin:anOrigin corner:aCorner in:aTopview

    window := SimpleView origin:anOrigin corner:aCorner in:aTopview

! !

!UIPropertyView::Specification methodsFor:'accessing'!

specEdited

    "gets current edit specification

    "

    ^ specEdited

!

specEdited:aSpec

    "sets current edit specification

    "

    |aspects|

    self modified:false.

    aSpec isNil ifTrue:[

        specChannel := nil.

        specEdited  := nil.

    ] ifFalse:[

        specEdited class == aSpec class ifTrue:[

            specEdited := aSpec.

            specChannel value:specEdited.

          ^ self modified:false.

        ].

        specEdited  := aSpec.

        aspects     := IdentityDictionary new.

        specChannel := specEdited asValue.

        specEdited class addBindingsTo:aspects for:specEdited channel:specChannel

    ].

    self aspects:aspects.

    self buildFromSpec:nil.

! !

!UIPropertyView::Specification methodsFor:'action'!

reload

    "reload specification

    "

    specChannel notNil ifTrue:[

        specChannel value:specEdited.

        self modified:false.

    ]

! !

!UIPropertyView::Dimension class methodsFor:'interface specs'!

specificationAlignmentOrigin

    "this window spec was automatically generated by the ST/X UIPainter"

    "do not manually edit this - the painter/builder may not be able to

     handle the specification if its corrupted."

    "

     UIPainter new openOnClass:UIPropertyView::Dimension andSelector:#specificationAlignmentOrigin

     UIPropertyView::Dimension new openInterface:#specificationAlignmentOrigin

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'uIPainterView'

              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

              #'label:' 'unnamed'

              #'bounds:' #(#Rectangle 0 0 250 365)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'label2'

                    #'layout:' #(#AlignmentOrigin 49 0 68 0 1 0)

                    #'label:' 'top'

                    #'level:' 0

                    #'adjust:' #right

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'label3'

                    #'layout:' #(#Point 58 13)

                    #'label:' 'relative'

                    #'level:' 0

                    #'adjust:' #center

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'label4'

                    #'layout:' #(#Point 154 14)

                    #'label:' 'offset'

                    #'level:' 0

                    #'adjust:' #center

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'label5'

                    #'layout:' #(#AlignmentOrigin 63 0 140 0 1 0)

                    #'label:' 'align H'

                    #'level:' 0

                    #'adjust:' #right

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'label6'

                    #'layout:' #(#AlignmentOrigin 63 0 166 0 1 0)

                    #'label:' 'align V'

                    #'level:' 0

                    #'adjust:' #right

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#InputFieldSpec

                    #'name:' 'editField1'

                    #'layout:' #(#LayoutFrame 58 0 41 0 115 0 59 0)

                    #'model:' #leftFraction

                    #'tabable:' true

                    #'type:' #numberOrNil

                    #'immediateAccept:' true

                    #'acceptOnLeave:' true

                    #'acceptOnReturn:' true

                    #'acceptOnTab:' true

                    #'acceptOnLostFocus:' true

                    #'hasBorder:' false

                )

                 #(#InputFieldSpec

                    #'name:' 'editField2'

                    #'layout:' #(#LayoutFrame 58 0 68 0 115 0 86 0)

                    #'model:' #topFraction

                    #'tabable:' true

                    #'type:' #numberOrNil

                    #'immediateAccept:' true

                    #'acceptOnLeave:' true

                    #'acceptOnReturn:' true

                    #'acceptOnTab:' true

                    #'acceptOnLostFocus:' true

                    #'hasBorder:' false

                )

                 #(#InputFieldSpec

                    #'name:' 'editField5'

                    #'layout:' #(#LayoutFrame 68 0 140 0 125 0 158 0)

                    #'model:' #leftAlignmentFraction

                    #'tabable:' true

                    #'type:' #numberOrNil

                    #'immediateAccept:' true

                    #'acceptOnLeave:' true

                    #'acceptOnReturn:' true

                    #'acceptOnTab:' true

                    #'acceptOnLostFocus:' true

                    #'hasBorder:' false

                )

                 #(#InputFieldSpec

                    #'name:' 'editField6'

                    #'layout:' #(#LayoutFrame 68 0 166 0 125 0 184 0)

                    #'model:' #topAlignmentFraction

                    #'tabable:' true

                    #'type:' #numberOrNil

                    #'immediateAccept:' true

                    #'acceptOnLeave:' true

                    #'acceptOnReturn:' true

                    #'acceptOnTab:' true

                    #'acceptOnLostFocus:' true

                    #'hasBorder:' false

                )

                 #(#InputFieldSpec

                    #'name:' 'editField3'

                    #'layout:' #(#LayoutFrame 154 0 41 0 212 0 59 0)

                    #'model:' #leftOffset

                    #'tabable:' true

                    #'type:' #numberOrNil

                    #'immediateAccept:' true

                    #'acceptOnLeave:' true

                    #'acceptOnReturn:' true

                    #'acceptOnTab:' true

                    #'acceptOnLostFocus:' true

                    #'hasBorder:' false

                )

                 #(#InputFieldSpec

                    #'name:' 'editField4'

                    #'layout:' #(#LayoutFrame 154 0 68 0 212 0 86 0)

                    #'model:' #topOffset

                    #'tabable:' true

                    #'type:' #numberOrNil

                    #'immediateAccept:' true

                    #'acceptOnLeave:' true

                    #'acceptOnReturn:' true

                    #'acceptOnTab:' true

                    #'acceptOnLostFocus:' true

                    #'hasBorder:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'button1'

                    #'layout:' #(#LayoutFrame 119 0 41 0 138 0 59 0)

                    #'label:' ''

                    #'model:' #makeRelativeLeft

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'button2'

                    #'layout:' #(#LayoutFrame 119 0 68 0 138 0 86 0)

                    #'label:' ''

                    #'model:' #makeRelativeTop

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'button3'

                    #'layout:' #(#LayoutFrame 217 0 41 0 236 0 59 0)

                    #'label:' ''

                    #'model:' #makeOffsetLeft

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'button4'

                    #'layout:' #(#LayoutFrame 217 0 68 0 236 0 86 0)

                    #'label:' ''

                    #'model:' #makeOffsetTop

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'button8'

                    #'layout:' #(#LayoutFrame 119 0 102 0 138 0 120 0)

                    #'label:' ''

                    #'model:' #makeRelativeLeftTop

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'button9'

                    #'layout:' #(#LayoutFrame 217 0 102 0 236 0 120 0)

                    #'label:' ''

                    #'model:' #makeOffsetLeftTop

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#LabelSpec

                    #'name:' 'label7'

                    #'layout:' #(#AlignmentOrigin 49 0 102 0 1 0)

                    #'label:' 'all'

                    #'level:' 0

                    #'adjust:' #right

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#LabelSpec

                    #'name:' 'label1'

                    #'layout:' #(#AlignmentOrigin 49 0 41 0 1 0)

                    #'label:' 'left'

                    #'level:' 0

                    #'adjust:' #right

                    #'hasCharacterOrientedLabel:' true

                )

                 #(#DividerSpec

                    #'name:' 'separator1'

                    #'layout:' #(#Rectangle 154 142 203 153)

                    #'orientation:' #horizontal

                )

                 #(#DividerSpec

                    #'name:' 'separator2'

                    #'layout:' #(#Rectangle 154 173 203 184)

                    #'orientation:' #horizontal

                )

                 #(#DividerSpec

                    #'name:' 'separator3'

                    #'layout:' #(#Rectangle 145 152 155 173)

                    #'orientation:' #vertical

                )

                 #(#DividerSpec

                    #'name:' 'separator4'

                    #'layout:' #(#Rectangle 203 152 213 173)

                    #'orientation:' #vertical

                )

                 #(#ActionButtonSpec

                    #'name:' 'alignBR'

                    #'layout:' #(#Rectangle 201 172 213 184)

                    #'label:' ''

                    #'model:' #makeAlignBottomRight

                    #'isTriggerOnDown:' false

                    #'autoRepeat:' false

                )

                 #(#ActionButtonSpec

                    #'name:' 'alignTL'

                    #'layout:' #(#Rectangle 145 141 157 153)

                    #'label:' ''

                    #'model:' #makeAlignTopLeft

                    #'isTriggerOnDown:' false