GraphColumnViewSpec.st
author ca
Fri, 19 Dec 2003 09:41:11 +0100
changeset 2595 1ab5dc7d4796
parent 1655 227e03cb343e
child 3150 e3a55f15ef7e
permissions -rw-r--r--
create a default list; thus we have not to test for nil
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
789
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     1
"
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     2
 COPYRIGHT (c) 1998 by eXept Software AG
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     3
              All Rights Reserved
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     4
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     5
 This software is furnished under a license and may be used
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     6
 only in accordance with the terms of that license and with the
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     8
 be provided or otherwise made available to, or used by, any
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
     9
 other person.  No title to or ownership of the software is
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    10
 hereby transferred.
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    11
"
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    12
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    13
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    14
740
9f14842f602e initial checkin
ca
parents:
diff changeset
    15
MenuComponentSpec subclass:#GraphColumnViewSpec
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
    16
	instanceVariableNames:'listHolder references referenceSelector showGrid showDefaultMenu
1434
e0d070c01741 moved borderWith & initiallyInvisible to ComponentSpec;
Claus Gittinger <cg@exept.de>
parents: 1260
diff changeset
    17
		zoomY windowSize graphOriginX scrollUpdatesOriginX'
740
9f14842f602e initial checkin
ca
parents:
diff changeset
    18
	classVariableNames:''
9f14842f602e initial checkin
ca
parents:
diff changeset
    19
	poolDictionaries:''
9f14842f602e initial checkin
ca
parents:
diff changeset
    20
	category:'Interface-Support-UI-Specs'
9f14842f602e initial checkin
ca
parents:
diff changeset
    21
!
9f14842f602e initial checkin
ca
parents:
diff changeset
    22
789
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    23
!GraphColumnViewSpec class methodsFor:'documentation'!
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    24
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    25
copyright
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    26
"
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    27
 COPYRIGHT (c) 1998 by eXept Software AG
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    28
              All Rights Reserved
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    29
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    30
 This software is furnished under a license and may be used
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    31
 only in accordance with the terms of that license and with the
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    33
 be provided or otherwise made available to, or used by, any
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    34
 other person.  No title to or ownership of the software is
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    35
 hereby transferred.
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    36
"
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    37
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    38
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    39
!
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    40
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    41
documentation
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    42
"
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    43
    Not normally used by applications.
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    44
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    45
    [author:]
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    46
        Claus Atzkern
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    47
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    48
    [see also:]
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    49
        UIBuilder
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    50
        UIPainter
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    51
"
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    52
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    53
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    54
c2401c3c9e29 added copyright & documentation
Claus Gittinger <cg@exept.de>
parents: 753
diff changeset
    55
! !
740
9f14842f602e initial checkin
ca
parents:
diff changeset
    56
9f14842f602e initial checkin
ca
parents:
diff changeset
    57
!GraphColumnViewSpec class methodsFor:'class initialization'!
9f14842f602e initial checkin
ca
parents:
diff changeset
    58
9f14842f602e initial checkin
ca
parents:
diff changeset
    59
initialize
9f14842f602e initial checkin
ca
parents:
diff changeset
    60
    "add an entry for my new components to the UIPainters 
9f14842f602e initial checkin
ca
parents:
diff changeset
    61
     userDef gallery"
9f14842f602e initial checkin
ca
parents:
diff changeset
    62
9f14842f602e initial checkin
ca
parents:
diff changeset
    63
    UISelectionPanel userClass
9f14842f602e initial checkin
ca
parents:
diff changeset
    64
        addUserSpecHolder:[self graphSpec]
9f14842f602e initial checkin
ca
parents:
diff changeset
    65
        label:'Graphs'
9f14842f602e initial checkin
ca
parents:
diff changeset
    66
9f14842f602e initial checkin
ca
parents:
diff changeset
    67
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
    68
     self initialize
9f14842f602e initial checkin
ca
parents:
diff changeset
    69
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
    70
9f14842f602e initial checkin
ca
parents:
diff changeset
    71
9f14842f602e initial checkin
ca
parents:
diff changeset
    72
!
9f14842f602e initial checkin
ca
parents:
diff changeset
    73
9f14842f602e initial checkin
ca
parents:
diff changeset
    74
removeFromSystem
9f14842f602e initial checkin
ca
parents:
diff changeset
    75
    "remove myself - this implies deinstallation from the UIGallery"
9f14842f602e initial checkin
ca
parents:
diff changeset
    76
9f14842f602e initial checkin
ca
parents:
diff changeset
    77
    UISelectionPanel userClass removeUserSpecWithLabel:'Graphs'.
9f14842f602e initial checkin
ca
parents:
diff changeset
    78
    ^ super removeFromSystem.
9f14842f602e initial checkin
ca
parents:
diff changeset
    79
9f14842f602e initial checkin
ca
parents:
diff changeset
    80
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
    81
9f14842f602e initial checkin
ca
parents:
diff changeset
    82
!GraphColumnViewSpec class methodsFor:'interface - painter'!
9f14842f602e initial checkin
ca
parents:
diff changeset
    83
9f14842f602e initial checkin
ca
parents:
diff changeset
    84
addBindingsTo:env for:inst channel:aChannel 
9f14842f602e initial checkin
ca
parents:
diff changeset
    85
9f14842f602e initial checkin
ca
parents:
diff changeset
    86
    super addBindingsTo:env for:inst channel:aChannel.
