DataSetBuilder.st
author ca
Thu, 30 Oct 1997 16:51:25 +0100
changeset 370 c90e57ac04a5
parent 357 076b7eb71bcf
child 377 5cbb117efc19
permissions -rw-r--r--
add help text and support of label is image
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     1
"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     3
              All Rights Reserved
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     4
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b895330fc7aa intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    11
"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    12
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    13
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    14
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    15
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    16
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    17
ApplicationModel subclass:#DataSetBuilder
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    18
	instanceVariableNames:'className superclassName hasChanged columnView columns
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    19
		selectedColumnIndex tabSelectionIndex aspects isModified'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    20
	classVariableNames:'Number'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    21
	poolDictionaries:''
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    22
	category:'Interface-UIPainter'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    23
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    24
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    25
!DataSetBuilder class methodsFor:'documentation'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    26
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    27
copyright
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    28
"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    29
 COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    30
              All Rights Reserved
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    31
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    32
 This software is furnished under a license and may be used
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    33
 only in accordance with the terms of that license and with the
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    34
 inclusion of the above copyright notice.   This software may not
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    35
 be provided or otherwise made available to, or used by, any
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    36
 other person.  No title to or ownership of the software is
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    37
 hereby transferred.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    38
"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    39
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    40
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    41
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    42
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    43
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    44
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    45
documentation
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    46
"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    47
    create and modify or inspect dataset columns; used by UIPainter (DataSetColumnSpec)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    48
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    49
    [see also:]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    50
        DataSetColumnSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    51
        DataSetSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    52
        DataSetView
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    53
        DataSetColumn
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    54
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    55
    [author:]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    56
        Claus Atzkern
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    57
"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    58
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    59
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    60
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    61
!DataSetBuilder class methodsFor:'columns specs'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    62
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    63
basicsEditSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    64
    "this window spec was automatically generated by the ST/X UIPainter"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    65
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    66
    "do not manually edit this - the painter/builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    67
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    68
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    69
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    70
     UIPainter new openOnClass:DataSetBuilder andSelector:#basicsEditSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    71
     DataSetBuilder new openInterface:#basicsEditSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    72
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    73
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    74
    <resource: #canvas>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    75
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    76
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    77
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    78
       #(#FullSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    79
          #'window:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    80
           #(#WindowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    81
              #'name:' 'DataSet Basic'
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
    82
              #'layout:' #(#LayoutFrame 350 0 22 0 638 0 277 0)
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    83
              #'label:' 'DataSet Basic'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    84
              #'min:' #(#Point 10 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    85
              #'max:' #(#Point 1280 1024)
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
    86
              #'bounds:' #(#Rectangle 350 22 639 278)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
    87
              #'usePreferredExtent:' false
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    88
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    89
          #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    90
           #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    91
              #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    92
               #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    93
                 #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    94
                    #'name:' 'labelLabel'
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
    95
                    #'layout:' #(#AlignmentOrigin 70 0 30 0 1 0.5)
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    96
                    #'label:' 'Label:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    97
                    #'adjust:' #right
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    98
                    #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
    99
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   100
                 #(#InputFieldSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   101
                    #'name:' 'labelField'
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   102
                    #'layout:' #(#LayoutFrame 74 0 22 0 -12 1.0 40 0)
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   103
                    #'activeHelpKey:' #label
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   104
                    #'model:' #label
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   105
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   106
                 #(#FramedBoxSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   107
                    #'name:' 'typesFrame'
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   108
                    #'layout:' #(#LayoutFrame 8 0.0 51 0 0 1.0 131 0)
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   109
                    #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   110
                     #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   111
                        #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   112
                         #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   113
                           #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   114
                              #'name:' 'rendererLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   115
                              #'layout:' #(#AlignmentOrigin 84 0 26 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   116
                              #'label:' 'Renderer:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   117
                              #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   118
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   119
                           #(#ComboListSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   120
                              #'name:' 'rendererField'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   121
                              #'layout:' #(#LayoutFrame 86 0 16 0 17 1.0 36 0)
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   122
                              #'activeHelpKey:' #rendererType
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   123
                              #'model:' #rendererType
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   124
                              #'comboList:' #rendererTypeList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   125
                              #'useIndex:' false
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   126
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   127
                           #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   128
                              #'name:' 'editorLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   129
                              #'layout:' #(#AlignmentOrigin 84 0 50 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   130
                              #'label:' 'Editor:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   131
                              #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   132
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   133
                           #(#ComboBoxSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   134
                              #'name:' 'editorField'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   135
                              #'layout:' #(#LayoutFrame 86 0 41 0 17 1.0 61 0)
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   136
                              #'activeHelpKey:' #editorField
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   137
                              #'model:' #editorType
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   138
                              #'type:' #symbolOrNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   139
                              #'comboList:' #editorTypeList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   140
                              #'useIndex:' false
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   141
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   142
                        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   143
                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   144
                    #'label:' 'Types:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   145
                    #'labelPosition:' #topLeft
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   146
                )
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   147
                 #(#CheckBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   148
                    #'name:' 'canSelect'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   149
                    #'layout:' #(#LayoutOrigin 9 0 145 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   150
                    #'activeHelpKey:' #canSelect
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   151
                    #'model:' #canSelect
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   152
                    #'label:' 'Is Selectable'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   153
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   154
                 #(#CheckBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   155
                    #'name:' 'labelIsImage'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   156
                    #'layout:' #(#LayoutOrigin 9 0 169 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   157
                    #'activeHelpKey:' #labelIsImage
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   158
                    #'model:' #labelIsImage
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   159
                    #'label:' 'Label Is Image'
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   160
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   161
              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   162
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   163
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   164
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   165
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   166
colorEditSpec
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   167
    "this window spec was automatically generated by the ST/X UIPainter"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   168
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   169
    "do not manually edit this - the painter/builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   170
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   171
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   172
    "
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   173
     UIPainter new openOnClass:DataSetBuilder andSelector:#colorEditSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   174
     DataSetBuilder new openInterface:#colorEditSpec
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   175
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   176
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   177
    <resource: #canvas>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   178
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   179
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   180
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   181
       #(#FullSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   182
          #'window:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   183
           #(#WindowSpec
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   184
              #'name:' 'DataSet Misc'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   185
              #'layout:' #(#LayoutFrame 219 0 193 0 496 0 423 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   186
              #'label:' 'DataSet Misc'
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   187
              #'min:' #(#Point 10 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   188
              #'max:' #(#Point 1280 1024)
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   189
              #'bounds:' #(#Rectangle 219 193 497 424)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   190
              #'usePreferredExtent:' false
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   191
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   192
          #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   193
           #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   194
              #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   195
               #(
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   196
                 #(#FramedBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   197
                    #'name:' 'colorsBox'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   198
                    #'layout:' #(#LayoutFrame 0 0.0 24 0 0 1.0 121 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   199
                    #'component:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   200
                     #(#SpecCollection
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   201
                        #'collection:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   202
                         #(
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   203
                           #(#ColorMenuSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   204
                              #'name:' 'fgMenu'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   205
                              #'layout:' #(#LayoutFrame 101 0 17 0 10 1.0 45 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   206
                              #'activeHelpKey:' #foregroundColor
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   207
                              #'model:' #foregroundColor
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   208
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   209
                           #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   210
                              #'name:' 'fgLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   211
                              #'layout:' #(#AlignmentOrigin 100 0 32 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   212
                              #'label:' 'FG-Color:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   213
                              #'adjust:' #right
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   214
                              #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   215
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   216
                           #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   217
                              #'name:' 'bgLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   218
                              #'layout:' #(#AlignmentOrigin 100 0 66 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   219
                              #'label:' 'BG-Color:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   220
                              #'adjust:' #right
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   221
                              #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   222
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   223
                           #(#ColorMenuSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   224
                              #'name:' 'bgMenu'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   225
                              #'layout:' #(#LayoutFrame 101 0 52 0 10 1.0 80 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   226
                              #'activeHelpKey:' #backgroundColor
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   227
                              #'model:' #backgroundColor
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   228
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   229
                        )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   230
                    )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   231
                    #'label:' 'Colors:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   232
                    #'labelPosition:' #topLeft
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   233
                )
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   234
                 #(#FramedBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   235
                    #'name:' 'separatorBox'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   236
                    #'layout:' #(#LayoutFrame 0 0.0 131 0 0 1.0 217 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   237
                    #'component:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   238
                     #(#SpecCollection
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   239
                        #'collection:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   240
                         #(
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   241
                           #(#CheckBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   242
                              #'name:' 'showRowSeparator'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   243
                              #'layout:' #(#AlignmentOrigin 39 0 30 0 0 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   244
                              #'activeHelpKey:' #showRowSeparator
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   245
                              #'model:' #showRowSeparator
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   246
                              #'label:' 'Show Row-Separator'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   247
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   248
                           #(#CheckBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   249
                              #'name:' 'showColSeparator'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   250
                              #'layout:' #(#AlignmentOrigin 39 0 56 0 0 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   251
                              #'activeHelpKey:' #showColumnSeparator
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   252
                              #'model:' #showColSeparator
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   253
                              #'label:' 'Show Column-Separator'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   254
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   255
                        )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   256
                    )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   257
                    #'label:' 'Separators'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   258
                    #'labelPosition:' #topLeft
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   259
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   260
              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   261
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   262
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   263
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   264
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   265
dimensionEditSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   266
    "this window spec was automatically generated by the ST/X UIPainter"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   267
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   268
    "do not manually edit this - the painter/builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   269
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   270
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   271
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   272
     UIPainter new openOnClass:DataSetBuilder andSelector:#dimensionEditSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   273
     DataSetBuilder new openInterface:#dimensionEditSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   274
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   275
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   276
    <resource: #canvas>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   277
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   278
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   279
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   280
       #(#FullSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   281
          #'window:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   282
           #(#WindowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   283
              #'name:' 'DataSet Dimension'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   284
              #'layout:' #(#LayoutFrame 197 0 172 0 487 0 385 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   285
              #'label:' 'DataSet Dimension'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   286
              #'min:' #(#Point 10 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   287
              #'max:' #(#Point 1280 1024)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   288
              #'bounds:' #(#Rectangle 197 172 488 386)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   289
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   290
          #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   291
           #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   292
              #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   293
               #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   294
                 #(#FramedBoxSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   295
                    #'name:' 'columnWidthFrame'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   296
                    #'layout:' #(#LayoutFrame 0 0.0 20 0 0 1.0 107 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   297
                    #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   298
                     #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   299
                        #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   300
                         #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   301
                           #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   302
                              #'name:' 'widthLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   303
                              #'layout:' #(#AlignmentOrigin 68 0.0 27 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   304
                              #'label:' 'width:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   305
                              #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   306
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   307
                           #(#InputFieldSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   308
                              #'name:' 'widthField'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   309
                              #'layout:' #(#LayoutFrame 70 0 17 0 0 1.0 39 0)
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   310
                              #'activeHelpKey:' #width
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   311
                              #'model:' #width
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   312
                              #'type:' #numberOrNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   313
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   314
                           #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   315
                              #'name:' 'minWidthLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   316
                              #'layout:' #(#AlignmentOrigin 68 0.0 56 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   317
                              #'label:' 'minWidth:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   318
                              #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   319
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   320
                           #(#InputFieldSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   321
                              #'name:' 'minWidthField'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   322
                              #'layout:' #(#LayoutFrame 70 0 46 0 0 1.0 68 0)
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   323
                              #'activeHelpKey:' #minWidth
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   324
                              #'model:' #minWidth
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   325
                              #'type:' #numberOrNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   326
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   327
                        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   328
                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   329
                    #'label:' 'Column Width:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   330
                    #'labelPosition:' #topLeft
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   331
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   332
                 #(#FramedBoxSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   333
                    #'name:' 'rowHeightFrame'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   334
                    #'layout:' #(#LayoutFrame 0 0.0 134 0 0 1.0 194 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   335
                    #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   336
                     #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   337
                        #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   338
                         #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   339
                           #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   340
                              #'name:' 'heightLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   341
                              #'layout:' #(#AlignmentOrigin 68 0.0 29 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   342
                              #'label:' 'height:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   343
                              #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   344
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   345
                           #(#InputFieldSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   346
                              #'name:' 'heightField'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   347
                              #'layout:' #(#LayoutFrame 70 0 19 0 0 1.0 41 0)
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   348
                              #'activeHelpKey:' #height
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   349
                              #'model:' #height
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   350
                              #'type:' #numberOrNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   351
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   352
                        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   353
                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   354
                    #'label:' 'Row Height:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   355
                    #'labelPosition:' #topLeft
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   356
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   357
              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   358
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   359
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   360
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   361
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   362
formatEditSpec
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   363
    "this window spec was automatically generated by the ST/X UIPainter"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   364
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   365
    "do not manually edit this - the painter/builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   366
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   367
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   368
    "
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   369
     UIPainter new openOnClass:DataSetBuilder andSelector:#formatEditSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   370
     DataSetBuilder new openInterface:#formatEditSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   371
    "
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   372
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   373
    <resource: #canvas>
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   374
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   375
    ^
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   376
     
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   377
       #(#FullSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   378
          #'window:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   379
           #(#WindowSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   380
              #'name:' 'DataSet Details'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   381
              #'layout:' #(#LayoutFrame 327 0 282 0 617 0 495 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   382
              #'label:' 'DataSet Details'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   383
              #'min:' #(#Point 10 10)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   384
              #'max:' #(#Point 1280 1024)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   385
              #'bounds:' #(#Rectangle 327 282 618 496)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   386
          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   387
          #'component:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   388
           #(#SpecCollection
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   389
              #'collection:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   390
               #(
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   391
                 #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   392
                    #'name:' 'textDescription'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   393
                    #'layout:' #(#Point 10 15)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   394
                    #'label:' 'Text Description:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   395
                    #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   396
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   397
                 #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   398
                    #'name:' 'formatLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   399
                    #'layout:' #(#AlignmentOrigin 83 0 47 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   400
                    #'label:' 'Format:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   401
                    #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   402
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   403
                 #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   404
                    #'name:' 'formatField'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   405
                    #'layout:' #(#LayoutFrame 87 0 37 0 -19 1.0 59 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   406
                    #'activeHelpKey:' #formatString
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   407
                    #'model:' #formatString
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   408
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   409
                 #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   410
                    #'name:' 'inpFieldDescription'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   411
                    #'layout:' #(#Point 10 80)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   412
                    #'label:' 'InputField Description:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   413
                    #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   414
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   415
                 #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   416
                    #'name:' 'typeLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   417
                    #'layout:' #(#AlignmentOrigin 83 0 111 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   418
                    #'label:' 'Type:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   419
                    #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   420
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   421
                 #(#ComboListSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   422
                    #'name:' 'typeCombo'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   423
                    #'layout:' #(#LayoutFrame 87 0 102 0 289 0 122 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   424
                    #'activeHelpKey:' #type
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   425
                    #'model:' #type
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   426
                    #'comboList:' #typeList
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   427
                    #'useIndex:' false
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   428
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   429
                 #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   430
                    #'name:' 'sizeLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   431
                    #'layout:' #(#AlignmentOrigin 83 0 136 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   432
                    #'label:' 'Size:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   433
                    #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   434
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   435
                 #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   436
                    #'name:' 'sizeField'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   437
                    #'layout:' #(#LayoutFrame 87 0 126 0 -19 1.0 148 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   438
                    #'activeHelpKey:' #size
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   439
                    #'model:' #size
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   440
                    #'type:' #numberOrNil
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   441
                )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   442
              )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   443
          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   444
      )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   445
