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