9f14842f602e initial checkin
ca
parents:
diff changeset
    87
9f14842f602e initial checkin
ca
parents:
diff changeset
    88
    self 
9f14842f602e initial checkin
ca
parents:
diff changeset
    89
        adaptApects:
9f14842f602e initial checkin
ca
parents:
diff changeset
    90
                    #(  
9f14842f602e initial checkin
ca
parents:
diff changeset
    91
                        showGrid
9f14842f602e initial checkin
ca
parents:
diff changeset
    92
                        showDefaultMenu
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
    93
                        scrollUpdatesOriginX
740
9f14842f602e initial checkin
ca
parents:
diff changeset
    94
                     )
9f14842f602e initial checkin
ca
parents:
diff changeset
    95
        to:env 
9f14842f602e initial checkin
ca
parents:
diff changeset
    96
        for:inst 
9f14842f602e initial checkin
ca
parents:
diff changeset
    97
        channel:aChannel.
9f14842f602e initial checkin
ca
parents:
diff changeset
    98
9f14842f602e initial checkin
ca
parents:
diff changeset
    99
    self 
9f14842f602e initial checkin
ca
parents:
diff changeset
   100
        adaptApects:
9f14842f602e initial checkin
ca
parents:
diff changeset
   101
                    #(  
9f14842f602e initial checkin
ca
parents:
diff changeset
   102
                        zoomY
9f14842f602e initial checkin
ca
parents:
diff changeset
   103
                        windowSize
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   104
                        graphOriginX
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   105
                        references
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   106
                        referenceSelector
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   107
                     )
9f14842f602e initial checkin
ca
parents:
diff changeset
   108
        to:env 
9f14842f602e initial checkin
ca
parents:
diff changeset
   109
        for:inst 
9f14842f602e initial checkin
ca
parents:
diff changeset
   110
        channel:aChannel
9f14842f602e initial checkin
ca
parents:
diff changeset
   111
        converter:#symbolOrNil.
9f14842f602e initial checkin
ca
parents:
diff changeset
   112
9f14842f602e initial checkin
ca
parents:
diff changeset
   113
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   114
9f14842f602e initial checkin
ca
parents:
diff changeset
   115
!GraphColumnViewSpec class methodsFor:'interface gallery'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   116
9f14842f602e initial checkin
ca
parents:
diff changeset
   117
graphSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   118
    "this window spec was automatically generated by the ST/X UIPainter"
9f14842f602e initial checkin
ca
parents:
diff changeset
   119
9f14842f602e initial checkin
ca
parents:
diff changeset
   120
    "do not manually edit this - the painter/builder may not be able to
9f14842f602e initial checkin
ca
parents:
diff changeset
   121
     handle the specification if its corrupted."
9f14842f602e initial checkin
ca
parents:
diff changeset
   122
9f14842f602e initial checkin
ca
parents:
diff changeset
   123
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   124
     UIPainter new openOnClass:self andSelector:#graphSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   125
     self new openInterface:#graphSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   126
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   127
9f14842f602e initial checkin
ca
parents:
diff changeset
   128
    <resource: #canvas>
9f14842f602e initial checkin
ca
parents:
diff changeset
   129
9f14842f602e initial checkin
ca
parents:
diff changeset
   130
    ^
9f14842f602e initial checkin
ca
parents:
diff changeset
   131
9f14842f602e initial checkin
ca
parents:
diff changeset
   132
       #(#FullSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   133
          #'window:' 
9f14842f602e initial checkin
ca
parents:
diff changeset
   134
           #(#WindowSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   135
              #'name:' 'Views'
9f14842f602e initial checkin
ca
parents:
diff changeset
   136
              #'layout:' #(#LayoutFrame 212 0 194 0 691 0 422 0)
9f14842f602e initial checkin
ca
parents:
diff changeset
   137
              #'label:' 'Views'
9f14842f602e initial checkin
ca
parents:
diff changeset
   138
              #'min:' #(#Point 10 10)
9f14842f602e initial checkin
ca
parents:
diff changeset
   139
              #'max:' #(#Point 1280 1024)
9f14842f602e initial checkin
ca
parents:
diff changeset
   140
              #'bounds:' #(#Rectangle 212 194 692 423)
9f14842f602e initial checkin
ca
parents:
diff changeset
   141
              #'usePreferredExtent:' false
9f14842f602e initial checkin
ca
parents:
diff changeset
   142
          )
9f14842f602e initial checkin
ca
parents:
diff changeset
   143
          #'component:' 
9f14842f602e initial checkin
ca
parents:
diff changeset
   144
           #(#SpecCollection
9f14842f602e initial checkin
ca
parents:
diff changeset
   145
              #'collection:' 
9f14842f602e initial checkin
ca
parents:
diff changeset
   146
               #(
9f14842f602e initial checkin
ca
parents:
diff changeset
   147
                 #(#GraphColumnView2DSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   148
                    #'name:' '2D Graph'
9f14842f602e initial checkin
ca
parents:
diff changeset
   149
                    #'layout:' #(#LayoutFrame 15 0 10 0 180 0 90 0)
9f14842f602e initial checkin
ca
parents:
diff changeset
   150
                    #'showGrid:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   151
                    #'gridX:' 2
9f14842f602e initial checkin
ca
parents:
diff changeset
   152
                    #'gridY:' 2