!
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   446
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   447
selectorsEditSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   448
    "this window spec was automatically generated by the ST/X UIPainter"
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   449
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   450
    "do not manually edit this - the painter/builder may not be able to
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   451
     handle the specification if its corrupted."
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   452
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   453
    "
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   454
     UIPainter new openOnClass:DataSetBuilder andSelector:#selectorsEditSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   455
     DataSetBuilder new openInterface:#selectorsEditSpec
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   456
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   457
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   458
    <resource: #canvas>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   459
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   460
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   461
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   462
       #(#FullSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   463
          #'window:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   464
           #(#WindowSpec
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   465
              #'name:' 'DataSet Basic'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   466
              #'layout:' #(#LayoutFrame 219 0 193 0 507 0 448 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   467
              #'label:' 'DataSet Basic'
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   468
              #'min:' #(#Point 10 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   469
              #'max:' #(#Point 1280 1024)
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   470
              #'bounds:' #(#Rectangle 219 193 508 449)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   471
              #'usePreferredExtent:' false
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   472
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   473
          #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   474
           #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   475
              #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   476
               #(
357
076b7eb71bcf support of foreground and background colors
ca
parents: 342
diff changeset
   477
                 #(#LabelSpec
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   478
                    #'name:' 'labelLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   479
                    #'layout:' #(#AlignmentOrigin 84 0 29 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   480
                    #'label:' 'Label:'
