UISpecificationTool.st
author tz
Sat, 07 Feb 1998 21:28:21 +0100
changeset 626 402a50b931d5
parent 610 c6dc33689c6a
child 752 2dc82cdfdd90
permissions -rw-r--r--
select row of file after opening
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
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
    68
#acceptChannel
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
    69
'acceptChannel 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 accept-flag.\ If the holder changed its value to true, the contents will be accepted and the modifiaction flag is set to false.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
    70
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    71
#acceptImmediate
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    72
'input will we sent to the model immediately (every key)'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    73
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    74
#acceptOnLeave
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    75
'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
    76
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    77
#acceptOnLostFocus
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    78
'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
    79
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    80
#acceptOnReturn
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    81
'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
    82
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    83
#acceptOnTab
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    84
'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
    85
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
    86
#action
346
38ea269664f8 modification of help text
ca
parents: 307
diff changeset
    87
'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
    88
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    89
#actionArg
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    90
'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
    91
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    92
#appletParamText
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    93
'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
    94
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    95
#appletTextParse
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    96
'Parse the appletTAG and fill the parameters directory from it.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    97
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
    98
#arbitraryView
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
    99
'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
   100
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   101
#archiveEntry
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   102
'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
   103
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   104
#arrowButtonDirection
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   105
'the direction of the arrow.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   106
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   107
#autoRepeat
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   108
'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
   109
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   110
#backgroundChannel
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   111
'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
   112
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   113
#backgroundColor
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   114
'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
   115
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   116
#beDefault
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   117
'show/dont show a return-key image after the label'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   118
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   119
#beDependentOfRows
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   120
'make each row in the list dependant. Thus, whenever a row raises a change notification, the row will be redrawn (if visible on the screen).'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   121
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   122
#booleanHolder
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   123
'aspect of a boolean holder which keeps the state'
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
#borderWidth
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   126
'width of the border'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   127
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   128
#canvas
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   129
'gets a widget placed into the notebook'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   130
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   131
#canvasArgument
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   132
'the argument to the selector or none'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   133
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   134
#canvasSelector
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   135
'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
   136
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   137
#clientHolder
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   138
'holder which provides the sub application to be opened'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   139
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   140
#clientKey
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   141
'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
   142
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   143
#codeBaseHolder
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   144
'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
   145
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   146
#codeFileEntry
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   147
'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
   148
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   149
#columnButton
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   150
'open the dataset builder'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   151
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   152
#columnHolder
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   153
'valuHolder, which provides a list of column descriptions.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   154
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   155
#defaultLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   156
'the default label  (used, if nothing selected).'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   157
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   158
#document
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   159
'a holder which keeps the document name.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   160
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   161
#doubleClickSelector
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   162
'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.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   163
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   164
#downAction
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   165
'action selector sent to the application when the down button is activated. The selector may be for a one-arg message; in this case, the argument is passed.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   166
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   167
#enableChannel
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   168
'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
   169
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   170
#fileSelectionFilterClas
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   171
'the name of the Item class used to create the entries into the hierarchical list. The class is oblegated to provide the whole interface of the FileSelectionItem class. If no class is specified, the FileSelectionItem class is used. \ Thus you can define your own filter operations, icons, ....'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   172
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   173
#fileSelectionTreeRoot
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   174
'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
   175
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   176
#fitLastRow
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   177
'fit rows to tab horizontal or vertical extent'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   178
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   179
#fontMenu
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   180
'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
   181
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   182
#forceRecursiveBackground
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   183
'also change all subcomponents viewBackground (recursively).'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   184
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   185
#foregroundChannel
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   186
'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
   187
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   188
#foregroundColor
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   189
'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
   190
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   191
#galleryLabels
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   192
'a list of tab labels'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   193
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   194
#galleryModel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   195
'a holder, which keeps the label of the current selected tab or nil.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   196
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   197
#gallerySelection
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   198
'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
   199
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   200
#gallerySelectors
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   201
'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
   202
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   203
#has3Dsepartors
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   204
'show all the column and row separators in a 3D-look'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   205
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   206
#hasBorder
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   207
'currently ignored - kept to avoid loosing information of imported VW window specs'
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
#hierarchicalList
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   210
'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
   211
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   212
#hierarchicalListButton
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   213
'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
   214
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   215
#horizontalLayout
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   216
'specifies how components are to be arranged horizontally'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   217
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   218
#horizontalMiniScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   219
'use a mini-horizontalScroller'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   220
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   221
#horizontalScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   222
'make the view horizontally scrollable'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   223
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   224
#horizontalSpace
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   225
'horizontal space between elements on pixels'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   226
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   227
#id
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   228
'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
   229
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   230
#initiallyDisabled
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   231
'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
   232
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   233
#initiallyInvisible
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   234
'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
   235
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   236
#inputFieldGroup
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   237
'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
   238
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   239
#isMultiSelect
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   240
'enable/disable multiple selections.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   241
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   242
#isOpaque
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   243
'define how the widget is displayed; opaque or not opaque'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   244
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   245
#isTriggerOnDown
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   246
'if true, the action is evaluated when the button is pressed; otherwise, when released.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   247
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   248
#label
346
38ea269664f8 modification of help text
ca
parents: 307
diff changeset
   249
