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