UIPainter.st
author ca
Fri, 14 Feb 1997 16:35:32 +0100
changeset 46 8301d6b9e67c
parent 42 877a25e8f5aa
child 50 fb4359c9bdc4
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
42
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     1
"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1995 by Claus Gittinger
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     3
	      All Rights Reserved
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     4
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    11
"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    12
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    13
ApplicationModel subclass:#UIPainter
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    14
	instanceVariableNames:'menu nameField elementMenu workView treeView outletView stringBox
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    15
		actionBox listBox fileBox currentFileName topView propertyFrame
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    16
		whichProperty changeSelectorHolder changeChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    17
		aspectSelectorHolder aspectChannel nameChannel fgChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    18
		bgChannel applyAction leftFractionHolder leftOffsetHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    19
		rightFractionHolder rightOffsetHolder topFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    20
		topOffsetHolder bottomFractionHolder bottomOffsetHolder specClass
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    21
		specSelector leftAlignmentFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    22
		topAlignmentFractionHolder propertyShown specShown'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    23
	classVariableNames:''
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    24
	poolDictionaries:''
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    25
	category:'Interface-UIPainter'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    26
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    27
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    28
!UIPainter class methodsFor:'documentation'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    29
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    30
copyright
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    31
"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    32
 COPYRIGHT (c) 1995 by Claus Gittinger
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    33
	      All Rights Reserved
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    34
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    35
 This software is furnished under a license and may be used
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    36
 only in accordance with the terms of that license and with the
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    37
 inclusion of the above copyright notice.   This software may not
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    38
 be provided or otherwise made available to, or used by, any
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    39
 other person.  No title to or ownership of the software is
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    40
 hereby transferred.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    41
"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    42
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    43
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    44
documentation
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    45
"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    46
    not yet finished, not yet published, not yet released.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    47
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    48
    [start with:]
46
8301d6b9e67c *** empty log message ***
ca
parents: 42
diff changeset
    49
        UIPainter open
