UISpecificationTool.st
author Claus Gittinger <cg@exept.de>
Mon, 10 Mar 2008 10:25:26 +0100
changeset 2322 14839acab637
parent 2316 32e98f335115
child 2335 10ccdd81d985
permissions -rw-r--r--
*** empty log message ***
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
2316
32e98f335115 Configure wether symbolic colors are allowed
Stefan Vogel <sv@exept.de>
parents: 2283
diff changeset
    79
#allowSymbolicColors
32e98f335115 Configure wether symbolic colors are allowed
Stefan Vogel <sv@exept.de>
parents: 2283
diff changeset
    80
'ColorMenu is allowed to return symbols as colors'
32e98f335115 Configure wether symbolic colors are allowed
Stefan Vogel <sv@exept.de>
parents: 2283
diff changeset
    81
1963
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    82
#autoScrollHorizontal
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    83
''
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
    84
2209
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
    85
#browseAction
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
    86
'Browse/Create the Action method.'
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
    87
2237
c1d95982e1c3 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2211
diff changeset
    88
#browseAspectMethod
c1d95982e1c3 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2211
diff changeset
    89
'Browse/Create the Aspect method.'
c1d95982e1c3 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2211
diff changeset
    90
2283
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
    91
#editListSpec
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
    92
'Edit the contents of the list (inline)'
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
    93
2239
2f8dda52674e aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2237
diff changeset
    94
#formatString
2f8dda52674e aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2237
diff changeset
    95
''
2f8dda52674e aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2237
diff changeset
    96
2316
32e98f335115 Configure wether symbolic colors are allowed
Stefan Vogel <sv@exept.de>
parents: 2283
diff changeset
    97
#labelsAreColored
32e98f335115 Configure wether symbolic colors are allowed
Stefan Vogel <sv@exept.de>
parents: 2283
diff changeset
    98
'Show color in ColorMenuLabels'
32e98f335115 Configure wether symbolic colors are allowed
Stefan Vogel <sv@exept.de>
parents: 2283
diff changeset
    99
2239
2f8dda52674e aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2237
diff changeset
   100
#textModel
2f8dda52674e aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2237
diff changeset
   101
''
2f8dda52674e aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2237
diff changeset
   102
1963
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
   103
)
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
   104
! !
a0c51ed97fc3 autoScrollHoriz is now configurable
Claus Gittinger <cg@exept.de>
parents: 1956
diff changeset
   105
2209
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
   106
!UISpecificationTool class methodsFor:'image specs'!
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
   107
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
   108
browseActionImage
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
   109
    ^ UIPainter browseActionImage
2283
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
   110
!
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
   111
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
   112
editTableIcon
b14becb50aac EditListIcon
Stefan Vogel <sv@exept.de>
parents: 2245
diff changeset
   113
    ^ UIPainter editTableIcon
2209
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
   114
! !
c7ac53d62021 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2160
diff changeset
   115
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   116
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   117
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   118
windowSpec
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   119
    "This resource specification was automatically generated
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   120
     by the UIPainter of ST/X."
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   121
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   122
    "Do not manually edit this!! If it is corrupted,
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   123
     the UIPainter may not be able to read the specification."
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   124
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   125
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   126
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   127
     UISpecificationTool new openInterface:#windowSpec
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   128
     UISpecificationTool open
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   129
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   130
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   131
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   132
1307
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
     #(#FullSpec
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   135
        #name: #windowSpec
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   136
        #window: 
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   137
       #(#WindowSpec
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   138
          #label: 'unnamed canvas'
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   139
          #name: 'unnamed canvas'
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   140
          #bounds: #(#Rectangle 12 22 312 322)
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   141
        )
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   142
        #component: 
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   143
       #(#SpecCollection
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   144
          #collection: #(
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   145
           #(#ArbitraryComponentSpec
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   146
              #name: 'BuildInView'
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   147
              #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
   148
              #hasVerticalScrollBar: true
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   149
              #miniScrollerVertical: true
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   150
              #autoHideScrollBars: true
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   151
              #hasBorder: false
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   152
              #component: #buildInView
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   153
            )
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   154
           )
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   155
         
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   156
        )
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   157
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   158
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   159
1781
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   160
!UISpecificationTool class methodsFor:'resources'!
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   161
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   162
classResources
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   163
    "my translations are found in the UIPainter classes resources"
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   164
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   165
    ^ UIPainter classResources 
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   166
! !
d67090b1ad57 resources shared with UIPainter class
Claus Gittinger <cg@exept.de>
parents: 1677
diff changeset
   167
1331
fa88e14d026d help texts
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
   168