'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
   250
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   251
#labelChannel
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   252
'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
   253
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   254
#labelIsImage
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   255
'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
   256
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   257
#labelPositionList
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   258
'define the position of the label'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   259
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   260
#lampColor
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   261
'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
   262
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   263
#level
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   264
'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
   265
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   266
#listHolder
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   267
'a list or a list holders aspect'
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
#majorKey
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   270
'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
   271
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   272
#maxChars
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   273
'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
   274
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   275
#maxSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   276
'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
   277
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   278
#maxXField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   279
'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
   280
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   281
#maxYField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   282
'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
   283
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   284
#menuButton
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   285
'open a menu editor on the specified menu selector.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   286
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   287
#menuHolder
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   288
'aspect selector or holder which provides the middle button menu'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   289
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   290
#menuId
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   291
'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
   292
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   293
#menuPerformer
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   294
'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
   295
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   296
#middleButtonPressed
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   297
'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
   298
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   299
#minSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   300
'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
   301
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   302
#minXField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   303
'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
   304
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   305
#minYField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   306
'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
   307
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   308
#minorKey
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   309
'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
   310
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   311
#modifiedChannel
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   312
'modifiedHolder 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 modified-flag. \ The holder is set dependant on the modification state of the view contents.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   313
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   314
#monitoring
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   315
'start or stop a background process, which will update the list dependant on any directory change.\ Between each check cycle, there is a defined delay time measured in seconds.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   316
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   317
#monitoringDelayTime
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   318
'delay time of the monitoring task in seconds'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   319
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   320
#moveSelectedRow
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   321
'move selected row always to view'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   322
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   323
#oneTabPerLine
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   324
'draw only one tab per line'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   325
610
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   326
#openSubSpecGuiHelp
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   327
'Start a GUI Builder for this subspecification.'
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   328
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   329
#orientation
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   330
'define the orientation of the widget; horizontal or vertical.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   331
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   332
#paramAdd
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   333
'Adds a name-value pair to the parameters collection.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   334
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   335
#paramList
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   336
'Lists defined parameters.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   337
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   338
#paramNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   339
'The name of the appletParameter.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   340
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   341
#paramRemove
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   342
'Removes the definition of the current name.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   343
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   344
#paramValueField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   345
'The value of the appletParameter.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   346
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   347
#parameNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   348
''
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   349
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   350
#radioButtonGroup
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   351
'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
   352
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   353
#radioButtonValue
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   354
'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
   355
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   356
#readOnly
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   357
'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
   358
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   359
#regionType
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   360
'define the shape of the widget'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   361
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   362
#resizeForLabel
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   363
'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
   364
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   365
#rowIfAbsent
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   366
'name of a method in the application which is invoked whenever an empty list entry is detected. The method is called with the index into the list and should return a valid row instance. \ Thus, you are able to define a list with all elements set to nil.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   367
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   368
#selectConditionSelector
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   369
'name of a method in the application which is invoked before the selection changed. The selection will not be done, if the method returns false. \ If the selector ends with '':'' the method is invoked with the selection-line-number as argument.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   370
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   371
#selectionHolder
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   372
'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
   373
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   374
#setMaxExtent
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   375
'set the maximum size from the topViews current size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   376
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   377
#setMinExtent
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   378
'set the minumum size from the topViews current size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   379
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   380
#showDirectoryIndicator
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   381
'enable/disable directory indicator (+/-) for none empty directories'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   382
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   383
#showDirectoryIndicatorForRoot
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   384
'disable the directory indicator for the first element of the hierarchical list in case that the global directory indication is set to true.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   385
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   386
#showFrame
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   387
'show the frame'
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   388
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   389
#showLamp
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   390
'enable/disable display of the toggles lamp.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   391
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   392
#showLines
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   393
'show or hide lines'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   394
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   395
#showPercentage
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   396
'define if the percentage is to be shown numerically'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   397
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   398
#showRoot
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   399
'show or hide the first element of the hierarchical list.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   400
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   401
#showSeparatingLines
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   402
'seperate each menu item by a vertical or horizontal line dependant on its vertical layout'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   403
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   404
#sizeAsDefault
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   405
'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
   406
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   407
#specHolder
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   408
'holder which provides the selector to access the windowspec used to open the sub application derived from the application holder. If no selector is defined, the #windowSpec selector is used.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   409
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   410
#start
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   411
'define the scroller/slider''s range minimum'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   412
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   413
#step
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   414
'define the scroller/slider''s range step'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   415
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   416
#stop
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   417
'define the scroller/slider''s range maximum'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   418
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   419
#tabLabels
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   420
'a list or list holder which provides the labels assigned to the tabs.'
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   421
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   422
#tabOrientation
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   423
'where to place the tabs'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   424
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   425
#tabWidget
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   426
'select the tab style (windows- or mac look)'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   427
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   428
#tabable
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   429
'if on, the widget can be reached by tabbing.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   430
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   431
#translateLabel
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   432
'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
   433
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   434
#typeConverter
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   435
'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
   436
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   437
#upAction
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   438
'action selector sent to the application when the up button is activated. The selector may be for a one-arg message; in this case, the argument is passed.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   439
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   440
#useIndex
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   441
'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
   442
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   443
#usePreferredExtent
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   444
'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
   445
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   446
#validateDoubleClickSelector
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   447
'name of a method in the application which is invoked before a not empty directory is opened by a double click. If the method returns false, the directory will not be opened.\ If the selector ends with '':'' the method is invoked with the selection-line-number as argument.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   448
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   449
#valueChangeSelector
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   450
'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
   451
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   452
#verticalLayout
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   453
'specifies how components are to be arranged vertically'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   454
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   455
#verticalMiniScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   456
'use a mini-verticalScroller'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   457
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   458
#verticalScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   459
'make the view vertically scrollable'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   460
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   461
#verticalSpace
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   462
'the vertical space between elements on pixels'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   463
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   464
#windowIcon
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   465
'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
   466
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   467
#windowIconLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   468
'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
   469
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   470
#windowLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   471
'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
   472
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   473
)
610
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   474
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   475
    "Modified: / 6.2.1998 / 14:08:44 / stefan"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   476
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   477
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   478
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   479
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   480
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   481
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   482
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   483
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   484
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   485
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   486
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   487
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   488
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   489
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   490
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   491
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   492
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   493
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   494
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   495
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   496
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   497
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   498
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   499
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   500
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   501
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   502
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   503
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   504
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   505
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   506
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   507
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   508
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   509
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   510
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   511
                )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   512
              )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   513
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   514
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   515
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   516
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   517
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   518
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   519
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   520
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   521
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   522
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   523
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   524
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   525
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   526
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   527
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   528
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   529
    "
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   530
    self releaseResources.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   531
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   532
    aSpec isNil ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   533
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   534
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   535
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   536
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   537
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   538
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   539
    ] ifFalse:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   540
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   541
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   542
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   543
        ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   544
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   545
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   546
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   547
        specification  := aSpec.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   548
        
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   549
        "/ some tricky specs need the builder
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   550
        "/ during the addBindings phase.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   551
        "/ This is passed down in a special UIBindingsDictionary
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   552
        "/ (remain backward compatible)
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   553
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   554
        aspects        := UISpecification newBindingsDictionary.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   555
        aspects builder:builder.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   556
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   557
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   558
        specification class addBindingsTo:aspects for:specification channel:specChannel.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   559
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   560
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   561
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   562
    selection notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   563
        (builder componentAt:#Frame) destroySubViews.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   564
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   565
    ].
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   566
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   567
    "Modified: / 30.1.1998 / 13:50:51 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   568
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   569
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   570
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   571
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   572
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   573
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   574
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   575
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   576
        modifiedHolder removeDependent:self. 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   577
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   578
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   579
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   580
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   581
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   582
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   583
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   584
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   585
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   586
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   587
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   588
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   589
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   590
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   591
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   592
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   593
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   594
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   595
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   596
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   597
    "Modified: / 29.10.1997 / 18:29:17 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   598