42
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    50
"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    51
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    52
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    53
!UIPainter class methodsFor:'interface specs'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    54
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    55
actionButtonModelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    56
    "UIPainter new openOnClass:self andSelector:#actionButtonModelSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    57
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    58
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    59
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    60
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    61
     
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    62
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    63
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    64
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    65
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    66
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    67
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    68
                    #'layout:' #(#LayoutFrame 0 0 -1 0 251 0 289 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    69
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    70
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    71
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    72
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    73
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    74
                              #'layout:' #(#LayoutFrame 6 0 26 0 78 0 216 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    75
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    76
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    77
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    78
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    79
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    80
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    81
                                        #'layout:' #(#LayoutFrame 0 0 47 0 57 0 71 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    82
                                        #'label:' 'aspect:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    83
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    84
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    85
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    86
                                        #'layout:' #(#LayoutFrame 0 0 119 0 62 0 143 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    87
                                        #'label:' 'change:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    88
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    89
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    90
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    91
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    92
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    93
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    94
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    95
                              #'layout:' #(#LayoutFrame 80 0 24 0 231 0 214 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    96
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    97
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    98
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
    99
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   100
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   101
                                        #'name:' 'aspectInput'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   102
                                        #'layout:' #(#LayoutFrame 0 0 49 0 163 0 69 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   103
                                        #model: #aspectChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   104
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   105
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   106
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   107
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   108
                                        #'name:' 'changeInput'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   109
                                        #'layout:' #(#LayoutFrame 0 0 119 0 163 0 142 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   110
                                        #model: #changeChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   111
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   112
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   113
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   114
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   115
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   116
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   117
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   118
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   119
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   120
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   121
                              #'layout:' #(#LayoutFrame 102 0 246 0 153 0 272 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   122
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   123
                              #'model:' #setModelAspects
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   124
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   125
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   126
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   127
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   128
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   129
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   130
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   131
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   132
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   133
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   134
              #'label:' 'unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   135
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   136
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   137
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   138
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   139
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   140
colorSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   141
    "UIBuilder new openOnClass:self andSelector:#colorSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   142
    "Builder new openInterface:#colorSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   143
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   144
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   145
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   146
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   147
     
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   148
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   149
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   150
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   151
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   152
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   153
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   154
                    #'layout:' #(#LayoutFrame 0 0 -1 0 252 0 290 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   155
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   156
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   157
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   158
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   159
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   160
                              #'layout:' #(#LayoutFrame 6 0 26 0 100 0 215 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   161
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   162
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   163
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   164
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   165
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   166
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   167
                                        #'layout:' #(#LayoutFrame 0 0 47 0 87 0 71 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   168
                                        #'label:' 'foreground:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   169
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   170
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   171
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   172
                                        #'layout:' #(#LayoutFrame 0 0 119 0 93 0 143 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   173
                                        #'label:' 'background:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   174
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   175
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   176
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   177
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   178
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   179
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   180
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   181
                              #'layout:' #(#LayoutFrame 114 0 24 0 233 0 213 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   182
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   183
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   184
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   185
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   186
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   187
                                        #'layout:' #(#LayoutFrame 0 0 49 0 163 0 69 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   188
                                        #model: #foregroundChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   189
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   190
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   191
                                        #'layout:' #(#LayoutFrame 0 0 119 0 163 0 142 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   192
                                        #model: #backgroundChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   193
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   194
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   195
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   196
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   197
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   198
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   199
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   200
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   201
                              #'layout:' #(#LayoutFrame 102 0 246 0 153 0 272 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   202
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   203
                              #'model:' #setColors
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   204
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   205
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   206
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   207
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   208
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   209
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   210
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   211
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   212
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   213
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   214
              #'label:' 'unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   215
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   216
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   217
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   218
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   219
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   220
geometrySpecForAlignmentOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   221
    "UIBuilder new openOnClass:self andSelector:#geometrySpecForAlignmentOrigin"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   222
    "Builder new openInterface:#geometrySpecForAlignmentOrigin"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   223
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   224
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   225
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   226
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   227
     
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   228
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   229
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   230
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   231
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   232
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   233
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   234
                    #'layout:' #(#LayoutFrame 0 0 -1 0 253 0 291 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   235
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   236
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   237
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   238
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   239
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   240
                              #'layout:' #(#LayoutFrame 6 0 26 0 85 0 219 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   241
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   242
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   243
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   244
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   245
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   246
                                        #'layout:' #(#LayoutFrame 0 0 19 0 30 0 43 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   247
                                        #'label:' 'left'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   248
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   249
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   250
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   251
                                        #'layout:' #(#LayoutFrame 0 0 63 0 31 0 87 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   252
                                        #'label:' 'top'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   253
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   254
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   255
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   256
                                        #'layout:' #(#LayoutFrame 0 0 107 0 41 0 131 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   257
                                        #'label:' 'align H'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   258
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   259
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   260
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   261
                                        #'layout:' #(#LayoutFrame 0 0 151 0 61 0 175 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   262
                                        #'label:' 'align V'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   263
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   264
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   265
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   266
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   267
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   268
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   269
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   270
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   271
                              #'layout:' #(#LayoutFrame 80 0 24 0 124 0 217 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   272
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   273
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   274
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   275
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   276
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   277
                                        #'layout:' #(#LayoutFrame 0 0 21 0 71 0 42 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   278
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   279
                                        #model: #leftFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   280
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   281
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   282
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   283
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   284
                                        #'layout:' #(#LayoutFrame 0 0 64 0 71 0 85 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   285
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   286
                                        #'model:' #'topFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   287
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   288
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   289
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   290
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   291
                                        #'layout:' #(#LayoutFrame 0 0 107 0 71 0 128 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   292
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   293
                                        #model:  #'leftAlignmentFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   294
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   295
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   296
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   297
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   298
                                        #'layout:' #(#LayoutFrame 0 0 150 0 71 0 171 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   299
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   300
                                        #'model:' #'topAlignmentFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   301
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   302
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   303
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   304
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   305
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   306
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   307
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   308
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   309
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   310
                              #'layout:' #(#LayoutFrame 150 0 24 0 220 0 216 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   311
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   312
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   313
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   314
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   315
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   316
                                        #'layout:' #(#LayoutFrame 0 0 21 0 114 0 42 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   317
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   318
                                        #model: #leftOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   319
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   320
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   321
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   322
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   323
                                        #'layout:' #(#LayoutFrame 0 0 64 0 114 0 85 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   324
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   325
                                        #model: #topOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   326
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   327
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   328
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   329
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   330
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   331
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   332
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   333
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   334
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   335
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   336
                              #'layout:' #(#LayoutFrame 16 0 210 0 76 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   337
                              #'label:' 'frame'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   338
                              #'model:' #setLayoutFrame
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   339
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   340
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   341
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   342
                              #'layout:' #(#LayoutFrame 96 0 210 0 156 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   343
                              #'label:' 'origin'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   344
                              #'model:' #setLayoutOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   345
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   346
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   347
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   348
                              #'layout:' #(#LayoutFrame 176 0 210 0 236 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   349
                              #'label:' 'align'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   350
                              #'model:' #setAlignmentOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   351
                              #'initiallyDisabled:' true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   352
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   353
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   354
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   355
                              #'layout:' #(#LayoutFrame 96 0 260 0 156 0 290 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   356
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   357
                              #'model:' #setDimensionForAlignmentOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   358
                              #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   359
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   360
                           #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   361
                              #'layout:' #(#LayoutFrame 77 0 9 0 137 0 31 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   362
                              #'label:' 'relative'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   363
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   364
                           #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   365
                              #'layout:' #(#LayoutFrame 167 0 9 0 213 0 30 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   366
                              #'label:' 'offset'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   367
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   368
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   369
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   370
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   371
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   372
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   373
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   374
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   375
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   376
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   377
              #'label:' 'indy: unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   378
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   379
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   380
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   381
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   382
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   383
geometrySpecForLayoutFrame
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   384
    "UIBuilder new openOnClass:self andSelector:#geometrySpecForLayoutFrame"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   385
    "Builder new openInterface:#geometrySpecForLayoutFrame"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   386
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   387
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   388
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   389
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   390
     
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   391
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   392
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   393
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   394
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   395
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   396
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   397
                    #'layout:' #(#LayoutFrame 0 0 -1 0 253 0 291 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   398
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   399
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   400
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   401
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   402
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   403
                              #'layout:' #(#LayoutFrame 6 0 26 0 85 0 219 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   404
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   405
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   406
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   407
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   408
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   409
                                        #'layout:' #(#LayoutFrame 0 0 19 0 30 0 43 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   410
                                        #'label:' 'left'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   411
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   412
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   413
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   414
                                        #'layout:' #(#LayoutFrame 0 0 63 0 30 0 87 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   415
                                        #'label:' 'top'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   416
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   417
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   418
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   419
                                        #'layout:' #(#LayoutFrame 0 0 107 0 40 0 131 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   420
                                        #'label:' 'right'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   421
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   422
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   423
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   424
                                        #'layout:' #(#LayoutFrame 0 0 151 0 40 0 175 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   425
                                        #'label:' 'bottom'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   426
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   427
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   428
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   429
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   430
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   431
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   432
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   433
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   434
                              #'layout:' #(#LayoutFrame 80 0 24 0 124 0 217 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   435
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   436
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   437
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   438
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   439
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   440
                                        #'layout:' #(#LayoutFrame 0 0 21 0 71 0 42 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   441
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   442
                                        #model: #leftFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   443
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   444
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   445
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   446
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   447
                                        #'layout:' #(#LayoutFrame 0 0 64 0 71 0 85 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   448
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   449
                                        #'model:' #'topFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   450
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   451
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   452
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   453
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   454
                                        #'layout:' #(#LayoutFrame 0 0 107 0 71 0 128 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   455
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   456
                                        #model:  #'rightFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   457
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   458
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   459
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   460
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   461
                                        #'layout:' #(#LayoutFrame 0 0 150 0 71 0 171 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   462
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   463
                                        #'model:' #'bottomFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   464
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   465
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   466
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   467
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   468
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   469
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   470
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   471
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   472
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   473
                              #'layout:' #(#LayoutFrame 150 0 24 0 220 0 216 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   474
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   475
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   476
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   477
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   478
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   479
                                        #'layout:' #(#LayoutFrame 0 0 21 0 114 0 42 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   480
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   481
                                        #model: #leftOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   482
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   483
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   484
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   485
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   486
                                        #'layout:' #(#LayoutFrame 0 0 64 0 114 0 85 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   487
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   488
                                        #model: #topOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   489
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   490
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   491
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   492
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   493
                                        #'layout:' #(#LayoutFrame 0 0 107 0 114 0 128 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   494
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   495
                                        #'model:' #rightOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   496
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   497
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   498
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   499
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   500
                                        #'layout:' #(#LayoutFrame 0 0 150 0 114 0 171 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   501
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   502
                                        #'model:' #bottomOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   503
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   504
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   505
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   506
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   507
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   508
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   509
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   510
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   511
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   512
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   513
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   514
                              #'layout:' #(#LayoutFrame 16 0 210 0 76 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   515
                              #'label:' 'frame'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   516
                              #'model:' #setLayoutFrame
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   517
                              #'initiallyDisabled:' true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   518
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   519
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   520
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   521
                              #'layout:' #(#LayoutFrame 96 0 210 0 156 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   522
                              #'label:' 'origin'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   523
                              #'model:' #setLayoutOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   524
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   525
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   526
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   527
                              #'layout:' #(#LayoutFrame 176 0 210 0 236 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   528
                              #'label:' 'align'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   529
                              #'model:' #setAlignmentOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   530
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   531
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   532
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   533
                              #'layout:' #(#LayoutFrame 96 0 260 0 156 0 290 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   534
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   535
                              #'model:' #setDimensionForLayoutFrame
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   536
                              #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   537
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   538
                           #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   539
                              #'layout:' #(#LayoutFrame 77 0 9 0 137 0 31 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   540
                              #'label:' 'relative'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   541
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   542
                           #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   543
                              #'layout:' #(#LayoutFrame 167 0 9 0 213 0 30 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   544
                              #'label:' 'offset'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   545
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   546
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   547
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   548
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   549
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   550
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   551
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   552
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   553
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   554
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   555
              #'label:' 'indy: unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   556
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   557
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   558
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   559
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   560
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   561
geometrySpecForLayoutOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   562
    "UIPainter new openOnClass:self andSelector:#geometrySpecForLayoutOrigin"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   563
    "Builder new openInterface:#geometrySpecForLayoutOrigin"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   564
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   565
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   566
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   567
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   568
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   569
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   570
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   571
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   572
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   573
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   574
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   575
                    #'name:' 'framedBox'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   576
                    #'layout:' #(#LayoutFrame 0 0 -1 0 253 0 291 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   577
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   578
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   579
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   580
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   581
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   582
                              #'name:' 'verticalPanelView'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   583
                              #'layout:' #(#LayoutFrame 6 0 26 0 85 0 219 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   584
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   585
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   586
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   587
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   588
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   589
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   590
                                        #'layout:' #(#LayoutFrame 0 0 19 0 30 0 43 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   591
                                        #'label:' 'left'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   592
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   593
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   594
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   595
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   596
                                        #'layout:' #(#LayoutFrame 0 0 63 0 31 0 87 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   597
                                        #'label:' 'top'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   598
                                        #'adjust:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   599
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   600
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   601
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   602
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   603
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   604
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   605
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   606
                              #'name:' 'verticalPanelView'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   607
                              #'layout:' #(#LayoutFrame 80 0 24 0 124 0 217 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   608
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   609
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   610
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   611
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   612
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   613
                                        #'layout:' #(#LayoutFrame 0 0 21 0 71 0 42 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   614
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   615
                                        #model: #leftFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   616
                                        #'acceptOnLostFocus:' true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   617
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   618
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   619
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   620
                                        #'layout:' #(#LayoutFrame 0 0 64 0 71 0 85 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   621
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   622
                                        #'model:' #'topFractionChannel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   623
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   624
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   625
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   626
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   627
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   628
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   629
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   630
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   631
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   632
                              #'name:' 'verticalPanelView'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   633
                              #'layout:' #(#LayoutFrame 150 0 24 0 220 0 216 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   634
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   635
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   636
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   637
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   638
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   639
                                        #'layout:' #(#LayoutFrame 0 0 21 0 114 0 42 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   640
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   641
                                        #model: #leftOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   642
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   643
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   644
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   645
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   646
                                        #'layout:' #(#LayoutFrame 0 0 64 0 114 0 85 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   647
                                        #'type:' #numberOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   648
                                        #model: #topOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   649
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   650
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   651
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   652
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   653
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   654
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   655
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   656
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   657
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   658
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   659
                              #'layout:' #(#LayoutFrame 16 0 210 0 76 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   660
                              #'label:' 'frame'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   661
                              #'model:' #setLayoutFrame
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   662
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   663
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   664
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   665
                              #'layout:' #(#LayoutFrame 96 0 210 0 156 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   666
                              #'label:' 'origin'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   667
                              #'model:' #setLayoutOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   668
                              #'initiallyDisabled:' true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   669
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   670
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   671
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   672
                              #'layout:' #(#LayoutFrame 176 0 210 0 236 0 240 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   673
                              #'label:' 'align'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   674
                              #'model:' #setAlignmentOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   675
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   676
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   677
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   678
                              #'layout:' #(#LayoutFrame 96 0 260 0 156 0 290 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   679
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   680
                              #'model:' #setDimensionForLayoutOrigin
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   681
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   682
                           #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   683
                              #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   684
                              #'layout:' #(#LayoutFrame 77 0 9 0 137 0 31 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   685
                              #'label:' 'relative'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   686
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   687
                           #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   688
                              #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   689
                              #'layout:' #(#LayoutFrame 159 0 9 0 205 0 30 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   690
                              #'label:' 'offset'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   691
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   692
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   693
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   694
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   695
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   696
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   697
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   698
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   699
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   700
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   701
              #'label:' 'indy: unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   702
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   703
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   704
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   705
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   706
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   707
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   708
miscSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   709
    "UIBuilder new openOnClass:self andSelector:#miscSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   710
    "Builder new openInterface:#miscSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   711
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   712
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   713
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   714
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   715
     
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   716
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   717
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   718
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   719
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   720
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   721
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   722
                    #'layout:' #(#LayoutFrame 0 0 -1 0 251 0 289 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   723
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   724
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   725
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   726
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   727
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   728
                              #'layout:' #(#LayoutFrame 6 0 26 0 61 0 215 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   729
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   730
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   731
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   732
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   733
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   734
                                        #'layout:' #(#LayoutFrame 0 0 47 0 57 0 71 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   735
                                        #'label:' 'name:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   736
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   737
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   738
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   739
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   740
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   741
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   742
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   743
                              #'layout:' #(#LayoutFrame 60 0 24 0 230 0 213 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   744
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   745
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   746
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   747
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   748
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   749
                                        #model: #nameChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   750
                                        #'layout:' #(#LayoutFrame 0 0 49 0 163 0 69 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   751
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   752
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   753
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   754
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   755
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   756
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   757
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   758
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   759
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   760
                              #'layout:' #(#LayoutFrame 102 0 246 0 153 0 272 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   761
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   762
                              #'model:' #setMiscAspects
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   763
                              #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   764
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   765
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   766
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   767
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   768
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   769
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   770
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   771
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   772
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   773
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   774
              #'label:' 'unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   775
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   776
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   777
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   778
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   779
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   780
modelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   781
    "UIBuilder new openOnClass:self andSelector:#modelSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   782
    "Builder new openInterface:#modelSpec"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   783
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   784
    <resource: #canvas>
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   785
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   786
    ^
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   787
     
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   788
       #(#FullSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   789
          #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   790
           #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   791
              #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   792
               #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   793
                 #(#FramedBoxSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   794
                    #'layout:' #(#LayoutFrame 0 0 -1 0 251 0 289 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   795
                    #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   796
                     #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   797
                        #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   798
                         #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   799
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   800
                              #'layout:' #(#LayoutFrame 6 0 26 0 78 0 216 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   801
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   802
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   803
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   804
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   805
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   806
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   807
                                        #'layout:' #(#LayoutFrame 0 0 47 0 57 0 71 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   808
                                        #'label:' 'aspect:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   809
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   810
                                     #(#LabelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   811
                                        #'name:' 'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   812
                                        #'layout:' #(#LayoutFrame 0 0 119 0 62 0 143 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   813
                                        #'label:' 'change:'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   814
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   815
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   816
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   817
                              #'horizontalLayout:' #left
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   818
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   819
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   820
                           #(#VerticalPanelViewSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   821
                              #'layout:' #(#LayoutFrame 80 0 24 0 231 0 214 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   822
                              #'component:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   823
                               #(#SpecCollection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   824
                                  #'collection:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   825
                                   #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   826
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   827
                                        #'name:' 'aspectInput'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   828
                                        #'layout:' #(#LayoutFrame 0 0 49 0 163 0 69 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   829
                                        #model: #aspectChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   830
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   831
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   832
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   833
                                     #(#InputFieldSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   834
                                        #'name:' 'changeInput'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   835
                                        #'layout:' #(#LayoutFrame 0 0 119 0 163 0 142 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   836
                                        #model: #changeChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   837
                                        #acceptOnLostFocus: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   838
                                        #tabable: true
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   839
                                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   840
                                  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   841
                              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   842
                              #'horizontalLayout:' #fit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   843
                              #'verticalLayout:' #spreadSpace
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   844
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   845
                           #(#ActionButtonSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   846
                              #'name:' 'button'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   847
                              #'layout:' #(#LayoutFrame 102 0 246 0 153 0 272 0)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   848
                              #'label:' 'apply'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   849
                              #'model:' #setModelAspects
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   850
                          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   851
                        )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   852
                    )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   853
                    #'labelPosition:' #topLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   854
                    #'showFrame:' false
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   855
                )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   856
              )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   857
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   858
          #'window:' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   859
           #(#WindowSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   860
              #'label:' 'unnamed'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   861
              #'bounds:' #(#Rectangle 0 0 255 292)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   862
          )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   863
      )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   864
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   865
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   866
!UIPainter methodsFor:'BuilderView interface'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   867
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   868
setUndoLabel:aString
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   869
    aString isNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   870
        (menu menuAt:#edit) labelAt:#undoAction put:'undo'.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   871
        (menu menuAt:#edit) disable:#undoAction
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   872
    ] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   873
        (menu menuAt:#edit) labelAt:#undoAction put:'undo: ' , aString.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   874
        (menu menuAt:#edit) enable:#undoAction
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   875
    ]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   876
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   877
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   878
update:something with:parameter
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   879
    |singleSelection|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   880
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   881
    elementMenu deselect.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   882
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   883
    something == #undoHistory ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   884
        ^ self setUndoLabel:parameter
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   885
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   886
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   887
    singleSelection := workView singleSelection.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   888
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   889
    (something == #layout or:[something == #any]) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   890
        singleSelection notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   891
            self fetchLayoutFrom:singleSelection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   892
        ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   893
        ^ self
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   894
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   895
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   896
    (something == #aspects or:[something == #any]) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   897
        singleSelection notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   898
            self fetchModelAspectsFrom:singleSelection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   899
        ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   900
        ^ self
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   901
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   902
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   903
    (something == #selection or:[something == #any]) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   904
        self showPropertyView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   905
        self showOutletsFor:(workView selection).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   906
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   907
        singleSelection isNil ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   908
            nameChannel isNil ifTrue:[self nameChannel].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   909
            nameChannel value:singleSelection name.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   910
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   911
            self fetchLayoutFrom:singleSelection.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   912
            self fetchModelAspectsFrom:singleSelection.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   913
        ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   914
        ^ self
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   915
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   916
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   917
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   918
!UIPainter methodsFor:'aspects'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   919
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   920
aspectChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   921
    ^ aspectChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   922
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   923
    "Modified: 6.9.1995 / 01:00:30 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   924
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   925
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   926
backgroundChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   927
    ^ bgChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   928
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   929
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   930
bottomFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   931
    ^ bottomFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   932
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   933
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   934
bottomOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   935
    ^ bottomOffsetHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   936
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   937
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   938
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   939
changeChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   940
    ^ changeChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   941
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   942
    "Modified: 6.9.1995 / 01:00:33 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   943
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   944
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   945
foregroundChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   946
    ^ fgChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   947
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   948
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   949
leftAlignmentFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   950
    ^ leftAlignmentFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   951
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   952
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   953
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   954
leftFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   955
    ^ leftFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   956
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   957
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   958
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   959
leftOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   960
    ^ leftOffsetHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   961
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   962
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   963
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   964
nameChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   965
    nameChannel isNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   966
	nameChannel := '' asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   967
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   968
    ^ nameChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   969
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   970
    "Modified: 6.9.1995 / 00:38:00 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   971
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   972
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   973
rightFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   974
    ^ rightFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   975
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   976
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   977
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   978
rightOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   979
    ^ rightOffsetHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   980
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   981
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   982
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   983
topAlignmentFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   984
    ^ topAlignmentFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   985
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   986
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   987
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   988
topFractionChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   989
    ^ topFractionHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   990
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   991
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   992
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   993
topOffsetChannel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   994
    ^ topOffsetHolder
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   995
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   996
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   997
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   998
!UIPainter methodsFor:'filein & fileout'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
   999
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1000
openFile:aFileName
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1001
    |aStream |
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1002
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1003
    aStream := FileStream readonlyFileNamed:aFileName.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1004
    aStream notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1005
	workView fileInContentsFrom:aStream.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1006
	aStream close.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1007
	currentFileName := aFileName
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1008
    ]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1009
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1010
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1011
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1012
saveAs:aFileName
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1013
    |aStream|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1014
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1015
    aStream := FileStream newFileNamed:aFileName.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1016
    aStream notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1017
	workView storeContentsOn:aStream.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1018
	aStream close
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1019
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1020
    currentFileName := aFileName
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1021
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1022
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1023
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1024
!UIPainter methodsFor:'help'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1025
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1026
helpTextFor:aComponent
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1027
    |sel|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1028
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1029
    (aComponent isKindOf:Button) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1030
	(sel := aComponent changeMessage) notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1031
	    "/ take the buttons change symbol as resource-key
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1032
	    ^ resources string:(sel asString)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1033
	]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1034
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1035
    ^ nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1036
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1037
    "Modified: 31.8.1995 / 20:49:58 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1038
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1039
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1040
!UIPainter methodsFor:'initialization'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1041
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1042
buttonPanelSpec
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1043
    "return a spec for the buttons in the panel;
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1044
     entries consists of selector and bitmap-filename.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1045
     nil selectors are taken as separators (see setupButtonPanel)"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1046
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1047
    ^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1048
        #(alignSelectionLeft         true 'b_alignL.xbm'  nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1049
        #(alignSelectionRight        true 'b_alignR.xbm'  nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1050
        #(alignSelectionLeftAndRight true 'b_alignLR.xbm' nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1051
        #(nil                        nil  nil nil)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1052
        #(alignSelectionTop          true 'b_alignT.xbm'  nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1053
        #(alignSelectionBottom       true 'b_alignB.xbm'  nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1054
        #(alignSelectionTopAndBottom true 'b_alignTB.xbm' nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1055
        #(nil                        nil  nil nil)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1056
        #(alignSelectionCenterHor    true 'b_alignCH.xbm' nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1057
        #(alignSelectionCenterVer    true 'b_alignCV.xbm' nil false)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1058
        #(nil                        nil  nil nil)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1059
        #(moveSelectionLeft          true 'b_moveLeft.xbm'  nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1060
        #(moveSelectionRight         true 'b_moveRight.xbm' nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1061
        #(moveSelectionUp            true 'b_moveUp.xbm'    nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1062
        #(moveSelectionDown          true 'b_moveDown.xbm'  nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1063
        #(moveSelectionLeft10        true 'b_moveLeft2.xbm'  nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1064
        #(moveSelectionRight10       true 'b_moveRight2.xbm' nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1065
        #(moveSelectionUp10          true 'b_moveUp2.xbm'    nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1066
        #(moveSelectionDown10        true 'b_moveDown2.xbm'  nil true)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1067
     )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1068
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1069
    "Modified: 5.9.1995 / 22:20:36 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1070
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1071
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1072
createCanvas 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1073
    |topView|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1074
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1075
    super initialize.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1076
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1077
    topView := StandardSystemView new.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1078
    topView label:'unnamed'.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1079
    topView extent:300@300.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1080
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1081
    workView := UIPainterView in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1082
    workView layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1083
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1084
    ^ workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1085
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1086
    "Builder new createCanvas open"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1087
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1088
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1089
createPaletteIn:aViewOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1090
    |topView v|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1091
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1092
    aViewOrNil isNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1093
        topView := StandardSystemView new.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1094
        topView label:'element palette'.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1095
        topView extent:200@400.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1096
    ] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1097
        topView := aViewOrNil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1098
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1099
    v := HVScrollableView for:SelectionInListView miniScrollerH:true in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1100
    v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1101
    elementMenu := v scrolledView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1102
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1103
    ^ elementMenu.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1104
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1105
    "(Builder new createPaletteIn:nil) topView open"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1106
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1107
    "Modified: 5.9.1995 / 23:52:57 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1108
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1109
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1110
initChannels
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1111
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1112
    bottomFractionHolder        := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1113
    bottomOffsetHolder          := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1114
    leftFractionHolder          := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1115
    leftOffsetHolder            := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1116
    rightFractionHolder         := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1117
    rightOffsetHolder           := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1118
    topFractionHolder           := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1119
    topOffsetHolder             := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1120
    leftAlignmentFractionHolder := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1121
    topAlignmentFractionHolder  := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1122
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1123
    fgChannel := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1124
    bgChannel := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1125
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1126
    aspectChannel := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1127
    changeChannel := nil asValue.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1128
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1129
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1130
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1131
initPullDownMenu
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1132
    menu labels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1133
                                    'file'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1134
                                    'edit'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1135
                                    'font'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1136
                                    'type'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1137
                                    'align'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1138
                                    'dimension'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1139
                                    'form'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1140
                                    'special'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1141
                                    'code'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1142
                                    'debug'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1143
                                    'test'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1144
                                 )).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1145
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1146
    menu selectors:#(#file
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1147
                     #edit
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1148
                     #font
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1149
                     #type
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1150
                     #align 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1151
                     #dimension 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1152
                     #form
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1153
                     #special
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1154
                     #code
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1155
                     #debugging
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1156
                     #test
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1157
                    ).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1158
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1159
    menu at:#file 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1160
            putLabels:(resources  array:
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1161
                      #('new'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1162
                        'from class' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1163
                        'pick a view ' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1164
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1165
                        'save' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1166
                        'save as ...' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1167
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1168
                        'compile' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1169
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1170
                        'source' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1171
                        'windowSpec' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1172
                        'inspect me' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1173
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1174
                        'print'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1175
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1176
                        'quit'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1177
                       ))
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1178
            selectors:#(doNew 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1179
                        doFromClass
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1180
                        doPickAView
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1181
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1182
                        doSave 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1183
                        doSaveAs 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1184
                        nil 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1185
                        doCompile 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1186
                        nil 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1187
                        doSource 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1188
                        doWindowSpec 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1189
                        inspect
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1190
                        nil 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1191
                        doPrint
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1192
                        nil 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1193
                        doFinish
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1194
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1195
             receiver:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1196
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1197
    menu at:#edit 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1198
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1199
                        'undo' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1200
