GraphColumnViewSpec.st
author Claus Gittinger <cg@exept.de>
Mon, 13 Nov 2006 17:11:31 +0100
changeset 3150 e3a55f15ef7e
parent 1655 227e03cb343e
child 3309 5e33115fabe7
permissions -rw-r--r--
package information
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
     3
	      All Rights Reserved
789
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    13
"{ Package: 'stx:libwidg2' }"
789
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    28
	      All Rights Reserved
789
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:]
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    46
	Claus Atzkern
789
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:]
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    49
	UIBuilder
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    50
	UIPainter
789
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    60
    "add an entry for my new components to the UIPainters
740
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    64
	addUserSpecHolder:[self graphSpec]
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    65
	label:'Graphs'
740
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    84
addBindingsTo:env for:inst channel:aChannel
740
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    88
    self
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    89
	adaptApects:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    90
		    #(
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    91
			showGrid
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    92
			showDefaultMenu
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    93
			scrollUpdatesOriginX
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    94
		     )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    95
	to:env
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    96
	for:inst
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    97
	channel:aChannel.
740
9f14842f602e initial checkin
ca
parents:
diff changeset
    98
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
    99
    self
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   100
	adaptApects:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   101
		    #(
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   102
			zoomY
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   103
			windowSize
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   104
			graphOriginX
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   105
			references
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   106
			referenceSelector
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   107
		     )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   108
	to:env
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   109
	for:inst
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   110
	channel:aChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   111
	converter:#symbolOrNil.
740
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   133
	  #'window:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   134
	   #(#WindowSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   135
	      #'name:' 'Views'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   136
	      #'layout:' #(#LayoutFrame 212 0 194 0 691 0 422 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   137
	      #'label:' 'Views'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   138
	      #'min:' #(#Point 10 10)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   139
	      #'max:' #(#Point 1280 1024)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   140
	      #'bounds:' #(#Rectangle 212 194 692 423)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   141
	      #'usePreferredExtent:' false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   142
	  )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   143
	  #'component:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   144
	   #(#SpecCollection
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   145
	      #'collection:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   146
	       #(
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   147
		 #(#GraphColumnView2DSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   148
		    #'name:' '2D Graph'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   149
		    #'layout:' #(#LayoutFrame 15 0 10 0 180 0 90 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   150
		    #'showGrid:' true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   151
		    #'gridX:' 2
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   152
		    #'gridY:' 2
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   153
		)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   154
		 #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   155
		    #'name:' '2D Graph Label'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   156
		    #'layout:' #(#Point 15 96)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   157
		    #'label:' 'Graph Column View 2D'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   158
		    #'style:' #(#FontDescription #helvetica #medium #roman #'10')
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   159
		    #'adjust:' #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   160
		    #'resizeForLabel:' true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   161
		    #'canUIDrag:' false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   162
		)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   163
		 #(#GraphColumnView3DSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   164
		    #'name:' '3D Graph'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   165
		    #'layout:' #(#LayoutFrame 206 0 10 0 371 0 90 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   166
		    #'showGrid:' true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   167
		)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   168
		 #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   169
		    #'name:' '3D Graph Label'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   170
		    #'layout:' #(#Point 206 96)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   171
		    #'label:' 'Graph Column View 3D'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   172
		    #'style:' #(#FontDescription #helvetica #medium #roman #'10')
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   173
		    #'adjust:' #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   174
		    #'resizeForLabel:' true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   175
		    #'canUIDrag:' false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   176
		)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   177
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   178
	  )
740
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   199
    ^
1655
ca
parents: 1434
diff changeset
   200
     #(#FullSpec
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   201
	#name: #basicsEditSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   202
	#window:
1655
ca
parents: 1434
diff changeset
   203
       #(#WindowSpec
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   204
	  #label: 'Graph 2D Basic'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   205
	  #name: 'Graph 2D Basic'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   206
	  #min: #(#Point 10 10)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   207
	  #max: #(#Point 1160 870)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   208
	  #bounds: #(#Rectangle 886 214 1198 539)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   209
	)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   210
	#component:
