GraphColumnViewSpec.st
author Claus Gittinger <cg@exept.de>
Mon, 15 Feb 1999 21:16:36 +0100
changeset 1203 ef8f7ce856d4
parent 905 26d56c258014
child 1260 601b187cf4c4
permissions -rw-r--r--
refactored level into ComponentSpec; changed superclass of some specs for level to be available.
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
1203
ef8f7ce856d4 refactored level into ComponentSpec;
Claus Gittinger <cg@exept.de>
parents: 905
diff changeset
    17
		borderWidth 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
    self 
9f14842f602e initial checkin
ca
parents:
diff changeset
   114
        adaptApects:
9f14842f602e initial checkin
ca
parents:
diff changeset
   115
                    #(  
9f14842f602e initial checkin
ca
parents:
diff changeset
   116
                        borderWidth
9f14842f602e initial checkin
ca
parents:
diff changeset
   117
                     )
9f14842f602e initial checkin
ca
parents:
diff changeset
   118
        to:env 
9f14842f602e initial checkin
ca
parents:
diff changeset
   119
        for:inst 
9f14842f602e initial checkin
ca
parents:
diff changeset
   120
        channel:aChannel
9f14842f602e initial checkin
ca
parents:
diff changeset
   121
        converter:#numberOrNil.
9f14842f602e initial checkin
ca
parents:
diff changeset
   122
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   123
9f14842f602e initial checkin
ca
parents:
diff changeset
   124
!GraphColumnViewSpec class methodsFor:'interface gallery'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   125
9f14842f602e initial checkin
ca
parents:
diff changeset
   126
graphSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   127
    "this window spec was automatically generated by the ST/X UIPainter"
9f14842f602e initial checkin
ca
parents:
diff changeset
   128
9f14842f602e initial checkin
ca
parents:
diff changeset
   129
    "do not manually edit this - the painter/builder may not be able to
9f14842f602e initial checkin
ca
parents:
diff changeset
   130
     handle the specification if its corrupted."
9f14842f602e initial checkin
ca
parents:
diff changeset
   131
9f14842f602e initial checkin
ca
parents:
diff changeset
   132
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   133
     UIPainter new openOnClass:self andSelector:#graphSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   134
     self new openInterface:#graphSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   135
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   136
9f14842f602e initial checkin
ca
parents:
diff changeset
   137
    <resource: #canvas>
9f14842f602e initial checkin
ca
parents:
diff changeset
   138
9f14842f602e initial checkin
ca
parents:
diff changeset
   139
    ^
9f14842f602e initial checkin
ca
parents:
diff changeset
   140
9f14842f602e initial checkin
ca
parents:
diff changeset
   141
       #(#FullSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   142
          #'window:' 
9f14842f602e initial checkin
ca
parents:
diff changeset
   143
           #(#WindowSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   144
              #'name:' 'Views'
9f14842f602e initial checkin
ca
parents:
diff changeset
   145
              #'layout:' #(#LayoutFrame 212 0 194 0 691 0 422 0)
9f14842f602e initial checkin
ca
parents:
diff changeset
   146
              #'label:' 'Views'
9f14842f602e initial checkin
ca
parents:
diff changeset
   147
              #'min:' #(#Point 10 10)
9f14842f602e initial checkin
ca
parents:
diff changeset
   148
              #'max:' #(#Point 1280 1024)
9f14842f602e initial checkin
ca
parents:
diff changeset
   149
              #'bounds:' #(#Rectangle 212 194 692 423)
9f14842f602e initial checkin
ca
parents:
diff changeset
   150
              #'usePreferredExtent:' false
9f14842f602e initial checkin
ca
parents:
diff changeset
   151
          )
9f14842f602e initial checkin
ca
parents:
diff changeset
   152
          #'component:' 
9f14842f602e initial checkin
ca
parents:
diff changeset
   153
           #(#SpecCollection
9f14842f602e initial checkin
ca
parents:
diff changeset
   154
              #'collection:' 
9f14842f602e initial checkin
ca
parents:
diff changeset
   155
               #(
9f14842f602e initial checkin
ca
parents:
diff changeset
   156
                 #(#GraphColumnView2DSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   157
                    #'name:' '2D Graph'
9f14842f602e initial checkin
ca
parents:
diff changeset
   158
                    #'layout:' #(#LayoutFrame 15 0 10 0 180 0 90 0)
