"

 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 tabList'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

ApplicationModel subclass:#AlignmentOrigin

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#Extent

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#LayoutFrame

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#LayoutOrigin

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#Point

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

ApplicationModel subclass:#Rectangle

	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:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIHelpTool may not be able to read the specification."

    "

     UIHelpTool openOnClass:UILayoutTool    

    "

    <resource: #help>

    ^super helpSpec addPairsFrom:#(

#cornerX

'Absolute corner x of the selected widget.'

#cornerY

'Absolute corner y of the selected widget.'

#layoutTool

'Tool to set the layout of the selected widget.'

#leftAbsolute

'Offset of the left edge; positive is to the right, negative to the left.'

#leftRelative

'Relative origin x of the selected widget.'

#makeLeftAbsolute

'Computes current left offset and relative origin x to an absolute origin x.'

#makeLeftRelative

'Compute current relative origin x and offset of the left edge to a relative origin x.'

#makeTopAbsolute

'Computes current top offset and relative origin y to an absolute origin y.'

#makeTopRelative

'Computes current relative origin y and offset of the top edge to a relative origin y.'

#originX

'Absolute origin x of the selected widget.'

#originY

'Absolute origin y of the selected widget.'

#topAbsolute

'Offset of the top edge; positive is to the bottom, negative to the top.'

#topRelative

'Relative origin y of the selected widget.'

)

! !

!UILayoutTool class methodsFor:'interface specs'!

layoutOriginSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UILayoutTool andSelector:#layoutOriginSpec

     UILayoutTool new openInterface:#layoutOriginSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'UILayoutTool'

              #layout: #(#LayoutFrame 232 0 400 0 576 0 581 0)

              #label: 'UILayoutTool'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 232 400 577 582)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#FramedBoxSpec

                    #name: 'FramedBox'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'labelRelative'

                              #layout: #(#Point 100 18)

                              #label: 'Relative:'

                          )

                           #(#LabelSpec

                              #name: 'labelAbsolute'

                              #layout: #(#Point 200 18)

                              #label: 'Offset:'

                          )

                           #(#LabelSpec

                              #name: 'labelLeft'

                              #layout: #(#AlignmentOrigin 98 0 39 0 1 0)

                              #label: 'Left:'

                          )

                           #(#InputFieldSpec

                              #name: 'fieldLeftFraction'

                              #layout: #(#LayoutFrame 100 0 36 0 150 0 58 0)

                              #activeHelpKey: #leftRelative

                              #tabable: true

                              #model: #leftFraction

                              #type: #numberOrNil

                              #group: #inputGroup

                          )

                           #(#ActionButtonSpec

                              #name: 'actionRelativeLeft'

                              #layout: #(#LayoutFrame 155 0 36 0 177 0 58 0)

                              #activeHelpKey: #makeLeftRelative

                              #model: #relativeLeft

                          )

                           #(#InputFieldSpec

                              #name: 'fieldLeftOffset'

                              #layout: #(#LayoutFrame 200 0 36 0 250 0 58 0)

                              #activeHelpKey: #leftAbsolute

                              #tabable: true

                              #model: #leftOffset

                              #type: #numberOrNil

                              #group: #inputGroup

                          )

                           #(#ActionButtonSpec

                              #name: 'actionAbsoluteLeft'

                              #layout: #(#LayoutFrame 255 0 36 0 277 0 58 0)

                              #activeHelpKey: #makeLeftAbsolute

                              #model: #absoluteLeft

                          )

                           #(#LabelSpec

                              #name: 'labelTop'

                              #layout: #(#AlignmentOrigin 98 0 66 0 1 0)

                              #label: 'Top:'

                          )

                           #(#InputFieldSpec

                              #name: 'fieldTopFraction'

                              #layout: #(#LayoutFrame 100 0 63 0 150 0 85 0)

                              #activeHelpKey: #topRelative

                              #tabable: true

                              #model: #topFraction

                              #type: #numberOrNil

                              #group: #inputGroup

                          )

                           #(#ActionButtonSpec

                              #name: 'actionRelativeTop'

                              #layout: #(#LayoutFrame 155 0 63 0 177 0 85 0)

                              #activeHelpKey: #makeTopRelative

                              #model: #relativeTop

                          )

                           #(#InputFieldSpec

                              #name: 'fieldTopOffset'

                              #layout: #(#LayoutFrame 200 0 63 0 250 0 85 0)

                              #activeHelpKey: #topAbsolute

                              #tabable: true

                              #model: #topOffset

                              #type: #numberOrNil

                              #group: #inputGroup

                          )

                           #(#ActionButtonSpec

                              #name: 'actionAbsoluteTop'

                              #layout: #(#LayoutFrame 255 0 63 0 277 0 85 0)

                              #activeHelpKey: #makeTopAbsolute

                              #model: #absoluteTop

                          )

                        )

                    )

                    #label: 'Origin'

                    #labelPosition: #topLeft

                )

              )

          )

      )

    "Modified: / 29.7.1998 / 01:11:05 / cg"

