UISpecificationTool.st
author tz
Mon, 20 Apr 1998 00:22:38 +0200
changeset 788 8f9f3c3fcf60
parent 783 06d23b8b66bd
child 801 50231f23e149
permissions -rw-r--r--
avoid modified problems
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    78
'Turns on/off that after each typing in the entry string is sent to the model.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    81
'Turns on/off that after leaving the entry field the entry string is sent to the model.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    84
'Turns on/off that after loosing the focus the entry string is sent to the model.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    87
'Turns on/off that after pressing the return key the entry string is sent to the model.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    90
'Turns on/off that after pressing the tab key the entry string is sent to the model.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    93
'Name of the selector which is sent to the application when the widget is pressed.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
    96
'Argument passed with the action selector.'
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
780
96270af95475 help texts revised
tz
parents: 759
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
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   114
'Turns on/off that the action is evaluated repeatly 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   123
'Turns on/off displaying of a return key after the label string.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   126
'Turns on/off that each row in the list is dependent.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   129
'Aspect selector or binding for en-/disabling 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   138
'The argument to the selector or none.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   141
'The name of the selector 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   144
'Aspect selector or binding for holding 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   147
'Returns an application which provides the builder. 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
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
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   159
'Aspect selector or binding for holding 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   165
'Aspect selector or binding for holding 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   168
'Name of the selector 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   171
'Name of the selector which is 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   174
'Aspect selector or binding for en-/disabling of 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
780
96270af95475 help texts revised
tz
parents: 759
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   180
'Aspect selector or binding for holding the path name of the root directory.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   183
'Turns on/off that the tab items are fitted to the width of the widget''s view.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   186
'Defines the font style of 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
783
06d23b8b66bd help texts
tz
parents: 780
diff changeset
   189
'Turns on/off that above background color is recursively set for 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   192
'Aspect selector or binding for the foreground color of the widget.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   198
'Aspect selector or binding for holding the list of the labels.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   204
'Aspect selector or binding for the resource specification of the current 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   207
'Name of the selector sent to the application returning a list of resource specification selectors.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   208
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   209
#has3Dsepartors
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   210
'Turns on/off that the separators of the columns and rows has a 3D-look.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   213
'Aspect selector or binding for holding the root item of the hierarchical list.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   219
'Defines how sub components are horizontally arranged.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   222
'Turns on/off that the widget uses a small horizontal scroll bar.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   225
'Turns on/off that the widget provides horizontal scrolling capabilities.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   228
'Horizontal space between the 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   234
'Turns on/off that the 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   237
'Turns on/off that the 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   243
'Turns on/off whether multiple selections are allowed.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   244
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   245
#isOpaque
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   246
'Turns on/off that widget is displayed opaque.'
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
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   249
'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
   250
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   251
#label
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   252
'The label of the button.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   255
'Aspect selector or binding for the label of the widget.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   258
'Turns on/off that the string of the label is taken as selector.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   264
'Defines the lamp color of the widget.'
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
783
06d23b8b66bd help texts
tz
parents: 780
diff changeset
   267