"/                        'copy' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1201
                        'cut'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1202
"/                        'paste'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1203
                       ))
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1204
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1205
                        undoAction
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1206
"/                        copySelection 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1207
                        deleteSelection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1208
"/                        pasteBuffer
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1209
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1210
             receiver:workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1211
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1212
    menu at:#font 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1213
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1214
                        'larger' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1215
                        'smaller'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1216
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1217
                        'normal'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1218
                        'bold'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1219
                        'italic'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1220
                        'bold italic'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1221
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1222
                        'font panel'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1223
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1224
            selectors:#(largerFont 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1225
                        smallerFont
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1226
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1227
                        normalFont
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1228
                        boldFont
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1229
                        italicFont
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1230
                        boldItalicFont
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1231
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1232
                        showFontPanel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1233
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1234
             receiver:workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1235
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1236
    menu at:#type 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1237
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1238
                        'basic widgets' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1239
                        'layout'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1240
                        'text'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1241
                        'interactors'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1242
                        'modal'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1243
                        'other'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1244
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1245
                        'all'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1246
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1247
            selectors:#(showBasicWidgets 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1248
                        showLayoutWidgets
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1249
                        showTextWidgets
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1250
                        showInteractorWidgets
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1251
                        showModalWidgets
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1252
                        showOtherWidgets
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1253
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1254
                        showAllWidgets
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1255
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1256
             receiver:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1257
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1258
    menu at:#align 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1259
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1260
"/                        'raise' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1261
"/                        'lower'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1262
"/                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1263
                        'align left' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1264
                        'align right'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1265
                        'align left & right'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1266
                        'align top' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1267
                        'align bottom'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1268
                        'align centered vertical'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1269
                        'align centered horizontal'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1270
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1271
                        'spread horizontal'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1272
                        'spread vertical'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1273
                        'center horizontal in frame'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1274
                        'center vertical in frame'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1275
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1276
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1277
"/                        raiseSelection 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1278
"/                        lowerSelection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1279
"/                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1280
                        alignSelectionLeft
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1281
                        alignSelectionRight
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1282
                        alignSelectionLeftAndRight
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1283
                        alignSelectionTop
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1284
                        alignSelectionBottom
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1285
                        alignSelectionCenterHor
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1286
                        alignSelectionCenterVer
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1287
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1288
                        spreadSelectionHor
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1289
                        spreadSelectionVer
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1290
                        centerSelectionHor
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1291
                        centerSelectionVer
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1292
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1293
             receiver:workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1294
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1295
    menu at:#dimension 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1296
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1297
                        'default extent' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1298
                        'default width' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1299
                        'default height'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1300
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1301
                        'copy extent' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1302
                        'paste extent'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1303
                        'paste width'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1304
                        'paste height'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1305
                        '-'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1306
                        'insert'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1307
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1308
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1309
                        setToDefaultExtent
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1310
                        setToDefaultWidth
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1311
                        setToDefaultHeight
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1312
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1313
                        copyExtent
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1314
                        pasteExtent
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1315
                        pasteWidth
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1316
                        pasteHeight
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1317
                        nil
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1318
                        insertSelection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1319
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1320
             receiver:workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1321
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1322
    menu at:#form 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1323
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1324
                        'align to grid'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1325
                        'show grid' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1326
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1327
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1328
                        alignOn
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1329
                        toggleGrid
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1330
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1331
             receiver:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1332
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1333
    menu at:#special 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1334
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1335
                        'group radioButtons' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1336
                        'group enterFields' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1337
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1338
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1339
                        groupRadioButtons 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1340
                        groupEnterFields
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1341
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1342
             receiver:workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1343
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1344
    menu at:#code 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1345
            putLabels:(resources  array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1346
                        'class' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1347
                        'method' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1348
"/                        'variables' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1349
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1350
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1351
                        changeClass
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1352
                        changeMethod
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1353
"/                        changeVariables
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1354
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1355
             receiver:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1356
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1357
    menu at:#debugging 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1358
            putLabels:(resources array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1359
                        'inspect'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1360
                        'inspect attributes'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1361
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1362
            selectors:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1363
                        inspectSelection
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1364
                        inspectAttributes
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1365
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1366
             receiver:workView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1367
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1368
    menu at:#test 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1369
            putLabels:(resources array:#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1370
                        'test on' 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1371
                       ) )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1372
            selectors:#(toggleTest 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1373
                       )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1374
             receiver:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1375
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1376
    self setUndoLabel:nil.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1377
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1378
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1379
openInterface 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1380
    |list panel topPane botPanel v 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1381
     leftPanel middlePanel rightPanel buttonPanel propSelector|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1382
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1383
    super initialize.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1384
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1385
    self initChannels.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1386
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1387
    whichProperty := SelectionInList new.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1388
    whichProperty list:#('dimension' 'colors' 'model' 'misc' 'attribute list').
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1389
    whichProperty onChangeSend:#propertySelectionChanged to:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1390
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1391
    workView :=self createCanvas.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1392
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1393
    topView := StandardSystemView new.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1394
    topView label:'Interface Builder'.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1395
    topView icon:(Image fromFile:'bitmaps/Builder.xbm' resolution:100).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1396
    topView extent:(600 @ 400).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1397
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1398
    menu := PullDownMenu in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1399
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1400
    buttonPanel := self setupButtonPanelIn:topView below:menu.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1401
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1402
    leftPanel := View in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1403
    leftPanel origin:(0.0 @ 0.0) corner:0.3@1.0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1404
    leftPanel topInset:menu height + buttonPanel height + View viewSpacing.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1405
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1406
    middlePanel := View in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1407
    middlePanel origin:(0.3 @ 0.0) corner:0.6@1.0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1408
    middlePanel topInset:menu height + buttonPanel height + View viewSpacing.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1409
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1410
    rightPanel := View in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1411
    rightPanel origin:(0.6 @ 0.0) corner:1.0@1.0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1412
    rightPanel topInset:menu height + buttonPanel height + View viewSpacing.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1413
