UISpecificationTool.st
author Stefan Vogel <sv@exept.de>
Mon, 06 Mar 2006 11:19:00 +0100
changeset 2030 bef3cfda7e6a
parent 1963 a0c51ed97fc3
child 2160 8f6a8896f10d
permissions -rw-r--r--
Moved ColorMenu and FontMenu to libwidg2
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
1386
5b562fd44e68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1364
diff changeset
    16
"{ Package: 'stx:libtool2' }"
5b562fd44e68 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1364
diff changeset
    17
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    18
ApplicationModel subclass:#UISpecificationTool
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
    19
	instanceVariableNames:'modifiedHolder aspects specification selection specChannel
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    20
		buildInView listOfSpecViews'
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    21
	classVariableNames:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    22
	poolDictionaries:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    23
	category:'Interface-UIPainter'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    24
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    25
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    26
ViewScroller subclass:#BuildInView
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
    27
	instanceVariableNames:''
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    28
	classVariableNames:''
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    29
	poolDictionaries:''
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    30
	privateIn:UISpecificationTool
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    31
!
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    32
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    33
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    34
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    35
copyright
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    36
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    37
 COPYRIGHT (c) 1995 by eXept Software AG
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    38
              All Rights Reserved
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    39
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    40
 This software is furnished under a license and may be used
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    41
 only in accordance with the terms of that license and with the
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    42
 inclusion of the above copyright notice.   This software may not
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    43
 be provided or otherwise made available to, or used by, any
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    44
 other person.  No title to or ownership of the software is
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    45
 hereby transferred.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    46
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    47
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    48
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    49
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    50
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    51
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    52
documentation
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    53
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    54
    used by the UIPainter to manipulate the specifications of the selected component
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    55
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    56
    [author:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    57
        Claus Atzkern
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    58
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    59
    [see also:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    60
        UIPainter
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    61
        UILayoutTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    62
        UIHelpTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    63
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    64
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    65
1963
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    66
!UISpecificationTool class methodsFor:'help specs'!
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    67
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    68
helpSpec
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    69
    "This resource specification was automatically generated
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    70
     by the UIHelpTool of ST/X."
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    71
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    72
    "Do not manually edit this!! If it is corrupted,
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    73
     the UIHelpTool may not be able to read the specification."
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    74
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    75
    "
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    76
     UIHelpTool openOnClass:UISpecificationTool    
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    77
    "
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    78
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    79
    <resource: #help>
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    80
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    81
    ^ super helpSpec addPairsFrom:#(
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    82
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    83
#autoScrollHorizontal
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    84
''
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    85
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    86
)
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    87
! !
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    88
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    89
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    90
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    91
windowSpec
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    92
    "This resource specification was automatically generated
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    93
     by the UIPainter of ST/X."
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    94
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    95
    "Do not manually edit this!! If it is corrupted,
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
    96
     the UIPainter may not be able to read the specification."
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    97
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    98
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    99
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   100
     UISpecificationTool new openInterface:#windowSpec
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   101
     UISpecificationTool open
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   102
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   103
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   104
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   105
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   106
    ^ 
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   107
     #(#FullSpec
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   108
        #name: #windowSpec
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   109
        #window: 
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   110
       #(#WindowSpec
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   111
          #label: 'unnamed canvas'
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   112
          #name: 'unnamed canvas'
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   113
          #bounds: #(#Rectangle 12 22 312 322)
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   114
        )
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   115
        #component: 
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   116
       #(#SpecCollection
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   117
          #collection: #(
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   118
           #(#ArbitraryComponentSpec
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   119
              #name: 'BuildInView'
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   120
              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   121
              #hasVerticalScrollBar: true
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   122
              #miniScrollerVertical: true
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   123
              #autoHideScrollBars: true
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   124
              #hasBorder: false
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   125
              #component: #buildInView
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   126
            )
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   127
           )
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   128
         
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   129
        )
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   130
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   131
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   132
1781
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   133
!UISpecificationTool class methodsFor:'resources'!
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   134
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   135
classResources
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   136
    "my translations are found in the UIPainter classes resources"
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   137
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   138
    ^ UIPainter classResources 
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   139
! !
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   140
1331
fa88e14d026d help texts
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
   141