357
076b7eb71bcf support of foreground and background colors
ca
parents: 342
diff changeset
   481
                    #'adjust:' #right
076b7eb71bcf support of foreground and background colors
ca
parents: 342
diff changeset
   482
                    #'resizeForLabel:' true
076b7eb71bcf support of foreground and background colors
ca
parents: 342
diff changeset
   483
                )
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   484
                 #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   485
                    #'name:' 'labelField'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   486
                    #'layout:' #(#LayoutFrame 86 0 20 0 -12 1.0 40 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   487
                    #'activeHelpKey:' #label
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   488
                    #'model:' #label
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   489
                )
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   490
                 #(#FramedBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   491
                    #'name:' 'valuesBox'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   492
                    #'layout:' #(#LayoutFrame 0 0.0 20 0 0 1.0 101 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   493
                    #'component:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   494
                     #(#SpecCollection
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   495
                        #'collection:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   496
                         #(
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   497
                           #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   498
                              #'name:' 'readLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   499
                              #'layout:' #(#AlignmentOrigin 84 0 25 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   500
                              #'label:' 'Read:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   501
                              #'adjust:' #right
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   502
                              #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   503
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   504
                           #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   505
                              #'name:' 'readSelector'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   506
                              #'layout:' #(#LayoutFrame 86 0 16 0 17 1.0 36 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   507
                              #'activeHelpKey:' #readSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   508
                              #'model:' #readSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   509
                              #'type:' #symbolOrNil
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   510
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   511
                           #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   512
                              #'name:' 'printLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   513
                              #'layout:' #(#AlignmentOrigin 84 0 51 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   514
                              #'label:' 'Print:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   515
                              #'adjust:' #right
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   516
                              #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   517
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   518
                           #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   519
                              #'name:' 'printSelector'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   520
                              #'layout:' #(#LayoutFrame 86 0 42 0 17 1.0 62 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   521
                              #'activeHelpKey:' #printSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   522
                              #'model:' #printSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   523
                              #'type:' #symbolOrNil
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   524
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   525
                        )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   526
                    )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   527
                    #'label:' 'Values:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   528
                    #'labelPosition:' #topLeft
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   529
                )
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   530
                 #(#FramedBoxSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   531
                    #'name:' 'menusBox'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   532
                    #'layout:' #(#LayoutFrame 0 0.0 115 0 0 1.0 195 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   533
                    #'component:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   534
                     #(#SpecCollection
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   535
                        #'collection:' 
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   536
                         #(
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   537
                           #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   538
                              #'name:' 'menuLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   539
                              #'layout:' #(#AlignmentOrigin 84 0 25 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   540
                              #'label:' 'Menu:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   541
                              #'adjust:' #right
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   542
                              #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   543
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   544
                           #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   545
                              #'name:' 'menuSelector'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   546
                              #'layout:' #(#LayoutFrame 86 0 16 0 17 1.0 36 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   547
                              #'activeHelpKey:' #menuSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   548
                              #'model:' #menu
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   549
                              #'type:' #symbolOrNil
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   550
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   551
                           #(#LabelSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   552
                              #'name:' 'choicesLabel'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   553
                              #'layout:' #(#AlignmentOrigin 84 0 51 0 1 0.5)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   554
                              #'label:' 'Choices:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   555
                              #'adjust:' #right
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   556
                              #'resizeForLabel:' true
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   557
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   558
                           #(#InputFieldSpec
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   559
                              #'name:' 'choicesSelector'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   560
                              #'layout:' #(#LayoutFrame 86 0 42 0 17 1.0 62 0)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   561
                              #'activeHelpKey:' #choices
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   562
                              #'model:' #choices
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   563
                              #'type:' #symbolOrNil
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   564
                          )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   565
                        )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   566
                    )
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   567
                    #'label:' 'Menus:'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   568
                    #'labelPosition:' #topLeft
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   569
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   570
              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   571
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   572
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   573
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   574
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   575
!DataSetBuilder class methodsFor:'help specs'!
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   576
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   577
helpSpec
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   578
    "return a dictionary filled with helpKey -> helptext associations.
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   579
     These are used by the activeHelp tool."
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   580
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   581
    "
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   582
    UIHelpTool openOnClass:DataSetBuilder    
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   583
    "
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   584
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   585
  ^ super helpSpec addPairsFrom:#(
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   586
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   587
#backgroundColor
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   588
'set the background color of the column if the color-checkBox is turned on. Otherwise, the column uses its default background color (which is specified in the styleSheet).'
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   589
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   590
#canSelect
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   591
'if true, each cell in the column can be selected. In case of having a menu, the menu can be opened by selecting the cell and pressing down the right or middle button of the mouse. if false, the whole line is selected. The menu opened derives from the DataSetView, which is specified in the window specification (Basics).'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   592
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   593
#choices
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   594
'selector to get the collection of choices for a column which is selectable and its editor is kind of a ComboBox or ComboList. If a cell in the column is selected, the visual editor is opened and in case of having choices, the choices are assigned to the widget.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   595
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   596
#editorField
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   597
'type of visual editor (using default editors) or a selector, which will return an visual editor. If the cell is selected, a visual editor is opened in in the cell. In case of an unsupported selector (user defined editor), the row object is asked for the visual editor by performing the selector on the row. A widget instance must be returned which is opened in the cell.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   598
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   599
#foregroundColor
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   600
'set the foreground color of the column  if the color-checkBox is turned on. Otherwise, the column uses its default foreground color (which is specified in the styleSheet).'
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   601
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   602
#formatString
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   603
'format string, which specifies the output format of a text in a cell. \ At the moment only numbers are supported. \ \ for example: 0.0000'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   604
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   605
#height
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   606
'preferred height (optional)'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   607
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   608
#label
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   609
'the label of the column. If ''label is image'' is off, this is the label string. Otherwise, it specifies the applications selector, which returns the label - either a string or a bitmap image.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   610
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   611
#labelIsImage
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   612
'if ''label is image'' is off (the default), the columns label is the string as entered in the label aspect. Otherwise, its the name of the message sent to the application - this should return a string or bitmap image, which is used as logo in the column.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   613
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   614
#menuSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   615
'a selector to access the middleButton menu or nil. If a cell is selected. The menu will be opened by selecting the cell and pressing down the right or middle button of the mouse.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   616
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   617
#minWidth
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   618
'makes sense if the width is set to 0 or nil. This is the minimum size required; no computation dependent on the contents. When resizing the view the column may grow or shrink to the minimum width.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   619
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   620
#printSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   621
'a selector with one argument, the DataSetView. Used to access a drawable display object. In case of nil, the value derived from the readSelector is shown in the unselected cell.\ \ Using bitmaps, the DataSetView offers three important methods:\ \ #registerImage:anImage key:aSymbol\ register an image with an unique symbol. This symbol can be used by the row object to access the image, using #registeredImageAt:. The image will be associated to the device.\ \ #registeredImageAt:aSymbol\ returns an image assigned to the symbol or nil. The image returned is associated to the device.\ \ #releaseAllRegisteredImages\ relaese all registered images'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   622
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   623
#readSelector
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   624
'a selector, which is used to get or set the value of a cell. The value returned by the method can be a string object or a bitmap. The set operation only is performed if the column is selectable.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   625
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   626
#rendererType
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   627
'This type specifies, how the text of an unselected cell should be shown. As Text, CheckToggle, ComboBox, ComboList or as a RowSelector.'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   628
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   629
#showColumnSeparator
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   630
'show or hide the column separator (right vertical separator).'
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   631
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   632
#showRowSeparator
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   633
'show or hide the row separator (bottom horizontal separator)'
338
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   634
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   635
#size
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   636
'max size of an InputField, ComboBox or ComboList. 0 or nil means unlimited.'
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   637
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   638
#type
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   639
'a type converter symbol used by the input field'
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   640
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   641
#width
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   642
'the width of a fixed column; in case of nil or 0 the column width will be computed dependent on the contents.'
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   643
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   644
)
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   645
! !
ea36cf31c084 add some help text
ca
parents: 333
diff changeset
   646
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   647
!DataSetBuilder class methodsFor:'images'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   648
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   649
iconCreateItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   650
    ^ MenuEditor iconCreateItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   651
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   652
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   653
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   654
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   655
!DataSetBuilder class methodsFor:'interface specs'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   656
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   657
defineClassNameSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   658
    "this window spec was automatically generated by the ST/X UIPainter"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   659
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   660
    "do not manually edit this - the painter/builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   661
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   662
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   663
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   664
     UIPainter new openOnClass:DataSetBuilder andSelector:#defineClassNameSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   665
     DataSetBuilder new openInterface:#defineClassNameSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   666
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   667
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   668
    <resource: #canvas>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   669
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   670
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   671
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   672
       #(#FullSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   673
          #'window:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   674
           #(#WindowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   675
              #'name:' 'Class Definition'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   676
              #'layout:' #(#LayoutFrame 76 0 249 0 401 0 378 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   677
              #'label:' 'Class Definition'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   678
              #'min:' #(#Point 10 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   679
              #'max:' #(#Point 1152 900)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   680
              #'bounds:' #(#Rectangle 76 249 402 379)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   681
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   682
          #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   683
           #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   684
              #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   685
               #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   686
                 #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   687
                    #'name:' 'classLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   688
                    #'layout:' #(#AlignmentOrigin 50 0.11 50 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   689
                    #'label:' 'class:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   690
                    #'adjust:' #right
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   691
                    #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   692
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   693
                 #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   694
                    #'name:' 'superClassLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   695
                    #'layout:' #(#AlignmentOrigin 50 0.11 77 0 1 0.5)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   696
                    #'label:' 'superclass:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   697
                    #'adjust:' #right
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   698
                    #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   699
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   700
                 #(#LabelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   701
                    #'name:' 'topLabel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   702
                    #'layout:' #(#Point 2 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   703
                    #'label:' 'class for code:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   704
                    #'adjust:' #left
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   705
                    #'resizeForLabel:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   706
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   707
                 #(#InputFieldSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   708
                    #'name:' 'classNameField'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   709
                    #'layout:' #(#LayoutFrame 51 0.11 39 0 -2 1.0 61 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   710
                    #'tabable:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   711
                    #'model:' #classNameChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   712
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   713
                 #(#HorizontalPanelViewSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   714
                    #'name:' 'commitPanel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   715
                    #'layout:' #(#LayoutFrame 2 0.0 -30 1.0 -2 1.0 -2 1.0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   716
                    #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   717
                     #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   718
                        #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   719
                         #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   720
                           #(#ActionButtonSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   721
                              #'name:' 'button1'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   722
                              #'label:' 'cancel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   723
                              #'tabable:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   724
                              #'model:' #cancel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   725
                              #'extent:' #(#Point 156 22)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   726
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   727
                           #(#ActionButtonSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   728
                              #'name:' 'button2'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   729
                              #'label:' 'ok'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   730
                              #'tabable:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   731
                              #'isDefault:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   732
                              #'model:' #accept
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   733
                              #'extent:' #(#Point 157 22)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   734
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   735
                        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   736
                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   737
                    #'horizontalLayout:' #fitSpace
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   738
                    #'verticalLayout:' #fitSpace
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   739
                    #'horizontalSpace:' 3
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   740
                    #'verticalSpace:' 3
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   741
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   742
                 #(#InputFieldSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   743
                    #'name:' 'inputField1'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   744
                    #'layout:' #(#LayoutFrame 51 0.11 67 0 -2 1.0 89 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   745
                    #'tabable:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   746
                    #'model:' #superclassNameChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   747
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   748
              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   749
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   750
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   751
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   752
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   753
slices
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   754
    ^  #(       (Basics         basicsEditSpec)
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   755
                (Selectors      selectorsEditSpec)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   756
                (Format         formatEditSpec)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   757
                (Colors         colorEditSpec)
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   758
                (Dimension      dimensionEditSpec)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   759
        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   760
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   761
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   762
windowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   763
    "this window spec was automatically generated by the ST/X UIPainter"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   764
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   765
    "do not manually edit this - the painter/builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   766
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   767
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   768
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   769
     UIPainter new openOnClass:DataSetBuilder andSelector:#windowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   770
     DataSetBuilder new openInterface:#windowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   771
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   772
    "DataSetBuilder open"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   773
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   774
    <resource: #canvas>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   775
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   776
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   777
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   778
       #(#FullSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   779
          #'window:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   780
           #(#WindowSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   781
              #'name:' 'unnamed canvas'
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   782
              #'layout:' #(#LayoutFrame 219 0 193 0 690 0 533 0)
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   783
              #'label:' 'unnamed canvas'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   784
              #'min:' #(#Point 10 10)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   785
              #'max:' #(#Point 1152 900)
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   786
              #'bounds:' #(#Rectangle 219 193 691 534)
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   787
              #'usePreferredExtent:' false
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   788
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   789
          #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   790
           #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   791
              #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   792
               #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   793
                 #(#MenuPanelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   794
                    #'name:' 'mainMenu'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   795
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 25 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   796
                    #'menu:' #mainMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   797
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   798
                 #(#VariableHorizontalPanelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   799
                    #'name:' 'VariablePanel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   800
                    #'layout:' #(#LayoutFrame 0 0.0 25 0.0 0 1.0 0 1.0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   801
                    #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   802
                     #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   803
                        #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   804
                         #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   805
                           #(#ViewSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   806
                              #'name:' 'labelsView'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   807
                              #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   808
                               #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   809
                                  #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   810
                                   #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   811
                                     #(#MenuPanelSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   812
                                        #'name:' 'subMenu'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   813
                                        #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 35 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   814
                                        #'menu:' #subMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   815
                                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   816
                                     #(#SequenceViewSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   817
                                        #'name:' 'columnView'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   818
                                        #'layout:' #(#LayoutFrame 0 0.0 35 0.0 0 1.0 0 1.0)
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   819
                                        #'enableChannel:' #isNotModified
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   820
                                        #'model:' #selectedColumnModel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   821
                                        #'menu:' #columnMenu
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   822
                                        #'hasHorizontalScrollBar:' true
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   823
                                        #'hasVerticalScrollBar:' true
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
   824
                                        #'miniScrollerHorizontal:' true
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   825
                                        #'useIndex:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   826
                                        #'sequenceList:' #seqList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   827
                                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   828
                                  )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   829
                              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   830
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   831
                           #(#ViewSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   832
                              #'name:' 'specView'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   833
                              #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   834
                               #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   835
                                  #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   836
                                   #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   837
                                     #(#TabViewSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   838
                                        #'name:' 'tabView'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   839
                                        #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 35 0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   840
                                        #'model:' #tabModel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   841
                                        #'menu:' #tabList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   842
                                        #'useIndex:' true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   843
                                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   844
                                     #(#SubCanvasSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   845
                                        #'name:' 'specCanvas'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   846
                                        #'layout:' #(#LayoutFrame 0 0.0 35 0.0 0 1.0 -30 1.0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   847
                                        #'specHolder:' #specChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   848
                                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   849
                                     #(#HorizontalPanelViewSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   850
                                        #'name:' 'modifyPanel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   851
                                        #'layout:' #(#LayoutFrame 0 0.0 -30 1.0 0 1.0 0 1.0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   852
                                        #'component:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   853
                                         #(#SpecCollection
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   854
                                            #'collection:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   855
                                             #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   856
                                               #(#ActionButtonSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   857
                                                  #'name:' 'cancelButton'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   858
                                                  #'label:' 'cancel'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   859
                                                  #'model:' #cancel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   860
                                                  #'enableChannel:' #modifiedChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   861
                                                  #'extent:' #(#Point 150 24)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   862
                                              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   863
                                               #(#ActionButtonSpec
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   864
                                                  #'name:' 'acceptButton'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   865
                                                  #'label:' 'ok'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   866
                                                  #'model:' #accept
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   867
                                                  #'enableChannel:' #modifiedChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   868
                                                  #'extent:' #(#Point 151 24)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   869
                                              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   870
                                            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   871
                                        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   872
                                        #'horizontalLayout:' #fitSpace
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   873
                                        #'verticalLayout:' #fitSpace
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   874
                                        #'horizontalSpace:' 3
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   875
                                        #'verticalSpace:' 3
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   876
                                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   877
                                  )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   878
                              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   879
                              #'borderWidth:' 1
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   880
                          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   881
                        )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   882
                    )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   883
                    #'handles:' #(#Any 0.334746 1.0)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   884
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   885
              )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   886
          )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   887
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   888
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   889
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   890
!DataSetBuilder class methodsFor:'menu specs'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   891
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   892
columnMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   893
    "this window spec was automatically generated by the ST/X MenuEditor"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   894
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   895
    "do not manually edit this - the builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   896
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   897
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   898
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   899
     MenuEditor new openOnClass:DataSetBuilder andSelector:#columnMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   900
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder columnMenu)) startUp
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   901
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   902
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   903
    <resource: #menu>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   904
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   905
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   906
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   907
       #(#Menu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   908
          
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   909
           #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   910
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   911
                #'label:' 'cut'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   912
                #'value:' #doCutColumn
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   913
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   914
          ) nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   915
          nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   916
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   917
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   918
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   919
mainMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   920
    "this window spec was automatically generated by the ST/X MenuEditor"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   921
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   922
    "do not manually edit this - the builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   923
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   924
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   925
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   926
     MenuEditor new openOnClass:DataSetBuilder andSelector:#mainMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   927
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder mainMenu)) startUp
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   928
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   929
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   930
    <resource: #menu>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   931
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   932
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   933
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   934
       #(#Menu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   935
          
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   936
           #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   937
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   938
                #'label:' 'file'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   939
                #'submenu:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   940
                 #(#Menu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   941
                    
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   942
                     #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   943
                       #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   944
                          #'label:' 'close'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   945
                          #'value:' #closeRequest
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   946
                      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   947
                    ) nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   948
                    nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   949
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   950
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   951
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   952
                #'label:' 'code'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   953
                #'submenu:' 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   954
                 #(#Menu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   955
                    
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   956
                     #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   957
                       #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   958
                          #'label:' 'class'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   959
                          #'value:' #doDefineClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   960
                      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   961
                       #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   962
                          #'label:' 'generate code'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   963
                          #'value:' #doGenerateCode
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   964
                      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   965
                       #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   966
                          #'label:' '-'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   967
                      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   968
                       #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   969
                          #'label:' 'browse class'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   970
                          #'value:' #doBrowseClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   971
                      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   972
                    ) nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   973
                    nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   974
                )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   975
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   976
          ) nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   977
          nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   978
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   979
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   980
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   981
subMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   982
    "this window spec was automatically generated by the ST/X MenuEditor"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   983
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   984
    "do not manually edit this - the builder may not be able to
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   985
     handle the specification if its corrupted."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   986
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   987
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   988
     MenuEditor new openOnClass:DataSetBuilder andSelector:#subMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   989
     (Menu new fromLiteralArrayEncoding:(DataSetBuilder subMenu)) startUp
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   990
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   991
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   992
    <resource: #menu>
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   993
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   994
    ^
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   995
     
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   996
       #(#Menu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   997
          
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   998
           #(
