UISpecificationTool.st
author Claus Gittinger <cg@exept.de>
Thu, 21 May 1998 00:59:18 +0200
changeset 845 146b3f78afcb
parent 837 51876d557fed
child 847 15f688710007
permissions -rw-r--r--
we dont want any 3D effect for the scrolled view
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
783
06d23b8b66bd help texts
tz
parents: 780
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    75
'Aspect selector or binding for accepting the entry.'
580
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    78
'Enable sending of the entered string to the model with every key press.'
367
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    81
'Enable sending of the entered string to the model when the mouse pointer is moved out of the field.'
367
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    84
'Enable sending of the entered string to the model when the field looses its input focus.'
540
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    87
'Enable sending of the entered string to the model when the RETURN key is pressed.'
367
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    90
'Enable sending of the entered string to the model when the TAB key is pressed.'
367
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    93
'Name of the message sent to the application when the widget is activated.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
    96
'Optional argument passed with the action message.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   105
'The name of the message sent to the application to provide the view instance.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   111
'Defines 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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   114
'Turn on automatic repetition of the action as long as the button is pressed.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   117
'Aspect selector or binding for the background color of the widget.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   120
'Defines the background color of the widget.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   123
'Show a default (-return) bitmap 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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   126
'Make the widget dependent on each row (i.e. rows send change messages).'
580
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
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   129
'Aspect selector or binding for a boolean holder which enables the widget.'
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
783
06d23b8b66bd help texts
tz
parents: 780
diff changeset
   132