'Defines the width 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   270
'Aspect selector or binding for holding the list.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   273
'Name of the class which provides the window specification. If left blank, 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   276
'Maximum number of characters which can be typed in.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   282
'The maximum allowed width of the application window.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   285
'The maximum allowed height of the application window.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   288
'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
   289
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   290
#menuId
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   291
'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
   292
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   293
#menuPerformer
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   294
'Aspect selector or binding for sending the messages of the menu items to an object.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   297
'Name of the selector 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   300
'The minimum allowed width of the application window.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   303
'The minimum allowed height of the application window.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   306
'Name of the selector sent to the application returning a 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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   309
'Aspect selector or binding for setting the widget as modified.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   310
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   311
#monitoring
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   312
'Turns on/off that the widget automatically updates, if the contents of the current directory has changed.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   313
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   314
#monitoringDelayTime
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   315
'Number of the seconds for the delays of the monitoring tasks.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   316
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   317
#moveSelectedRow
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   318
'Turns on/off that the row of the selected tab item is always moved down to the widget''s view.'
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
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   321
'Turns on/off that only one tab item is drawn per line.'
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
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   327
'Defines the direction of the alignment of the two arrows (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
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   330
'Adds a name-value pair to the parameters collection.'
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
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   339
'Removes the definition of the current name.'
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
#parameNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   345
''
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   346
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   347
#radioButtonGroup
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   348
'Aspect selector or binding for the group definitions of the radio buttons.'
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
#radioButtonValue
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   351
'Defines the string which is set in the RadioButtonGroup instance above when pressed.'
540
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
#readOnly
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   354
'Turns on/off that the contents of the widget cannot be modified.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   355
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   356
#regionType
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   357
'Defines the shape of the widget.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   358
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   359
#resizeForLabel
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   360
'Turns on/off whether the widget recomputes its layout, if the extent of the string has changed.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   361
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   362
#rowIfAbsent
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   363
'Name of the selector sent to the application when an empty list entry is detected.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   364
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   365
#selectConditionSelector
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   366
'Name of the selector sent to the application before a selection is performed.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   367
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   368
#selectionHolder
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   369
'Aspect selector or binding for holding the selected value.'
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
#setMaxExtent
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   372
'Picks the current extent of the canvas window and sets it as the maximum extent.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   373
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   374
#setMinExtent
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   375
'Picks the current extent of the canvas window and sets it as the minimum extent.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   376
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   377
#showDirectoryIndicator
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   378
'Turns on/off that directory indicators are shown for none empty directories.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   379
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   380
#showDirectoryIndicatorForRoot
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   381
'Turns on/off that a directory indicator for the root item is shown.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   382
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   383
#showLamp
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   384
'Turns on/off that a colored lamp is shown.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   385
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   386
#showLines
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   387
'Turns on/off that connecting lines are shown between the tree items.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   388
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   389
#showPercentage
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   390
'Turns on/off that a number of percentage is shown.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   391
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   392
#showRoot
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   393
'Turns on/off that the root item is shown.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   394
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   395
#showSeparatingLines
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   396
'Turns on/off that the items are separated by lines.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   397
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   398
#sizeAsDefault
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   399
'Turns on/off that the widget computes its size including space for the default (return) image.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   400
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   401
#specHolder
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   402
'Aspect selector or binding for holding the selector returning a window specification.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   403
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   404
#start
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   405
'Defines the minimum number of the range.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   406
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   407
#step
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   408
'Defines the step number of the range.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   409
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   410
#stop
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   411
'Defines the maximum number of the range.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   412
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   413
#tabLabels
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   414
'Name of the selector sent to the application returning a list of labels for the tab items.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   415
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   416
#tabOrientation
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   417
'Defines the side for the arrangement of the tab items.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   418
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   419
#tabWidget
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   420
'Defines the type of the border style of the tab items (Windows or Mac).'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   421
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   422
#tabable
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   423
'Turns on/off that the widget can be reached by pressing the tab key.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   424
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   425
#translateLabel
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   426
'Turns on/off that the label string is translated via the resource mechanism to a national language string.'
294
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
#typeConverter
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   429
'Defines how the entry field is converted to an object which is sent to the model.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   430
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   431
#upAction
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   432
'Name of the selector which is sent to the application when the up(left)-button is pressed.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   433
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   434
#useIndex
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   435
'Turns on/off that the value model of the selection is provided by the current list index of the item.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   436
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   437
#usePreferredExtent
783
06d23b8b66bd help texts
tz
parents: 780
diff changeset
   438