!

layoutPointSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UILayoutTool andSelector:#layoutPointSpec

     UILayoutTool new openInterface:#layoutPointSpec

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'UILayoutTool'

              #layout: #(#LayoutFrame 84 0 479 0 361 0 602 0)

              #label: 'UILayoutTool'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 84 479 362 603)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#FramedBoxSpec

                    #name: 'FramedBox'

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

                    #component: 

                     #(#SpecCollection

                        #collection: 

                         #(

                           #(#LabelSpec

                              #name: 'labelOriginY'

                              #layout: #(#AlignmentOrigin 98 0 28 0 1 0)

                              #label: 'Left:'

                          )

                           #(#InputFieldSpec

                              #name: 'fieldOriginX'

                              #layout: #(#LayoutFrame 100 0 25 0 150 0 47 0)

                              #activeHelpKey: #originX

                              #tabable: true

                              #model: #leftOffset

                              #type: #numberOrNil

                              #group: #inputGroup

                          )

                           #(#LabelSpec

                              #name: 'labelOriginX'

                              #layout: #(#AlignmentOrigin 98 0 53 0 1 0)

                              #label: 'Top:'

                          )

                           #(#InputFieldSpec

                              #name: 'fieldOriginY'

                              #layout: #(#LayoutFrame 100 0 50 0 150 0 72 0)

                              #activeHelpKey: #originY

                              #tabable: true

                              #model: #topOffset

                              #type: #numberOrNil

                              #group: #inputGroup

                          )

                        )

                    )

                    #label: 'Origin'

                    #labelPosition: #topLeft

                )

              )

          )

      )

    "Modified: / 29.7.1998 / 01:11:12 / cg"

!

slices

    ^ #(

        ( 'Frame'          LayoutFrame)

        ( 'Origin'         LayoutOrigin)

        ( 'Alig.Origin'    AlignmentOrigin)

        ( 'Point'          Point)

        ( 'Rectangle'      Rectangle)

        ( 'Extent'         Extent)

       ) 

!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:UILayoutTool andSelector:#windowSpec

     UILayoutTool new openInterface:#windowSpec

     UILayoutTool open

    "

    <resource: #canvas>

    ^

       #(#FullSpec

          #window: 

           #(#WindowSpec

              #name: 'UILayoutTool'

              #layout: #(#LayoutFrame 571 0 290 0 870 0 589 0)

              #label: 'UILayoutTool'

              #min: #(#Point 10 10)

              #max: #(#Point 1152 900)

              #bounds: #(#Rectangle 571 290 871 590)

              #usePreferredExtent: false

          )

          #component: 

           #(#SpecCollection

              #collection: 

               #(

                 #(#NoteBookViewSpec

                    #name: 'NoteBook'

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

                    #activeHelpKey: #layoutTool

                    #enableChannel: #enableChannel

                    #tabable: true

                    #model: #noteBookModel

                    #menu: #noteBookList

                    #style: #(#FontDescription #helvetica #medium #roman #'10')

                    #direction: #bottom

                    #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

    "

    self layoutView:aView type:nil

!

layoutView:aView type:aTypeOrNil

    "change current edited view

    "

    |type name list|

    layoutView := aView.

    aTypeOrNil notNil ifTrue:[

        self class slices findFirst:[:e|

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

        ].

        list := Array with:name

    ] ifFalse:[

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

            self class slices findFirst:[:e|

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

            ].

            list := tabList.

            type == #Extent ifTrue:[

                aView superView specClass isLayoutContainer ifTrue:[

                    list := Array with:name

                ] ifFalse:[

                    list := list copyWith:name

                ]

            ]

        ]