UISpecificationTool.st
author Claus Gittinger <cg@exept.de>
Sun, 01 Feb 1998 16:16:03 +0100
changeset 542 11be1353d34c
parent 540 cf67668c680c
child 580 77cf5b8dcffc
permissions -rw-r--r--
author in doc method
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     1
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     2
 COPYRIGHT (c) 1995 by eXept Software AG
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     3
              All Rights Reserved
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     4
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     5
 This software is furnished under a license and may be used
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    10
 hereby transferred.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    11
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    12
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    13
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    14
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    15
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    16
ApplicationModel subclass:#UISpecificationTool
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    17
	instanceVariableNames:'modifiedHolder aspects specification selection specChannel'
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    18
	classVariableNames:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    19
	poolDictionaries:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    20
	category:'Interface-UIPainter'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    21
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    22
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    23
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    24
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    25
copyright
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    26
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    27
 COPYRIGHT (c) 1995 by eXept Software AG
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    28
              All Rights Reserved
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    29
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    30
 This software is furnished under a license and may be used
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    31
 only in accordance with the terms of that license and with the
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    33
 be provided or otherwise made available to, or used by, any
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    34
 other person.  No title to or ownership of the software is
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    35
 hereby transferred.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    36
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    37
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    38
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    39
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    40
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    41
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    42
documentation
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    43
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    44
    used by the UIPainter to manipulate the specifications of the selected component
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    45
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    46
    [author:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    47
        Claus Atzkern
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    48
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    49
    [see also:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    50
        UIPainter
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    51
        UILayoutTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    52
        UIHelpTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    53
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    54
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    55
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    56
!UISpecificationTool class methodsFor:'help specs'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    57
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    58
helpSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    59
    "return a dictionary filled with helpKey -> helptext associations.
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    60
     These are used by the activeHelp tool."
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    61
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    62
    "
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    63
    UIHelpTool openOnClass:UISpecificationTool    
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    64
    "
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    65
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    66
  ^ super helpSpec addPairsFrom:#(
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    67
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    68
#acceptImmediate
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    69
'input will we sent to the model immediately (every key)'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    70
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    71
#acceptOnLeave
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    72
'input will we sent to the model when the field is left via cursor keys'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    73
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    74
#acceptOnLostFocus
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    75
'input will we sent to the model when the mouse leaves the field, or its tabbed'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    76
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    77
#acceptOnReturn
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    78
'input will we sent to the model when the return key is pressed'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    79
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    80
#acceptOnTab
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    81
'input will we sent to the model when the tab key is pressed'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    82
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
    83
#action
346
38ea269664f8 modification of help text
ca
parents: 307
diff changeset
    84
'action selector sent to the application when the button is activated. (either on-press or on-release; this depends on the setting of triggerOnDown flag). The selector may be for a one-arg message; in this case, the argument is passed (a string).'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
    85
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    86
#actionArg
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    87
'action argument passed to action method, if action selector is a one-arg selector (i.e. ends with '':''). The arg is passed as a string.'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    88
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    89
#appletParamText
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    90
'Paste the complete appletTAGs HTML text here (i.e. all from <applet> up to and including the </applet>). Press parse to extract all parameters from it.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    91
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    92
#appletTextParse
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    93
'Parse the appletTAG and fill the parameters directory from it.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    94
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
    95
#arbitraryView
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
    96
'the class of the arbitrary component or an aspect selector which provides a widget class.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    97
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    98
#archiveEntry
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    99
'The name of a zip-file archive, if the class(es) are to be loaded from a zip-archive.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   100
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   101
#arrowButtonDirection
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   102
'the direction of the arrow.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   103
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   104
#autoRepeat
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   105
'repeat the action as long as the button is pressed; to have this behavior the ''isTriggerOnDown'' state must be enabled.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   106
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   107
#backgroundChannel
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   108
'a holder, which provides the widgets backgroundColor. Useful if the labels bg color is to be changed dynamically (alerts).'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   109
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   110
#backgroundColor
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   111
'set the background color if the color-checkBox is turned on. Otherwise, the widget uses its default background color (which is specified in the styleSheet).'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   112
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   113
#beDefault
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   114
'show/dont show a return-key image after the label'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   115
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   116
#booleanHolder
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   117
'aspect of a boolean holder which keeps the state'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   118
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   119
#borderWidth
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   120
'width of the border'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   121
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   122
#canvas
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   123
'gets a widget placed into the notebook'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   124
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   125
#canvasArgument
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   126
'the argument to the selector or none'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   127
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   128
#canvasSelector
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   129
'after opening the application as specified by the clientKey,  this message will be sent'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   130
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   131
#clientKey
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   132
'returns an application which provides the builder. By default the application itself is used.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   133
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   134
#codeBaseHolder
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   135
'The URL of the directory, where the classFile-file resides. If the classFile is located on the local machine, use\     file:/<fullPath>\ where fullPath is an absolute pathname. If its to be accessed via http, use\     http:/<host>/<relativePath>\ where relativePath is the path relative to the http''s top diretory on that host.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   136
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   137
#codeFileEntry
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   138
'The name of the java classFile  which contains the applets code.  For example: ''ArcTest.class'''
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   139
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   140
#defaultLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   141
'the default label  (used, if nothing selected).'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   142
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   143
#document
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   144
'a holder which keeps the document name.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   145
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   146
#doubleClickSelector
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   147
'double click action which is evaluated on double click in  case of a non-nil selection.  If the selector ends with '':'' the method is invoked with the current selection as argument.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   148
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   149
#enableChannel
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   150
'enableHolder for the view. This field specifies the name of the aspect (-method or binding) in your application, which is supposed to return a valueHolder on to the boolean enable-flag. This is convenient, if many widgets are to be enabled/disabled depending on the setting of a single flag, because the application can change them all with a single setting of the enableHolders value.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   151
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   152
#fileSelectionTreeRoot
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   153
'a holder, which keeps the pathname of the root directory (first entry in the list).'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   154
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   155
#fontMenu
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   156
'set the font for the widget if the font-checkBox is turned on. Otherwise, the widget uses its default font (which is specified in the viewStyle).'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   157
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   158
#forceRecursiveBackground
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   159
'also change all subcomponents viewBackground (recursively).'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   160
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   161
#foregroundChannel
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   162
'a holder, which provides the widgets foregroundColor. Useful if the labels fg color is to be changed dynamically (alerts).'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   163
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   164
#foregroundColor
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   165
'set the foreground color if the color-checkBox is turned on. Otherwise, the widget uses its default foreground color (which is specified in the styleSheet).'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   166
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   167
#galleryLabels
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   168
'a list of tab labels'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   169
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   170
#galleryModel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   171
'a holder, which keeps the label of the current selected tab or nil.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   172
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   173
#gallerySelection
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   174
'a holder, which keeps the specification of the current selected widget or nil.'
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   175
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   176
#gallerySelectors
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   177
'the list of selectors specify which interface specification should be used dependent on the tab pressed. Each selector must return an interfaceSpec. On default the #windowSpec method is used'
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   178
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   179
#hasBorder
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   180
'currently ignored - kept to avoid loosing information of imported VW window specs'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   181
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   182
#hierarchicalList
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   183
'gets a hierarchical list or a holder which keeps a hierarchical list entry; the value must understand the TreeItem protocol.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   184
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   185
#hierarchicalListButton
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   186
'opens the hierarchical list editor, which can be used to generate and install a hierarchical list.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   187
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   188
#horizontalLayout
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   189
'specifies how components are to be arranged horizontally'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   190
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   191
#horizontalMiniScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   192
'use a mini-horizontalScroller'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   193
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   194
#horizontalScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   195
'make the view horizontally scrollable'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   196
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   197
#id
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   198
'the symbolic name of the component.  This ID can be used by the application to access components, using #componentAt:<ID>'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   199
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   200
#initiallyDisabled
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   201
'if on, the widget is initially disabled (to be enabled programatically with "(self componentAt:<ID>) enable").'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   202
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   203
#initiallyInvisible
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   204
'if on, the widget is initially invisible (to be made visible programatically with "(self componentAt:<ID>) beVisible")).'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   205
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   206
#inputFieldGroup
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   207
'symbolic ID of the input group - fields within a group can be reached via cursor up/down.'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   208
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   209
#isMultiSelect
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   210
'enable/disable multiple selections.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   211
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   212
#isTriggerOnDown
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   213
'if true, the action is evaluated when the button is pressed; otherwise, when released.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   214
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   215
#label
346
38ea269664f8 modification of help text
ca
parents: 307
diff changeset
   216
'the label of the widget. If ''label is image'' is off, this is the label string. Otherwise, it specifies the applications selector, which returns the label - either a string or a bitmap image.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   217
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   218
#labelChannel
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   219
'a holder, which provides the widgets label. Useful if the label is to be changed dynamically.'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   220
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   221
#labelIsImage
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   222
'if ''label is image'' is off (the default), the widgets label is the string as entered in the label aspect. Otherwise, its the name of the message sent to the application - this should return a string or bitmap image, which is used as logo in the widget.'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   223
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   224
#lampColor
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   225
'set the lamp color if the color-checkBox is turned on. Otherwise, the widget uses its default lamp color (which is specified in the styleSheet).'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   226
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   227
#level
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   228
'the 3D-level relative to its superView. If left blank, the components default is used.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   229
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   230
#listHolder
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   231
'a list or a list holders aspect'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   232
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   233
#majorKey
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   234
'name of the class which provides the window specification. If left blank, the application itself is used.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   235
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   236
#maxChars
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   237
'maximum number of characters that are allowed in the editfield.  If left blank, no limit is set.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   238
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   239
#maxSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   240
'Those two fields specify the windows maximum size. The user will not be allowed to resize it to a larger size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   241
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   242
#maxXField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   243
'the maximum width - the user will not be allowed to resize the topView to a larger width.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   244
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   245
#maxYField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   246
'the maximum height - the user will not be allowed to resize the topView to a larger height.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   247
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   248
#menuButton
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   249
'open a menu editor on the specified menu selector.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   250
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   251
#menuHolder
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   252
'aspect selector or holder which provides the middle button menu'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   253
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   254
#menuId
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   255
'the aspect of the menu. The application may respond to this message by returning a menu.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   256
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   257
#menuPerformer
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   258
'aspect providing an object which gets the menu messages. If left blank, the menu sends its menuMessages to the application.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   259
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   260
#middleButtonPressed
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   261
'called if the middle button is pressed; you can open a menu'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   262
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   263
#minSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   264
'Those two fields specify the windows minimum size. The user will not be allowed to resize it to a smaller size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   265
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   266
#minXField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   267
'the minimum width - the user will not be allowed to resize the topView to a smaller width.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   268
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   269
#minYField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   270
'the minimum height - the user will not be allowed to resize the topView to a smaller height.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   271
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   272
#minorKey
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   273
'the selector specifies which interface specification to be used. The selector must return an interfaceSpec. By default the #windowSpec method is used.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   274
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   275
#oneTabPerLine
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   276
'draw only one tab per line'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   277
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   278
#paramAdd
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   279
'Adds a name-value pair to the parameters collection.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   280
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   281
#paramList
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   282
'Lists defined parameters.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   283
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   284
#paramNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   285
'The name of the appletParameter.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   286
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   287
#paramRemove
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   288
'Removes the definition of the current name.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   289
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   290
#paramValueField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   291
'The value of the appletParameter.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   292
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   293
#parameNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   294
''
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   295
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   296
#radioButtonGroup
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   297
'the aspect of the valueHolder which holds the selection of a radioButtonGroup. When clicked, each button writes its value into that aspect; vice versa, if the groupValue is changed to the value of one of the buttons, that button turns itself on.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   298
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   299
#radioButtonValue
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   300
'the value associated with that radioButton. When clicked, this will be stored into the group-model. If left empty, buttons are numbered sequentially, starting with 1.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   301
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   302
#readOnly
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   303
'the field is readOnly - its contents cannot be modified by the user (however, the program can)'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   304
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   305
#resizeForLabel
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   306
'if on, the widget is allowed to resize itself to fit the labelString - if off, the size is frozen.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   307
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   308
#selectionHolder
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   309
'the aspect of the valueHolder which holds the selection or input value.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   310
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   311
#setMaxExtent
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   312
'set the maximum size from the topViews current size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   313
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   314
#setMinExtent
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   315
'set the minumum size from the topViews current size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   316
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   317
#showDirectoryIndication
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   318
'show or hide the open/closed indicator on nodes which contains children'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   319
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   320
#showFrame
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   321
'show the frame'
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   322
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   323
#showLamp
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   324
'enable/disable display of the toggles lamp.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   325
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   326
#showLines
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   327
'show or hide lines'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   328
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   329
#showRoot
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   330
'show or hide the first element of the hierarchical list.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   331
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   332
#sizeAsDefault
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   333
'let the widget compute its size to include space for the default (return) image. Useful for buttons which are not default buttons initially, but may become a default button dynamically.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   334
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   335
#tabLabels
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   336
'a list or list holder which provides the labels assigned to the tabs.'
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   337
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   338
#tabOrientation
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   339
'where to place the tabs'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   340
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   341
#tabWidget
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   342
'select the tab style (windows- or mac look)'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   343
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   344
#tabable
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   345
'if on, the widget can be reached by tabbing.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   346
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   347
#translateLabel
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   348
'if on, the labelString is translated via the resource mechanism to a national language string (if a translation for that string is present in the resource file of the application).'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   349
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   350
#typeConverter
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   351
'convert the fields string value to some other object. Needed if the aspectValue is not a string (typically numbers).'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   352
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   353
#useIndex
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   354
'set/clear the useIndex flag. If set, the index of the selection is stored into the model; otherwise the selected string.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   355
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   356
#usePreferredExtent
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   357
'Take the top components preferredExtent as extent of the topView. Only possible if there is exactly one top component (typically: a panel).'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   358
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   359
#valueChangeSelector
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   360
'name of a method in the application which is invoked whenever the selection changed. If the selector ends with '':'' the method is invoked with the current selection.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   361
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   362
#verticalLayout
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   363
'specifies how components are to be arranged vertically'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   364
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   365
#verticalMiniScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   366
'use a mini-verticalScroller'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   367
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   368
#verticalScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   369
'make the view vertically scrollable'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   370
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   371
#windowIcon
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   372
'aspect of the windows icon. This is supposed to provide a bitmap image, which is displayed by the windowManager if your applications gets iconified.'
346
38ea269664f8 modification of help text
ca
parents: 307
diff changeset
   373
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   374
#windowIconLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   375
'the windows icon label. This will be displayed by most windowManagers in the icon if the topView is iconified.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   376
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   377
#windowLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   378
'the windows label. This will be displayed by the windowManager in the windows frame.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   379
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   380
)
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   381
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   382
    "Modified: / 1.2.1998 / 15:00:50 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   383
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   384
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   385
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   386
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   387
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   388
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   389
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   390
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   391
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   392
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   393
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   394
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   395
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   396
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   397
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   398
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   399
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   400
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   401
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   402
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   403
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   404
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   405
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   406
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   407
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   408
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   409
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   410
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   411
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   412
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   413
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   414
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   415
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   416
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   417
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   418
                )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   419
              )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   420
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   421
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   422
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   423
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   424
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   425
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   426
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   427
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   428
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   429
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   430
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   431
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   432
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   433
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   434
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   435
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   436
    "
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   437
    self releaseResources.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   438
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   439
    aSpec isNil ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   440
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   441
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   442
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   443
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   444
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   445
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   446
    ] ifFalse:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   447
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   448
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   449
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   450
        ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   451
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   452
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   453
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   454
        specification  := aSpec.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   455
        
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   456
        "/ some tricky specs need the builder
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   457
        "/ during the addBindings phase.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   458
        "/ This is passed down in a special UIBindingsDictionary
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   459
        "/ (remain backward compatible)
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   460
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   461
        aspects        := UISpecification newBindingsDictionary.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   462
        aspects builder:builder.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   463
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   464
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   465
        specification class addBindingsTo:aspects for:specification channel:specChannel.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   466
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   467
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   468
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   469
    selection notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   470
        (builder componentAt:#Frame) destroySubViews.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   471
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   472
    ].
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   473
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   474
    "Modified: / 30.1.1998 / 13:50:51 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   475
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   476
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   477
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   478
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   479
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   480
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   481
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   482
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   483
        modifiedHolder removeDependent:self. 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   484
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   485
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   486
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   487
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   488
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   489
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   490
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   491
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   492
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   493
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   494
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   495
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   496
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   497
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   498
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   499
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   500
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   501
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   502
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   503
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   504
    "Modified: / 29.10.1997 / 18:29:17 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   505