!UISpecificationTool methodsFor:'accessing-channels'!
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   169
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   170
modifiedHolder:aValueHolder
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   171
    "set the value holder set to true in case of modifying attributes
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   172
    "
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   173
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   174
    modifiedHolder removeDependent:self.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   175
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   176
    (modifiedHolder := aValueHolder) notNil ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   177
        modifiedHolder addDependent:self.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   178
    ].
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   179
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   180
! !
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   181
1331
fa88e14d026d help texts
Claus Gittinger <cg@exept.de>
parents: 1328
diff changeset
   182
!UISpecificationTool methodsFor:'accessing-specification'!
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   183
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   184
listOfAspects
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   185
    ^ masterApplication listOfAspects
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   186
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   187
    "Created: / 12-01-2008 / 19:24:39 / cg"
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   188
!
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   189
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   190
listOfCallbacks
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   191
    ^ masterApplication listOfCallbacks
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   192
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   193
    "Created: / 12-01-2008 / 19:25:05 / cg"
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   194
!
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   195
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   196
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   197
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   198
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   199
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   200
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   201
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   202
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   203
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   204
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   205
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   206
    "
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   207
    aSpec notNil ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   208
        "/ same type of spec - simply change the spec;  no need to setup everything
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   209
        specification class == aSpec class ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   210
            specification := aSpec.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   211
            specChannel value:specification.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   212
          ^ self
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   213
        ]
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   214
    ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   215
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   216
    "/ release resources
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   217
    specChannel release.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   218
    aspects     release.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   219
    selection := listOfSpecViews := nil.
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   220
    buildInView destroyAllClientViews.
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   221
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   222
    (specification := aSpec) isNil ifTrue:[
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   223
        aspects := specChannel := nil.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   224
      ^ self
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   225
    ].
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   226
    
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   227
    "/ some tricky specs need the builder during the addBindings phase.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   228
    "/ This is passed down in a special UIBindingsDictionary
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   229
    "/ (remain backward compatible)
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   230
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   231
    aspects := UISpecification newBindingsDictionary.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   232
    aspects builder:builder.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   233
    aspects at:#modifiedChannel put:modifiedHolder.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   234
    aspects at:#acceptChannel   put:self acceptChannel.
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   235
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   236
    aspects at:#listOfAspects put:[self listOfAspects].
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   237
    aspects at:#listOfCallbacks put:[self listOfCallbacks].
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   238
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   239
    specChannel := specification asValue.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   240
    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
   241
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   242
    "/ arrange for being notified, if any aspect changes
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   243
    aspects do:[:el| el addDependent:self ].
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   244
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   245
    "Modified: / 12-01-2008 / 19:28:47 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   246
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   247
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   248
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   249
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   250
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   251
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   252
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   253
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   254
2211
f7fac4c1afe9 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2209
diff changeset
   255
    canvas := self masterApplication canvas.
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   256
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   257
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   258
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   259
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   260
    "Modified: / 29.10.1997 / 18:29:17 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   261
