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