9f14842f602e initial checkin
ca
parents:
diff changeset
   153
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   154
                 #(#LabelSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   155
                    #'name:' '2D Graph Label'
9f14842f602e initial checkin
ca
parents:
diff changeset
   156
                    #'layout:' #(#Point 15 96)
9f14842f602e initial checkin
ca
parents:
diff changeset
   157
                    #'label:' 'Graph Column View 2D'
9f14842f602e initial checkin
ca
parents:
diff changeset
   158
                    #'style:' #(#FontDescription #helvetica #medium #roman #'10')
9f14842f602e initial checkin
ca
parents:
diff changeset
   159
                    #'adjust:' #left
9f14842f602e initial checkin
ca
parents:
diff changeset
   160
                    #'resizeForLabel:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   161
                    #'canUIDrag:' false
9f14842f602e initial checkin
ca
parents:
diff changeset
   162
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   163
                 #(#GraphColumnView3DSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   164
                    #'name:' '3D Graph'
9f14842f602e initial checkin
ca
parents:
diff changeset
   165
                    #'layout:' #(#LayoutFrame 206 0 10 0 371 0 90 0)
9f14842f602e initial checkin
ca
parents:
diff changeset
   166
                    #'showGrid:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   167
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   168
                 #(#LabelSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   169
                    #'name:' '3D Graph Label'
9f14842f602e initial checkin
ca
parents:
diff changeset
   170
                    #'layout:' #(#Point 206 96)
9f14842f602e initial checkin
ca
parents:
diff changeset
   171
                    #'label:' 'Graph Column View 3D'
9f14842f602e initial checkin
ca
parents:
diff changeset
   172
                    #'style:' #(#FontDescription #helvetica #medium #roman #'10')
9f14842f602e initial checkin
ca
parents:
diff changeset
   173
                    #'adjust:' #left
9f14842f602e initial checkin
ca
parents:
diff changeset
   174
                    #'resizeForLabel:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   175
                    #'canUIDrag:' false
9f14842f602e initial checkin
ca
parents:
diff changeset
   176
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   177
              )
9f14842f602e initial checkin
ca
parents:
diff changeset
   178
          )
9f14842f602e initial checkin
ca
parents:
diff changeset
   179
      )
9f14842f602e initial checkin
ca
parents:
diff changeset
   180
9f14842f602e initial checkin
ca
parents:
diff changeset
   181
9f14842f602e initial checkin
ca
parents:
diff changeset
   182
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   183
9f14842f602e initial checkin
ca
parents:
diff changeset
   184
!GraphColumnViewSpec class methodsFor:'interface specs'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   185
9f14842f602e initial checkin
ca
parents:
diff changeset
   186
basicsEditSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   187
    "This resource specification was automatically generated
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   188
     by the UIPainter of ST/X."
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   189
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   190
    "Do not manually edit this!! If it is corrupted,
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   191
     the UIPainter may not be able to read the specification."
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   192
9f14842f602e initial checkin
ca
parents:
diff changeset
   193
    "
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   194
     UIPainter new openOnClass:GraphColumnViewSpec andSelector:#basicsEditSpec
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   195
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   196
9f14842f602e initial checkin
ca
parents:
diff changeset
   197
    <resource: #canvas>
9f14842f602e initial checkin
ca
parents:
diff changeset
   198
1655
ca
parents: 1434
diff changeset
   199
    ^ 
ca
parents: 1434
diff changeset
   200
     #(#FullSpec
ca
parents: 1434
diff changeset
   201
        #name: #basicsEditSpec
ca
parents: 1434
diff changeset
   202
        #window: 
ca
parents: 1434
diff changeset
   203
       #(#WindowSpec
ca
parents: 1434
diff changeset
   204
          #label: 'Graph 2D Basic'
ca
parents: 1434
diff changeset
   205
          #name: 'Graph 2D Basic'
ca
parents: 1434
diff changeset
   206
          #min: #(#Point 10 10)
ca
parents: 1434
diff changeset
   207
          #max: #(#Point 1160 870)
ca
parents: 1434
diff changeset
   208
          #bounds: #(#Rectangle 886 214 1198 539)
ca
parents: 1434
diff changeset
   209
        )
ca
parents: 1434
diff changeset
   210
        #component: 
ca
parents: 1434
diff changeset
   211
       #(#SpecCollection
ca
parents: 1434
diff changeset
   212
          #collection: #(
ca
parents: 1434
diff changeset
   213
           #(#LabelSpec
ca
parents: 1434
diff changeset
   214
              #label: 'ID:'
ca
parents: 1434
diff changeset
   215
              #name: 'nameLabel'
ca
parents: 1434
diff changeset
   216
              #layout: #(#AlignmentOrigin 73 0 31 0 1 0.5)
ca
parents: 1434
diff changeset
   217
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   218
              #adjust: #right
ca
parents: 1434
diff changeset
   219
            )
ca
parents: 1434
diff changeset
   220
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   221
              #attributes: 
ca
parents: 1434
diff changeset
   222
             #(#tabable
ca
parents: 1434
diff changeset
   223
                true #nameField
ca
parents: 1434
diff changeset
   224
                nil
ca
parents: 1434
diff changeset
   225
              )
ca
parents: 1434
diff changeset
   226
              #name: 'nameField'
ca
parents: 1434
diff changeset
   227
              #layout: #(#LayoutFrame 75 0 20 0 -2 1.0 45 0)