'Defines the width of the border (in pixels).'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   135
'Aspect selector or binding for the 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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   138
'An optional argument passed with the message.'
350
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   141
'The name of the message sent to the application after opening the canvas.'
350
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   144
'Aspect selector or binding for a holder on the client application to be opened.'
580
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   147
'Name of the message which returns an application. By default the application itself is used.'
350
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   153
'The name of the java classFile which contains the applets code. For example: ''ArcTest.class'''
540
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   156
'Opens a Table Columns Builder.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   157
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   158
#columnHolder
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   159
'Aspect selector or binding for a holder on the list of the column descriptions.'
580
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   162
'Default label (used, if nothing selected).'
350
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   165
'Aspect selector or binding for a holder on the file name of the document.'
350
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   168
'Name of the message sent to the application when double clicked.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   169
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   170
#downAction
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   171
'Name of the message sent to the application when the down(right)-button is pressed.'
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
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   174
'Aspect selector or binding for a boolean holder which enables the widget.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   177
'The name of the item class used to create the entries into the hierarchical list.'
580
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   180
'Aspect selector or binding for a holder on the root directories path name.'
350
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   183
'Resize the last row to fit the width of the widget.'
580
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   186
'Defines the font used by the widget.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   189
'If on, the background color is recursively set in all sub components.'
367
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   192
'Aspect selector or binding for a foreground color holder.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   195
'Defines the foreground color of the widget.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   198
'Aspect selector or binding for a holder on the label list.'
350
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   201
'Aspect selector or binding for the selected label.'
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   204
'Aspect selector or binding for a holder which gets the windowSpec of the selected widget.'
307
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
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   207
'Name of the message sent to the application returning a list of resource spec selectors.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   208
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   209
#has3Dsepartors
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   210
'Enable 3D-look row/column separators.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   211
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   212
#hierarchicalList
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   213
'Aspect selector or binding for a root item holder.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   214
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   215
#hierarchicalListButton
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   216
'Opens a Hierarchical List Editor on the application class and the defined selector.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   217
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   218
#horizontalLayout
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   219
'Defines how sub components are arranged horizontally.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   220
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   221
#horizontalMiniScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   222
'Use a mini-scroller as horizontal scrollbar.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   223
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   224
#horizontalScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   225
'Enable horizontal scrollability.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   226
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   227
#horizontalSpace
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   228
'Horizontal space between sub components (in pixels).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   229
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   230
#id
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   231
'Unique symbolic name (ID) of the widget.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   232
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   233
#initiallyDisabled
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   234
'Widget is initially disabled.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   235
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   236
#initiallyInvisible
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   237
'Widget is initially invisible.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   238
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   239
#inputFieldGroup
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   240
'Unique symbolic name (ID) for the group of the entry field.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   241
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   242
#isMultiSelect
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   243
'Enable/disable multiple selections.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   244
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   245
#isOpaque
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   246
'If on, the widget is displayed opaque; if off, its transparent.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   247
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   248
#isTriggerOnDown
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   249
'If on, the button triggers its action when pressed. If off, it triggers on release.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   250
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   251
#label
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   252
'The label of the widget.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   253
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   254
#labelChannel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   255
'Aspect selector or binding for a labelString holder.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   256
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   257
#labelIsImage
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   258
'Label is actually the selector if a message providing an image-label.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   259
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   260
#labelPositionList
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   261
'Defines the position of the label.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   262
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   263
#lampColor
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   264
'Defines the lamps color.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   265
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   266
#level
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   267
'Defines the level of the 3D-border (in pixels).'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   268
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   269
#listHolder
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   270
'Aspect selector or binding for the list holder.'
350
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
#majorKey
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   273
'Name of the class which provides the window spec. If empty, the application itself is used.'
350
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
#maxChars
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   276
'Maximum number of characters in the field.'
350
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
#maxSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   279
'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
   280
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   281
#maxXField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   282
'The maximum width of the applications topWindow.'
350
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
#maxYField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   285
'The maximum height of the applications topWindow.'
350
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
#menuButton
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   288
'Open a Menu Editor on the menu.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   289
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   290
#menuId
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   291
'Aspect selector or binding for a menu spec defining the tool bar components.'
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
#menuPerformer
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   294
'Aspect selector or binding providing the receiver of menu messages.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   295
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   296
#middleButtonPressed
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   297
'Name of the message sent to the application when the middle button is pressed.'
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
#minXField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   300
'The minimum width of the applications topWindow.'
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
#minYField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   303
'The minimum height of the applications topWindow.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   304
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   305
#minorKey
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   306
'Name of the message sent to the application returning the window specification.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   307
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   308
#modifiedChannel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   309
'Aspect selector or binding for a holder for the modified-flag.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   310
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   311
#monitoring
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   312
'Enable automatic update whenever the directory is modified.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   313
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   314
#monitoringDelayTime
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   315
'Time in seconds between updates (if monitoring is enabled).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   316
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   317
#moveSelectedRow
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   318
'Enable/disable automatic movement of the row containing the selected tab item.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   319
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   320
#oneTabPerLine
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   321
'Arrange tabs vertically, with only one tab item per row.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   322
610
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   323
#openSubSpecGuiHelp
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   324
'Opens a GUI Builder on the defined class and selector.'
610
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   325
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   326
#orientation
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   327
'Defines the orientation (horizontal or vertical).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   328
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   329
#paramAdd
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   330
'Adds a name-value pair to the appletParameter collection.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   331
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   332
#paramList
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   333
'Lists defined parameters.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   334
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   335
#paramNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   336
'The name of the appletParameter.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   337
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   338
#paramRemove
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   339
'Removes that appletParameter.'
540
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
#paramValueField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   342
'The value of the appletParameter.'
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
#radioButtonGroup
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   345
'Aspect selector or binding providing the radioButton group-model.'
540
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
#radioButtonValue
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   348
'Value passed to the radioButton group-model.'
540
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
#readOnly
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   351
'Make the contents be readOnly.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   352
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   353
#regionType
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   354
'Defines the shape of the widget.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   355
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   356
#resizeForLabel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   357
'Enable/disable automatic resize after a label change.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   358
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   359
#rowIfAbsent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   360
'Name of the message sent to the application when an empty list entry is detected.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   361
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   362
#selectConditionSelector
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   363
'Name of the message sent to the application to validate a selection.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   364
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   365
#selectionHolder
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   366
'Aspect selector or binding for a holder on the selection.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   367
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   368
#setMaxExtent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   369
'Pick the maximum extent from the canvases current extent.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   370
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   371
#setMinExtent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   372
'Pick the minimum extent from the canvases current extent.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   373
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   374
#showDirectoryIndicator
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   375
'Show/hide directory indicators for non-empty directories.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   376
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   377
#showDirectoryIndicatorForRoot
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   378
'Show/hide the directory indicator for the root item.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   379
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   380
#showLamp
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   381
'Show/hide the colored lamp.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   382
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   383
#showLines
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   384
'Show/hide connecting lines between tree items.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   385
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   386
#showPercentage
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   387
'Show/hide the percentage display.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   388
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   389
#showRoot
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   390
'Show/hide the root item.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   391
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   392
#showSeparatingLines
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   393
'Show/hide separated lines.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   394
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   395
#sizeAsDefault
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   396
'Size the widget to include space for the default-(return) bitmap.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   397
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   398
#specHolder
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   399
'Aspect selector or binding for holding the selector returning a window specification.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   400
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   401
#start
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   402
'Defines the ranges minimum.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   403
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   404
#step
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   405
'Defines the step within the range.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   406
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   407
#stop
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   408
'Defines the ranges maximum.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   409
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   410
#tabLabels
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   411
'Name of the message sent to the application returning a list of labels for the tab items.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   412
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   413
#tabOrientation
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   414
'Defines the side for the arrangement of the tab items.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   415
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   416
#tabWidget
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   417
'Defines the type of the border style of the tab items (Windows style vs. Mac style).'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   418
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   419
#tabable
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   420
'Widget can be reached by pressing the TAB key.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   421
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   422
#translateLabel
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   423
'Translate the label via the resource mechanism to a national language string.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   424
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   425
#typeConverter
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   426
'Defines how the entry string is converted to an object which is passed to the model.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   427
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   428
#upAction
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   429
'Name of the message sent to the application when the up(left)-button is pressed.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   430
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   431
#useIndex
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   432
'If on, use the items index as selection; if off, use the items value.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   433
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   434
#usePreferredExtent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   435
'If on, the window computes its preferred extent. Take specified extent if off.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   436
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   437
#validateDoubleClickSelector
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   438
'Name of the message sent to the application before a not empty directory is opened by a double click.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   439
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   440
#valueChangeSelector
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   441
'Name of the message sent to the application when the widget/item has selected.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   442
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   443
#verticalLayout
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   444
'Defines how sub components are vertically arranged.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   445
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   446
#verticalMiniScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   447
'Use a mini-scroller as vertical scrollbar.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   448
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   449
#verticalScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   450
'Enable vertical scrollability.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   451
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   452
#verticalSpace
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   453
'Vertical space between the sub components (in pixels).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   454
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   455
#windowIcon
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   456
'Name of the message sent to the application returning an icon image for the top window.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   457
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   458
#windowLabel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   459
'Label of the top window.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   460
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   461
)
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   462
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   463
    "Modified: / 20.5.1998 / 01:59:55 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   464
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   465
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   466
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   467
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   468
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   469
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   470
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   471
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   472
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   473
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   474
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   475
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   476
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   477
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   478
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   479
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   480
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   481
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   482
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   483
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   484
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   485
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   486
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   487
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   488
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   489
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   490
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   491
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   492
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   493
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   494
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   495
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   496
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   497
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   498
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   499
                )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   500
              )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   501
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   502
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   503
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   504
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   505
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   506
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   507
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   508
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   509
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   510
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   511
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   512
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   513
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   514
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   515
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   516
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   517
    "
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   518
    self releaseResources.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   519
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   520
    aSpec isNil ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   521
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   522
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   523
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   524
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   525
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   526
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   527
    ] ifFalse:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   528
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   529
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   530
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   531
        ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   532
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   533
        aspects     notNil ifTrue:[ aspects     release ].
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
        specification  := aSpec.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   536
        
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   537
        "/ some tricky specs need the builder
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   538
        "/ during the addBindings phase.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   539
        "/ This is passed down in a special UIBindingsDictionary
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   540
        "/ (remain backward compatible)
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   541
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   542
        aspects        := UISpecification newBindingsDictionary.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   543
        aspects builder:builder.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   544
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   545
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   546
        specification class addBindingsTo:aspects for:specification channel:specChannel.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   547
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   548
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   549
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   550
    selection notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   551
        self clearScrolledView.
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   552
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   553
    ].
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   554
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   555
    "Modified: / 30.1.1998 / 13:50:51 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   556
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   557
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   558
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   559
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   560
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   561
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   562
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   563
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   564
        modifiedHolder removeDependent:self. 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   565
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   566
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   567
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   568
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   569
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   570
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   571
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   572
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   573
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   574
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   575
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   576
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   577
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   578
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   579
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   580
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   581
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   582
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   583
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   584
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   585
    "Modified: / 29.10.1997 / 18:29:17 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   586