9f14842f602e initial checkin
ca
parents:
diff changeset
   159
                    #'showGrid:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   160
                    #'gridX:' 2
9f14842f602e initial checkin
ca
parents:
diff changeset
   161
                    #'gridY:' 2
9f14842f602e initial checkin
ca
parents:
diff changeset
   162
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   163
                 #(#LabelSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   164
                    #'name:' '2D Graph Label'
9f14842f602e initial checkin
ca
parents:
diff changeset
   165
                    #'layout:' #(#Point 15 96)
9f14842f602e initial checkin
ca
parents:
diff changeset
   166
                    #'label:' 'Graph Column View 2D'
9f14842f602e initial checkin
ca
parents:
diff changeset
   167
                    #'style:' #(#FontDescription #helvetica #medium #roman #'10')
9f14842f602e initial checkin
ca
parents:
diff changeset
   168
                    #'adjust:' #left
9f14842f602e initial checkin
ca
parents:
diff changeset
   169
                    #'resizeForLabel:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   170
                    #'canUIDrag:' false
9f14842f602e initial checkin
ca
parents:
diff changeset
   171
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   172
                 #(#GraphColumnView3DSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   173
                    #'name:' '3D Graph'
9f14842f602e initial checkin
ca
parents:
diff changeset
   174
                    #'layout:' #(#LayoutFrame 206 0 10 0 371 0 90 0)
9f14842f602e initial checkin
ca
parents:
diff changeset
   175
                    #'showGrid:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   176
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   177
                 #(#LabelSpec
9f14842f602e initial checkin
ca
parents:
diff changeset
   178
                    #'name:' '3D Graph Label'
9f14842f602e initial checkin
ca
parents:
diff changeset
   179
                    #'layout:' #(#Point 206 96)
9f14842f602e initial checkin
ca
parents:
diff changeset
   180
                    #'label:' 'Graph Column View 3D'
9f14842f602e initial checkin
ca
parents:
diff changeset
   181
                    #'style:' #(#FontDescription #helvetica #medium #roman #'10')
9f14842f602e initial checkin
ca
parents:
diff changeset
   182
                    #'adjust:' #left
9f14842f602e initial checkin
ca
parents:
diff changeset
   183
                    #'resizeForLabel:' true
9f14842f602e initial checkin
ca
parents:
diff changeset
   184
                    #'canUIDrag:' false
9f14842f602e initial checkin
ca
parents:
diff changeset
   185
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   186
              )
9f14842f602e initial checkin
ca
parents:
diff changeset
   187
          )
9f14842f602e initial checkin
ca
parents:
diff changeset
   188
      )
9f14842f602e initial checkin
ca
parents:
diff changeset
   189
9f14842f602e initial checkin
ca
parents:
diff changeset
   190
9f14842f602e initial checkin
ca
parents:
diff changeset
   191
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   192
9f14842f602e initial checkin
ca
parents:
diff changeset
   193
!GraphColumnViewSpec class methodsFor:'interface specs'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   194
9f14842f602e initial checkin
ca
parents:
diff changeset
   195
basicsEditSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   196
    "This resource specification was automatically generated
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   197
     by the UIPainter of ST/X."
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   198
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   199
    "Do not manually edit this!! If it is corrupted,
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   200
     the UIPainter may not be able to read the specification."
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   201
9f14842f602e initial checkin
ca
parents:
diff changeset
   202
    "
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   203
     UIPainter new openOnClass:GraphColumnViewSpec andSelector:#basicsEditSpec
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   204
     GraphColumnViewSpec new openInterface:#basicsEditSpec
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   205
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   206
9f14842f602e initial checkin
ca
parents:
diff changeset
   207
    <resource: #canvas>
9f14842f602e initial checkin
ca
parents:
diff changeset
   208
9f14842f602e initial checkin
ca
parents:
diff changeset
   209
    ^
9f14842f602e initial checkin
ca
parents:
diff changeset
   210
     