!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   599
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   600
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   601
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   602
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   603
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   604
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   605
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   606
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   607
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   608
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   609
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   610
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   611
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   612
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   613
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   614
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   615
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   616
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   617
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   618
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   619
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   620
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   621
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   622
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   623
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   624
!
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   625
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   626
releaseResources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   627
    "release resources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   628
    "
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   629
    |frame appl|
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   630
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   631
    frame := builder componentAt:#Frame.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   632
    appl  := builder application.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   633
    builder := UIBuilder new.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   634
    builder application:appl.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   635
    builder componentAt:#Frame put:frame.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   636
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   637
!
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   638
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   639
specificationFor:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   640
    "this is called if our current specification contains 
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   641
     subspecifications or subcanvases.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   642
     Get the subspecification from the current specification"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   643
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   644
    |cls|
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   645
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   646
    cls := specification class.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   647
    (cls respondsTo:aKey) ifTrue:[
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   648
        ^ cls perform:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   649
    ].
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   650
    ^ nil
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   651
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   652
    "Created: / 4.2.1998 / 23:52:39 / stefan"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   653
    "Modified: / 4.2.1998 / 23:58:23 / stefan"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   654
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   655
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   656
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   657
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   658
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   659
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   660
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   661
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   662
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   663
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   664
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   665
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   666
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   667
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   668
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   669
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   670
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   671
    someone ~~ modifiedHolder ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   672
        modifiedHolder value ~~ true ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   673
            modifiedHolder value:true
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   674
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   675
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   676
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   677
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   678
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   679
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   680
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   681
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   682
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   683
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   684
    "
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   685
    |slices idx spec frame|
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   686
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   687
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   688
        slices := specification class slices.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   689
        idx:= slices findFirst:[:aSlice| aSlice first = something ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   690
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   691
        idx ~~ 0 ifTrue:[
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   692
            spec := specification class perform:((slices at:idx) last).
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   693
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   694
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   695
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   696
    spec ~= selection ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   697
        self releaseResources.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   698
        frame := builder componentAt:#Frame.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   699
        frame destroySubViews.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   700
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   701
        spec notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   702
            builder buildFromSpec:spec in:frame.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   703
            frame allViewBackground:(frame viewBackground).
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   704
            frame realizeAllSubViews.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   705
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   706
    ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   707
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   708
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   709
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   710
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   711
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   712
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   713
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   714
! !