diff -r 271edd188ab6 -r 0b6aaced2915 GraphColumnViewSpec.st --- 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 " @@ -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!