9f14842f602e initial checkin
ca
parents:
diff changeset
   211
       #(#FullSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   212
          #window: 
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   213
           #(#WindowSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   214
              #name: 'Graph 2D Basic'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   215
              #layout: #(#LayoutFrame 133 0 173 0 444 0 497 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   216
              #label: 'Graph 2D Basic'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   217
              #min: #(#Point 10 10)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   218
              #max: #(#Point 1160 870)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   219
              #bounds: #(#Rectangle 133 173 445 498)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   220
              #usePreferredExtent: false
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   221
          )
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   222
          #component: 
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   223
           #(#SpecCollection
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   224
              #collection: 
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   225
               #(
9f14842f602e initial checkin
ca
parents:
diff changeset
   226
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   227
                    #name: 'nameLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   228
                    #layout: #(#AlignmentOrigin 73 0 31 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   229
                    #label: 'ID:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   230
                    #adjust: #right
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   231
                    #resizeForLabel: true
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   232
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   233
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   234
                    #name: 'nameField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   235
                    #layout: #(#LayoutFrame 75 0 20 0 -2 1.0 45 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   236
                    #activeHelpKey: #id
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   237
                    #model: #name
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   238
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   239
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   240
                    #name: 'modelLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   241
                    #layout: #(#AlignmentOrigin 73 0 60 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   242
                    #label: 'Model:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   243
                    #resizeForLabel: true
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   244
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   245
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   246
                    #name: 'modelField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   247
                    #layout: #(#LayoutFrame 75 0 49 0 -2 1 74 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   248
                    #activeHelpKey: #model
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   249
                    #tabable: true
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   250
                    #model: #model
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   251
                )
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   252
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   253
                    #name: 'referencesLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   254
                    #layout: #(#AlignmentOrigin 168 0 90 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   255
                    #label: 'References:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   256
                    #adjust: #left
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   257
                    #resizeForLabel: true
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   258
                )
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   259
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   260
                    #name: 'referencesField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   261
                    #layout: #(#LayoutFrame 171 0 80 0 -2 1.0 102 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   262
                    #model: #references
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   263
                )
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   264
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   265
                    #name: 'referencesSelLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   266
                    #layout: #(#AlignmentOrigin 168 0 116 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   267
                    #label: 'Access Selector:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   268
                    #adjust: #left
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   269
                    #resizeForLabel: true
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   270
                )
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   271
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   272
                    #name: 'referencesSelField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   273
                    #layout: #(#LayoutFrame 171 0 106 0 -2 1.0 128 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   274
                    #model: #referenceSelector
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   275
                )
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   276
                 #(#UISubSpecification
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   277
                    #name: 'menuSubSpec'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   278
                    #layout: #(#LayoutFrame 0 0.0 144 0 0 1.0 263 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   279
                    #majorKey: #UISpecification
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   280
                    #minorKey: #menuSubSpec
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   281
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   282
                 #(#CheckBoxSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   283
                    #name: 'showDefaultMenu'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   284
                    #layout: #(#AlignmentOrigin 97 0 280 0 0 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   285
                    #model: #showDefaultMenu
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   286
                    #label: 'Default Menu'
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   287
                )
9f14842f602e initial checkin
ca
parents:
diff changeset
   288
              )
9f14842f602e initial checkin
ca
parents:
diff changeset
   289
          )
