# HG changeset patch # User ca # Date 887377832 -3600 # Node ID 0b6aaced2915ea846f38d45206a7241164b064e0 # Parent 271edd188ab61ec11c70b220166c49931fd540d1 add more functionality to spec diff -r 271edd188ab6 -r 0b6aaced2915 GraphColumnView2DSpec.st --- 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 - " - - - - ^ - - #(#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 - " - - - - ^ - - #(#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 $' ! ! diff -r 271edd188ab6 -r 0b6aaced2915 GraphColumnView3DSpec.st --- 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 $' ! ! 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!