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