--- a/GraphColumnView2DSpec.st Mon Feb 09 12:31:14 1998 +0100
+++ b/GraphColumnView2DSpec.st Fri Feb 13 14:50:32 1998 +0100
@@ -50,207 +50,6 @@
!GraphColumnView2DSpec class methodsFor:'interface specs'!
-XXdetailsEditSpec
- "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:self andSelector:#detailsEditSpec
- self new openInterface:#detailsEditSpec
- "
-
- <resource: #canvas>
-
- ^
-
- #(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'Graph 2D Detail'
- #'layout:' #(#LayoutFrame 219 0 193 0 561 0 434 0)
- #'label:' 'Graph 2D Detail'
- #'min:' #(#Point 10 10)
- #'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 219 193 562 435)
- #'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
- )
- #(#FramedBoxSpec
- #'name:' 'gridFrame'
- #'layout:' #(#LayoutFrame 0 0.0 165 0 0 1.0 226 0)
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#CheckBoxSpec
- #'name:' 'showGrid'
- #'layout:' #(#Point 18 19)
- #'tabable:' true
- #'model:' #showGrid
- #'label:' 'Show'
- )
- #(#LabelSpec
- #'name:' 'extentXlabel'
- #'layout:' #(#AlignmentOrigin 171 0 30 0 1 0.5)
- #'label:' 'Extent x:'
- #'adjust:' #left
- #'resizeForLabel:' true
- )
- #(#InputFieldSpec
- #'name:' 'extentXfield'
- #'layout:' #(#LayoutFrame 172 0 20 0 215 0 42 0)
- #'model:' #gridX
- )
- #(#LabelSpec
- #'name:' 'extentYlabel'
- #'layout:' #(#AlignmentOrigin 242 0 30 0 1 0.5)
- #'label:' 'y:'
- #'adjust:' #left
- #'resizeForLabel:' true
- )
- #(#InputFieldSpec
- #'name:' 'extentYfield'
- #'layout:' #(#LayoutFrame 245 0 20 0 288 0 42 0)
- #'model:' #gridY
- )
- )
- )
- #'label:' 'Grid'
- #'labelPosition:' #topLeft
- )
- #(#FramedBoxSpec
- #'name:' 'aspectsFrame'
- #'layout:' #(#LayoutFrame 0 0.0 81 0 0 1.0 161 0)
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#LabelSpec
- #'name:' 'windowSizeLabel'
- #'layout:' #(#AlignmentOrigin 140 0 25 0 1 0.5)
- #'label:' 'Window Size:'
- #'adjust:' #left
- #'resizeForLabel:' true
- )
- #(#InputFieldSpec
- #'name:' 'windowSizeField'
- #'layout:' #(#LayoutFrame 142 0 15 0 15 1.0 37 0)
- #'model:' #windowSize
- )
- #(#LabelSpec
- #'name:' 'zoomYLabel'
- #'layout:' #(#AlignmentOrigin 140 0 53 0 1 0.5)
- #'label:' 'Zoom-Y Factor:'
- #'adjust:' #left
- #'resizeForLabel:' true
- )
- #(#InputFieldSpec
- #'name:' 'zoomYField'
- #'layout:' #(#LayoutFrame 142 0 43 0 15 1.0 65 0)
- #'model:' #zoomY
- )
- )
- )
- #'label:' 'Aspects'
- #'labelPosition:' #topLeft
- )
- )
- )
- )
-!
-
-YYdetailsEditSpec
- "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:self andSelector:#detailsEditSpec
- self new openInterface:#detailsEditSpec
- "
-
- <resource: #canvas>
-
- ^
-
- #(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'Graph 2D Detail'
- #'layout:' #(#LayoutFrame 6 0 142 0 379 0 445 0)
- #'label:' 'Graph 2D Detail'
- #'min:' #(#Point 10 10)
- #'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 6 142 380 446)
- #'usePreferredExtent:' false
- )
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#UISubSpecification
- #'name:' 'subDetailsSpec'
- #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 210 0)
- #'minorKey:' #subDetailsEditSpec
- )
- #(#CheckBoxSpec
- #'name:' 'showGrid'
- #'layout:' #(#Point 27 259)
- #'tabable:' true
- #'model:' #showGrid
- #'label:' 'Show Grid'
- )
- #(#LabelSpec
- #'name:' 'zoomZLabel'
- #'layout:' #(#AlignmentOrigin 157 0 220 0 1 0.5)
- #'label:' 'Zoom-Z Factor:'
- #'adjust:' #left
- #'resizeForLabel:' true
- )
- #(#InputFieldSpec
- #'name:' 'zoomZField'
- #'layout:' #(#LayoutFrame 161 0 210 0 -2 1.0 232 0)
- #'model:' #zoomZ
- )
- )
- )
- )
-
-!
-
basicsMiscSpec
"this window spec was automatically generated by the ST/X UIPainter"
@@ -367,11 +166,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Graph 2D Detail'
- #'layout:' #(#LayoutFrame 114 0 536 0 487 0 839 0)
+ #'layout:' #(#LayoutFrame 62 0 143 0 435 0 446 0)
#'label:' 'Graph 2D Detail'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 114 536 488 840)
+ #'bounds:' #(#Rectangle 62 143 436 447)
#'usePreferredExtent:' false
)
#'component:'
@@ -380,37 +179,37 @@
#(
#(#UISubSpecification
#'name:' 'subDetailsSpec'
- #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 210 0)
+ #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 186 0)
#'majorKey:' #GraphColumnViewSpec
#'minorKey:' #subDetailsEditSpec
)
#(#CheckBoxSpec
#'name:' 'showGrid'
- #'layout:' #(#Point 27 259)
+ #'layout:' #(#Point 27 235)
#'tabable:' true
#'model:' #showGrid
#'label:' 'Show Grid'
)
#(#InputFieldSpec
#'name:' 'extentXfield'
- #'layout:' #(#LayoutFrame 161 0 224 0 190 0 246 0)
+ #'layout:' #(#LayoutFrame 161 0 197 0 190 0 219 0)
#'model:' #gridX
)
#(#InputFieldSpec
#'name:' 'extentYfield'
- #'layout:' #(#LayoutFrame 217 0 224 0 246 0 246 0)
+ #'layout:' #(#LayoutFrame 217 0 197 0 246 0 219 0)
#'model:' #gridY
)
#(#LabelSpec
#'name:' 'extentYlabel'
- #'layout:' #(#AlignmentOrigin 214 0 234 0 1 0.5)
+ #'layout:' #(#AlignmentOrigin 214 0 207 0 1 0.5)
#'label:' 'Y:'
#'adjust:' #left
#'resizeForLabel:' true
)
#(#LabelSpec
#'name:' 'extentXlabel'
- #'layout:' #(#AlignmentOrigin 157 0 234 0 1 0.5)
+ #'layout:' #(#AlignmentOrigin 157 0 207 0 1 0.5)
#'label:' 'Grid Extent X:'
#'adjust:' #left
#'resizeForLabel:' true
@@ -527,9 +326,9 @@
super setAttributesIn:aView with:aBuilder.
- aView gridExtent:(self gridX @ self gridY).
+ aBuilder isEditing ifFalse:[
+ aView gridExtent:(self gridX @ self gridY).
- aBuilder isEditing ifFalse:[
aView action:(self defineCallBackActionFor:actionBlock with:aBuilder).
aView doubleClickAction:(self defineCallBackActionFor:doubleClickBlock with:aBuilder).
aView buttonReleaseBlock:(self defineCallBackActionFor:buttonReleaseBlock with:aBuilder).
@@ -551,10 +350,6 @@
buttonReleaseBlock isNil ifTrue:[l add:#buttonReleaseBlock].
menuAccessBlock isNil ifTrue:[l add:#menuAccessBlock].
- self showGrid ifFalse:[
- l add:#gridX.
- l add:#gridY.
- ].
^ l
@@ -577,5 +372,5 @@
!GraphColumnView2DSpec class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView2DSpec.st,v 1.3 1998-02-09 10:47:09 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView2DSpec.st,v 1.4 1998-02-13 13:50:32 ca Exp $'
! !
--- a/GraphColumnView3DSpec.st Mon Feb 09 12:31:14 1998 +0100
+++ b/GraphColumnView3DSpec.st Fri Feb 13 14:50:32 1998 +0100
@@ -135,11 +135,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Graph 2D Detail'
- #'layout:' #(#LayoutFrame 6 0 142 0 379 0 445 0)
+ #'layout:' #(#LayoutFrame 118 0 146 0 491 0 449 0)
#'label:' 'Graph 2D Detail'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 6 142 380 446)
+ #'bounds:' #(#Rectangle 118 146 492 450)
#'usePreferredExtent:' false
)
#'component:'
@@ -148,26 +148,26 @@
#(
#(#UISubSpecification
#'name:' 'subDetailsSpec'
- #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 210 0)
+ #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 186 0)
#'minorKey:' #subDetailsEditSpec
)
#(#CheckBoxSpec
#'name:' 'showGrid'
- #'layout:' #(#Point 27 259)
+ #'layout:' #(#Point 27 235)
#'tabable:' true
#'model:' #showGrid
#'label:' 'Show Grid'
)
#(#LabelSpec
#'name:' 'zoomZLabel'
- #'layout:' #(#AlignmentOrigin 157 0 220 0 1 0.5)
+ #'layout:' #(#AlignmentOrigin 157 0 197 0 1 0.5)
#'label:' 'Zoom-Z Factor:'
#'adjust:' #left
#'resizeForLabel:' true
)
#(#InputFieldSpec
#'name:' 'zoomZField'
- #'layout:' #(#LayoutFrame 161 0 210 0 -2 1.0 232 0)
+ #'layout:' #(#LayoutFrame 161 0 187 0 -2 1.0 209 0)
#'model:' #zoomZ
)
)
@@ -239,26 +239,6 @@
!
-createViewFor:aBuilder in:aView
- "low level create - no attributes are set.
- "
- |newView|
-
- aBuilder isEditing ifFalse:[
- ^ super createViewFor:aBuilder in:aView
- ].
-
- (GraphColumnView isSubclassOf:SimpleView) ifTrue:[
- newView := GraphColumnView in:aView
- ] ifFalse:[
- newView := GraphColumnView new.
- aView notNil ifTrue:[aView add:newView].
- ].
- ^ newView
-
-
-!
-
setAttributesIn:aView with:aBuilder
super setAttributesIn:aView with:aBuilder.
@@ -292,5 +272,5 @@
!GraphColumnView3DSpec class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView3DSpec.st,v 1.3 1998-02-09 10:47:02 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnView3DSpec.st,v 1.4 1998-02-13 13:50:22 ca Exp $'
! !
--- 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!