"

 COPYRIGHT (c) 1995 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

ApplicationModel subclass:#UILayoutTool

	instanceVariableNames:'modifiedHolder aspects selection layoutView'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

ApplicationModel subclass:#LayoutOrigin

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#Rectangle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#Point

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#LayoutFrame

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#AlignmentOrigin

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#Extent

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

!UILayoutTool class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1995 by eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    used by the UIPainter to manipulate the layout of the selected component

    [author:]

        Claus Atzkern

    [see also:]

        UIPainter

        UIHelpTool

        UISpecificationTool

"

! !

!UILayoutTool class methodsFor:'constants'!

label

    ^ 'Layout'

! !

!UILayoutTool class methodsFor:'interface specs'!

slices

    ^ #(

        ( 'Frame'          LayoutFrame)

        ( 'Origin'         LayoutOrigin)

        ( 'Alig.Origin'    AlignmentOrigin)

        ( 'Point'          Point)

        ( 'Rectangle'      Rectangle)

        ( 'Extent'         Extent)

       ) 

!

windowSpec

    "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:UILayoutTool andSelector:#windowSpec

     UILayoutTool new openInterface:#windowSpec

    "

    "UILayoutTool open"

    <resource: #canvas>

    ^

       #(#FullSpec

          #'window:' 

           #(#WindowSpec

              #'name:' 'uIPainterView'

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

              #'label:' 'unnamed canvas'

              #'bounds:' #(#Rectangle 0 0 300 300)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#NoteBookViewSpec

                    #'name:' 'NoteBook'

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

                    #'tabable:' true

                    #'menu:' #noteBookList

                    #'enableChannel:' #enableChannel

                    #'style:' 

                     #(#FontDescription

                        #helvetica #medium

                        #roman #'10'

                    )

                    #'model:' #noteBookModel

                    #'tabWidget:' #Window

                    #'direction:' #bottom

"/                    #'useIndex:' true

                    #'canvas:' #noteBookView

                )

              )

          )

      )

! !

!UILayoutTool methodsFor:'accessing'!

layout

    "returns configued layout or nil

    "

    |appl|

    (appl := self noteBookView application) notNil ifTrue:[

        ^ appl layout

    ].

  ^ nil

!

layoutType

    "returns current layout type or nil

    "

    |slice|

    (slice := self selectedSlice) notNil ifTrue:[

        ^ slice last

    ].

  ^ nil

!

layoutView

    "returns current edited view

    "

    ^ layoutView

!

layoutView:aView

    "change current edited view

    "

    |type name list|

    layoutView := aView.

    (type := UIPainterView layoutType:layoutView) notNil ifTrue:[

        self class slices findFirst:[:e|

            e last == type ifTrue:[name := e first. true]

        ].

        type == #Extent ifTrue:[

            list := Array with:name

        ] ifFalse:[

            list := self class slices collect:[:e| e first ].

            list removeLast.

        ].

    ].

    self noteBookList  value:list.

    self noteBookModel value:name.

    self update.

!

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.

    ].

!

update

    "update from view

    "

    |view appl|

    selection notNil ifTrue:[

        (view := self layoutView) notNil ifTrue:[

            (appl := self noteBookView application) notNil ifTrue:[

                appl fetch:view

            ]

        ]

    ].

! !

!UILayoutTool methodsFor:'aspects'!

aspectFor:aKey

    "returns aspect for a key or nil

    "

  ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]

!

noteBookList

    "returns list of tab labels

    "

    |holder|

    (holder := builder bindingAt:#noteBookList) isNil ifTrue:[

        holder := nil asValue.

        builder aspectAt:#noteBookList put:holder

    ].

  ^ holder

!

noteBookModel

    "automatically generated by UIPainter ..."

    |holder|

    (holder := builder bindingAt:#noteBookModel) isNil ifTrue:[

        holder := AspectAdaptor new subject:self; forAspect:#selection.

        builder aspectAt:#noteBookModel put:holder.

    ].

    ^ holder

!

noteBookView

    "automatically generated by UIPainter ...

    "

    |holder|

    (holder := builder bindingAt:#noteBookView) isNil ifTrue:[

        holder := SubCanvas new.

        builder aspectAt:#noteBookView put:holder

    ].

  ^ holder

! !

!UILayoutTool methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "one of my models changed its value

    "

    changedObject ~~ modifiedHolder ifTrue:[

        modifiedHolder value ~~ true ifTrue:[

            modifiedHolder isNil ifFalse:[

                modifiedHolder value:true

            ]

        ]

    ]

! !

!UILayoutTool methodsFor:'converting absolute'!