!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   262
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   263
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   264
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   265
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   266
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   267
2211
f7fac4c1afe9 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2209
diff changeset
   268
    canvas := self masterApplication canvas.
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   269
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   270
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   271
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   272
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   273
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   274
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   275
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   276
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   277
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   278
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   279
acceptChannel
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   280
    ^ masterApplication acceptChannel
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   281
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   282
    "Modified: / 12-01-2008 / 11:28:38 / cg"
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   283
!
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   284
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   285
aspectFor:aKey
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   286
    "returns the aspect for a key or nil"
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   287
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   288
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   289
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   290
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   291
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   292
2245
fdc284aa0671 changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2239
diff changeset
   293
    "Modified: / 12-01-2008 / 11:28:52 / cg"
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   294
!
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   295
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   296
buildInView
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   297
    ^ buildInView
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   298
!
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   299
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   300
specificationFor:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   301
    "this is called if our current specification contains 
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   302
     subspecifications or subcanvases.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   303
     Get the subspecification from the current specification"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   304
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   305
    specification notNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   306
        ^ specification class perform:aKey ifNotUnderstood:nil
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   307
    ].
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   308
    ^ nil
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   309
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   310
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   311
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   312
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   313
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   314
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   315
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   316
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   317
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   318
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   319
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   320
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   321
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   322
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   323
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   324
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   325
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   326
    someone ~~ modifiedHolder ifTrue:[
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   327
        "/ any in the spec has changed.
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   328
        "/ update my modified holders value
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   329
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1069
diff changeset
   330
        modifiedHolder value:true
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   331
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   332
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   333
    "Modified: / 16.7.1998 / 19:25:59 / cg"
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   334
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   335
1956
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   336
!UISpecificationTool methodsFor:'help'!
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   337
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   338
basicHelpTextForKey:aKey
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   339
    "activeHelp interface: return some help text for a key.
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   340
     Redefined to ask the current components Spec first."
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   341
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   342
    |helpText|
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   343
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   344
    "/ first, ask the spec
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   345
    helpText := (specification helpSpec) at:aKey ifAbsent:nil.
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   346
"/ DEBUG:    helpText isNil ifTrue:[^ 'No help for key: ', aKey ].
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   347
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   348
    helpText isNil ifTrue:[
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   349
        helpText := super basicHelpTextForKey:aKey.
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   350
    ].
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   351
"/ DEBUG:    ^ aKey , ': ' , helpText
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   352
    ^ helpText
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   353
! !
65cc475656d3 help texts
Claus Gittinger <cg@exept.de>
parents: 1941
diff changeset
   354
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   355
!UISpecificationTool methodsFor:'initialization'!
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   356
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   357
initialize
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   358
    super initialize.
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   359
    buildInView := BuildInView new.
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   360
    buildInView keepViews:true.
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   361
! !
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   362
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   363
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   364
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   365
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   366
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   367
    "
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   368
    |slices index spec window|
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   369
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   370
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   371
        slices := specification class slices.
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   372
        index  := slices findFirst:[:aSlice| aSlice first = something ].
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   373
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   374
        index ~~ 0 ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   375
            spec := specification class perform:((slices at:index) last)
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   376
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   377
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   378
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   379
    spec ~= selection ifTrue:[
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   380
        (selection := spec) notNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   381
            listOfSpecViews isNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   382
                listOfSpecViews := Array new:(slices size).
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   383
            ] ifFalse:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   384
                window := listOfSpecViews at:index
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   385
            ].
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   386
            window isNil ifTrue:[
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   387
                builder buildFromSpec:spec in:(window := SimpleView new).
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   388
                listOfSpecViews at:index put:window.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   389
            ].
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   390
        ].
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   391
        buildInView scrolledView:window.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   392
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   393
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   394
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   395
!UISpecificationTool::BuildInView methodsFor:'accessing'!
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   396
2160
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   397
mapped
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   398
    super mapped.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   399
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   400
    scrolledView notNil ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   401
        scrolledView beVisible.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   402
        scrolledView raise.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   403
    ].
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   404
!
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   405
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   406
scrolledView:aView
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   407
    "set the view to be scrolled"
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   408
    |wrapper y|
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   409
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   410
    scrolledView == aView ifTrue:[^ self].
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   411
2160
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   412
    scrolledView notNil ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   413
        scrolledView unmap.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   414
    ].
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   415
    (scrolledView := aView) notNil ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   416
        scrolledView superView ~~ frame ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   417
            scrolledView borderWidth:0; level:0.
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   418
2160
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   419
            frame addSubView:scrolledView.
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   420
2160
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   421
            scrolledView subViews size == 1 ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   422
                wrapper := scrolledView subViews first.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   423
                wrapper isScrollWrapper ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   424
                    "/ give it a full-relative size, and let it do
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   425
                    "/ the scrolling itself.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   426
                    y := 1.0
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   427
                ]
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   428
            ].
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   429
            y isNil ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   430
                y := scrolledView preferredExtent y
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   431
            ].
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   432
            scrolledView origin:0@0 corner:1.0 @ y.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   433
            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
   434
        ].
2160
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   435
    ].    
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   436
    shown ifTrue:[
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   437
        scrolledView beVisible.
8f6a8896f10d focus handling
ca
parents: 1963
diff changeset
   438
        scrolledView raise.
1307
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   439
        self sizeChanged:nil.
52898ecde37d tabing: use map/unmap insteat of raise
ca
parents: 1296
diff changeset
   440
    ].
1573
bf9c5ca8e48a reuse functionality of changed ViewScroller
ca
parents: 1505
diff changeset
   441
    model value:scrolledView.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   442
! !
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   443
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   444
!UISpecificationTool::BuildInView methodsFor:'initialization'!
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   445
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   446
level:aLevel
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   447
    super level:0
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   448
!
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   449
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   450
realize
1315
8722cfe3cce1 checkin from browser
ca
parents: 1313
diff changeset
   451
1313
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   452
    super realize.
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   453
    superView notNil ifTrue:[superView level:0].
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   454
! !
95ef9b917d82 no level for scrollable windowSpec ..
ca
parents: 1307
diff changeset
   455
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   456
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   457
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   458
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   459
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   460
! !