"

 COPYRIGHT (c) 1998 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:libwidg2' }"

GraphColumnViewSpec subclass:#GraphColumnView3DSpec

	instanceVariableNames:'rotateX rotateY rotateZ zoomZ'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Support-UI-Specs'

!

!GraphColumnView3DSpec class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 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

"

    Not normally used by applications.

    [author:]

	Claus Atzkern

    [see also:]

	UIBuilder

	UIPainter

"

! !

!GraphColumnView3DSpec class methodsFor:'interface - painter'!

addBindingsTo:env for:inst channel:aChannel

    super addBindingsTo:env for:inst channel:aChannel.

    self

	adaptApects:

		    #(

			rotateX

			rotateY

			rotateZ

			zoomZ

		     )

	to:env

	for:inst

	channel:aChannel

	converter:#symbolOrNil.

!

slices

    ^ #(

	    (Basics    basicsEditSpec)

	    (Details   detailsEditSpec)

	    (Misc      basicsMiscSpec)

       )

! !

!GraphColumnView3DSpec class methodsFor:'interface specs'!

basicsMiscSpec

    "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:GraphColumnView3DSpec andSelector:#basicsMiscSpec

    "

    <resource: #canvas>

    ^

     #(#FullSpec

	#name: #basicsMiscSpec

	#window:

       #(#WindowSpec

	  #label: 'Graph 2D Detail'

	  #name: 'Graph 2D Detail'

	  #min: #(#Point 10 10)

	  #max: #(#Point 1160 870)

	  #bounds: #(#Rectangle 506 24 891 182)

	)

	#component:

       #(#SpecCollection

	  #collection: #(

	   #(#LabelSpec

	      #label: 'Rotation:'

	      #name: 'RotationLabel'

	      #layout: #(#Point 22 21)

	      #resizeForLabel: true

	    )

	   #(#LabelSpec

	      #label: 'X:'

	      #name: 'XLabel'

	      #layout: #(#AlignmentOrigin 75 0 62 0 1 0.5)

	      #resizeForLabel: true

	      #adjust: #left

	    )

	   #(#InputFieldSpec

	      #attributes:

	     #(#tabable

		true #XField

		nil

	      )

	      #name: 'XField'

	      #layout: #(#LayoutFrame 80 0 52 0 -2 1.0 74 0)

	      #tabable: true

	      #model: #rotateX

	      #acceptChannel: #acceptChannel

	      #modifiedChannel: #modifiedChannel

	      #acceptOnPointerLeave: false

	    )

	   #(#LabelSpec

	      #label: 'Y:'

	      #name: 'YLabel'

	      #layout: #(#AlignmentOrigin 75 0 85 0 1 0.5)

	      #resizeForLabel: true

	      #adjust: #left

	    )

	   #(#InputFieldSpec

	      #attributes:

	     #(#YField

		nil #tabable

		true

	      )

	      #name: 'YField'

	      #layout: #(#LayoutFrame 80 0 75 0 -2 1.0 97 0)

	      #tabable: true

	      #model: #rotateY

	      #acceptChannel: #acceptChannel

	      #modifiedChannel: #modifiedChannel

	      #acceptOnPointerLeave: false

	    )

	   #(#LabelSpec

	      #label: 'Z:'

	      #name: 'ZLabel'

	      #layout: #(#AlignmentOrigin 75 0 108 0 1 0.5)

	      #resizeForLabel: true

	      #adjust: #left

	    )

	   #(#InputFieldSpec

	      #attributes:

	     #(#tabable

		true #ZField

		nil

	      )

	      #name: 'ZField'

	      #layout: #(#LayoutFrame 80 0 98 0 -2 1.0 120 0)

	      #tabable: true

	      #model: #rotateZ

	      #acceptChannel: #acceptChannel

	      #modifiedChannel: #modifiedChannel

	      #acceptOnPointerLeave: false

	    )

	   )

	)

      )

!

