#REFACTORING by cg
class: HierarchicalItem::Example
changed: #children (send #label:icon: instead of #labeled:icon:, send #label: instead of #labeled:)
class: HierarchicalItem::Example class
added:
#label:
#label:icon:
changed:
#labeled:
#labeled:icon:
"
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 $'
! !