ca
parents: 1434
diff changeset
   228
              #activeHelpKey: #id
ca
parents: 1434
diff changeset
   229
              #tabable: true
ca
parents: 1434
diff changeset
   230
              #model: #name
ca
parents: 1434
diff changeset
   231
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   232
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   233
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   234
            )
ca
parents: 1434
diff changeset
   235
           #(#LabelSpec
ca
parents: 1434
diff changeset
   236
              #label: 'Model:'
ca
parents: 1434
diff changeset
   237
              #name: 'modelLabel'
ca
parents: 1434
diff changeset
   238
              #layout: #(#AlignmentOrigin 73 0 60 0 1 0.5)
ca
parents: 1434
diff changeset
   239
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   240
            )
ca
parents: 1434
diff changeset
   241
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   242
              #attributes: 
ca
parents: 1434
diff changeset
   243
             #(#tabable
ca
parents: 1434
diff changeset
   244
                true
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   245
              )
1655
ca
parents: 1434
diff changeset
   246
              #name: 'modelField'
ca
parents: 1434
diff changeset
   247
              #layout: #(#LayoutFrame 75 0 49 0 -2 1 74 0)
ca
parents: 1434
diff changeset
   248
              #activeHelpKey: #model
ca
parents: 1434
diff changeset
   249
              #tabable: true
ca
parents: 1434
diff changeset
   250
              #model: #model
ca
parents: 1434
diff changeset
   251
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   252
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   253
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   254
            )
ca
parents: 1434
diff changeset
   255
           #(#LabelSpec
ca
parents: 1434
diff changeset
   256
              #label: 'References:'
ca
parents: 1434
diff changeset
   257
              #name: 'referencesLabel'
ca
parents: 1434
diff changeset
   258
              #layout: #(#AlignmentOrigin 168 0 90 0 1 0.5)
ca
parents: 1434
diff changeset
   259
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   260
              #adjust: #left
ca
parents: 1434
diff changeset
   261
            )
ca
parents: 1434
diff changeset
   262
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   263
              #attributes: 
ca
parents: 1434
diff changeset
   264
             #(#referencesField
ca
parents: 1434
diff changeset
   265
                nil #tabable
ca
parents: 1434
diff changeset
   266
                true
ca
parents: 1434
diff changeset
   267
              )
ca
parents: 1434
diff changeset
   268
              #name: 'referencesField'
ca
parents: 1434
diff changeset
   269
              #layout: #(#LayoutFrame 171 0 80 0 -2 1.0 102 0)
ca
parents: 1434
diff changeset
   270
              #tabable: true
ca
parents: 1434
diff changeset
   271
              #model: #references
ca
parents: 1434
diff changeset
   272
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   273
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   274
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   275
            )
ca
parents: 1434
diff changeset
   276
           #(#LabelSpec
ca
parents: 1434
diff changeset
   277
              #label: 'Access Selector:'
ca
parents: 1434
diff changeset
   278
              #name: 'referencesSelLabel'
ca
parents: 1434
diff changeset
   279
              #layout: #(#AlignmentOrigin 168 0 116 0 1 0.5)
ca
parents: 1434
diff changeset
   280
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   281
              #adjust: #left
ca
parents: 1434
diff changeset
   282
            )
ca
parents: 1434
diff changeset
   283
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   284
              #name: 'referencesSelField'
ca
parents: 1434
diff changeset
   285
              #layout: #(#LayoutFrame 171 0 106 0 -2 1.0 128 0)
ca
parents: 1434
diff changeset
   286
              #model: #referenceSelector
ca
parents: 1434
diff changeset
   287
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   288
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   289
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   290
            )
ca
parents: 1434
diff changeset
   291
           #(#UISubSpecification
ca
parents: 1434
diff changeset
   292
              #name: 'menuSubSpec'
ca
parents: 1434
diff changeset
   293
              #layout: #(#LayoutFrame 0 0.0 144 0 0 1.0 263 0)
ca
parents: 1434
diff changeset
   294
              #majorKey: #UISpecification
ca
parents: 1434
diff changeset
   295
              #minorKey: #menuSubSpec
ca
parents: 1434
diff changeset
   296
            )
ca
parents: 1434
diff changeset
   297
           #(#CheckBoxSpec
ca
parents: 1434
diff changeset
   298
              #attributes: 
ca
parents: 1434
diff changeset
   299
             #(#tabable
ca
parents: 1434
diff changeset
   300
                true
ca
parents: 1434
diff changeset
   301
              )
ca
parents: 1434
diff changeset
   302
              #label: 'Default Menu'
ca
parents: 1434
diff changeset
   303
              #name: 'showDefaultMenu'
ca
parents: 1434
diff changeset
   304
              #layout: #(#AlignmentOrigin 97 0 280 0 0 0.5)
ca
parents: 1434
diff changeset
   305
              #tabable: true
ca
parents: 1434
diff changeset
   306
              #model: #showDefaultMenu
ca
parents: 1434
diff changeset
   307
            )
ca
parents: 1434
diff changeset
   308
           )
ca
parents: 1434
diff changeset
   309
         
