"

 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.

"

"{ Package: 'stx:libtool2' }"

ApplicationModel subclass:#UILayoutTool

	instanceVariableNames:'modifiedHolder aspects selection currentTool layoutView tabList

		layoutSpec toolsDictionary'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-UIPainter'

!

ApplicationModel subclass:#AnyLayout

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

UILayoutTool::AnyLayout subclass:#AlignmentOrigin

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

UILayoutTool::AnyLayout subclass:#Extent

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

UILayoutTool::AnyLayout subclass:#LayoutFrame

	instanceVariableNames:''

	classVariableNames:'DefaultFixPartHeight'

	poolDictionaries:''

	privateIn:UILayoutTool

!

UILayoutTool::AnyLayout subclass:#LayoutOrigin

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

UILayoutTool::AnyLayout subclass:#Point

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:UILayoutTool

!

UILayoutTool::AnyLayout 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

'Compute pure-absolute x'

#makeLeftRelative

'Compute pure-fractional x.'

#makeLeftRelativeFromRight

'Compute fraction+offset for x relative to containers right.'

#makeTopAbsolute

'Compute pure-absolute y.'

#makeTopRelative

'Compute pure-fractional y.'

#makeTopRelativeFromBottom

'Compute fraction+offset for y relative to containers bottom.'

#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

       name: layoutOriginSpec

       window: 

      (WindowSpec

         label: 'UILayoutTool'

         name: 'UILayoutTool'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 345 107)

       )

       component: 

      (SpecCollection

         collection: (

          (FramedBoxSpec

             label: 'Origin'

             name: 'FramedBox'

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

             labelPosition: topLeft

             translateLabel: true

             component: 

            (SpecCollection

               collection: (

                (LabelSpec

                   label: 'Relative:'

                   name: 'labelRelative'

                   layout: (Point 103 6)

                   translateLabel: true

                 )

                (LabelSpec

                   label: 'Offset:'

                   name: 'labelAbsolute'

                   layout: (Point 203 6)

                   translateLabel: true

                 )

                (LabelSpec

                   label: 'Left:'

                   name: 'labelLeft'

                   layout: (AlignmentOrigin 68 0 27 0 1 0)

                   translateLabel: true

                 )

                (ActionButtonSpec

                   label: 'imageFractX'

                   name: 'actionRelativeLeft'

                   layout: (LayoutFrame 77 0 24 0 99 0 46 0)

                   activeHelpKey: makeLeftRelative

                   hasCharacterOrientedLabel: false

                   tabable: true

                   model: relativeLeft

                 )

                (InputFieldSpec

                   name: 'fieldLeftFraction'

                   layout: (LayoutFrame 102 0 25 0 152 0 47 0)

                   activeHelpKey: leftRelative

                   tabable: true

                   model: leftFraction

                   group: inputGroup

                   type: numberOrNil

                   acceptOnLostFocus: true

                   acceptChannel: acceptChannel

                   modifiedChannel: modifiedChannel

                   acceptOnPointerLeave: true

                 )

                (ActionButtonSpec

                   label: 'imageAbsX'

                   name: 'actionAbsoluteLeft'

                   layout: (LayoutFrame 178 0 24 0 200 0 46 0)

                   activeHelpKey: makeLeftAbsolute

                   hasCharacterOrientedLabel: false

                   tabable: true

                   model: absoluteLeft

                 )

                (InputFieldSpec

                   name: 'fieldLeftOffset'

                   layout: (LayoutFrame 203 0 24 0 253 0 46 0)

                   activeHelpKey: leftAbsolute

                   tabable: true

                   model: leftOffset

                   group: inputGroup

                   type: numberOrNil

                   acceptOnLostFocus: true

                   acceptChannel: acceptChannel

                   modifiedChannel: modifiedChannel

                   acceptOnPointerLeave: true

                 )

                (ActionButtonSpec

                   label: 'imageAbsXFromRight'

                   name: 'actionRightRelativeLeft'

                   layout: (LayoutFrame 257 0 24 0 279 0 46 0)

                   activeHelpKey: makeLeftRelativeFromRight

                   hasCharacterOrientedLabel: false

                   tabable: true

                   model: rightRelativeLeft

                 )

                (LabelSpec

                   label: 'Top:'

                   name: 'labelTop'

                   layout: (AlignmentOrigin 68 0 54 0 1 0)

                   translateLabel: true

                 )

                (ActionButtonSpec

                   label: 'imageFractY'

                   name: 'actionRelativeTop'

                   layout: (LayoutFrame 77 0 51 0 99 0 73 0)

                   activeHelpKey: makeTopRelative

                   hasCharacterOrientedLabel: false

                   tabable: true

                   model: relativeTop

                 )

                (InputFieldSpec

                   name: 'fieldTopFraction'

                   layout: (LayoutFrame 103 0 51 0 153 0 73 0)

                   activeHelpKey: topRelative

                   tabable: true

                   model: topFraction

                   group: inputGroup

                   type: numberOrNil

                   acceptOnLostFocus: true

                   acceptChannel: acceptChannel

                   modifiedChannel: modifiedChannel

                   acceptOnPointerLeave: true

                 )

                (ActionButtonSpec

                   label: 'imageAbsY'

                   name: 'actionAbsoluteTop'

                   layout: (LayoutFrame 178 0 51 0 200 0 73 0)

                   activeHelpKey: makeTopAbsolute

                   hasCharacterOrientedLabel: false

                   tabable: true

                   model: absoluteTop

                 )

                (InputFieldSpec

                   name: 'fieldTopOffset'

                   layout: (LayoutFrame 203 0 51 0 253 0 73 0)

                   activeHelpKey: topAbsolute

                   tabable: true

                   model: topOffset

                   group: inputGroup

                   type: numberOrNil

                   acceptOnLostFocus: true

                   acceptChannel: acceptChannel

                   modifiedChannel: modifiedChannel

                   acceptOnPointerLeave: true

                 )

                (ActionButtonSpec

                   label: 'imageAbsYFromBottom'

                   name: 'actionBottomRelativeTop'

                   layout: (LayoutFrame 257 0 51 0 279 0 73 0)

                   activeHelpKey: makeTopRelativeFromBottom

                   hasCharacterOrientedLabel: false

                   tabable: true

                   model: bottomRelativeTop

                 )

                )

             )

           )

          )

       )

     )