46
8301d6b9e67c *** empty log message ***
ca
parents: 42
diff changeset
  1414
    v := HVScrollableView for:UIPainterTreeView miniScrollerH:true in:middlePanel.
42
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1415
    v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1416
    treeView := v scrolledView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1417
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1418
    propSelector := PopUpList label:'properties' in:rightPanel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1419
    propSelector origin:(0.0 @ 0.0) corner:1.0@(propSelector preferredExtent y).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1420
    propSelector horizontalInset:View viewSpacing.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1421
    propSelector model:whichProperty.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1422
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1423
    propertyFrame := View in:rightPanel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1424
    propertyFrame origin:(0.0 @ 0.0) corner:1.0@1.0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1425
    propertyFrame topInset:propSelector height + View viewSpacing.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1426
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1427
"/    panel := VariableVerticalPanel in:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1428
"/    panel origin:(0.0 @ 0.0) corner:0.5@1.0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1429
"/    panel topInset:menu height + buttonPanel height + View viewSpacing.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1430
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1431
"/    topPane := View in:panel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1432
"/    topPane origin:(0.0 @ 0.0) corner:(1.0 @ 0.5).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1433
"/    topPane borderWidth:0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1434
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1435
"/    botPanel := VariableHorizontalPanel in:panel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1436
"/    botPanel origin:(0.0 @ 0.5) corner:(1.0 @ 1.0).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1437
"/    botPanel borderWidth:0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1438
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1439
    elementMenu := self createPaletteIn:leftPanel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1440