1655
ca
parents: 1434
diff changeset
   211
       #(#SpecCollection
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   212
	  #collection: #(
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   213
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   214
	      #label: 'ID:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   215
	      #name: 'nameLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   216
	      #layout: #(#AlignmentOrigin 73 0 31 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   217
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   218
	      #adjust: #right
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   219
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   220
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   221
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   222
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   223
		true #nameField
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   224
		nil
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   225
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   226
	      #name: 'nameField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   227
	      #layout: #(#LayoutFrame 75 0 20 0 -2 1.0 45 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   228
	      #activeHelpKey: #id
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   229
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   230
	      #model: #name
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   231
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   232
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   233
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   234
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   235
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   236
	      #label: 'Model:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   237
	      #name: 'modelLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   238
	      #layout: #(#AlignmentOrigin 73 0 60 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   239
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   240
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   241
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   242
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   243
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   244
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   245
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   246
	      #name: 'modelField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   247
	      #layout: #(#LayoutFrame 75 0 49 0 -2 1 74 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   248
	      #activeHelpKey: #model
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   249
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   250
	      #model: #model
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   251
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   252
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   253
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   254
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   255
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   256
	      #label: 'References:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   257
	      #name: 'referencesLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   258
	      #layout: #(#AlignmentOrigin 168 0 90 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   259
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   260
	      #adjust: #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   261
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   262
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   263
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   264
	     #(#referencesField
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   265
		nil #tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   266
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   267
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   268
	      #name: 'referencesField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   269
	      #layout: #(#LayoutFrame 171 0 80 0 -2 1.0 102 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   270
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   271
	      #model: #references
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   272
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   273
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   274
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   275
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   276
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   277
	      #label: 'Access Selector:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   278
	      #name: 'referencesSelLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   279
	      #layout: #(#AlignmentOrigin 168 0 116 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   280
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   281
	      #adjust: #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   282
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   283
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   284
	      #name: 'referencesSelField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   285
	      #layout: #(#LayoutFrame 171 0 106 0 -2 1.0 128 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   286
	      #model: #referenceSelector
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   287
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   288
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   289
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   290
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   291
	   #(#UISubSpecification
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   292
	      #name: 'menuSubSpec'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   293
	      #layout: #(#LayoutFrame 0 0.0 144 0 0 1.0 263 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   294
	      #majorKey: #UISpecification
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   295
	      #minorKey: #menuSubSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   296
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   297
	   #(#CheckBoxSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   298
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   299
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   300
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   301
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   302
	      #label: 'Default Menu'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   303
	      #name: 'showDefaultMenu'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   304
	      #layout: #(#AlignmentOrigin 97 0 280 0 0 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   305
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   306
	      #model: #showDefaultMenu
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   307
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   308
	   )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   309
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   327
    ^
1655
ca
parents: 1434
diff changeset
   328
     #(#FullSpec
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   329
	#name: #subDetailsEditSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   330
	#window:
1655
ca
parents: 1434
diff changeset
   331
       #(#WindowSpec
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   332
	  #label: 'Graph 2D Detail'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   333
	  #name: 'Graph 2D Detail'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   334
	  #min: #(#Point 10 10)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   335
	  #max: #(#Point 1160 870)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   336
	  #bounds: #(#Rectangle 886 214 1269 437)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   337
	)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   338
	#component:
