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