9f14842f602e initial checkin
ca
parents:
diff changeset
   290
      )
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   291
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   292
    "Modified: / 29.5.1998 / 21:27:30 / cg"
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   293
!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   294
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   295
subDetailsEditSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   296
    "This resource specification was automatically generated
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   297
     by the UIPainter of ST/X."
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   298
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   299
    "Do not manually edit this!! If it is corrupted,
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   300
     the UIPainter may not be able to read the specification."
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   301
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   302
    "
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   303
     UIPainter new openOnClass:GraphColumnViewSpec andSelector:#subDetailsEditSpec
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   304
     GraphColumnViewSpec new openInterface:#subDetailsEditSpec
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   305
    "
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   306
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   307
    <resource: #canvas>
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   308
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   309
    ^
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   310
     
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   311
       #(#FullSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   312
          #window: 
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   313
           #(#WindowSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   314
              #name: 'Graph 2D Detail'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   315
              #layout: #(#LayoutFrame 83 0 79 0 465 0 301 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   316
              #label: 'Graph 2D Detail'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   317
              #min: #(#Point 10 10)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   318
              #max: #(#Point 1160 870)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   319
              #bounds: #(#Rectangle 83 79 466 302)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   320
              #usePreferredExtent: false
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   321
          )
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   322
          #component: 
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   323
           #(#SpecCollection
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   324
              #collection: 
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   325
               #(
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   326
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   327
                    #name: 'borderWidthLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   328
                    #layout: #(#AlignmentOrigin 157 0 35 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   329
                    #label: 'Border Width:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   330
                    #adjust: #left
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   331
                    #resizeForLabel: true
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   332
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   333
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   334
                    #name: 'borderWidthField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   335
                    #layout: #(#LayoutFrame 161 0 24 0 197 0 46 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   336
                    #activeHelpKey: #borderWidth
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   337
                    #tabable: true
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   338
                    #model: #borderWidth
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   339
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   340
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   341
                    #name: 'levelLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   342
                    #layout: #(#AlignmentOrigin 157 0 58 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   343
                    #label: 'Level:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   344
                    #resizeForLabel: true
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   345
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   346
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   347
                    #name: 'levelField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   348
                    #layout: #(#LayoutFrame 161 0 48 0 197 0 70 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   349
                    #activeHelpKey: #level
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   350
                    #tabable: true
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   351
                    #model: #level
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   352
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   353
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   354
                    #name: 'windowSizeLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   355
                    #layout: #(#AlignmentOrigin 157 0 149 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   356
                    #label: 'Window Size:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   357
                    #adjust: #left
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   358
                    #resizeForLabel: true
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   359
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   360
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   361
                    #name: 'windowSizeField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   362
                    #layout: #(#LayoutFrame 161 0 139 0 -2 1.0 161 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   363
                    #model: #windowSize
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   364
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   365
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   366
                    #name: 'zoomYLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   367
                    #layout: #(#AlignmentOrigin 157 0 173 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   368
                    #label: 'Zoom-Y Factor:'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   369
                    #adjust: #left
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   370
                    #resizeForLabel: true
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   371
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   372
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   373
                    #name: 'zoomYField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   374
                    #layout: #(#LayoutFrame 161 0 163 0 -2 1.0 185 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   375
                    #model: #zoomY
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   376
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   377
                 #(#LabelSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   378
                    #name: 'graphOriginXLabel'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   379
                    #layout: #(#AlignmentOrigin 157 0 91 0 1 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   380
                    #label: 'Origin X'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   381
                    #adjust: #left
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   382
                    #resizeForLabel: true
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   383
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   384
                 #(#InputFieldSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   385
                    #name: 'graphOriginXField'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   386
                    #layout: #(#LayoutFrame 161 0 81 0 -2 1.0 103 0)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   387
                    #model: #graphOriginX
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   388
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   389
                 #(#CheckBoxSpec
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   390
                    #name: 'scrollUpdatesOriginX'
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   391
                    #layout: #(#AlignmentOrigin 158 0 117 0 0 0.5)
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   392
                    #model: #scrollUpdatesOriginX
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   393
                    #label: 'Scroll updates X-Origin'
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   394
                )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   395
              )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   396
          )
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   397
      )
905
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   398
26d56c258014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 789
diff changeset
   399
    "Modified: / 29.5.1998 / 21:32:09 / cg"
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   400
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   401
9f14842f602e initial checkin
ca
parents:
diff changeset
   402
!GraphColumnViewSpec methodsFor:'accessing'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   403
9f14842f602e initial checkin
ca
parents:
diff changeset
   404
borderWidth
9f14842f602e initial checkin
ca
parents:
diff changeset
   405
    "return the value of the instance variable 'borderWidth' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   406
9f14842f602e initial checkin
ca
parents:
diff changeset
   407
    ^ borderWidth ? 0
9f14842f602e initial checkin
ca
parents:
diff changeset
   408
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   409
9f14842f602e initial checkin
ca
parents:
diff changeset
   410
borderWidth:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   411
    "set the value of the instance variable 'borderWidth' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   412
9f14842f602e initial checkin
ca
parents:
diff changeset
   413
    borderWidth := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   414
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   415
graphOriginX
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   416
    "return the value of the instance variable 'graphOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   417
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   418
    ^ graphOriginX!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   419
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   420
graphOriginX:something
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   421
    "set the value of the instance variable 'graphOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   422
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   423
    graphOriginX := something.!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   424
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   425
listHolder
9f14842f602e initial checkin
ca
parents:
diff changeset
   426
    "return the value of the instance variable 'listHolder' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   427
