UISpecificationTool.st
author tz
Thu, 02 Apr 1998 21:12:46 +0200
changeset 764 5722b94330ef
parent 759 f0c325edcc6c
child 780 96270af95475
permissions -rw-r--r--
docu call
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
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
    17
	instanceVariableNames:'modifiedHolder aspects specification selection specChannel
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
    18
		scrolledView windowFrame'
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    19
	classVariableNames:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    20
	poolDictionaries:''
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    21
	category:'Interface-UIPainter'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    22
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    23
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    24
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    25
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    26
copyright
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    27
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    28
 COPYRIGHT (c) 1995 by eXept Software AG
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    29
              All Rights Reserved
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    30
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    31
 This software is furnished under a license and may be used
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    32
 only in accordance with the terms of that license and with the
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    33
 inclusion of the above copyright notice.   This software may not
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    34
 be provided or otherwise made available to, or used by, any
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    35
 other person.  No title to or ownership of the software is
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    36
 hereby transferred.
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
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    43
documentation
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    44
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    45
    used by the UIPainter to manipulate the specifications of the selected component
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    46
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    47
    [author:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    48
        Claus Atzkern
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    49
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    50
    [see also:]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    51
        UIPainter
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    52
        UILayoutTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    53
        UIHelpTool
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    54
"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    55
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
    56
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    57
!UISpecificationTool class methodsFor:'help specs'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    58
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    59
helpSpec
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    60
    "This resource specification was automatically generated
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    61
     by the UIHelpTool of ST/X."
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    62
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    63
    "Do not manually edit this!! If it is corrupted,
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    64
     the UIHelpTool may not be able to read the specification."
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    65
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    66
    "
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    67
     UIHelpTool openOnClass:UISpecificationTool    
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    68
    "
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
    69
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    70
    <resource: #help>
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    71
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    72
    ^super helpSpec addPairsFrom:#(
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
    73
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
    74
#acceptChannel
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
    75
'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
    76
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    77
#acceptImmediate
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    78
'input will we sent to the model immediately (every key)'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    79
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    80
#acceptOnLeave
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    81
'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
    82
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    83
#acceptOnLostFocus
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    84
'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
    85
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    86
#acceptOnReturn
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    87
'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
    88
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    89
#acceptOnTab
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    90
'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
    91
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
    92
#action
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    93
'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
    94
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
    95
#actionArg
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
    96
'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
    97
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    98
#appletParamText
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
    99
'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
   100
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   101
#appletTextParse
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   102
'Parse the appletTAG and fill the parameters directory from it.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   103
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   104
#arbitraryView
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   105
'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
   106
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   107
#archiveEntry
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   108
'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
   109
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   110
#arrowButtonDirection
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   111
'Specifies the direction of the arrow.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   112
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   113
#autoRepeat
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   114
'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
   115
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   116
#backgroundChannel
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   117
'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
   118
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   119
#backgroundColor
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   120
'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
   121
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   122
#beDefault
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   123
'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
   124
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   125
#beDependentOfRows
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   126
'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
   127
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   128
#booleanHolder
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   129
'Aspect of a boolean holder which keeps the state'
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
#borderWidth
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   132
'width of the border'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   133
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   134
#canvas
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   135
'gets a widget placed into the notebook'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   136
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   137
#canvasArgument
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   138
'the argument to the selector or none'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   139
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   140
#canvasSelector
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   141
'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
   142
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   143
#clientHolder
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   144
'holder which provides the sub application to be opened'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   145
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   146
#clientKey
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   147
'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
   148
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   149
#codeBaseHolder
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   150
'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
   151
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   152
#codeFileEntry
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   153
'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
   154
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   155
#columnButton
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   156
'open the dataset builder'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   157
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   158
#columnHolder
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   159
'valuHolder, which provides a list of column descriptions.'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   160
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   161
#defaultLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   162
'the default label  (used, if nothing selected).'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   163
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   164
#document
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   165
'a holder which keeps the document name.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   166
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   167
#doubleClickSelector
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   168
'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
   169
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   170
#downAction
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   171
'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
   172
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   173
#enableChannel
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   174
'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
   175
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   176
#fileSelectionFilterClas
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   177
'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
   178
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   179
#fileSelectionTreeRoot
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   180
'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
   181
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   182
#fitLastRow
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   183
'fit rows to tab horizontal or vertical extent'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   184
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   185
#fontMenu
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   186
'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
   187
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   188
#forceRecursiveBackground
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   189
'also change all subcomponents viewBackground (recursively).'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   190
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   191
#foregroundChannel
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   192
'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
   193
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   194
#foregroundColor
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   195
'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
   196
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   197
#galleryLabels
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   198
'a list of tab labels'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   199
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   200
#galleryModel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   201
'a holder, which keeps the label of the current selected tab or nil.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   202
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   203
#gallerySelection
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   204
'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
   205
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   206
#gallerySelectors
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   207
'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
   208
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   209
#has3Dsepartors
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   210
'show all the column and row separators in a 3D-look'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   211
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   212
#hasBorder
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   213
'currently ignored - kept to avoid loosing information of imported VW window specs'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   214
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   215
#hierarchicalList
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   216
'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
   217
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   218
#hierarchicalListButton
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   219
'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
   220
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   221
#horizontalLayout
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   222
'specifies how components are to be arranged horizontally'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   223
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   224
#horizontalMiniScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   225
'use a mini-horizontalScroller'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   226
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   227
#horizontalScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   228
'make the view horizontally scrollable'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   229
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   230
#horizontalSpace
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   231
'horizontal space between elements on pixels'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   232
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   233
#id
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   234
'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
   235
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   236
#initiallyDisabled
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   237
'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
   238
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   239
#initiallyInvisible
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   240
'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
   241
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   242
#inputFieldGroup
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   243
'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
   244
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   245
#isMultiSelect
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   246
'enable/disable multiple selections.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   247
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   248
#isOpaque
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   249
'define how the widget is displayed; opaque or not opaque'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   250
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   251
#isTriggerOnDown
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   252
'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
   253
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   254
#label
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   255
'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
   256
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   257
#labelChannel
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   258
'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
   259
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   260
#labelIsImage
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   261
'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
   262
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   263
#labelPositionList
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   264
'define the position of the label'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   265
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   266
#lampColor
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   267
'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
   268
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   269
#level
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   270
'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
   271
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   272
#listHolder
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   273
'a list or a list holders aspect'
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
#majorKey
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   276
'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
   277
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   278
#maxChars
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   279
'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
   280
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   281
#maxSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   282
'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
   283
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   284
#maxXField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   285
'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
   286
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   287
#maxYField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   288
'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
   289
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   290
#menuButton
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   291
'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
   292
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   293
#menuHolder
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   294
'aspect selector or holder which provides the middle button menu'
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
#menuId
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   297
'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
   298
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   299
#menuPerformer
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   300
'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
   301
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   302
#middleButtonPressed
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   303
'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
   304
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   305
#minSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   306
'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
   307
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   308
#minXField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   309
'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
   310
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   311
#minYField
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   312
'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
   313
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   314
#minorKey
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   315
'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
   316
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   317
#modifiedChannel
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   318
'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
   319
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   320
#monitoring
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   321
'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
   322
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   323
#monitoringDelayTime
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   324
'delay time of the monitoring task in seconds'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   325
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   326
#moveSelectedRow
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   327
'move selected row always to view'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   328
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   329
#oneTabPerLine
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   330
'draw only one tab per line'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   331
610
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   332
#openSubSpecGuiHelp
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   333
'Start a GUI Builder for this subspecification.'
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   334
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   335
#orientation
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   336
'Defines the direction of the alignment of the two arrows (horizontal or vertical).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   337
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   338
#paramAdd
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   339
'Adds a name-value pair to the parameters collection.'
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
#paramList
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   342
'Lists defined parameters.'
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
#paramNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   345
'The name 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
#paramRemove
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   348
'Removes the definition of the current name.'
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
#paramValueField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   351
'The value of the appletParameter.'
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
#parameNameField
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
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   356
#radioButtonGroup
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   357
'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
   358
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   359
#radioButtonValue
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   360
'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
   361
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   362
#readOnly
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   363
'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
   364
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   365
#regionType
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   366
'define the shape of the widget'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   367
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   368
#resizeForLabel
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   369
'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
   370
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   371
#rowIfAbsent
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   372
'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
   373
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   374
#selectConditionSelector
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   375
'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
   376
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   377
#selectionHolder
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   378
'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
   379
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   380
#setMaxExtent
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   381
'set the maximum size from the topViews current size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   382
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   383
#setMinExtent
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   384
'set the minumum size from the topViews current size.'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   385
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   386
#showDirectoryIndicator
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   387
'enable/disable directory indicator (+/-) for none empty directories'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   388
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   389
#showDirectoryIndicatorForRoot
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   390
'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
   391
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   392
#showFrame
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   393
'show the frame'
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   394
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   395
#showLamp
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   396
'Turns on/off that a colored lamp is shown.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   397
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   398
#showLines
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   399
'show or hide lines'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   400
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   401
#showPercentage
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   402
'define if the percentage is to be shown numerically'
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
#showRoot
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   405
'show or hide the first element of the hierarchical list.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   406
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   407
#showSeparatingLines
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   408
'seperate each menu item by a vertical or horizontal line dependant on its vertical layout'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   409
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   410
#sizeAsDefault
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   411
'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
   412
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   413
#specHolder
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   414
'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
   415
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   416
#start
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   417
'define the scroller/slider''s range minimum'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   418
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   419
#step
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   420
'define the scroller/slider''s range step'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   421
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   422
#stop
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   423
'define the scroller/slider''s range maximum'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   424
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   425
#tabLabels
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   426
'a list or list holder which provides the labels assigned to the tabs.'
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   427
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   428
#tabOrientation
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   429
'where to place the tabs'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   430
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   431
#tabWidget
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   432
'select the tab style (windows- or mac look)'
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   433
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   434
#tabable
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   435
'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
   436
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   437
#translateLabel
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   438
'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
   439
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   440
#typeConverter
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   441
'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
   442
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   443
#upAction
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   444
'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
   445
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   446
#useIndex
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   447
'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
   448
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   449
#usePreferredExtent
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   450
'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
   451
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   452
#validateDoubleClickSelector
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   453
'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
   454
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   455
#valueChangeSelector
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   456
'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
   457
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   458
#verticalLayout
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   459
'specifies how components are to be arranged vertically'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   460
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   461
#verticalMiniScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   462
'use a mini-verticalScroller'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   463
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   464
#verticalScroller
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   465
'make the view vertically scrollable'
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   466
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   467
#verticalSpace
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   468
'the vertical space between elements on pixels'
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   469
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   470
#windowIcon
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   471
'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
   472
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   473
#windowIconLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   474
'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
   475
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   476
#windowLabel
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   477
'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
   478
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   479
)
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   480
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   481
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   482
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   483
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   484
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   485
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   486
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   487
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   488
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   489
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   490
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   491
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   492
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   493
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   494
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   495
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   496
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   497
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   498
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   499
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   500
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   501
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   502
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   503
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   504
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   505
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   506
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   507
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   508
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   509
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   510
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   511
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   512
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   513
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   514
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
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
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   521
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   522
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   523
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   524
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   525
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   526
    ^ specification
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
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   531
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   532
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   533
    "
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   534
    self releaseResources.
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
    aSpec isNil ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   537
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   538
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   539
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   540
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   541
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   542
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   543
    ] ifFalse:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   544
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   545
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   546
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   547
        ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   548
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   549
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   550
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   551
        specification  := aSpec.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   552
        
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   553
        "/ some tricky specs need the builder
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   554
        "/ during the addBindings phase.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   555
        "/ This is passed down in a special UIBindingsDictionary
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   556
        "/ (remain backward compatible)
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   557
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   558
        aspects        := UISpecification newBindingsDictionary.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   559
        aspects builder:builder.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   560
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   561
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   562
        specification class addBindingsTo:aspects for:specification channel:specChannel.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   563
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   564
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   565
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   566
    selection notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   567
        self clearScrolledView.
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   568
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   569
    ].
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   570
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   571
    "Modified: / 30.1.1998 / 13:50:51 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   572
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   573
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   574
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   575
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   576
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   577
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   578
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   579
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   580
        modifiedHolder removeDependent: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
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   584
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   585
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   586
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   587
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   588
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   589
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   590
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   591
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   592
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   593
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   594
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   595
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   596
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   597
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   598
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   599
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   600
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   601
    "Modified: / 29.10.1997 / 18:29:17 / cg"
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
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   604
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   605
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   606
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   607
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   608
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   609
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   610
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   611
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   612
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   613
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   614
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   615
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   616
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   617
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   618
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   619
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   620
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   621
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   622
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   623
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   624
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   625
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   626
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   627
428
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
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   630
releaseResources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   631
    "release resources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   632
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   633
    |frame appl view vscroller|
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   634
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   635
    frame := self windowFrame.
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   636
    appl  := builder application.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   637
    builder := UIBuilder new.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   638
    builder application:appl.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   639
    builder componentAt:#Frame put:frame.
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
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   688
    |slices idx spec frame y window|
