UISpecificationTool.st
author Claus Gittinger <cg@exept.de>
Mon, 28 Jul 1997 16:05:49 +0200
changeset 263 25f080e1217f
parent 172 10e8e0510baa
child 294 65cb680c74e4
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     1
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1995 by eXept Software AG
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     3
              All Rights Reserved
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     4
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    11
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    12
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    13
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    14
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    15
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    16
ApplicationModel subclass:#UISpecificationTool
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    17
	instanceVariableNames:'modifiedHolder aspects specification selection specChannel'
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    18
	classVariableNames:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    19
	poolDictionaries:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    20
	category:'Interface-UIPainter'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    21
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    22
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    23
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    24
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    25
copyright
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    26
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    27
 COPYRIGHT (c) 1995 by eXept Software AG
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    28
              All Rights Reserved
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    29
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    30
 This software is furnished under a license and may be used
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    35
 hereby transferred.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    36
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    37
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    38
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    39
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    40
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    41
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    42
documentation
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    43
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    44
    used by the UIPainter to manipulate the specifications of the selected component
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    45
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    46
    [author:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    47
        Claus Atzkern
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    48
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    49
    [see also:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    50
        UIPainter
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    51
        UILayoutTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    52
        UIHelpTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    53
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    54
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    55
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    56
!UISpecificationTool class methodsFor:'help specs'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    57
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    58
helpSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    59
    "return a dictionary filled with helpKey -> helptext associations.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    60
     These are used by the activeHelp tool.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    61
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    62
  ^ super helpSpec addPairsFrom:#(
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    63
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    64
#maxChars
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    65
'set the maximum number of
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    66
characters that are allowed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    67
in the editfield.'
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    68
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    69
#id
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    70
'enter the name of the field here. 
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    71
This ID can be used by the application 
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    72
to access components, using #componentAt:<key>'
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    73
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    74
)
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    75
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    76
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    77
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    78
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    79
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    80
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    81
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    82
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    83
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    84
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    85
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    86
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    87
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    88
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    89
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    90
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    91
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    92
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    93
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    94
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    95
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    96
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    97
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    98
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    99
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   100
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   101
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   102
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   103
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   104
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   105
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   106
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   107
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   108
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   109
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   110
                )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   111
              )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   112
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   113
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   114
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   115
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   116
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   117
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   118
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   119
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   120
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   121
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   122
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   123
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   124
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   125
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   126
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   127
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   128
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   129
    aSpec isNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   130
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   131
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   132
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   133
    ] ifFalse:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   134
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   135
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   136
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   137
        ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   138
        specification  := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   139
        aspects        := IdentityDictionary new.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   140
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   141
        specification class addBindingsTo:aspects for:specification channel:specChannel.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   142
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   143
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   144
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   145
    selection notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   146
        (builder componentAt:#Frame) destroySubViews.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   147
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   148
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   149
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   150
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   151
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   152
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   153
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   154
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   155
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   156
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   157
        modifiedHolder removeDependent:self. 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   158
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   159
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   160
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   161
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   162
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   163
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   164
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   165
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   166
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   167
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   168
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   169
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   170
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   171
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   172
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   173
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   174
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   175
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   176
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   177
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   178
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   179
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   180
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   181
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   182
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   183
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   184
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   185
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   186
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   187
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   188
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   189
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   190
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   191
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   192
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   193
    someone ~~ modifiedHolder ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   194
        modifiedHolder value ~~ true ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   195
            modifiedHolder value:true
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   196
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   197
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   198
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   199
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   200
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   201
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   202
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   203
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   204
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   205
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   206
    "
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   207
    |slices idx spec frame|
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   208
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   209
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   210
        slices := specification class slices.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   211
        idx:= slices findFirst:[:aSlice| aSlice first = something ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   212
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   213
        idx ~~ 0 ifTrue:[
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   214
            spec := specification class perform:((slices at:idx) last).
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   215
        ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   216
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   217
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   218
    spec ~= selection ifTrue:[
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   219
        frame := builder componentAt:#Frame.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   220
        frame destroySubViews.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   221
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   222
        spec notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   223
            builder buildFromSpec:spec in:frame.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   224
            frame allViewBackground:(frame viewBackground).
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   225
            frame realizeAllSubViews.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   226
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   227
    ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   228
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   229
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   230
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   231
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   232
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   233
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   234
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   235
! !