9f14842f602e initial checkin
ca
parents:
diff changeset
   428
    ^ listHolder!
9f14842f602e initial checkin
ca
parents:
diff changeset
   429
9f14842f602e initial checkin
ca
parents:
diff changeset
   430
listHolder:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   431
    "set the value of the instance variable 'listHolder' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   432
9f14842f602e initial checkin
ca
parents:
diff changeset
   433
    listHolder := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   434
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   435
referenceSelector
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   436
    "return the value of the instance variable 'referenceSelector' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   437
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   438
    ^ referenceSelector!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   439
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   440
referenceSelector:something
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   441
    "set the value of the instance variable 'referenceSelector' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   442
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   443
    referenceSelector := something.!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   444
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   445
references
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   446
    "return the value of the instance variable 'references' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   447
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   448
    ^ references
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   449
!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   450
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   451
references:something
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   452
    "set the value of the instance variable 'references' (automatically generated)"
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   453
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   454
    references := something.
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   455
!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   456
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   457
scrollUpdatesOriginX
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   458
    "return the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   459
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   460
    ^ scrollUpdatesOriginX ? false
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   461
!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   462
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   463
scrollUpdatesOriginX:something
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   464
    "set the value of the instance variable 'scrollUpdatesOriginX' (automatically generated)"
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   465
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   466
    scrollUpdatesOriginX := something.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   467
!
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   468
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   469
showDefaultMenu
9f14842f602e initial checkin
ca
parents:
diff changeset
   470
    "return the value of the instance variable 'showDefaultMenu' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   471
9f14842f602e initial checkin
ca
parents:
diff changeset
   472
    ^ showDefaultMenu ? false
9f14842f602e initial checkin
ca
parents:
diff changeset
   473
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   474
9f14842f602e initial checkin
ca
parents:
diff changeset
   475
showDefaultMenu:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   476
    "set the value of the instance variable 'showDefaultMenu' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   477
9f14842f602e initial checkin
ca
parents:
diff changeset
   478
    showDefaultMenu := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   479
9f14842f602e initial checkin
ca
parents:
diff changeset
   480
showGrid
9f14842f602e initial checkin
ca
parents:
diff changeset
   481
    "return the value of the instance variable 'showGrid' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   482
9f14842f602e initial checkin
ca
parents:
diff changeset
   483
    ^ showGrid ? false
9f14842f602e initial checkin
ca
parents:
diff changeset
   484
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   485
9f14842f602e initial checkin
ca
parents:
diff changeset
   486
showGrid:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   487
    "set the value of the instance variable 'showGrid' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   488
9f14842f602e initial checkin
ca
parents:
diff changeset
   489
    showGrid := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   490
9f14842f602e initial checkin
ca
parents:
diff changeset
   491
windowSize
9f14842f602e initial checkin
ca
parents:
diff changeset
   492
    "return the value of the instance variable 'windowSize' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   493
9f14842f602e initial checkin
ca
parents:
diff changeset
   494
    ^ windowSize!
9f14842f602e initial checkin
ca
parents:
diff changeset
   495
9f14842f602e initial checkin
ca
parents:
diff changeset
   496
windowSize:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   497
    "set the value of the instance variable 'windowSize' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   498
9f14842f602e initial checkin
ca
parents:
diff changeset
   499
    windowSize := something.!
9f14842f602e initial checkin
ca
parents:
diff changeset
   500
9f14842f602e initial checkin
ca
parents:
diff changeset
   501
zoomY
9f14842f602e initial checkin
ca
parents:
diff changeset
   502
    "return the value of the instance variable 'zoomY' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   503
9f14842f602e initial checkin
ca
parents:
diff changeset
   504
    ^ zoomY!
9f14842f602e initial checkin
ca
parents:
diff changeset
   505
9f14842f602e initial checkin
ca
parents:
diff changeset
   506
zoomY:something
9f14842f602e initial checkin
ca
parents:
diff changeset
   507
    "set the value of the instance variable 'zoomY' (automatically generated)"
9f14842f602e initial checkin
ca
parents:
diff changeset
   508
9f14842f602e initial checkin
ca
parents:
diff changeset
   509
    zoomY := something.! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   510
9f14842f602e initial checkin
ca
parents:
diff changeset
   511
