"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

ApplicationModel subclass:#LabelResizingTest

	instanceVariableNames:'labelView'

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression'

!

!LabelResizingTest class methodsFor:'documentation'!

documentation

"

    documentation to be added.

    [author:]

        ca (ca@IDEFIX)

    [instance variables:]

    [class variables:]

    [see also:]

"

!

examples

"

  Starting the application:

                                                                [exBegin]

    Claus open

                                                                [exEnd]

  more examples to be added:

                                                                [exBegin]

    ... add code fragment for 

    ... executable example here ...

                                                                [exEnd]

"

!

history

    "Created: / 08-10-2007 / 17:39:33 / ca"

! !

!LabelResizingTest class methodsFor:'interface specs'!

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

     Claus new openInterface:#windowSpec

     Claus open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Claus'

          name: 'Claus'

          min: (Point 10 10)

          max: (Point 1024 768)

          bounds: (Rectangle 0 0 518 496)

          menu: mainMenu

        )

        component: 

       (SpecCollection

          collection: (

           (ViewSpec

              name: 'Box'

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

              backgroundColor: (Color 86.999313344015 86.999313344015 86.999313344015)

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Label'

                    name: 'Label'

                    layout: (AlignmentOrigin -5 1.0 5 0 1 0)

                    visibilityChannel: visibleHolder

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                    adjust: left

                    postBuildCallback: postBuildLabel:

                  )

                 (ActionButtonSpec

                    label: 'Button'

                    name: 'Button'

                    layout: (AlignmentOrigin -5 1.0 40 0 1 0)

                    visibilityChannel: visibleHolder

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 (LabelSpec

                    label: 'Point'

                    name: 'Point'

                    layout: (Point 5 5)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 (LabelSpec

                    label: 'Alignment Origin TopLeft'

                    name: 'Alignment Origin TopLeft'

                    layout: (AlignmentOrigin 5 0 30 0 0 0)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 (LabelSpec

                    label: 'Origin'

                    name: 'Origin'

                    layout: (LayoutOrigin 5 0 55 0)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 )

              )

            )

           (LabelSpec

              label: 'Variable Horizontal Panel'

              name: 'Variable Horizontal Panel'

              layout: (LayoutFrame 0 0.0 90 0 0 1.0 120 0)

              backgroundColor: (Color 49.999237048905 49.999237048905 100.0)

              translateLabel: true

              resizeForLabel: true

            )

           (VariableHorizontalPanelSpec

              name: 'VariableHorizontalPanel'

              layout: (LayoutFrame 0 0.0 120 0 0 1.0 170 0)

              snapMode: both

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Label'

                    name: 'Label1'

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 (ActionButtonSpec

                    label: 'Button'

                    name: 'Button1'

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 (LabelSpec

                    label: 'Label'

                    name: 'Label2'

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                  )

                 )

              )

              handles: (Any 0.33333333333333 0.66666666666667 1.0)

            )

           (LabelSpec

              label: 'Horizontal Panel'

              name: 'Horizontal Panel'

              layout: (LayoutFrame 0 0.0 170 0 0 1.0 200 0)

              backgroundColor: (Color 49.999237048905 49.999237048905 100.0)

              translateLabel: true

              resizeForLabel: true

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel'

              layout: (LayoutFrame 0 0.0 200 0 0 1.0 250 0)

              horizontalLayout: center

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 3

              elementsChangeSize: true

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Label'

                    name: 'Label3'

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                    extent: (Point 74 20)

                  )

                 (ActionButtonSpec

                    label: 'Button'

                    name: 'Button2'

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                    extent: (Point 78 24)

                  )

                 (LabelSpec

                    label: 'Label'

                    name: 'Label4'

                    backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                    translateLabel: true

                    labelChannel: lableHolder

                    resizeForLabel: true

                    extent: (Point 74 20)

                  )

                 )

              )

            )

           (LabelSpec

              label: 'Vertical Panels'

              name: 'Vertical Panels'

              layout: (LayoutFrame 0 0.0 250 0 0 1.0 280 0)

              backgroundColor: (Color 49.999237048905 49.999237048905 100.0)

              translateLabel: true

            )

           (HorizontalPanelViewSpec

              name: 'All Panels'

              layout: (LayoutFrame 0 0.0 280 0 0 1.0 -5 1.0)

              horizontalLayout: fitSpace

              verticalLayout: fitSpace

              horizontalSpace: 3

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (ViewSpec

                    name: 'VerticalPanelView'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Vertical Panel'

                          name: 'Vertical Panel'

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

                          backgroundColor: (Color 49.999237048905 49.999237048905 100.0)

                          translateLabel: true

                        )

                       (VerticalPanelViewSpec

                          name: 'VerticalPanel'

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

                          horizontalLayout: center

                          verticalLayout: center

                          horizontalSpace: 3

                          verticalSpace: 3

                          elementsChangeSize: true

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Label'

                                name: 'Label5'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                                extent: (Point 74 20)

                              )

                             (ActionButtonSpec

                                label: 'Button'

                                name: 'Button3'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                                extent: (Point 78 24)

                              )

                             (LabelSpec

                                label: 'Label'

                                name: 'Label6'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                                extent: (Point 74 20)

                              )

                             )

                          )

                        )

                       )

                    )

                    extent: (Point 168 205)

                  )

                 (ViewSpec

                    name: 'PanelView'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Panel'

                          name: 'PanelLabel'

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

                          backgroundColor: (Color 49.999237048905 49.999237048905 100.0)

                          translateLabel: true

                        )

                       (PanelViewSpec

                          name: 'Panel'

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

                          horizontalLayout: fitSpace

                          verticalLayout: fitSpace

                          horizontalSpace: 3

                          verticalSpace: 3

                          elementsChangeSize: true

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Label'

                                name: 'Label7'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                                extent: (Point 74 20)

                              )

                             (ActionButtonSpec

                                label: 'Button'

                                name: 'Button4'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                                extent: (Point 78 24)

                              )

                             (LabelSpec

                                label: 'Label'

                                name: 'Label9'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                                extent: (Point 74 20)

                              )

                             )

                          )

                        )

                       )

                    )

                    extent: (Point 169 205)

                  )

                 (ViewSpec

                    name: 'VariableVerticalPanelView'

                    component: 

                   (SpecCollection

                      collection: (

                       (LabelSpec

                          label: 'Variable Vertical Panel'

                          name: 'Variable Vertical Panel'

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

                          backgroundColor: (Color 49.999237048905 49.999237048905 100.0)

                          translateLabel: true

                        )

                       (VariableVerticalPanelSpec

                          name: 'VariableVerticalPanel'

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

                          snapMode: both

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Label'

                                name: 'Label8'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                              )

                             (ActionButtonSpec

                                label: 'Button'

                                name: 'Button5'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                              )

                             (LabelSpec

                                label: 'Label'

                                name: 'Label10'

                                backgroundColor: (Color 49.999237048905 100.0 49.999237048905)

                                translateLabel: true

                                labelChannel: lableHolder

                                resizeForLabel: true

                              )

                             )

                          )

                          handles: (Any 0.33333333333333 0.66666666666667 1.0)

                        )

                       )

                    )

                    extent: (Point 169 205)

                  )

                 )

              )

            )

           )

        )

      )