!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   506
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   507
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   508
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   509
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   510
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   511
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   512
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   513
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   514
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   515
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   516
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   517
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   518
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   519
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   520
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   521
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   522
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   523
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   524
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   525
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   526
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   527
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   528
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   529
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   530
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   531
!
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   532
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   533
releaseResources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   534
    "release resources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   535
    "
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   536
    |frame appl|
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   537
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   538
    frame := builder componentAt:#Frame.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   539
    appl  := builder application.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   540
    builder := UIBuilder new.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   541
    builder application:appl.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   542
    builder componentAt:#Frame put:frame.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   543
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   544
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   545
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   546
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   547
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   548
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   549
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   550
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   551
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   552
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   553
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   554
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   555
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   556
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   557
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   558
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   559
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   560
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   561
    someone ~~ modifiedHolder ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   562
        modifiedHolder value ~~ true ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   563
            modifiedHolder value:true
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   564
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   565
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   566
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   567
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   568
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   569
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   570
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   571
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   572
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   573
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   574
    "
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   575
    |slices idx spec frame|
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   576
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   577
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   578
        slices := specification class slices.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   579
        idx:= slices findFirst:[:aSlice| aSlice first = something ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   580
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   581
        idx ~~ 0 ifTrue:[
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   582
            spec := specification class perform:((slices at:idx) last).
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   583
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   584
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   585
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   586
    spec ~= selection ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   587
        self releaseResources.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   588
        frame := builder componentAt:#Frame.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   589
        frame destroySubViews.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   590
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   591
        spec notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   592
            builder buildFromSpec:spec in:frame.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   593
            frame allViewBackground:(frame viewBackground).
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   594
            frame realizeAllSubViews.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   595
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   596
    ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   597
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   598
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   599
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   600
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   601
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   602
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   603
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   604
! !