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