--- a/GraphColumnViewSpec.st Mon Feb 09 12:31:14 1998 +0100
+++ b/GraphColumnViewSpec.st Fri Feb 13 14:50:32 1998 +0100
@@ -1,6 +1,7 @@
MenuComponentSpec subclass:#GraphColumnViewSpec
- instanceVariableNames:'listHolder showGrid showDefaultMenu level borderWidth zoomY
- windowSize graphOriginX scrollUpdatesOriginX vLines'
+ instanceVariableNames:'listHolder references referenceSelector showGrid showDefaultMenu
+ level borderWidth zoomY windowSize graphOriginX
+ scrollUpdatesOriginX'
classVariableNames:''
poolDictionaries:''
category:'Interface-Support-UI-Specs'
@@ -55,7 +56,8 @@
zoomY
windowSize
graphOriginX
- vLines
+ references
+ referenceSelector
)
to:env
for:inst
@@ -72,7 +74,6 @@
for:inst
channel:aChannel
converter:#numberOrNil.
-
! !
!GraphColumnViewSpec class methodsFor:'interface gallery'!
@@ -153,8 +154,8 @@
handle the specification if its corrupted."
"
- UIPainter new openOnClass:self andSelector:#basicsEditSpec
- self new openInterface:#basicsEditSpec
+ UIPainter new openOnClass:GraphColumnViewSpec andSelector:#basicsEditSpec
+ GraphColumnViewSpec new openInterface:#basicsEditSpec
"
<resource: #canvas>
@@ -165,11 +166,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Graph 2D Basic'
- #'layout:' #(#LayoutFrame 219 0 193 0 530 0 459 0)
+ #'layout:' #(#LayoutFrame 61 0 160 0 372 0 426 0)
#'label:' 'Graph 2D Basic'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 219 193 531 460)
+ #'bounds:' #(#Rectangle 61 160 373 427)
#'usePreferredExtent:' false
)
#'component:'
@@ -202,15 +203,39 @@
#'tabable:' true
#'model:' #model
)
+ #(#LabelSpec
+ #'name:' 'referencesLabel'
+ #'layout:' #(#AlignmentOrigin 168 0 90 0 1 0.5)
+ #'label:' 'References:'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'referencesField'
+ #'layout:' #(#LayoutFrame 171 0 80 0 -2 1.0 102 0)
+ #'model:' #references
+ )
+ #(#LabelSpec
+ #'name:' 'referencesSelLabel'
+ #'layout:' #(#AlignmentOrigin 168 0 116 0 1 0.5)
+ #'label:' 'Access Selector:'
+ #'adjust:' #left
+ #'resizeForLabel:' true
+ )
+ #(#InputFieldSpec
+ #'name:' 'referencesSelField'
+ #'layout:' #(#LayoutFrame 171 0 106 0 -2 1.0 128 0)
+ #'model:' #referenceSelector
+ )
#(#UISubSpecification
#'name:' 'menuSubSpec'
- #'layout:' #(#LayoutFrame 0 0.0 123 0 0 1.0 180 0)
+ #'layout:' #(#LayoutFrame 0 0.0 144 0 0 1.0 201 0)
#'majorKey:' #UISpecification
#'minorKey:' #menuSubSpec
)
#(#CheckBoxSpec
#'name:' 'showDefaultMenu'
- #'layout:' #(#AlignmentOrigin 97 0 197 0 0 0.5)
+ #'layout:' #(#AlignmentOrigin 97 0 218 0 0 0.5)
#'model:' #showDefaultMenu
#'label:' 'Default Menu'
)
@@ -238,11 +263,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Graph 2D Detail'
- #'layout:' #(#LayoutFrame 87 0 179 0 431 0 531 0)
+ #'layout:' #(#LayoutFrame 43 0 157 0 387 0 509 0)
#'label:' 'Graph 2D Detail'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 87 179 432 532)
+ #'bounds:' #(#Rectangle 43 157 388 510)
#'usePreferredExtent:' false
)
#'component:'
@@ -265,68 +290,56 @@
)
#(#LabelSpec
#'name:' 'levelLabel'
- #'layout:' #(#AlignmentOrigin 157 0 60 0 1 0.5)
+ #'layout:' #(#AlignmentOrigin 157 0 58 0 1 0.5)
#'label:' 'Level:'
#'resizeForLabel:' true
)
#(#InputFieldSpec
#'name:' 'levelField'
- #'layout:' #(#LayoutFrame 161 0 50 0 197 0 72 0)
+ #'layout:' #(#LayoutFrame 161 0 48 0 197 0 70 0)
#'activeHelpKey:' #level
#'tabable:' true
#'model:' #level
)
#(#LabelSpec
#'name:' 'windowSizeLabel'
- #'layout:' #(#AlignmentOrigin 157 0 172 0 1 0.5)
+ #'layout:' #(#AlignmentOrigin 157 0 149 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)
+ #'layout:' #(#LayoutFrame 161 0 139 0 -2 1.0 161 0)
#'model:' #windowSize
)
#(#LabelSpec
#'name:' 'zoomYLabel'
- #'layout:' #(#AlignmentOrigin 157 0 196 0 1 0.5)
+ #'layout:' #(#AlignmentOrigin 157 0 173 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)
+ #'layout:' #(#LayoutFrame 161 0 163 0 -2 1.0 185 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)
+ #'layout:' #(#AlignmentOrigin 157 0 91 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)
+ #'layout:' #(#LayoutFrame 161 0 81 0 -2 1.0 103 0)
#'model:' #graphOriginX
)
#(#CheckBoxSpec
#'name:' 'scrollUpdatesOriginX'
- #'layout:' #(#AlignmentOrigin 158 0 141 0 0 0.5)
+ #'layout:' #(#AlignmentOrigin 158 0 115 0 0 0.5)
#'model:' #scrollUpdatesOriginX
#'label:' 'Scroll updates Origin X'
)
@@ -379,6 +392,28 @@
listHolder := something.!
+referenceSelector
+ "return the value of the instance variable 'referenceSelector' (automatically generated)"
+
+ ^ referenceSelector!
+
+referenceSelector:something
+ "set the value of the instance variable 'referenceSelector' (automatically generated)"
+
+ referenceSelector := something.!
+
+references
+ "return the value of the instance variable 'references' (automatically generated)"
+
+ ^ references
+!
+
+references:something
+ "set the value of the instance variable 'references' (automatically generated)"
+
+ references := something.
+!
+
scrollUpdatesOriginX
"return the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
@@ -413,16 +448,6 @@
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)"
@@ -454,12 +479,22 @@
windowSize notNil ifTrue:[more add:windowSize].
graphOriginX notNil ifTrue:[more add:graphOriginX].
- vLines notNil ifTrue:[more add:vLines].
+ references notNil ifTrue:[more add:references].
zoomY notNil ifTrue:[more add:zoomY].
^ more
!
+createViewFor:aBuilder in:aView
+ "low level create - no attributes are set.
+ "
+ aBuilder isEditing ifFalse:[
+ ^ super createViewFor:aBuilder in:aView
+ ].
+ ^ GraphColumnView in:aView
+
+!
+
setAttributesIn:aView with:aBuilder
super setAttributesIn:aView with:aBuilder.
@@ -480,8 +515,12 @@
aView graphOriginXHolder:(self getBindingIn:aBuilder binding:graphOriginX)
].
- vLines notNil ifTrue:[
- aView vLinesHolder:(self getBindingIn:aBuilder binding:vLines)
+ referenceSelector notNil ifTrue:[
+ aView referenceSelector:referenceSelector
+ ].
+
+ references notNil ifTrue:[
+ aView referenceHolder:(self getBindingIn:aBuilder binding:references)
].
zoomY notNil ifTrue:[
@@ -502,10 +541,11 @@
l := super skippedInLiteralEncoding asOrderedCollection.
- zoomY isNil ifTrue:[l add:#zoomY].
- windowSize isNil ifTrue:[l add:#windowSize].
- graphOriginX isNil ifTrue:[l add:#graphOriginX].
- vLines isNil ifTrue:[l add:#vLines].
+ zoomY isNil ifTrue:[l add:#zoomY].
+ windowSize isNil ifTrue:[l add:#windowSize].
+ graphOriginX isNil ifTrue:[l add:#graphOriginX].
+ references isNil ifTrue:[l add:#references].
+ referenceSelector isNil ifTrue:[l add:#referenceSelector].
self showGrid ifFalse:[
l add:#showGrid
@@ -555,6 +595,6 @@
!GraphColumnViewSpec class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.4 1998-02-09 10:46:55 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.5 1998-02-13 13:50:10 ca Exp $'
! !
GraphColumnViewSpec initialize!