ca
parents: 1434
diff changeset
   310
        )
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   311
      )
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   312
!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   313
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   314
subDetailsEditSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   315
    "This resource specification was automatically generated
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   316
     by the UIPainter of ST/X."
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   317
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   318
    "Do not manually edit this!! If it is corrupted,
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   319
     the UIPainter may not be able to read the specification."
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   320
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   321
    "
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   322
     UIPainter new openOnClass:GraphColumnViewSpec andSelector:#subDetailsEditSpec
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   323
    "
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   324
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   325
    <resource: #canvas>
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   326
1655
ca
parents: 1434
diff changeset
   327
    ^ 
ca
parents: 1434
diff changeset
   328
     #(#FullSpec
ca
parents: 1434
diff changeset
   329
        #name: #subDetailsEditSpec
ca
parents: 1434
diff changeset
   330
        #window: 
ca
parents: 1434
diff changeset
   331
       #(#WindowSpec
ca
parents: 1434
diff changeset
   332
          #label: 'Graph 2D Detail'
ca
parents: 1434
diff changeset
   333
          #name: 'Graph 2D Detail'
ca
parents: 1434
diff changeset
   334
          #min: #(#Point 10 10)
ca
parents: 1434
diff changeset
   335
          #max: #(#Point 1160 870)
ca
parents: 1434
diff changeset
   336
          #bounds: #(#Rectangle 886 214 1269 437)
ca
parents: 1434
diff changeset
   337
        )
ca
parents: 1434
diff changeset
   338
        #component: 
ca
parents: 1434
diff changeset
   339
       #(#SpecCollection
ca
parents: 1434
diff changeset
   340
          #collection: #(
ca
parents: 1434
diff changeset
   341
           #(#LabelSpec
ca
parents: 1434
diff changeset
   342
              #label: 'Border Width:'
ca
parents: 1434
diff changeset
   343
              #name: 'borderWidthLabel'
ca
parents: 1434
diff changeset
   344
              #layout: #(#AlignmentOrigin 157 0 35 0 1 0.5)
ca
parents: 1434
diff changeset
   345
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   346
              #adjust: #left
ca
parents: 1434
diff changeset
   347
            )
ca
parents: 1434
diff changeset
   348
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   349
              #attributes: 
ca
parents: 1434
diff changeset
   350
             #(#tabable
ca
parents: 1434
diff changeset
   351
                true
ca
parents: 1434
diff changeset
   352
              )
ca
parents: 1434
diff changeset
   353
              #name: 'borderWidthField'
ca
parents: 1434
diff changeset
   354
              #layout: #(#LayoutFrame 161 0 24 0 197 0 46 0)
ca
parents: 1434
diff changeset
   355
              #activeHelpKey: #borderWidth
ca
parents: 1434
diff changeset
   356
              #tabable: true
ca
parents: 1434
diff changeset
   357
              #model: #borderWidth
ca
parents: 1434
diff changeset
   358
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   359
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   360
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   361
            )
ca
parents: 1434
diff changeset
   362
           #(#LabelSpec
ca
parents: 1434
diff changeset
   363
              #label: 'Level:'
ca
parents: 1434
diff changeset
   364
              #name: 'levelLabel'
ca
parents: 1434
diff changeset
   365
              #layout: #(#AlignmentOrigin 157 0 58 0 1 0.5)
ca
parents: 1434
diff changeset
   366
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   367
            )
ca
parents: 1434
diff changeset
   368
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   369
              #attributes: 
ca
parents: 1434
diff changeset
   370
             #(#tabable
ca
parents: 1434
diff changeset
   371
                true
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   372
              )
1655
ca
parents: 1434
diff changeset
   373
              #name: 'levelField'
ca
parents: 1434
diff changeset
   374
              #layout: #(#LayoutFrame 161 0 48 0 197 0 70 0)
ca
parents: 1434
diff changeset
   375
              #activeHelpKey: #level
ca
parents: 1434
diff changeset
   376
              #tabable: true
ca
parents: 1434
diff changeset
   377
              #model: #level
ca
parents: 1434
diff changeset
   378
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   379
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   380
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   381
            )
ca
parents: 1434
diff changeset
   382
           #(#LabelSpec
ca
parents: 1434
diff changeset
   383
              #label: 'Origin X'
ca
parents: 1434
diff changeset
   384
              #name: 'graphOriginXLabel'
ca
parents: 1434
diff changeset
   385
              #layout: #(#AlignmentOrigin 157 0 91 0 1 0.5)
ca
parents: 1434
diff changeset
   386
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   387
              #adjust: #left
ca
parents: 1434
diff changeset
   388
            )
ca
parents: 1434
diff changeset
   389
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   390
              #attributes: 
ca
parents: 1434
diff changeset
   391
             #(#graphOriginXField
ca
parents: 1434
diff changeset
   392
                nil #tabable
ca
parents: 1434
diff changeset
   393
                true
ca
parents: 1434
diff changeset
   394
              )
ca
parents: 1434
diff changeset
   395
              #name: 'graphOriginXField'
ca
parents: 1434
diff changeset
   396
              #layout: #(#LayoutFrame 161 0 81 0 -2 1.0 103 0)
ca
parents: 1434
diff changeset
   397
              #tabable: true
ca
parents: 1434
diff changeset
   398
              #model: #graphOriginX
ca
parents: 1434
diff changeset
   399
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   400
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   401
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   402
            )
ca
parents: 1434
diff changeset
   403
           #(#CheckBoxSpec
ca
parents: 1434
diff changeset
   404
              #attributes: 