!

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

       name: layoutPointSpec

       window: 

      (WindowSpec

         label: 'UILayoutTool'

         name: 'UILayoutTool'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 278 124)

       )

       component: 

      (SpecCollection

         collection: (

          (FramedBoxSpec

             label: 'Origin'

             name: 'FramedBox'

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

             labelPosition: topLeft

             translateLabel: true

             component: 

            (SpecCollection

               collection: (

                (LabelSpec

                   label: 'Left:'

                   name: 'labelOriginY'

                   layout: (AlignmentOrigin 83 0 14 0 1 0)

                   translateLabel: true

                 )

                (InputFieldSpec

                   name: 'fieldOriginX'

                   layout: (LayoutFrame 85 0 11 0 135 0 33 0)

                   activeHelpKey: originX

                   tabable: true

                   model: leftOffset

                   group: inputGroup

                   type: numberOrNil

                   acceptOnLostFocus: true

                   acceptChannel: acceptChannel

                   modifiedChannel: modifiedChannel

                   acceptOnPointerLeave: true

                 )

                (LabelSpec

                   label: 'Top:'

                   name: 'labelOriginX'

                   layout: (AlignmentOrigin 83 0 39 0 1 0)

                   translateLabel: true

                 )

                (InputFieldSpec

                   name: 'fieldOriginY'

                   layout: (LayoutFrame 85 0 36 0 135 0 58 0)

                   activeHelpKey: originY

                   tabable: true

                   model: topOffset

                   group: inputGroup

                   type: numberOrNil

                   acceptOnLostFocus: true

                   acceptChannel: acceptChannel

                   modifiedChannel: modifiedChannel

                   acceptOnPointerLeave: true

                 )

                )

             )

           )

          )

       )

     )

!

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

        name: windowSpec

        window: 

       (WindowSpec

          label: 'UILayoutTool'

          name: 'UILayoutTool'

          min: (Point 10 10)

          bounds: (Rectangle 12 22 354 321)

        )

        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

              direction: bottom

              translateLabel: true

              canvas: layoutCanvasHolder

              tabTopMargin: 0

              tabBottomMargin: 0

              keepCanvasAlive: true

              tabLevel: 0

            )

           )