46
8301d6b9e67c *** empty log message ***
ca
parents: 42
diff changeset
  1441
"/    v := ScrollableView for:UIPainterTreeView in:botPanel.
42
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1442
"/    v origin:(0.0 @ 0.0) corner:(0.5 @ 1.0).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1443
"/    treeView := v scrolledView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1444
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1445
"/    v := ScrollableView for:SelectionInListView in:botPanel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1446
"/    v origin:(0.5 @ 0.0) corner:(1.0 @ 1.0).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1447
"/    outletView := v scrolledView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1448
"/    outletView action:[:lineNr | self selectOutlet:lineNr].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1449
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1450
"/    v := ScrollableView for:TextCollector in:topPane.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1451
"/    v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1452
"/    infoView := v scrolledView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1453
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1454
    treeView builderView:workView.  "link workview with treeview"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1455
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1456
    workView addDependent:treeView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1457
    workView addDependent:self.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1458
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1459
    self initPullDownMenu.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1460
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1461
    elementMenu action:[:selection |
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1462
        workView testMode ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1463
            elementMenu deselect
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1464
        ] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1465
            selection notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1466
                workView createWidgetWithClass:
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1467
                        (Smalltalk at:(elementMenu selectionValue asSymbol))
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1468
            ]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1469
        ]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1470
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1471
    topView application:self.   
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1472
    builder window:topView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1473
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1474
    topView beMaster.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1475
    workView topView beSlave.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1476
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1477
    "/ can be created as embedded or side-menu
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1478
    elementMenu topView ~~ topView ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1479
        elementMenu topView beSlave.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1480
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1481
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1482
    topView open.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1483
    workView topView openInGroup:(topView windowGroup).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1484
    elementMenu topView ~~ topView ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1485
        elementMenu topView openInGroup:(topView windowGroup).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1486
    ]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1487
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1488
    "
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1489
     Builder open
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1490
    "
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1491
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1492
    "Modified: 6.9.1995 / 00:26:59 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1493
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1494
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1495
openNewWindowCanvas
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1496
    self open.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1497
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1498
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1499
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1500
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1501
openOnClass:aClass andSelector:aSelector
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1502
    "open up an interface builder, fetching a spec from someClass
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1503
     via some selector"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1504
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1505
    |specArray|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1506
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1507
    specClass := aClass.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1508
    specSelector :=  aSelector.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1509
    self openInterface.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1510
    workView className:aClass name.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1511
    workView methodName:aSelector.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1512
    workView setupFromSpec:(aClass perform:aSelector).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1513
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1514
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1515
openOnSpec:aSpecOrSpecArray
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1516
    "open up an interface builder, given some specArray"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1517
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1518
    |newBuilder|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1519
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1520
    newBuilder := self new.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1521
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1522
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1523
setupButtonPanelIn:aTopView below:aMenu
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1524
    "create the buttonPanel"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1525
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1526
    |spc mh buttonPanel|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1527
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1528
    spc := View viewSpacing // 2.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1529
    buttonPanel := HorizontalPanelView in:aTopView.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1530
    buttonPanel level:-1; borderWidth:0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1531
    buttonPanel horizontalLayout:#leftSpace.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1532
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1533
    self buttonPanelSpec do:[:entry |
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1534
	|sel toCanvas imgFile label b sep autoRepeat|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1535
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1536
	sel := entry at:1.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1537
	sel isNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1538
	    sep := View in:buttonPanel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1539
	    sep extent:20@1; borderWidth:0.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1540
	] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1541
	    toCanvas := entry at:2.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1542
	    imgFile := entry at:3.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1543
	    label := entry at:4.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1544
	    autoRepeat := entry at:5.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1545
	    b := Button in:buttonPanel.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1546
	    autoRepeat ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1547
		b autoRepeat:autoRepeat.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1548
		b controller beTriggerOnDown.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1549
	    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1550
	    imgFile notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1551
		b logo:(Image fromFile:imgFile).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1552
	    ] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1553
		b logo:label
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1554
	    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1555
	    toCanvas ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1556
		b model:workView 
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1557
	    ] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1558
		b model:self
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1559
	    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1560
	    b changeMessage:sel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1561
	]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1562
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1563
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1564
    mh := aMenu height.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1565
    buttonPanel origin:0.0 @ (mh + spc)
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1566
		corner:(1.0 @ (mh + spc + buttonPanel preferredExtent y)).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1567
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1568
    buttonPanel leftInset:spc; rightInset:spc.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1569
    ^ buttonPanel
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1570
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1571
    "Modified: 5.9.1995 / 22:23:13 / claus"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1572