! !

!LabelResizingTest class methodsFor:'menu specs'!

mainMenu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

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

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

    "

     MenuEditor new openOnClass:Claus andSelector:#mainMenu

     (Menu new fromLiteralArrayEncoding:(Claus mainMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(Menu

        (

         (MenuItem

            label: 'Label(smaller)'

            itemValue: doChangeLabel:

            translateLabel: true

            argument: smaller

          )

         (MenuItem

            label: 'Label(larger)'

            itemValue: doChangeLabel:

            translateLabel: true

            argument: larger

          )

         (MenuItem

            label: 'Label(null)'

            itemValue: doChangeLabel:

            translateLabel: true

            argument: null

          )

         (MenuItem

            label: 'Visibility'

            itemValue: doToggleVisibility

            translateLabel: true

            isButton: true

            startGroup: right

          )

         (MenuItem

            label: 'Inspect'

            translateLabel: true

            startGroup: right

            submenu: 

           (Menu

              (

               (MenuItem

                  label: 'Label(View)'

                  itemValue: doInspectLabelView

                  translateLabel: true

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

! !

!LabelResizingTest methodsFor:'action'!

doChangeLabel:how

    |label size|

    how == #null ifTrue:[

        size := 0.

    ] ifFalse:[

        size  := self lableHolder value size.

        how == #smaller ifTrue:[

            size := (size - 2) max:2.

        ] ifFalse:[

            size == 0 ifTrue:[ size := 8 ]

                     ifFalse:[ size := size + 2 ].

        ]

    ].

    label := String new:size.

    1 to:size do:[:i| |c|

        c := i \\ 10.

        c == 0 ifTrue:[ label at:i put:$- ]

              ifFalse:[ label at:i put:(Character digitValue:c) ].

    ].

    self lableHolder value:label.

!

doInspectLabelView

    labelView inspect.

!

doToggleVisibility