164
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:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   700
        self releaseResources.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   701
        self clearScrolledView.
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   702
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   703
        window  := self scrolledView scrolledView.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   704
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   705
        spec notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   706
            builder buildFromSpec:spec in:window.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   707
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   708
            window allViewBackground:(self windowFrame viewBackground).
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   709
            window extent:1.0@(window preferredExtent y).
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   710
            masterApplication updateFonts.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   711
            window realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   712
            self scrolledView sizeChanged:nil.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   713
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   714
    ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   715
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   716
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   717
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   718
!UISpecificationTool methodsFor:'spec. window'!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   719
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   720
clearScrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   721
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   722
    scrolledView isNil ifFalse:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   723
        scrolledView scrolledView destroySubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   724
    ]
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   725
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   726
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   727
scrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   728
    |frame vscroller|
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   729
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   730
    scrolledView isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   731
        frame     := self windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   732
        vscroller := ScrollableView for:ViewScroller origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:frame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   733
        vscroller verticalScrollable:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   734
        vscroller verticalMini:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   735
        vscroller autoHideScrollBars:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   736
        scrolledView := vscroller scrolledView.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   737
        scrolledView scrolledView:View new.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   738
        frame realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   739
        frame sizeChanged:nil.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   740
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   741
    ^ scrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   742
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   743
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   744
windowFrame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   745
    windowFrame isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   746
        windowFrame := builder componentAt:#Frame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   747
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   748
    ^ windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   749
! !
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   750
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   751
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   752
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   753
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   754
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   755
! !