'Turns on/off that the window application takes its preferred extent from the top component.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   439
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   440
#validateDoubleClickSelector
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   441
'Name of the selector 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
   442
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   443
#valueChangeSelector
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   444
'Name of the selector sent to the application when the widget/item has selected.'
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
#verticalLayout
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   447
'Defines how sub components are vertically arranged.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   448
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   449
#verticalMiniScroller
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   450
'Turns on/off that the widget uses a small vertical scroll bar.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   451
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   452
#verticalScroller
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   453
'Turns on/off that the widget provides vertical scrolling capabilities.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   454
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   455
#verticalSpace
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   456
'Vertical space between the sub components (in pixels).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   457
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   458
#windowIcon
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   459
'Name of the selector sent to the application returning a bitmap image for the icon representation of the window application.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   460
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   461
#windowLabel
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   462
'Label of the window application.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   463
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
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   466
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   467
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   468
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   469
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   470
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   471
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   472
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   473
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   474
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   475
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   476
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   477
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   478
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   479
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   480
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   481
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   482
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   483
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   484
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   485
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   486
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   487
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   488
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   489
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   490
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   491
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   492
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   493
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   494
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   495
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   496
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   497
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   498
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   499
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
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
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   506
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   507
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   508
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   509
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   510
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   511
    ^ specification
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
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   516
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   517
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   518
    "
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   519
    self releaseResources.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   520
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   521
    aSpec isNil ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   522
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   523
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   524
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   525
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   526
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   527
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   528
    ] ifFalse:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   529
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   530
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   531
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   532
        ].
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   533
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   534
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   535
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   536
        specification  := aSpec.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   537
        
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   538
        "/ some tricky specs need the builder
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   539
        "/ during the addBindings phase.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   540
        "/ This is passed down in a special UIBindingsDictionary
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   541
        "/ (remain backward compatible)
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   542
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   543
        aspects        := UISpecification newBindingsDictionary.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   544
        aspects builder:builder.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   545
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   546
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   547
        specification class addBindingsTo:aspects for:specification channel:specChannel.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   548
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   549
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   550
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   551
    selection notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   552
        self clearScrolledView.
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   553
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   554
    ].
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   555
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   556
    "Modified: / 30.1.1998 / 13:50:51 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   557
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   558
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   559
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   560
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   561
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   562
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   563
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   564
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   565
        modifiedHolder removeDependent:self. 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   566
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   567
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   568
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   569
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   570
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   571
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   572
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   573
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   574
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   575
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   576
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   577
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   578
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   579
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   580
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   581
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   582
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   583
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   584
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   585
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   586
    "Modified: / 29.10.1997 / 18:29:17 / cg"
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
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   589
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   590
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   591
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   592
    |canvas currentExtent|
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 := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   595
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   596
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   597
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   598
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   599
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   600
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   601
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   602
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   603
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   604
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   605
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   606
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   607
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   608
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   609
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   610
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   611
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   612
428
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
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   615
releaseResources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   616
    "release resources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   617
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   618
    |frame appl view vscroller|
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   619
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   620
    frame := self windowFrame.
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   621
    appl  := builder application.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   622
    builder := UIBuilder new.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   623
    builder application:appl.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   624
    builder componentAt:#Frame put:frame.
584
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
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   627
specificationFor:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   628
    "this is called if our current specification contains 
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   629
     subspecifications or subcanvases.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   630
     Get the subspecification from the current specification"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   631
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   632
    |cls|
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   633
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   634
    cls := specification class.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   635
    (cls respondsTo:aKey) ifTrue:[
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   636
        ^ cls perform:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   637
    ].
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   638
    ^ nil
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   639
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   640
    "Created: / 4.2.1998 / 23:52:39 / stefan"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   641
    "Modified: / 4.2.1998 / 23:58:23 / stefan"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   642
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   643
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   644
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   645
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   646
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   647
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   648
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   649
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   650
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   651
    ]
164
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
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   656
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   657
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   658
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   659
    someone ~~ modifiedHolder ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   660
        modifiedHolder value ~~ true ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   661
            modifiedHolder value:true
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
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   668
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   669
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   670
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   671
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   672
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   673
    |slices idx spec frame y window|
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   674
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   675
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   676
        slices := specification class slices.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   677
        idx:= slices findFirst:[:aSlice| aSlice first = something ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   678
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   679
        idx ~~ 0 ifTrue:[
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   680
            spec := specification class perform:((slices at:idx) last).
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   681
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   682
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   683
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   684
    spec ~= selection ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   685
        self releaseResources.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   686
        self clearScrolledView.
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   687
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   688
        window  := self scrolledView scrolledView.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   689
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   690
        spec notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   691
            builder buildFromSpec:spec in:window.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   692
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   693
            window allViewBackground:(self windowFrame viewBackground).
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   694
            window extent:1.0@(window preferredExtent y).
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   695
            masterApplication updateFonts.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   696
            window realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   697
            self scrolledView sizeChanged:nil.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   698
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   699
    ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   700
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   701
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   702
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   703
!UISpecificationTool methodsFor:'spec. window'!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   704
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   705
clearScrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   706
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   707
    scrolledView isNil ifFalse:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   708
        scrolledView scrolledView destroySubViews.
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
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   712
scrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   713
    |frame vscroller|
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   714
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   715
    scrolledView isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   716
        frame     := self windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   717
        vscroller := ScrollableView for:ViewScroller origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:frame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   718
        vscroller verticalScrollable:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   719
        vscroller verticalMini:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   720
        vscroller autoHideScrollBars:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   721
        scrolledView := vscroller scrolledView.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   722
        scrolledView scrolledView:View new.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   723
        frame realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   724
        frame sizeChanged:nil.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   725
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   726
    ^ scrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   727
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   728
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   729
windowFrame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   730
    windowFrame isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   731
        windowFrame := builder componentAt:#Frame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   732
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   733
    ^ windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   734
! !
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   735
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   736
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   737
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   738
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   739
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   740
! !