!UISpecificationTool methodsFor:'accessing-channels'!
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   142
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   143
modifiedHolder:aValueHolder
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   144
    "set the value holder set to true in case of modifying attributes
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   145
    "
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   146
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   147
    modifiedHolder removeDependent:self.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   148
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   149
    (modifiedHolder := aValueHolder) notNil ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   150
        modifiedHolder addDependent:self.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   151
    ].
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   152
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   153
! !
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   154
1331
fa88e14d026d help texts
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
   155
!UISpecificationTool methodsFor:'accessing-specification'!
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   156
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   157
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   158
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   159
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   160
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   161
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   162
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   163
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   164
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   165
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   166
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   167
    "
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   168
    aSpec notNil ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   169
        "/ same type of spec - simply change the spec;  no need to setup everything
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   170
        specification class == aSpec class ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   171
            specification := aSpec.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   172
            specChannel value:specification.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   173
          ^ self
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   174
        ]
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   175
    ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   176
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   177
    "/ release resources
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   178
    specChannel release.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   179
    aspects     release.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   180
    selection := listOfSpecViews := nil.
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   181
    buildInView destroyAllClientViews.
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   182
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   183
    (specification := aSpec) isNil ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   184
        aspects := specChannel := nil.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   185
      ^ self
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   186
    ].
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   187
    
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   188
    "/ some tricky specs need the builder during the addBindings phase.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   189
    "/ This is passed down in a special UIBindingsDictionary
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   190
    "/ (remain backward compatible)
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   191
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   192
    aspects := UISpecification newBindingsDictionary.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   193
    aspects builder:builder.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   194
    aspects at:#modifiedChannel put:modifiedHolder.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   195
    aspects at:#acceptChannel   put:self acceptChannel.
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   196
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   197
    specChannel := specification asValue.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   198
    specification class addBindingsTo:aspects for:specification channel:specChannel.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   199
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   200
    "/ arrange for being notified, if any aspect changes
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   201
    aspects do:[:el| el addDependent:self ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   202
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   203
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   204
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   205
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   206
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   207
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   208
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   209
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   210
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   211
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   212
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   213
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   214
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   215
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   216
    "Modified: / 29.10.1997 / 18:29:17 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   217
!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   218
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   219
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   220
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   221
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   222
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   223
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   224
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   225
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   226
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   227
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   228
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   229
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   230
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   231
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   232
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   233
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   234
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   235
acceptChannel
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   236
    "return the value of the instance variable 'acceptChannel' (automatically generated)"
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   237
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   238
    ^ masterApplication acceptChannel
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   239
!
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   240
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   241
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   242
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   243
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   244
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   245
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   246
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   247
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   248
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   249
!
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   250
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   251
buildInView
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   252
    ^ buildInView
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   253
!
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   254
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   255
specificationFor:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   256
    "this is called if our current specification contains 
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   257
     subspecifications or subcanvases.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   258
     Get the subspecification from the current specification"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   259
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   260
    specification notNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   261
        ^ specification class perform:aKey ifNotUnderstood:nil
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   262
    ].
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   263
    ^ nil
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   264
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   265
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   266
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   267
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   268
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   269
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   270
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   271
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   272
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   273
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   274
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   275
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   276
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   277
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   278
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   279
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   280
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   281
    someone ~~ modifiedHolder ifTrue:[
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   282
        "/ any in the spec has changed.
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   283
        "/ update my modified holders value
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   284
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
   285
        modifiedHolder value:true
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   286
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   287
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   288
    "Modified: / 16.7.1998 / 19:25:59 / cg"
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   289
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   290
1956
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   291
!UISpecificationTool methodsFor:'help'!
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   292
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   293
basicHelpTextForKey:aKey
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   294
    "activeHelp interface: return some help text for a key.
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   295
     Redefined to ask the current components Spec first."
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   296
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   297
    |helpText|
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   298
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   299
    "/ first, ask the spec
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   300
    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   301
"/ DEBUG:    helpText isNil ifTrue:[^ 'No help for key: ', aKey ].
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   302
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   303
    helpText isNil ifTrue:[
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   304
        helpText := super basicHelpTextForKey:aKey.
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   305
    ].
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   306
"/ DEBUG:    ^ aKey , ': ' , helpText
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   307
    ^ helpText
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   308
! !
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   309
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   310
!UISpecificationTool methodsFor:'initialization'!
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   311
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   312
initialize
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   313
    super initialize.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   314
    buildInView := BuildInView new.
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   315
    buildInView keepViews:true.
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   316
! !
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   317
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   318
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   319
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   320
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   321
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   322
    "
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   323
    |slices index spec window|
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   324
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   325
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   326
        slices := specification class slices.
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   327
        index  := slices findFirst:[:aSlice| aSlice first = something ].
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   328
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   329
        index ~~ 0 ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   330
            spec := specification class perform:((slices at:index) last)
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   331
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   332
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   333
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   334
    spec ~= selection ifTrue:[
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   335
        (selection := spec) notNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   336
            listOfSpecViews isNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   337
                listOfSpecViews := Array new:(slices size).
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   338
            ] ifFalse:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   339
                window := listOfSpecViews at:index
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   340
            ].
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   341
            window isNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   342
                builder buildFromSpec:spec in:(window := SimpleView new).
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   343
                listOfSpecViews at:index put:window.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   344
            ].
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   345
        ].
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   346
        buildInView scrolledView:window.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   347
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   348
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   349
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   350
!UISpecificationTool::BuildInView methodsFor:'accessing'!
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   351
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   352
scrolledView:aView
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   353
    "set the view to be scrolled"
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   354
    |wrapper y|
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   355
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   356
    scrolledView == aView ifTrue:[^ self].
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   357
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   358
    scrolledView notNil ifTrue:[scrolledView beInvisible].
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   359
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   360
    scrolledView := aView.
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   361
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   362
    (scrolledView notNil and:[scrolledView superView ~~ frame]) ifTrue:[
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   363
        scrolledView borderWidth:0; level:0.
845
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   364
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   365
        frame addSubView:scrolledView.
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   366
1351
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   367
        scrolledView subViews size == 1 ifTrue:[
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   368
            wrapper := scrolledView subViews first.
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   369
            wrapper isScrollWrapper ifTrue:[
1351
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   370
                "/ give it a full-relative size, and let it do
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   371
                "/ the scrolling itself.
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   372
                y := 1.0
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   373
            ]
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   374
        ].
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   375
        y isNil ifTrue:[
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   376
            y := scrolledView preferredExtent y
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   377
        ].
811686e8acab no additional scrollBar, if embedded view is itself a scrollable
Claus Gittinger <cg@exept.de>
parents: 1344
diff changeset
   378
        scrolledView origin:0@0 corner:1.0 @ y.
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   379
        scrolledView allViewBackground:(self viewBackground).
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   380
    ].
845
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   381
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   382
    realized ifTrue:[
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   383
        scrolledView ifNotNil:[scrolledView beVisible].
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   384
        self sizeChanged:nil.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   385
    ].
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   386
    model value:scrolledView.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   387
! !
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   388
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   389
!UISpecificationTool::BuildInView methodsFor:'initialization'!
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   390
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   391
level:aLevel
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   392
    super level:0
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   393
!
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   394
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   395
realize
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   396
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   397
    super realize.
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   398
    superView notNil ifTrue:[superView level:0].
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   399
! !
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   400
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   401
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   402
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   403
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   404
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   405
! !