"{ Package: 'stx:goodies/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'!