--- a/GraphColumnViewSpec.st Mon Feb 09 11:45:19 1998 +0100
+++ b/GraphColumnViewSpec.st Mon Feb 09 11:47:09 1998 +0100
@@ -1,6 +1,6 @@
MenuComponentSpec subclass:#GraphColumnViewSpec
instanceVariableNames:'listHolder showGrid showDefaultMenu level borderWidth zoomY
- windowSize'
+ windowSize graphOriginX scrollUpdatesOriginX vLines'
classVariableNames:''
poolDictionaries:''
category:'Interface-Support-UI-Specs'
@@ -43,6 +43,7 @@
#(
showGrid
showDefaultMenu
+ scrollUpdatesOriginX
)
to:env
for:inst
@@ -53,6 +54,8 @@
#(
zoomY
windowSize
+ graphOriginX
+ vLines
)
to:env
for:inst
@@ -214,6 +217,122 @@
)
)
)
+!
+
+subDetailsEditSpec
+ "this window spec was automatically generated by the ST/X UIPainter"
+
+ "do not manually edit this - the painter/builder may not be able to
+ handle the specification if its corrupted."
+
+ "
+ UIPainter new openOnClass:GraphColumnViewSpec andSelector:#subDetailsEditSpec
+ GraphColumnViewSpec new openInterface:#subDetailsEditSpec
+ "
+
+ <resource: #canvas>
+
+ ^
+
+ #(#FullSpec
+ #'window:'
+ #(#WindowSpec
+ #'name:' 'Graph 2D Detail'
+ #'layout:' #(#LayoutFrame 87 0 179 0 431 0 531 0)
+ #'label:' 'Graph 2D Detail'
+ #'min:' #(#Point 10 10)
+ #'max:' #(#Point 1160 870)
+ #'bounds:' #(#Rectangle 87 179 432 532)
+ #'usePreferredExtent:' false
+ )
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#LabelSpec
+ #'name:' 'borderWidthLabel'
+ #'layout:' #(#AlignmentOrigin 157 0 35 0 1 0.5)
+ #'label:' 'Border Width:'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'borderWidthField'
+ #'layout:' #(#LayoutFrame 161 0 24 0 197 0 46 0)
+ #'activeHelpKey:' #borderWidth
+ #'tabable:' true
+ #'model:' #borderWidth
+ )
+ #(#LabelSpec
+ #'name:' 'levelLabel'
+ #'layout:' #(#AlignmentOrigin 157 0 60 0 1 0.5)
+ #'label:' 'Level:'
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'levelField'
+ #'layout:' #(#LayoutFrame 161 0 50 0 197 0 72 0)
+ #'activeHelpKey:' #level
+ #'tabable:' true
+ #'model:' #level
+ )
+ #(#LabelSpec
+ #'name:' 'windowSizeLabel'
+ #'layout:' #(#AlignmentOrigin 157 0 172 0 1 0.5)
+ #'label:' 'Window Size:'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'windowSizeField'
+ #'layout:' #(#LayoutFrame 161 0 162 0 -2 1.0 184 0)
+ #'model:' #windowSize
+ )
+ #(#LabelSpec
+ #'name:' 'zoomYLabel'
+ #'layout:' #(#AlignmentOrigin 157 0 196 0 1 0.5)
+ #'label:' 'Zoom-Y Factor:'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'zoomYField'
+ #'layout:' #(#LayoutFrame 161 0 186 0 -2 1.0 208 0)
+ #'model:' #zoomY
+ )
+ #(#LabelSpec
+ #'name:' 'vLinesLabel'
+ #'layout:' #(#AlignmentOrigin 157 0 90 0 1 0.5)
+ #'label:' 'V-Lines List'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'vLinesField'
+ #'layout:' #(#LayoutFrame 161 0 80 0 -2 1.0 102 0)
+ #'model:' #vLines
+ )
+ #(#LabelSpec
+ #'name:' 'graphOriginXLabel'
+ #'layout:' #(#AlignmentOrigin 157 0 117 0 1 0.5)
+ #'label:' 'Origin X'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'graphOriginXField'
+ #'layout:' #(#LayoutFrame 161 0 107 0 -2 1.0 129 0)
+ #'model:' #graphOriginX
+ )
+ #(#CheckBoxSpec
+ #'name:' 'scrollUpdatesOriginX'
+ #'layout:' #(#AlignmentOrigin 158 0 141 0 0 0.5)
+ #'model:' #scrollUpdatesOriginX
+ #'label:' 'Scroll updates Origin X'
+ )
+ )
+ )
+ )
! !
!GraphColumnViewSpec methodsFor:'accessing'!
@@ -229,6 +348,16 @@
borderWidth := something.!
+graphOriginX
+ "return the value of the instance variable 'graphOriginX' (automatically generated)"
+
+ ^ graphOriginX!
+
+graphOriginX:something
+ "set the value of the instance variable 'graphOriginX' (automatically generated)"
+
+ graphOriginX := something.!
+
level
"return the value of the instance variable 'level' (automatically generated)"
@@ -250,6 +379,18 @@
listHolder := something.!
+scrollUpdatesOriginX
+ "return the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
+
+ ^ scrollUpdatesOriginX ? false
+!
+
+scrollUpdatesOriginX:something
+ "set the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
+
+ scrollUpdatesOriginX := something.
+!
+
showDefaultMenu
"return the value of the instance variable 'showDefaultMenu' (automatically generated)"
@@ -272,6 +413,16 @@
showGrid := something.!
+vLines
+ "return the value of the instance variable 'vLines' (automatically generated)"
+
+ ^ vLines!
+
+vLines:something
+ "set the value of the instance variable 'vLines' (automatically generated)"
+
+ vLines := something.!
+
windowSize
"return the value of the instance variable 'windowSize' (automatically generated)"
@@ -301,8 +452,10 @@
more := super aspectSelectors.
- windowSize notNil ifTrue:[more add:windowSize].
- zoomY notNil ifTrue:[more add:zoomY].
+ windowSize notNil ifTrue:[more add:windowSize].
+ graphOriginX notNil ifTrue:[more add:graphOriginX].
+ vLines notNil ifTrue:[more add:vLines].
+ zoomY notNil ifTrue:[more add:zoomY].
^ more
!
@@ -313,6 +466,7 @@
aView level:(self level).
aView showGrid:(self showGrid).
+ aView scrollUpdatesOriginX:(self scrollUpdatesOriginX).
aView showDefaultMenu:(self showDefaultMenu).
aView borderWidth:(self borderWidth).
@@ -322,6 +476,14 @@
aView windowSizeHolder:(self getBindingIn:aBuilder binding:windowSize)
].
+ graphOriginX notNil ifTrue:[
+ aView graphOriginXHolder:(self getBindingIn:aBuilder binding:graphOriginX)
+ ].
+
+ vLines notNil ifTrue:[
+ aView vLinesHolder:(self getBindingIn:aBuilder binding:vLines)
+ ].
+
zoomY notNil ifTrue:[
aView zoomYHolder:(self getBindingIn:aBuilder binding:zoomY)
].
@@ -340,11 +502,17 @@
l := super skippedInLiteralEncoding asOrderedCollection.
- zoomY isNil ifTrue:[l add:#zoomY].
- windowSize isNil ifTrue:[l add:#windowSize].
+ zoomY isNil ifTrue:[l add:#zoomY].
+ windowSize isNil ifTrue:[l add:#windowSize].
+ graphOriginX isNil ifTrue:[l add:#graphOriginX].
+ vLines isNil ifTrue:[l add:#vLines].
self showGrid ifFalse:[
- l add:#showGrid.
+ l add:#showGrid
+ ].
+
+ self scrollUpdatesOriginX ifFalse:[
+ l add:#scrollUpdatesOriginX
].
(self showDefaultMenu and:[menu isNil]) ifFalse:[
@@ -365,10 +533,11 @@
fromView:aView callBack:aBlock
- showGrid := aView showGrid.
- showDefaultMenu := aView showDefaultMenu.
- level := aView level.
- borderWidth := aView borderWidth.
+ showGrid := aView showGrid.
+ showDefaultMenu := aView showDefaultMenu.
+ level := aView level.
+ borderWidth := aView borderWidth.
+ scrollUpdatesOriginX := aView scrollUpdatesOriginX.
super fromView:aView callBack:aBlock
@@ -386,6 +555,6 @@
!GraphColumnViewSpec class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.3 1998-02-07 16:01:49 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.4 1998-02-09 10:46:55 ca Exp $'
! !
GraphColumnViewSpec initialize!