1655
ca
parents: 1434
diff changeset
   339
       #(#SpecCollection
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   340
	  #collection: #(
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   341
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   342
	      #label: 'Border Width:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   343
	      #name: 'borderWidthLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   344
	      #layout: #(#AlignmentOrigin 157 0 35 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   345
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   346
	      #adjust: #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   347
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   348
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   349
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   350
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   351
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   352
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   353
	      #name: 'borderWidthField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   354
	      #layout: #(#LayoutFrame 161 0 24 0 197 0 46 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   355
	      #activeHelpKey: #borderWidth
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   356
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   357
	      #model: #borderWidth
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   358
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   359
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   360
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   361
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   362
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   363
	      #label: 'Level:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   364
	      #name: 'levelLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   365
	      #layout: #(#AlignmentOrigin 157 0 58 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   366
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   367
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   368
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   369
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   370
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   371
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   372
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   373
	      #name: 'levelField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   374
	      #layout: #(#LayoutFrame 161 0 48 0 197 0 70 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   375
	      #activeHelpKey: #level
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   376
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   377
	      #model: #level
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   378
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   379
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   380
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   381
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   382
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   383
	      #label: 'Origin X'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   384
	      #name: 'graphOriginXLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   385
	      #layout: #(#AlignmentOrigin 157 0 91 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   386
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   387
	      #adjust: #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   388
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   389
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   390
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   391
	     #(#graphOriginXField
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   392
		nil #tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   393
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   394
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   395
	      #name: 'graphOriginXField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   396
	      #layout: #(#LayoutFrame 161 0 81 0 -2 1.0 103 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   397
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   398
	      #model: #graphOriginX
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   399
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   400
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   401
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   402
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   403
	   #(#CheckBoxSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   404
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   405
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   406
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   407
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   408
	      #label: 'Scroll updates X-Origin'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   409
	      #name: 'scrollUpdatesOriginX'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   410
	      #layout: #(#AlignmentOrigin 158 0 117 0 0 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   411
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   412
	      #model: #scrollUpdatesOriginX
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   413
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   414
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   415
	      #label: 'Window Size:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   416
	      #name: 'windowSizeLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   417
	      #layout: #(#AlignmentOrigin 157 0 149 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   418
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   419
	      #adjust: #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   420
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   421
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   422
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   423
	     #(#windowSizeField
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   424
		nil #tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   425
		true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   426
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   427
	      #name: 'windowSizeField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   428
	      #layout: #(#LayoutFrame 161 0 139 0 -2 1.0 161 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   429
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   430
	      #model: #windowSize
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   431
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   432
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   433
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   434
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   435
	   #(#LabelSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   436
	      #label: 'Zoom-Y Factor:'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   437
	      #name: 'zoomYLabel'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   438
	      #layout: #(#AlignmentOrigin 157 0 173 0 1 0.5)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   439
	      #resizeForLabel: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   440
	      #adjust: #left
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   441
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   442
	   #(#InputFieldSpec
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   443
	      #attributes:
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   444
	     #(#tabable
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   445
		true #zoomYField
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   446
		nil
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   447
	      )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   448
	      #name: 'zoomYField'
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   449
	      #layout: #(#LayoutFrame 161 0 163 0 -2 1.0 185 0)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   450
	      #tabable: true
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   451
	      #model: #zoomY
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   452
	      #acceptChannel: #acceptChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   453
	      #modifiedChannel: #modifiedChannel
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   454
	      #acceptOnPointerLeave: false
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   455
	    )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   456
	   )
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   457
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
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:[
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   581
	^ super createViewFor:aBuilder in:aView
753
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:[
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   596
	windowSize notNil ifTrue:[
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   597
	    aView windowSizeHolder:(self getBindingIn:aBuilder binding:windowSize)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   598
	].
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   599
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   600
	graphOriginX notNil ifTrue:[
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   601
	    aView graphOriginXHolder:(self getBindingIn:aBuilder binding:graphOriginX)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   602
	].
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   603
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   604
	referenceSelector notNil ifTrue:[
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   605
	    aView referenceSelector:referenceSelector
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   606
	].
753
0b6aaced2915 add more functionality to spec
ca
parents: 751
diff changeset
   607
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   608
	references notNil ifTrue:[
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   609
	    aView referenceHolder:(self getBindingIn:aBuilder binding:references)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   610
	].
751
616686a9b678 add new functionality
ca
parents: 744
diff changeset
   611
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   612
	zoomY notNil ifTrue:[
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   613
	    aView zoomYHolder:(self getBindingIn:aBuilder binding:zoomY)
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   614
	].
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   615
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   616
	self setModelAttributeIn:aView with:aBuilder.
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   617
	self setMenuIn:aView with:aBuilder.
740
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:[
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   637
	l add:#showGrid
751
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:[
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
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:[
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   645
	l add:#showDefaultMenu
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   646
    ].
740
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
3150
e3a55f15ef7e package information
Claus Gittinger <cg@exept.de>
parents: 1655
diff changeset
   679
    ^ '$Header: /cvs/stx/stx/libwidg2/GraphColumnViewSpec.st,v 1.12 2006-11-13 16:11:30 cg Exp $'
740
9f14842f602e initial checkin
ca
parents:
diff changeset
   680
! !
9f14842f602e initial checkin
ca
parents:
diff changeset
   681
GraphColumnViewSpec initialize!