!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   587
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   588
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   589
    "set the windows minExtent from its current extent"
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
    |canvas currentExtent|
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 := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   594
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   595
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   596
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   597
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   598
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   599
    "Modified: / 29.10.1997 / 18:28:53 / cg"
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
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   602
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   603
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   604
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   605
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   606
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   607
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   608
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   609
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   610
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   611
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   612
!
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   613
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   614
releaseResources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   615
    "release resources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   616
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   617
    |frame appl view vscroller|
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   618
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   619
    frame := self windowFrame.
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   620
    appl  := builder application.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   621
    builder := UIBuilder new.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   622
    builder application:appl.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   623
    builder componentAt:#Frame put:frame.
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   624
!
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   625
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   626
specificationFor:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   627
    "this is called if our current specification contains 
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   628
     subspecifications or subcanvases.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   629
     Get the subspecification from the current specification"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   630
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   631
    |cls|
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   632
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   633
    cls := specification class.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   634
    (cls respondsTo:aKey) ifTrue:[
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   635
        ^ cls perform:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   636
    ].
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   637
    ^ nil
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   638
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   639
    "Created: / 4.2.1998 / 23:52:39 / stefan"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   640
    "Modified: / 4.2.1998 / 23:58:23 / stefan"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   641
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   642
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   643
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   644
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   645
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   646
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   647
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   648
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   649
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   650
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   651
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   652
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   653
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   654
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   655
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   656
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   657
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   658
    someone ~~ modifiedHolder ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   659
        modifiedHolder value ~~ true ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   660
            modifiedHolder value:true
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   661
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   662
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   663
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   664
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   665
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   666
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   667
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   668
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   669
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   670
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   671
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   672
    |slices idx spec frame y window|
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   673
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   674
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   675
        slices := specification class slices.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   676
        idx:= slices findFirst:[:aSlice| aSlice first = something ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   677
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   678
        idx ~~ 0 ifTrue:[
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   679
            spec := specification class perform:((slices at:idx) last).
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   680
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   681
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   682
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   683
    spec ~= selection ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   684
        self releaseResources.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   685
        self clearScrolledView.
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   686
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   687
        window  := self scrolledView scrolledView.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   688
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   689
        spec notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   690
            builder buildFromSpec:spec in:window.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   691
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   692
            window allViewBackground:(self windowFrame viewBackground).
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   693
            window extent:1.0@(window preferredExtent y).
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   694
            masterApplication updateFonts.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   695
            window realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   696
            self scrolledView sizeChanged:nil.
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
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   700
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   701
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   702
!UISpecificationTool methodsFor:'spec. window'!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   703
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   704
clearScrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   705
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   706
    scrolledView isNil ifFalse:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   707
        scrolledView scrolledView destroySubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   708
    ]
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   709
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   710
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   711
scrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   712
    |frame vscroller|
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   713
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   714
    scrolledView isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   715
        frame     := self windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   716
        vscroller := ScrollableView for:ViewScroller origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:frame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   717
        vscroller verticalScrollable:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   718
        vscroller verticalMini:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   719
        vscroller autoHideScrollBars:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   720
        scrolledView := vscroller scrolledView.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   721
        scrolledView scrolledView:View new.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   722
        frame realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   723
        frame sizeChanged:nil.
845
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   724
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   725
        "/ we dont want any 3D effect for the scrolled view.
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   726
        "/ must change the slaveViews level late, after realization.
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   727
        "/ (scrolledView has its own idea, changing the level of
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   728
        "/ the scrolled view.
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   729
        scrolledView level:0.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   730
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   731
    ^ scrolledView
845
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   732
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   733
    "Modified: / 21.5.1998 / 00:59:05 / cg"
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   734
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   735
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   736
windowFrame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   737
    windowFrame isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   738
        windowFrame := builder componentAt:#Frame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   739
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   740
    ^ windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   741
! !
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   742
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   743
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   744
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   745
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   746
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   747
! !