!GraphColumnViewSpec methodsFor:'building'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   512
9f14842f602e initial checkin
ca
parents:
diff changeset
   513
aspectSelectors
9f14842f602e initial checkin
ca
parents:
diff changeset
   514
    "add more aspect selectors
9f14842f602e initial checkin
ca
parents:
diff changeset
   515
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   516
    |more|
9f14842f602e initial checkin
ca
parents:
diff changeset
   517
9f14842f602e initial checkin
ca
parents:
diff changeset
   518
    more := super aspectSelectors.
9f14842f602e initial checkin
ca
parents:
diff changeset
   519
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   520
    windowSize   notNil ifTrue:[more add:windowSize].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   521
    graphOriginX notNil ifTrue:[more add:graphOriginX].
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   522
    references   notNil ifTrue:[more add:references].
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   523
    zoomY        notNil ifTrue:[more add:zoomY].
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   524
9f14842f602e initial checkin
ca
parents:
diff changeset
   525
  ^ more
9f14842f602e initial checkin
ca
parents:
diff changeset
   526
!
9f14842f602e initial checkin
ca
parents:
diff changeset
   527
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   528
createViewFor:aBuilder in:aView
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   529
    "low level create - no attributes are set.
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   530
    "
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   531
    aBuilder isEditing ifFalse:[
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   532
        ^ super createViewFor:aBuilder in:aView
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   533
    ].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   534
    ^ GraphColumnView in:aView
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   535
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   536
!
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   537
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   538
setAttributesIn:aView with:aBuilder
9f14842f602e initial checkin
ca
parents:
diff changeset
   539
9f14842f602e initial checkin
ca
parents:
diff changeset
   540
    super setAttributesIn:aView with:aBuilder.
9f14842f602e initial checkin
ca
parents:
diff changeset
   541
9f14842f602e initial checkin
ca
parents:
diff changeset
   542
    aView showGrid:(self showGrid).
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   543
    aView scrollUpdatesOriginX:(self scrollUpdatesOriginX).
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   544
    aView showDefaultMenu:(self showDefaultMenu).
9f14842f602e initial checkin
ca
parents:
diff changeset
   545
9f14842f602e initial checkin
ca
parents:
diff changeset
   546
    aView borderWidth:(self borderWidth).
9f14842f602e initial checkin
ca
parents:
diff changeset
   547
9f14842f602e initial checkin
ca
parents:
diff changeset
   548
    aBuilder isEditing ifFalse:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   549
        windowSize notNil ifTrue:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   550
            aView windowSizeHolder:(self getBindingIn:aBuilder binding:windowSize)
9f14842f602e initial checkin
ca
parents:
diff changeset
   551
        ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   552
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   553
        graphOriginX notNil ifTrue:[
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   554
            aView graphOriginXHolder:(self getBindingIn:aBuilder binding:graphOriginX)
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   555
        ].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   556
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   557
        referenceSelector notNil ifTrue:[
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   558
            aView referenceSelector:referenceSelector
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   559
        ].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   560
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   561
        references notNil ifTrue:[
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   562
            aView referenceHolder:(self getBindingIn:aBuilder binding:references)
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   563
        ].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   564
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   565
        zoomY notNil ifTrue:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   566
            aView zoomYHolder:(self getBindingIn:aBuilder binding:zoomY)
9f14842f602e initial checkin
ca
parents:
diff changeset
   567
        ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   568
9f14842f602e initial checkin
ca
parents:
diff changeset
   569
        self setModelAttributeIn:aView with:aBuilder.
9f14842f602e initial checkin
ca
parents:
diff changeset
   570
        self setMenuIn:aView with:aBuilder.
9f14842f602e initial checkin
ca
parents:
diff changeset
   571
    ]
9f14842f602e initial checkin
ca
parents:
diff changeset
   572
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   573
9f14842f602e initial checkin
ca
parents:
diff changeset
   574
!GraphColumnViewSpec methodsFor:'converting'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   575
9f14842f602e initial checkin
ca
parents:
diff changeset
   576
skippedInLiteralEncoding
9f14842f602e initial checkin
ca
parents:
diff changeset
   577
    "define the inst-slots which are skiped when generating a literalArrayEncoding"
9f14842f602e initial checkin
ca
parents:
diff changeset
   578
9f14842f602e initial checkin
ca
parents:
diff changeset
   579
    |l|