detailsEditSpec

    "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:GraphColumnView3DSpec andSelector:#detailsEditSpec

    "

    <resource: #canvas>

    ^

     #(#FullSpec

	#name: #detailsEditSpec

	#window:

       #(#WindowSpec

	  #label: 'Graph 2D Detail'

	  #name: 'Graph 2D Detail'

	  #min: #(#Point 10 10)

	  #max: #(#Point 1160 870)

	  #bounds: #(#Rectangle 886 214 1260 485)

	)

	#component:

       #(#SpecCollection

	  #collection: #(

	   #(#UISubSpecification

	      #name: 'subDetailsSpec'

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

	      #minorKey: #subDetailsEditSpec

	    )

	   #(#LabelSpec

	      #label: 'Zoom-Z Factor:'

	      #name: 'zoomZLabel'

	      #layout: #(#AlignmentOrigin 157 0 197 0 1 0.5)

	      #resizeForLabel: true

	      #adjust: #left

	    )

	   #(#InputFieldSpec

	      #attributes:

	     #(#zoomZField

		nil #tabable

		true

	      )

	      #name: 'zoomZField'

	      #layout: #(#LayoutFrame 161 0 187 0 -2 1.0 209 0)

	      #tabable: true

	      #model: #zoomZ

	      #acceptChannel: #acceptChannel

	      #modifiedChannel: #modifiedChannel

	      #acceptOnPointerLeave: false

	    )

	   #(#CheckBoxSpec

	      #attributes:

	     #(#tabable

		true

	      )

	      #label: 'Show Grid'

	      #name: 'showGrid'

	      #layout: #(#Point 27 235)

	      #tabable: true

	      #model: #showGrid

	    )

	   )

	)

      )

! !

!GraphColumnView3DSpec methodsFor:'accessing'!

rotateX

    "return the value of the instance variable 'rotateX' (automatically generated)"

    ^ rotateX

!

rotateX:something

    "set the value of the instance variable 'rotateX' (automatically generated)"

    rotateX := something.

!

rotateY

    "return the value of the instance variable 'rotateY' (automatically generated)"

    ^ rotateY

!

rotateY:something

    "set the value of the instance variable 'rotateY' (automatically generated)"

    rotateY := something.

!

rotateZ

    "return the value of the instance variable 'rotateZ' (automatically generated)"

    ^ rotateZ

!

rotateZ:something

    "set the value of the instance variable 'rotateZ' (automatically generated)"

    rotateZ := something.

!

zoomZ

    "return the value of the instance variable 'zoomZ' (automatically generated)"

    ^ zoomZ

!

zoomZ:something

    "set the value of the instance variable 'zoomZ' (automatically generated)"

    zoomZ := something.

! !

!GraphColumnView3DSpec methodsFor:'building'!

aspectSelectors

    "add more aspect selectors (these generate aspect methods in the definer)"

    |more|

    more := super aspectSelectors.

    rotateX notNil ifTrue:[more add:rotateX].

    rotateY notNil ifTrue:[more add:rotateY].

    rotateZ notNil ifTrue:[more add:rotateZ].

    zoomZ   notNil ifTrue:[more add:zoomZ].

    ^ more

!

setAttributesIn:aView with:aBuilder

    super setAttributesIn:aView with:aBuilder.

    aBuilder isEditing ifFalse:[

	rotateX notNil ifTrue:[ aView rotateXHolder:(self getBindingIn:aBuilder binding:rotateX) ].

	rotateY notNil ifTrue:[ aView rotateYHolder:(self getBindingIn:aBuilder binding:rotateY) ].

	rotateZ notNil ifTrue:[ aView rotateZHolder:(self getBindingIn:aBuilder binding:rotateZ) ].

	zoomZ notNil ifTrue:[ aView zoomZHolder:(self getBindingIn:aBuilder binding:zoomZ) ].

    ]

! !

!GraphColumnView3DSpec methodsFor:'converting'!

skippedInLiteralEncoding

    "define the inst-slots which are skiped when generating a literalArrayEncoding"

    |l|

    l := super skippedInLiteralEncoding asOrderedCollection.

    rotateX isNil ifTrue:[l add:#rotateX].

    rotateY isNil ifTrue:[l add:#rotateY].

    rotateZ isNil ifTrue:[l add:#rotateZ].

    zoomZ isNil   ifTrue:[l add:#zoomZ].

    ^ l

! !

!GraphColumnView3DSpec class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView3DSpec.st,v 1.10 2008-01-10 13:00:52 cg Exp $'

! !