ca
parents: 1434
diff changeset
   405
             #(#tabable
ca
parents: 1434
diff changeset
   406
                true
ca
parents: 1434
diff changeset
   407
              )
ca
parents: 1434
diff changeset
   408
              #label: 'Scroll updates X-Origin'
ca
parents: 1434
diff changeset
   409
              #name: 'scrollUpdatesOriginX'
ca
parents: 1434
diff changeset
   410
              #layout: #(#AlignmentOrigin 158 0 117 0 0 0.5)
ca
parents: 1434
diff changeset
   411
              #tabable: true
ca
parents: 1434
diff changeset
   412
              #model: #scrollUpdatesOriginX
ca
parents: 1434
diff changeset
   413
            )
ca
parents: 1434
diff changeset
   414
           #(#LabelSpec
ca
parents: 1434
diff changeset
   415
              #label: 'Window Size:'
ca
parents: 1434
diff changeset
   416
              #name: 'windowSizeLabel'
ca
parents: 1434
diff changeset
   417
              #layout: #(#AlignmentOrigin 157 0 149 0 1 0.5)
ca
parents: 1434
diff changeset
   418
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   419
              #adjust: #left
ca
parents: 1434
diff changeset
   420
            )
ca
parents: 1434
diff changeset
   421
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   422
              #attributes: 
ca
parents: 1434
diff changeset
   423
             #(#windowSizeField
ca
parents: 1434
diff changeset
   424
                nil #tabable
ca
parents: 1434
diff changeset
   425
                true
ca
parents: 1434
diff changeset
   426
              )
ca
parents: 1434
diff changeset
   427
              #name: 'windowSizeField'
ca
parents: 1434
diff changeset
   428
              #layout: #(#LayoutFrame 161 0 139 0 -2 1.0 161 0)
ca
parents: 1434
diff changeset
   429
              #tabable: true
ca
parents: 1434
diff changeset
   430
              #model: #windowSize
ca
parents: 1434
diff changeset
   431
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   432
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   433
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   434
            )
ca
parents: 1434
diff changeset
   435
           #(#LabelSpec
ca
parents: 1434
diff changeset
   436
              #label: 'Zoom-Y Factor:'
ca
parents: 1434
diff changeset
   437
              #name: 'zoomYLabel'
ca
parents: 1434
diff changeset
   438
              #layout: #(#AlignmentOrigin 157 0 173 0 1 0.5)
ca
parents: 1434
diff changeset
   439
              #resizeForLabel: true
ca
parents: 1434
diff changeset
   440
              #adjust: #left
ca
parents: 1434
diff changeset
   441
            )
ca
parents: 1434
diff changeset
   442
           #(#InputFieldSpec
ca
parents: 1434
diff changeset
   443
              #attributes: 
ca
parents: 1434
diff changeset
   444
             #(#tabable
ca
parents: 1434
diff changeset
   445
                true #zoomYField
ca
parents: 1434
diff changeset
   446
                nil
ca
parents: 1434
diff changeset
   447
              )
ca
parents: 1434
diff changeset
   448
              #name: 'zoomYField'
ca
parents: 1434
diff changeset
   449
              #layout: #(#LayoutFrame 161 0 163 0 -2 1.0 185 0)
ca
parents: 1434
diff changeset
   450
              #tabable: true
ca
parents: 1434
diff changeset
   451
              #model: #zoomY
ca
parents: 1434
diff changeset
   452
              #acceptChannel: #acceptChannel
ca
parents: 1434
diff changeset
   453
              #modifiedChannel: #modifiedChannel
ca
parents: 1434
diff changeset
   454
              #acceptOnPointerLeave: false
ca
parents: 1434
diff changeset
   455
            )
ca
parents: 1434
diff changeset
   456
           )
ca
parents: 1434
diff changeset
   457
         
ca
parents: 1434
diff changeset
   458
        )
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   459
      )
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   460
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   461
9f14842f602e initial checkin
ca
parents:
diff changeset
   462
!GraphColumnViewSpec methodsFor:'accessing'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   463
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   464
graphOriginX
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   465
    "return the value of the instance variable 'graphOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   466
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   467
    ^ graphOriginX!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   468
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   469
graphOriginX:something
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   470
    "set the value of the instance variable 'graphOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   471
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   472
    graphOriginX := something.!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   473
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   474
listHolder
9f14842f602e initial checkin
ca
parents:
diff changeset
   475
    "return the value of the instance variable 'listHolder' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   476
9f14842f602e initial checkin
ca
parents:
diff changeset
   477
    ^ listHolder!
9f14842f602e initial checkin
ca
parents:
diff changeset
   478
9f14842f602e initial checkin
ca
parents:
diff changeset
   479
listHolder:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   480
    "set the value of the instance variable 'listHolder' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   481
9f14842f602e initial checkin
ca
parents:
diff changeset
   482
    listHolder := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   483
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   484
referenceSelector
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   485
    "return the value of the instance variable 'referenceSelector' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   486
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   487
    ^ referenceSelector!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   488
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   489
referenceSelector:something
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   490
    "set the value of the instance variable 'referenceSelector' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   491
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   492
    referenceSelector := something.!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   493
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   494
references
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   495
    "return the value of the instance variable 'references' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   496
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   497
    ^ references
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   498
!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   499
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   500
references:something
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   501
    "set the value of the instance variable 'references' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   502
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   503
    references := something.
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   504
!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   505
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   506
scrollUpdatesOriginX
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   507
    "return the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   508
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   509
    ^ scrollUpdatesOriginX ? false
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   510
!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   511
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   512
scrollUpdatesOriginX:something
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   513
    "set the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   514
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   515
    scrollUpdatesOriginX := something.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   516