b895330fc7aa intitial checkin
ca
parents:
diff changeset
   999
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1000
                #'label:' 'createColumn'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1001
                #'value:' #doCreateColumn
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1002
                #'enabled:' #isNotModified
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1003
                #'labelImage:' #(#ResourceRetriever #MenuEditor #iconCreateItem)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1004
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1005
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1006
                #'label:' '-'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1007
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1008
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1009
                #'label:' ''
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1010
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1011
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1012
                #'label:' '-'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1013
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1014
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1015
                #'label:' 'stepUp'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1016
                #'value:' #'doMoveColumn:'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1017
                #'enabled:' #isNotModified
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1018
                #'argument:' #up
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1019
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconStepUp)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1020
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1021
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1022
                #'label:' '-'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1023
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1024
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1025
                #'label:' 'stepDown'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1026
                #'value:' #'doMoveColumn:'
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
  1027
                #'enabled:' #isNotModified
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1028
                #'argument:' #down
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1029
                #'labelImage:' #(#ResourceRetriever #UIPainter #iconStepDown)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1030
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1031
             #(#MenuItem
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1032
                #'label:' '-'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1033
            )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1034
          ) nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1035
          nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1036
      )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1037
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1038
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1039
!DataSetBuilder methodsFor:'accessing'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1040
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1041
columns
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1042
    "returns list of columns
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1043
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1044
    ^ columns
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1045
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1046
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1047
columns:aListOfColumns fromView:aColumnView
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1048
    "setup columns from a column view
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1049
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1050
    |list|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1051
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1052
    columnView := aColumnView.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1053
    columns    := OrderedCollection new.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1054
    list       := self seqList.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1055
    hasChanged := false.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1056
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1057
    list removeAll.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1058
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1059
    aListOfColumns size ~~ 0 ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1060
        aListOfColumns do:[:aCol|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1061
            columns add:(aCol copy).
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1062
            aCol rendererType == #rowSelector ifFalse:[list add:(aCol label)]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1063
                                               ifTrue:[list add:'Row Selector'].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1064
        ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1065
    ].