! !
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1573
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1574
!UIPainter methodsFor:'misc'!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1575
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1576
listOfOutletsFor:aViewClass
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1577
    "return a list of outlets for a view-class"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1578
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1579
    |l1 l2 all rej|
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1580
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1581
    (aViewClass == Object) ifTrue:[^ nil].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1582
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1583
    l1 := self listOfOutletsFor:(aViewClass superclass).
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1584
    l2 := self listOfOutletsForClass:aViewClass.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1585
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1586
    l2 isNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1587
	all := l1
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1588
    ] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1589
	l1 isNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1590
	    all := l2
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1591
	] ifFalse:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1592
	    all := l1 , l2
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1593
	]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1594
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1595
    rej := self rejectOutletsForClass:aViewClass.
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1596
    rej notNil ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1597
	rej do:[:x |
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1598
	    all := all copyWithout:x
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1599
	]
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1600
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1601
    ^ all
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1602
!
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1603
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1604
listOfOutletsForClass:aViewClass
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1605
    "return a list of outlets for a view-class"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1606
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1607
    "could this be done automatically ?"
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1608
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1609
    (aViewClass == Label) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1610
	^ #('label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1611
	    'iconic-label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1612
	    'label layout'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1613
	    'fixed size'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1614
	    'foreground-color'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1615
	    'background-color'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1616
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1617
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1618
    (aViewClass == Button) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1619
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1620
	    'active foreground-color'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1621
	    'active background-color'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1622
	    'active level'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1623
	    'passive level'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1624
	    'press action'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1625
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1626
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1627
    (aViewClass == Toggle) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1628
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1629
	    'release action'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1630
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1631
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1632
    (aViewClass == CheckBox) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1633
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1634
	    'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1635
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1636
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1637
    (aViewClass == FramedBox) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1638
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1639
	    'label'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1640
	    'label position'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1641
	    'frame shown'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1642
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1643
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1644
    (aViewClass == VerticalPanelView) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1645
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1646
	    'horizontal layout'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1647
	    'vertical layout'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1648
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1649
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1650
    (aViewClass == HorizontalPanelView) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1651
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1652
	    'horizontal layout'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1653
	    'vertical layout'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1654
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1655
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1656
    (aViewClass == VariableVerticalPanel) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1657
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1658
	    'handle position'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1659
	    'style'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1660
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1661
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1662
    (aViewClass == ListView) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1663
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1664
	    'contents'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1665
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1666
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1667
    (aViewClass == SelectionInListView) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1668
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1669
	    'press action'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1670
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1671
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1672
    (aViewClass == EditField) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1673
	^#(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1674
	   'initialText'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1675
	   'field type'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1676
	   'field length'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1677
	  )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1678
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1679
    (aViewClass == View) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1680
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1681
	    'level'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1682
	    'view background-color'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1683
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1684
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1685
    (aViewClass == Scroller) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1686
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1687
	    'scroll action'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1688
	    'asynchronous'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1689
	    'synchronous'
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1690
	   )
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1691
    ].
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1692
    (aViewClass == ScrollBar) ifTrue:[
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1693
	^ #(
877a25e8f5aa intitial checkin
ca
parents:
diff changeset
  1694
	    'scroll action'
877a25e8f5aa intitial checkin