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