333
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1066
!
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1067
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1068
rowClassName
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1069
    ^ (Smalltalk resolveName:className inClass:self class) notNil ifTrue:[className] ifFalse:[nil]
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1070
!
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1071
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1072
rowClassName:aClassName
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1073
    |cls|
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1074
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1075
    superclassName := nil.
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1076
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1077
    (className := aClassName) notNil ifTrue:[
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1078
        (cls := self resolveClassNamed) notNil ifTrue:[
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1079
            superclassName := cls superclass name asString.
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1080
        ] ifFalse:[
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1081
            superclassName := 'Object'
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1082
        ]
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1083
    ]
a2e23dea36bf change className to rowClassName
ca
parents: 332
diff changeset
  1084
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1085
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1086
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1087
!DataSetBuilder methodsFor:'accessing menu'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1088
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1089
columnMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1090
    "this window spec was automatically generated by the UI Builder"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1091
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1092
    ^ self class columnMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1093
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1094
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1095
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1096
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1097
doBrowseClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1098
    |cls|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1099
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1100
    (cls := self resolveClassNamed) notNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1101
        SystemBrowser openInClass:cls
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1102
    ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1103
        self information:'no class yet'.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1104
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1105
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1106
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1107
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1108
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1109
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1110
doCreateColumn
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1111
    "create a new column after selected column or at left (nothing selected)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1112
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1113
    |label list|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1114
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1115
    list := self seqList.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1116
    label := 'column ', list size printString.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1117
    columns add:(DataSetColumnSpec label:label selector:#ToBeDefined) afterIndex:selectedColumnIndex.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1118
    self seqList add:label afterIndex:selectedColumnIndex.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1119
    hasChanged := true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1120
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1121
    self modified ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1122
        self selectedColumnModel value:(selectedColumnIndex + 1)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1123
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1124
    self updateColumnView.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1125
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1126
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1127
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1128
doCutColumn
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1129
    "remove selected column
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1130
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1131
    |idx|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1132
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1133
    (idx := selectedColumnIndex) ~~ 0 ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1134
        self selectedColumnModel value:0.
342
df086591eb11 add more functionality
ca
parents: 338
diff changeset
  1135
        columns removeIndex:idx.
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1136
        self seqList removeIndex:idx.
342
df086591eb11 add more functionality
ca
parents: 338
diff changeset
  1137
        self updateColumnView.
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1138
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1139
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1140
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1141
doDefineClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1142
    "launch a dialog to define class and superclass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1143
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1144
    |aspects cls oldClass oldSuper|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1145
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1146
    aspects  := IdentityDictionary new.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1147
    oldClass := className.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1148
    oldSuper := superclassName.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1149
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1150
    [true] whileTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1151
        className notNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1152
            (cls := self resolveClassNamed) notNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1153
                superclassName := cls superclass name asString.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1154
            ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1155
            aspects at:#classNameChannel put:className asValue
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1156
        ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1157
            aspects at:#classNameChannel put:'DSVRow' asValue
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1158
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1159
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1160
        superclassName notNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1161
            aspects at:#superclassNameChannel put:superclassName asValue
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1162
        ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1163
            aspects at:#superclassNameChannel put:'Object' asValue
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1164
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1165
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1166
        (self openDialogInterface:#defineClassNameSpec withBindings:aspects) ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1167
            className := oldClass.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1168
            superclassName := oldSuper.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1169
          ^ self
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1170
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1171
        className      := ((aspects at:#classNameChannel) value)      withoutSeparators.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1172
        superclassName := ((aspects at:#superclassNameChannel) value) withoutSeparators.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1173
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1174
        className size == 0 ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1175
            className := nil.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1176
            self information:'no valid className'.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1177
        ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1178
            cls := self resolveClassNamed.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1179
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1180
            cls notNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1181
                cls := cls superclass name asString
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1182
            ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1183
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1184
            superclassName size == 0 ifTrue:[        
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1185
                cls notNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1186
                    superclassName := cls
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1187
                ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1188
                    superclassName := 'Object'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1189
                ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1190
                self information:( 'set superclassName' ).
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1191
            ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1192
                (cls isNil or:[superclassName = cls]) ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1193
                    hasChanged := true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1194
                    ^ self
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1195
                ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1196
                self information:('a global named ' , className , ' exists,\' ,
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1197
                                  'but is not a subclass of ' , superclassName, '.\\' ,
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1198
                                  'Check and try again if that is not what you want.') withCRs.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1199
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1200
                superclassName := cls.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1201
            ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1202
        ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1203
    ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1204
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1205
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1206
doGenerateCode
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1207
    |cls superclass|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1208
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1209
    className isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1210
        ^ self information:'no class defined'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1211
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1212
    cls := self resolveClassNamed.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1213
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1214
    cls isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1215
        superclass := Smalltalk resolveName:superclassName inClass:self class.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1216
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1217
        superclass isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1218
            ^ self information:'no superclass defined'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1219
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1220
        (self confirm:'create ' , className , ' ?') ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1221
            ^ self
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1222
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1223
        cls := superclass subclass:(className asSymbol)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1224
                     instanceVariableNames:''
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1225
                     classVariableNames:''
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1226
                     poolDictionaries:''
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1227
                     category:'Applications'.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1228
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1229
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1230
    self generateChoicesIn:cls.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1231
    self generateMenuIn:cls.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1232
    self generatePrintSelectorIn:cls.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1233
    self generateReadSelectorIn:cls.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1234
    self generateWriteSelectorIn:cls.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1235
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1236
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1237
doMoveColumn:upOrDown
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1238
    "move selected column up or down
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1239
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1240
    |idx list label col size|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1241
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1242
    (idx := selectedColumnIndex) == 0 ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1243
        ^ self
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1244
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1245
    list := self seqList.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1246
    size := list size.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1247
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1248
    size == 1 ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1249
        ^ self
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1250
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1251
    hasChanged := true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1252
    selectedColumnIndex := 0.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1253
    label := list at:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1254
    col   := columns at:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1255
    list    removeIndex:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1256
    columns removeIndex:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1257
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1258
    upOrDown == #up ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1259
        idx == 1 ifTrue:[idx := size]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1260
                ifFalse:[idx := idx - 1]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1261
    ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1262
        idx == size ifTrue:[idx := 1]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1263
                   ifFalse:[idx := idx + 1]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1264
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1265
    columns add:col   beforeIndex:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1266
    list    add:label beforeIndex:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1267
    self selectedColumnModel value:idx.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1268
    self updateColumnView.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1269
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1270
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1271
mainMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1272
    "this window spec was automatically generated by the UI Builder"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1273
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1274
    ^ self class mainMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1275
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1276
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1277
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1278
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1279
subMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1280
    "this window spec was automatically generated by the UI Builder"
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1281
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1282
    ^ self class subMenu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1283
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1284
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1285
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1286
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1287
!DataSetBuilder methodsFor:'actions'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1288
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1289
accept
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1290
    "accept changes made
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1291
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1292
    |column type|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1293
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1294
    self modifiedChannel value == false ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1295
        ^ self
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1296
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1297
    isModified := true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1298
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1299
    (column := self selectedColumn) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1300
        ^ self cancel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1301
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1302
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1303
    type := (aspects at:#rendererType) value.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1304
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1305
    type == #rowSelector ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1306
        #( label width minWidth editorType choices readSelector printSelector
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1307
           formatString type size height canSelect
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1308
         ) do:[:aKey| (aspects at:aKey) value:nil ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1309
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1310
        
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1311
    aspects keysAndValuesDo:[:aKey :aModel|
370
c90e57ac04a5 add help text and support of label is image
ca
parents: 357
diff changeset
  1312
        column perform:(aKey , ':') asSymbol with:(aModel value).
332
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1313
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1314
    self seqList at:selectedColumnIndex put:((aspects at:#label) value).
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1315
    self updateColumnView.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1316
    self cancel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1317
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1318
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1319
cancel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1320
    "remove all changes and reload selected column
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1321
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1322
    |column|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1323
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1324
    isModified := true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1325
    (column := self selectedColumn) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1326
        self tabModel value:0.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1327
    ] ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1328
        aspects keysAndValuesDo:[:aKey :aModel|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1329
            aModel value:(column perform:aKey)
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1330
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1331
        tabSelectionIndex == 0 ifTrue:[self tabModel value:1].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1332
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1333
    self modifiedChannel value:false.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1334
    self isNotModified   value:true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1335
    isModified := false.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1336
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1337
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1338
!DataSetBuilder methodsFor:'aspects'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1339
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1340
aspectFor:aKey
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1341
    "returns aspect for a key or nil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1342
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1343
  ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1344
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1345
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1346
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1347
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1348
editorTypeList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1349
    "generate list of supported editor types
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1350
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1351
    |list|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1352
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1353
    (list := builder bindingAt:#editorTypeList) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1354
        list := OrderedCollection new.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1355
        DataSetColumnSpec slices do:[:aSlice||type|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1356
            type := aSlice at:1.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1357
            (list includes:type) ifFalse:[list add:type].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1358
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1359
        builder aspectAt:#editorTypeList put:list.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1360
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1361
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1362
    ^ list
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1363
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1364
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1365
isNotModified
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1366
    "returns a boolean value holder which is set to true if something is modified
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1367
     and not accepted
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1368
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1369
    ^ builder valueAspectFor:#isNotModified initialValue:true
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1370
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1371
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1372
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1373
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1374
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1375
modifiedChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1376
    "returns a boolean value holder which is set to true if something is modified
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1377
     and not accepted
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1378
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1379
    ^ builder booleanValueAspectFor:#modifiedChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1380
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1381
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1382
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1383
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1384
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1385
rendererTypeList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1386
    "generate list of supported renderer types
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1387
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1388
    |list|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1389
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1390
    (list := builder bindingAt:#rendererTypeList) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1391
        list := OrderedCollection new.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1392
        DataSetColumnSpec slices do:[:aSlice||type|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1393
            type := aSlice at:2.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1394
            (list includes:type) ifFalse:[list add:type].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1395
        ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1396
        builder aspectAt:#rendererTypeList put:list.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1397
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1398
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1399
    ^ list
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1400
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1401
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1402
selectedColumnModel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1403
    "automatically generated by UIPainter ..."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1404
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1405
    |holder|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1406
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1407
    (holder := builder bindingAt:#selectedColumnModel) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1408
        holder := AspectAdaptor new subject:self; forAspect:#selectedColumnIndex.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1409
        builder aspectAt:#selectedColumnModel put:holder.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1410
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1411
    ^ holder
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1412
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1413
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1414
seqList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1415
    "automatically generated by UIPainter ..."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1416
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1417
    |list|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1418
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1419
    (list := builder bindingAt:#seqList) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1420
        builder aspectAt:#seqList put:(list :=  List new).
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1421
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1422
    ^ list
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1423
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1424
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1425
specChannel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1426
    "automatically generated by UIPainter ..."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1427
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1428
    |holder|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1429
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1430
    (holder := builder bindingAt:#specChannel) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1431
        builder aspectAt:#specChannel put:(holder :=  ValueHolder new).
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1432
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1433
    ^ holder
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1434
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1435
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1436
tabList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1437
    "automatically generated by UIPainter ..."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1438
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1439
    ^ self class slices collect:[:aSlice| aSlice first ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1440
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1441
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1442
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1443
tabModel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1444
    "returns a value holder which keeps the index of the current selected tab or 0
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1445
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1446
    |holder|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1447
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1448
    (holder := builder bindingAt:#tabModel) isNil ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1449
        holder := AspectAdaptor new subject:self; forAspect:#tabSelectionIndex.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1450
        builder aspectAt:#tabModel put:holder.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1451
    ].
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1452
    ^ holder
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1453
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1454
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1455
typeList
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1456
    "automatically generated by UIPainter ..."
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1457
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1458
    ^ #( string password number numberOrNil symbolOrNil )
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1459
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1460
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1461
!DataSetBuilder methodsFor:'change & update'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1462
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1463
update:something with:aParameter from:someObject
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1464
    "one of my aspects has changed; update modified channel
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1465
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1466
    isModified ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1467
        isModified := hasChanged := true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1468
        self modifiedChannel value:true.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1469
        self isNotModified   value:false.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1470
    ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1471
! !
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1472
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1473
!DataSetBuilder methodsFor:'code generation'!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1474
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1475
compile:aCode forClass:aClass inCategory:aCategory
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1476
    "compile method for class in a category
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1477
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1478
    ByteCodeCompiler compile:aCode withCRs forClass:aClass inCategory:aCategory
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1479
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1480
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1481
generateChoicesIn:aClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1482
    "generate code for #choices
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1483
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1484
    |sel catg code|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1485
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1486
    catg := 'accessing choices' asSymbol.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1487
    code :=   '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1488
            , '    "automatically generated by DataSetBuilder ..."\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1489
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1490
            , '    "get choices for visual editor; (a list of labels)\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1491
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1492
            , '    ^ nil'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1493
            .
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1494
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1495
    columns do:[:aColumn|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1496
        (     aColumn canSelect
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1497
         and:[aColumn rendererType ~~ #rowSelector
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1498
         and:[(sel := aColumn choices) notNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1499
         and:[(aClass implements:sel) not]]]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1500
        ) ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1501
            self compile:(sel asString, code) forClass:aClass inCategory:catg
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1502
        ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1503
    ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1504
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1505
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1506
generateMenuIn:aClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1507
    "generate code for #menu
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1508
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1509
    |sel catg code|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1510
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1511
    catg := 'accessing menus' asSymbol.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1512
    code :=   '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1513
            , '    "automatically generated by DataSetBuilder ..."\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1514
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1515
            , '    "get middleButton menu for selected cell in column"\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1516
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1517
            , '    ^ nil'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1518
            .
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1519
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1520
    columns do:[:aColumn|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1521
        (     aColumn canSelect
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1522
         and:[(sel := aColumn menu) notNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1523
         and:[(aClass implements:sel) not]]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1524
        ) ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1525
            self compile:(sel asString, code) forClass:aClass inCategory:catg
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1526
        ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1527
    ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1528
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1529
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1530
generatePrintSelectorIn:aClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1531
    "generate code for #printSelector
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1532
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1533
    |sel catg code|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1534
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1535
    catg := 'accessing printSelector' asSymbol.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1536
    code :=   'aGC\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1537
            , '    "automatically generated by DataSetBuilder ..."\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1538
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1539
            , '    "get drawable image or text on a gc"\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1540
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1541
            , '    ^ nil'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1542
            .
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1543
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1544
    columns do:[:aColumn|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1545
        (     aColumn rendererType ~~ #rowSelector
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1546
         and:[(sel := aColumn printSelector) notNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1547
         and:[(aClass implements:sel) not]]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1548
        ) ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1549
            self compile:(sel asString, code) forClass:aClass inCategory:catg
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1550
        ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1551
    ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1552
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1553
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1554
generateReadSelectorIn:aClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1555
    "generate code for #readSelector
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1556
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1557
    |sel catg code bCode|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1558
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1559
    catg := 'accessing readSelector' asSymbol.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1560
    code :=   '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1561
            , '    "automatically generated by DataSetBuilder ..."\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1562
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1563
            , '    "get value"\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1564
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1565
            .
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1566
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1567
    columns do:[:aColumn|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1568
        (     aColumn rendererType ~~ #rowSelector 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1569
         and:[(sel := aColumn readSelector) notNil
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1570
         and:[(aClass implements:sel) not]]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1571
        ) ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1572
            (aColumn printSelector isNil or:[aColumn canSelect]) ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1573
                bCode := sel asString, code.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1574
                aColumn rendererType == #CheckToggle ifFalse:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1575
                    bCode := bCode, '    ^ nil'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1576
                ] ifTrue:[
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1577
                    bCode := bCode, '    ^ true'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1578
                ]. 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1579
                self compile:bCode forClass:aClass inCategory:catg
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1580
            ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1581
        ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1582
    ]
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1583
!
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1584
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1585
generateWriteSelectorIn:aClass
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1586
    "generate code for #writeSelector
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1587
    "
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1588
    |sel catg code|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1589
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1590
    catg := 'accessing writeSelector' asSymbol.
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1591
    code :=   'aValue\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1592
            , '    "automatically generated by DataSetBuilder ..."\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1593
            , '\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1594
            , '    "set value"\'
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1595
            .
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1596
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1597
    columns do:[:aColumn|
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1598
        (     (sel := aColumn writeSelector) notNil 
b895330fc7aa intitial checkin
ca
parents:
diff changeset
  1599
         and:[(aClass implements:sel) not]