absolute:what xOrY:xOrY

    |extent fraction offset fractSymb offsetSymb|

    extent     := (self layoutView superView computeExtent) perform:xOrY.

    fractSymb  := (what, 'Fraction') asSymbol.

    offsetSymb := (what,   'Offset') asSymbol.

    fraction   := (self aspectFor:fractSymb)  value.

    offset     := (self aspectFor:offsetSymb) value.

    offset     := offset + ((fraction * extent) asInteger).

    (self aspectFor:offsetSymb) value:offset.

    (self aspectFor:fractSymb)  value:0.

!

absoluteBottom

    self absolute:'bottom' xOrY:#y

!

absoluteLeft

    self absolute:'left' xOrY:#x

!

absoluteRight

    self absolute:'right' xOrY:#x

!

absoluteTop

    self absolute:'top' xOrY:#y

! !

!UILayoutTool methodsFor:'converting relative'!

relative:what xOrY:xOrY

    |extent fraction offset fractSymb offsetSymb|

    extent     := (self layoutView superView computeExtent) perform:xOrY.

    fractSymb  := (what, 'Fraction') asSymbol.

    offsetSymb := (what,   'Offset') asSymbol.

    fraction   := (self aspectFor:fractSymb)  value.

    offset     := (self aspectFor:offsetSymb) value.

    fraction   := (fraction + (offset / extent)) asFloat.

    (fraction > 1.0) ifTrue:[ fraction := 1.0 ].

    (fraction < 0.0) ifTrue:[ fraction := 0 ].

    (self aspectFor:offsetSymb) value:0.

    (self aspectFor:fractSymb)  value:fraction.

!

relativeBottom

    self relative:'bottom' xOrY:#y

!

relativeLeft

    self relative:'left' xOrY:#x

!

relativeRight

    self relative:'right' xOrY:#x

!

relativeTop

    self relative:'top' xOrY:#y

! !

!UILayoutTool methodsFor:'initialization'!

initialize

    "initialize channels

    "

    super initialize.

    aspects  := IdentityDictionary new.

    #(  bottomFraction          bottomOffset

        leftFraction            leftOffset

        topFraction             topOffset

        rightFraction           rightOffset

        leftAlignmentFraction   topAlignmentFraction

    )

    do:[:aKey||holder|

        holder := ValueHolder new.

        holder addDependent:self.

        aspects at:aKey put:holder.

    ].

! !

!UILayoutTool methodsFor:'selection'!

selectedSlice

    "returns slice assigned to selection or nil

    "

    selection notNil ifTrue:[

        self class slices do:[:aSlice|

            aSlice first = selection ifTrue:[

                ^ aSlice

            ]

        ]

    ].

    ^ nil

!

selection

    ^ selection

!

selection:aSelection

    |appl view slice|

    selection = aSelection ifFalse:[

        (selection := aSelection) notNil ifTrue:[

            slice := self selectedSlice.

            appl  := slice last asString.

            appl := Smalltalk classNamed:(self class name asString, '::', appl).

            appl := appl new.

            appl masterApplication:self.

        ].

        self noteBookView client:appl

    ].

    self update

! !

!UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!

windowSpec

    "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:UILayoutTool::LayoutOrigin andSelector:#windowSpec

     UILayoutTool::LayoutOrigin new openInterface:#windowSpec

    "

    "UILayoutTool::LayoutOrigin open"

    <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 258 93)

          )

          #'component:' 

           #(#SpecCollection

              #'collection:' 

               #(

                 #(#LabelSpec

                    #'name:' 'labelRelative'

                    #'layout:' #(#Point 57 12)

                    #'label:' 'relative'

                )

                 #(#LabelSpec

                    #'name:' 'labelAbsolute'

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

                    #'label:' 'absolute'

                )

                 #(#LabelSpec

                    #'name:' 'labelLeft'

                    #'layout:' #(#AlignmentOrigin 52 0 44 0 1 0)

                    #'label:' 'left'

                )

                 #(#InputFieldSpec

                    #'name:' 'fieldLeftFraction'

                    #'layout:' #(#LayoutFrame 57 0 44 0 114 0 62 0)

                    #'tabable:' true

                    #'model:' #leftFraction

                    #'type:' #numberOrNil

                )

                 #(#ActionButtonSpec

                    #'name:' 'actionRelativeLeft'

                    #'layout:' #(#LayoutFrame 119 0 44 0 138 0 62 0)

                    #'label:' ''

                    #'model:' #relativeLeft

                )

                 #(#InputFieldSpec

                    #'name:' 'fieldLeftOffset'

                    #'layout:' #(#LayoutFrame 154 0 44 0 212 0 62 0)

                    #'tabable:' true

                    #'model:' #leftOffset

                    #'type:' #numberOrNil

                )

                 #(#ActionButtonSpec

                    #'name:' 'actionAbsoluteLeft'

                    #'layout:' #(#LayoutFrame 216 0 44 0 235 0 62 0)

                    #'label:' ''

                    #'model:' #absoluteLeft

                )

                 #(#LabelSpec