9f14842f602e initial checkin
ca
parents:
diff changeset
   580
9f14842f602e initial checkin
ca
parents:
diff changeset
   581
    l := super skippedInLiteralEncoding asOrderedCollection.
9f14842f602e initial checkin
ca
parents:
diff changeset
   582
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   583
    zoomY             isNil ifTrue:[l add:#zoomY].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   584
    windowSize        isNil ifTrue:[l add:#windowSize].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   585
    graphOriginX      isNil ifTrue:[l add:#graphOriginX].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   586
    references        isNil ifTrue:[l add:#references].
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   587
    referenceSelector isNil ifTrue:[l add:#referenceSelector].
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   588
9f14842f602e initial checkin
ca
parents:
diff changeset
   589
    self showGrid ifFalse:[
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   590
        l add:#showGrid
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   591
    ].
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   592
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   593
    self scrollUpdatesOriginX ifFalse:[
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   594
        l add:#scrollUpdatesOriginX
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   595
    ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   596
9f14842f602e initial checkin
ca
parents:
diff changeset
   597
    (self showDefaultMenu and:[menu isNil]) ifFalse:[
9f14842f602e initial checkin
ca
parents:
diff changeset
   598
        l add:#showDefaultMenu
9f14842f602e initial checkin
ca
parents:
diff changeset
   599
    ].        
9f14842f602e initial checkin
ca
parents:
diff changeset
   600
9f14842f602e initial checkin
ca
parents:
diff changeset
   601
    self borderWidth == 0 ifTrue:[ l add:#borderWidth ].
9f14842f602e initial checkin
ca
parents:
diff changeset
   602
9f14842f602e initial checkin
ca
parents:
diff changeset
   603
  ^ l
9f14842f602e initial checkin
ca
parents:
diff changeset
   604
9f14842f602e initial checkin
ca
parents:
diff changeset
   605
9f14842f602e initial checkin
ca
parents:
diff changeset
   606
9f14842f602e initial checkin
ca
parents:
diff changeset
   607
9f14842f602e initial checkin
ca
parents:
diff changeset
   608
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   609
9f14842f602e initial checkin
ca
parents:
diff changeset
   610
!GraphColumnViewSpec methodsFor:'parsing a view'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   611
9f14842f602e initial checkin
ca
parents:
diff changeset
   612
fromView:aView callBack:aBlock
9f14842f602e initial checkin
ca
parents:
diff changeset
   613
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   614
    showGrid             := aView showGrid.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   615
    showDefaultMenu      := aView showDefaultMenu.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   616
    borderWidth          := aView borderWidth.
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   617
    scrollUpdatesOriginX := aView scrollUpdatesOriginX.
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   618
9f14842f602e initial checkin
ca
parents:
diff changeset
   619
    super fromView:aView callBack:aBlock
9f14842f602e initial checkin
ca
parents:
diff changeset
   620
9f14842f602e initial checkin
ca
parents:
diff changeset
   621
9f14842f602e initial checkin
ca
parents:
diff changeset
   622
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   623
9f14842f602e initial checkin
ca
parents:
diff changeset
   624
!GraphColumnViewSpec methodsFor:'queries'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   625
9f14842f602e initial checkin
ca
parents:
diff changeset
   626
defaultModelClassFor:someAspect
9f14842f602e initial checkin
ca
parents:
diff changeset
   627
    "used by the UIPainters aspectGenerator
9f14842f602e initial checkin
ca
parents:
diff changeset
   628
    "
9f14842f602e initial checkin
ca
parents:
diff changeset
   629
    ^ someAspect == model ifTrue:[List] ifFalse:[ValueHolder]
9f14842f602e initial checkin
ca
parents:
diff changeset
   630
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   631
9f14842f602e initial checkin
ca
parents:
diff changeset
   632
!GraphColumnViewSpec class methodsFor:'documentation'!
9f14842f602e initial checkin
ca
parents:
diff changeset
   633
9f14842f602e initial checkin
ca
parents:
diff changeset
   634
version
1203
ef8f7ce856d4 refactored level into ComponentSpec;
Claus Gittinger <cg@exept.de>
parents: 905
diff changeset
   635
    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.8 1999-02-15 20:16:36 cg Exp $'
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   636
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   637
GraphColumnViewSpec initialize!