!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   517
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   518
showDefaultMenu
9f14842f602e initial checkin
ca
parents:
diff changeset
   519
    "return the value of the instance variable 'showDefaultMenu' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   520
9f14842f602e initial checkin
ca
parents:
diff changeset
   521
    ^ showDefaultMenu ? false
9f14842f602e initial checkin
ca
parents:
diff changeset
   522
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   523
9f14842f602e initial checkin
ca
parents:
diff changeset
   524
showDefaultMenu:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   525
    "set the value of the instance variable 'showDefaultMenu' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   526
9f14842f602e initial checkin
ca
parents:
diff changeset
   527
    showDefaultMenu := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   528
9f14842f602e initial checkin
ca
parents:
diff changeset
   529
showGrid
9f14842f602e initial checkin
ca
parents:
diff changeset
   530
    "return the value of the instance variable 'showGrid' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   531
9f14842f602e initial checkin
ca
parents:
diff changeset
   532
    ^ showGrid ? false
9f14842f602e initial checkin
ca
parents:
diff changeset
   533
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   534
9f14842f602e initial checkin
ca
parents:
diff changeset
   535
showGrid:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   536
    "set the value of the instance variable 'showGrid' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   537
9f14842f602e initial checkin
ca
parents:
diff changeset
   538
    showGrid := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   539
9f14842f602e initial checkin
ca
parents:
diff changeset
   540
windowSize
9f14842f602e initial checkin
ca
parents:
diff changeset
   541
    "return the value of the instance variable 'windowSize' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   542
9f14842f602e initial checkin
ca
parents:
diff changeset
   543
    ^ windowSize!
9f14842f602e initial checkin
ca
parents:
diff changeset
   544
9f14842f602e initial checkin
ca
parents:
diff changeset
   545
windowSize:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   546
    "set the value of the instance variable 'windowSize' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   547
9f14842f602e initial checkin
ca
parents:
diff changeset
   548
    windowSize := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   549
9f14842f602e initial checkin
ca
parents:
diff changeset
   550
zoomY
9f14842f602e initial checkin
ca
parents:
diff changeset
   551
    "return the value of the instance variable 'zoomY' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   552
9f14842f602e initial checkin
ca
parents:
diff changeset
   553
    ^ zoomY!
9f14842f602e initial checkin
ca
parents:
diff changeset
   554
9f14842f602e initial checkin
ca
parents:
diff changeset
   555
zoomY:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   556
    "set the value of the instance variable 'zoomY' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   557
9f14842f602e initial checkin
ca
parents:
diff changeset
   558
    zoomY := something.! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   559
9f14842f602e initial checkin
ca
parents:
diff changeset
   560
!GraphColumnViewSpec methodsFor:'building'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   561
9f14842f602e initial checkin
ca
parents:
diff changeset
   562
aspectSelectors
9f14842f602e initial checkin
ca
parents:
diff changeset
   563
    "add more aspect selectors
9f14842f602e initial checkin
ca
parents:
diff changeset
   564
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   565
    |more|
9f14842f602e initial checkin
ca
parents:
diff changeset
   566
9f14842f602e initial checkin
ca
parents:
diff changeset
   567
    more := super aspectSelectors.
9f14842f602e initial checkin
ca
parents:
diff changeset
   568
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   569
    windowSize   notNil ifTrue:[more add:windowSize].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   570
    graphOriginX notNil ifTrue:[more add:graphOriginX].
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   571
    references   notNil ifTrue:[more add:references].
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   572
    zoomY        notNil ifTrue:[more add:zoomY].
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   573
9f14842f602e initial checkin
ca
parents:
diff changeset
   574
  ^ more
9f14842f602e initial checkin
ca
parents:
diff changeset
   575
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   576
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   577
createViewFor:aBuilder in:aView
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   578
    "low level create - no attributes are set.
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   579
    "
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   580
    aBuilder isEditing ifFalse:[
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   581
        ^ super createViewFor:aBuilder in:aView
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   582
    ].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   583
    ^ GraphColumnView in:aView
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   584
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   585
!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   586
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   587
setAttributesIn:aView with:aBuilder
9f14842f602e initial checkin
ca
parents:
diff changeset
   588
9f14842f602e initial checkin
ca
parents:
diff changeset
   589
    super setAttributesIn:aView with:aBuilder.
9f14842f602e initial checkin
ca
parents:
diff changeset
   590
9f14842f602e initial checkin
ca
parents:
diff changeset
   591
    aView showGrid:(self showGrid).
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   592
    aView scrollUpdatesOriginX:(self scrollUpdatesOriginX).
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   593
    aView showDefaultMenu:(self showDefaultMenu).
9f14842f602e initial checkin
ca
parents:
diff changeset
   594
9f14842f602e initial checkin
ca
parents:
diff changeset
   595
    aBuilder isEditing ifFalse:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   596
        windowSize notNil ifTrue:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   597
            aView windowSizeHolder:(self getBindingIn:aBuilder binding:windowSize)
9f14842f602e initial checkin
ca
parents:
diff changeset
   598
        ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   599
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   600
        graphOriginX notNil ifTrue:[
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   601
            aView graphOriginXHolder:(self getBindingIn:aBuilder binding:graphOriginX)
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   602
        ].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   603
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   604
        referenceSelector notNil ifTrue:[
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   605
            aView referenceSelector:referenceSelector
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   606
        ].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   607
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   608
        references notNil ifTrue:[
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   609
            aView referenceHolder:(self getBindingIn:aBuilder binding:references)
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   610
        ].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   611
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   612
        zoomY notNil ifTrue:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   613
            aView zoomYHolder:(self getBindingIn:aBuilder binding:zoomY)
9f14842f602e initial checkin
ca
parents:
diff changeset
   614
        ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   615
9f14842f602e initial checkin
ca
parents:
diff changeset
   616
        self setModelAttributeIn:aView with:aBuilder.
9f14842f602e initial checkin
ca
parents:
diff changeset
   617
        self setMenuIn:aView with:aBuilder.
9f14842f602e initial checkin
ca
parents:
diff changeset
   618
    ]
9f14842f602e initial checkin
ca
parents:
diff changeset
   619
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   620
9f14842f602e initial checkin
ca
parents:
diff changeset
   621
!GraphColumnViewSpec methodsFor:'converting'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   622
9f14842f602e initial checkin
ca
parents:
diff changeset
   623
skippedInLiteralEncoding
9f14842f602e initial checkin
ca
parents:
diff changeset
   624
    "define the inst-slots which are skiped when generating a literalArrayEncoding"
9f14842f602e initial checkin
ca
parents:
diff changeset
   625
9f14842f602e initial checkin
ca
parents:
diff changeset
   626
    |l|
9f14842f602e initial checkin
ca
parents:
diff changeset
   627
9f14842f602e initial checkin
ca
parents:
diff changeset
   628
    l := super skippedInLiteralEncoding asOrderedCollection.
9f14842f602e initial checkin
ca
parents:
diff changeset
   629
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   630
    zoomY             isNil ifTrue:[l add:#zoomY].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   631
    windowSize        isNil ifTrue:[l add:#windowSize].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   632
    graphOriginX      isNil ifTrue:[l add:#graphOriginX].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   633
    references        isNil ifTrue:[l add:#references].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   634
    referenceSelector isNil ifTrue:[l add:#referenceSelector].
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   635
9f14842f602e initial checkin
ca
parents:
diff changeset
   636
    self showGrid ifFalse:[
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   637
        l add:#showGrid
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   638
    ].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   639
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   640
    self scrollUpdatesOriginX ifFalse:[
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   641
        l add:#scrollUpdatesOriginX
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   642
    ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   643
9f14842f602e initial checkin
ca
parents:
diff changeset
   644
    (self showDefaultMenu and:[menu isNil]) ifFalse:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   645
        l add:#showDefaultMenu
9f14842f602e initial checkin
ca
parents:
diff changeset
   646
    ].        
9f14842f602e initial checkin
ca
parents:
diff changeset
   647
9f14842f602e initial checkin
ca
parents:
diff changeset
   648
  ^ l
9f14842f602e initial checkin
ca
parents:
diff changeset
   649
9f14842f602e initial checkin
ca
parents:
diff changeset
   650
9f14842f602e initial checkin
ca
parents:
diff changeset
   651
9f14842f602e initial checkin
ca
parents:
diff changeset
   652
9f14842f602e initial checkin
ca
parents:
diff changeset
   653
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   654
9f14842f602e initial checkin
ca
parents:
diff changeset
   655
!GraphColumnViewSpec methodsFor:'parsing a view'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   656
9f14842f602e initial checkin
ca
parents:
diff changeset
   657
fromView:aView callBack:aBlock
9f14842f602e initial checkin
ca
parents:
diff changeset
   658
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   659
    showGrid             := aView showGrid.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   660
    showDefaultMenu      := aView showDefaultMenu.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   661
    scrollUpdatesOriginX := aView scrollUpdatesOriginX.
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   662
9f14842f602e initial checkin
ca
parents:
diff changeset
   663
    super fromView:aView callBack:aBlock
9f14842f602e initial checkin
ca
parents:
diff changeset
   664
9f14842f602e initial checkin
ca
parents:
diff changeset
   665
9f14842f602e initial checkin
ca
parents:
diff changeset
   666
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   667
9f14842f602e initial checkin
ca
parents:
diff changeset
   668
!GraphColumnViewSpec methodsFor:'queries'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   669
9f14842f602e initial checkin
ca
parents:
diff changeset
   670
defaultModelClassFor:someAspect
9f14842f602e initial checkin
ca
parents:
diff changeset
   671
    "used by the UIPainters aspectGenerator
9f14842f602e initial checkin
ca
parents:
diff changeset
   672
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   673
    ^ someAspect == model ifTrue:[List] ifFalse:[ValueHolder]
9f14842f602e initial checkin
ca
parents:
diff changeset
   674
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   675
9f14842f602e initial checkin
ca
parents:
diff changeset
   676
!GraphColumnViewSpec class methodsFor:'documentation'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   677
9f14842f602e initial checkin
ca
parents:
diff changeset
   678
version
1655
ca
parents: 1434
diff changeset
   679
    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.11 2000-01-24 10:43:00 ca Exp $'
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   680
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   681
GraphColumnViewSpec initialize!