UISpecificationTool.st
author Claus Gittinger <cg@exept.de>
Fri, 19 Mar 1999 21:05:54 +0100
changeset 1066 5096f66ba82d
parent 1063 9e710dbc7c92
child 1069 7196ca547f5d
permissions -rw-r--r--
new inputField accept/modified behavior
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
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
    18
		scrolledView windowFrame acceptChannel'
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
847
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
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
847
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   161
#dblClickChannel
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   162
''
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   163
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   164
#defaultLabel
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   165
'Default label (used, if nothing selected).'
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
#document
855
07344de4bed4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 847
diff changeset
   168
'Aspect selector or binding for a holder of the URL of the document.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   169
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   170
#doubleClickSelector
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   171
'Message sent to the application upon double click.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   172
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   173
#downAction
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   174
'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
   175
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   176
#enableChannel
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   177
'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
   178
1051
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   179
#escapeIsCancelInDialog
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   180
'If on, and the window is opened modal, the ESC-Key acts like a Cancel-action'
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   181
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   182
#fileSelectionFilterClas
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   183
'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
   184
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   185
#fileSelectionTreeRoot
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   186
'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
   187
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   188
#fitLastRow
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   189
'Resize the last row to fit the width of the widget.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   190
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   191
#fontMenu
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   192
'Defines the font used by the widget.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   193
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   194
#forceRecursiveBackground
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   195
'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
   196
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   197
#foregroundChannel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   198
'Aspect selector or binding for a foreground color holder.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   199
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   200
#foregroundColor
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   201
'Defines the foreground color of the widget.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   202
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   203
#galleryLabels
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   204
'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
   205
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   206
#galleryModel
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   207
'Aspect selector or binding for the selected label.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   208
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   209
#gallerySelection
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   210
'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
   211
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   212
#gallerySelectors
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   213
'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
   214
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   215
#has3Dsepartors
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   216
'Enable 3D-look row/column separators.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   217
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   218
#hierarchicalList
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   219
'Aspect selector or binding for a root item holder.'
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
#hierarchicalListButton
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   222
'Opens a Hierarchical List Editor on the application class and the defined selector.'
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
#horizontalLayout
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   225
'Defines how sub components are arranged horizontally.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   226
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   227
#horizontalMiniScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   228
'Use a mini-scroller as horizontal scrollbar.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   229
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   230
#horizontalScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   231
'Enable horizontal scrollability.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   232
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   233
#horizontalSpace
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   234
'Horizontal space between sub components (in pixels).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   235
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   236
#id
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   237
'Unique symbolic name (ID) of the widget.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   238
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   239
#initiallyDisabled
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   240
'Widget is initially disabled.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   241
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   242
#initiallyInvisible
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   243
'Widget is initially invisible.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   244
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   245
#inputFieldGroup
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   246
'Unique symbolic name (ID) for the group of the entry field.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   247
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   248
#isMultiSelect
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   249
'Enable/disable multiple selections.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   250
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   251
#isOpaque
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   252
'If on, the widget is displayed opaque; if off, its transparent.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   253
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   254
#isTriggerOnDown
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   255
'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
   256
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   257
#label
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   258
'The label of the widget.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   259
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   260
#labelChannel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   261
'Aspect selector or binding for a labelString holder.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   262
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   263
#labelIsImage
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   264
'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
   265
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   266
#labelPositionList
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   267
'Defines the position of the label.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   268
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   269
#lampColor
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   270
'Defines the lamps color.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   271
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   272
#level
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   273
'Level of the 3D-border (in pixels); Take widgets default, if left empty.'
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
#listHolder
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   276
'Aspect selector or binding for the list holder.'
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
#majorKey
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   279
'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
   280
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   281
#maxChars
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   282
'Maximum number of characters in the field.'
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
#maxSize
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   285
'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
   286
847
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   287
#maxValue
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   288
'An optional maximum value (if fieldType = numberInRange)'
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   289
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   290
#maxXField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   291
'The maximum width of the applications topWindow.'
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
#maxYField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   294
'The maximum height of the applications topWindow.'
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
#menuButton
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   297
'Open a Menu Editor on the menu.'
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
#menuId
1051
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   300
'Aspect selector or binding providing the menu spec.'
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
#menuPerformer
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   303
'Aspect selector or binding providing the receiver of menu messages.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   304
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   305
#middleButtonPressed
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   306
'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
   307
847
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   308
#minValue
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   309
'An optional minimum value (if fieldType = numberInRange)'
15f688710007 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 845
diff changeset
   310
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   311
#minXField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   312
'The minimum width of the applications topWindow.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   313
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   314
#minYField
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   315
'The minimum height of the applications topWindow.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   316
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   317
#minorKey
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   318
'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
   319
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   320
#modifiedChannel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   321
'Aspect selector or binding for a holder for the modified-flag.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   322
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   323
#monitoring
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   324
'Enable automatic update whenever the directory is modified.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   325
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   326
#monitoringDelayTime
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   327
'Time in seconds between updates (if monitoring is enabled).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   328
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   329
#moveSelectedRow
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   330
'Enable/disable automatic movement of the row containing the selected tab item.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   331
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   332
#oneTabPerLine
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   333
'Arrange tabs vertically, with only one tab item per row.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   334
610
c6dc33689c6a Add help for subSpec GUI Painter opening.
Stefan Vogel <sv@exept.de>
parents: 584
diff changeset
   335
#openSubSpecGuiHelp
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   336
'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
   337
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   338
#orientation
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   339
'Defines the orientation (horizontal or vertical).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   340
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   341
#paramAdd
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   342
'Adds a name-value pair to the appletParameter collection.'
540
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
#paramList
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   345
'Lists defined parameters.'
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
#paramNameField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   348
'The name of the appletParameter.'
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
#paramRemove
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   351
'Removes that appletParameter.'
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
#paramValueField
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   354
'The value of the appletParameter.'
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   355
1024
d5085dcaa9ad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 893
diff changeset
   356
#chartHolder
d5085dcaa9ad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 893
diff changeset
   357
'Value holder on a chart description.'
d5085dcaa9ad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 893
diff changeset
   358
d5085dcaa9ad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 893
diff changeset
   359
#chartLabel
d5085dcaa9ad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 893
diff changeset
   360
'Label string shown with the chart.'
d5085dcaa9ad checkin from browser
Claus Gittinger <cg@exept.de>
parents: 893
diff changeset
   361
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   362
#radioButtonGroup
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   363
'Aspect selector or binding providing the radioButton group-model.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   364
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   365
#radioButtonValue
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   366
'Value passed to the radioButton group-model.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   367
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   368
#readOnly
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   369
'Make the contents be readOnly.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   370
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   371
#regionType
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   372
'Defines the shape of the widget.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   373
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   374
#resizeForLabel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   375
'Enable/disable automatic resize after a label change.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   376
1051
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   377
#returnIsOKInDialog
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   378
'If on, and the window is opened modal, the Return/Enter-Key acts like an Accept-action'
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   379
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   380
#rowIfAbsent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   381
'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
   382
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   383
#selectConditionSelector
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   384
'Message sent to the application to validate a selection (not selectable if false is returned).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   385
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   386
#selectionHolder
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   387
'Aspect selector or binding for a holder on the selection.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   388
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   389
#setMaxExtent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   390
'Pick the maximum extent from the canvases current extent.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   391
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   392
#setMinExtent
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   393
'Pick the minimum extent from the canvases current extent.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   394
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   395
#showDirectoryIndicator
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   396
'Show/hide directory indicators for non-empty directories.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   397
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   398
#showDirectoryIndicatorForRoot
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   399
'Show/hide the directory indicator for the root item.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   400
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   401
#showLamp
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   402
'Show/hide the colored lamp.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   403
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   404
#showLines
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   405
'Show/hide connecting lines between tree items.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   406
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   407
#showPercentage
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   408
'Show/hide the percentage display.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   409
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   410
#showRoot
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   411
'Show/hide the root item.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   412
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   413
#showSeparatingLines
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   414
'Show/hide separated lines.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   415
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   416
#sizeAsDefault
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   417
'Size the widget to include space for the default-(return) bitmap.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   418
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   419
#specHolder
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   420
'Aspect selector or binding for holding the selector returning a window specification.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   421
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   422
#start
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   423
'Defines the ranges minimum.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   424
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   425
#step
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   426
'Defines the step within the range.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   427
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   428
#stop
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   429
'Defines the ranges maximum.'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   430
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   431
#supportsExpandAll
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   432
'Enable/disable the expand-all function'
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   433
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   434
#highlightMode
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   435
'Defines how selected items are highlighted'
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   436
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   437
#itemContentsSelector
1042
10adcd590f2a help text changed
Claus Gittinger <cg@exept.de>
parents: 1033
diff changeset
   438
'Method in the application to return a block retrieveing a nodes (lazy) contents.'
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   439
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   440
#itemLabelSelector
1042
10adcd590f2a help text changed
Claus Gittinger <cg@exept.de>
parents: 1033
diff changeset
   441
'Method in the application to return a block retrieveing nodes (lazy) label.'
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   442
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   443
#itemChildrenSelector
1042
10adcd590f2a help text changed
Claus Gittinger <cg@exept.de>
parents: 1033
diff changeset
   444
'Method in the application to return a block retrieveing nodes (lazy) children.'
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   445
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   446
#itemIconSelector
1042
10adcd590f2a help text changed
Claus Gittinger <cg@exept.de>
parents: 1033
diff changeset
   447
'Method in the application to return a block retrieveing nodes (lazy) icon.'
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   448
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   449
#tabLabels
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   450
'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
   451
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   452
#tabOrientation
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   453
'Defines the side for the arrangement of the tab items.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   454
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   455
#tabWidget
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   456
'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
   457
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   458
#tabable
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   459
'Widget can be reached by pressing the TAB key.'
540
cf67668c680c help texts
Claus Gittinger <cg@exept.de>
parents: 536
diff changeset
   460
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   461
#translateLabel
837
51876d557fed help texts
Claus Gittinger <cg@exept.de>
parents: 801
diff changeset
   462
'Translate the label via the resource mechanism to a national language string.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   463
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   464
#typeConverter
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   465
'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
   466
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   467
#upAction
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   468
'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
   469
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   470
#useIndex
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   471
'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
   472
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   473
#usePreferredExtent
1051
148c81e896ac help texts
Claus Gittinger <cg@exept.de>
parents: 1042
diff changeset
   474
'If on, the window computes its preferred extent; if off, the layout-sections value is used.'
367
5a78ebab56ff more helpTexts
Claus Gittinger <cg@exept.de>
parents: 364
diff changeset
   475
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   476
#validateDoubleClickSelector
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   477
'Message sent to the application to validate double click (no action if false is returned).'
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   478
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   479
#validateExpandabilitySelector
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   480
'Message sent to the application to validate expand on double click (no expand if false is returned).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   481
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   482
#valueChangeSelector
1028
592cfb2232ce help texts
Claus Gittinger <cg@exept.de>
parents: 1024
diff changeset
   483
'Message sent to the application when the selection has changed.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   484
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   485
#verticalLayout
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   486
'Defines how sub components are vertically arranged.'
294
65cb680c74e4 add some helptext
ca
parents: 172
diff changeset
   487
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   488
#verticalMiniScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   489
'Use a mini-scroller as vertical scrollbar.'
303
798e309561f1 checkin from browser
ca
parents: 294
diff changeset
   490
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   491
#verticalScroller
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   492
'Enable vertical scrollability.'
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   493
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   494
#verticalSpace
780
96270af95475 help texts revised
tz
parents: 759
diff changeset
   495
'Vertical space between the sub components (in pixels).'
580
77cf5b8dcffc checkin from browser
ca
parents: 540
diff changeset
   496
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   497
#windowIcon
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   498
'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
   499
350
28128eeb98f0 more help messages.
Claus Gittinger <cg@exept.de>
parents: 346
diff changeset
   500
#windowLabel
801
50231f23e149 help texts
Claus Gittinger <cg@exept.de>
parents: 783
diff changeset
   501
'Label of the top window.'
307
fe559a9136d9 changes caused by update of help tool
ca
parents: 303
diff changeset
   502
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   503
)
855
07344de4bed4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 847
diff changeset
   504
07344de4bed4 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 847
diff changeset
   505
    "Modified: / 29.5.1998 / 21:50:15 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   506
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   507
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   508
!UISpecificationTool class methodsFor:'interface specs'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   509
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   510
windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   511
    "this window spec was automatically generated by the ST/X UIPainter"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   512
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   513
    "do not manually edit this - the painter/builder may not be able to
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   514
     handle the specification if its corrupted."
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   515
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   516
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   517
     UIPainter new openOnClass:UISpecificationTool andSelector:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   518
     UISpecificationTool new openInterface:#windowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   519
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   520
    "UISpecificationTool open"
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   521
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   522
    <resource: #canvas>
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   523
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   524
    ^
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   525
     
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   526
       #(#FullSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   527
          #'window:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   528
           #(#WindowSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   529
              #'name:' 'uIPainterView'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   530
              #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   531
              #'label:' 'unnamed canvas'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   532
              #'bounds:' #(#Rectangle 0 0 300 300)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   533
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   534
          #'component:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   535
           #(#SpecCollection
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   536
              #'collection:' 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   537
               #(
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   538
                 #(#ViewSpec
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   539
                    #'name:' 'Frame'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   540
                    #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   541
                )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   542
              )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   543
          )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   544
      )
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   545
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   546
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   547
!UISpecificationTool methodsFor:'accessing'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   548
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   549
acceptChannel
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   550
    "return the value of the instance variable 'acceptChannel' (automatically generated)"
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   551
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   552
    ^ masterApplication acceptChannel
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   553
!
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   554
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   555
specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   556
    "gets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   557
    "
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   558
    ^ specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   559
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   560
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   561
!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   562
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   563
specification:aSpec
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   564
    "sets current edit specification
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   565
    "
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   566
    self releaseResources.
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   567
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   568
    aSpec isNil ifTrue:[
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   569
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   570
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   571
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   572
        specChannel   := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   573
        specification := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   574
        aspects       := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   575
    ] ifFalse:[
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   576
        "/ same type of spec - simply change the spec;
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   577
        "/ no need to setup everything
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   578
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   579
        specification class == aSpec class ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   580
            specification := aSpec.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   581
          ^ specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   582
        ].
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   583
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   584
        specChannel notNil ifTrue:[ specChannel release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   585
        aspects     notNil ifTrue:[ aspects     release ].
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   586
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   587
        specification  := aSpec.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   588
        
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   589
        "/ some tricky specs need the builder
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   590
        "/ during the addBindings phase.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   591
        "/ This is passed down in a special UIBindingsDictionary
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   592
        "/ (remain backward compatible)
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   593
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   594
        aspects        := UISpecification newBindingsDictionary.
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   595
        aspects builder:builder.
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   596
        aspects at:#modifiedChannel put:modifiedHolder.
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1051
diff changeset
   597
        aspects at:#acceptChannel put:self acceptChannel.
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   598
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   599
        specChannel    := specification asValue.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   600
        specification class addBindingsTo:aspects for:specification channel:specChannel.
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   601
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   602
        "/ arrange for being notified, if any aspect changes
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   603
        aspects do:[:el| el addDependent:self ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   604
    ].
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   605
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   606
    selection notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   607
        self clearScrolledView.
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   608
        selection := nil.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   609
    ].
536
3991e37ec19f pass special dictionary as bindings-environmnt
Claus Gittinger <cg@exept.de>
parents: 428
diff changeset
   610
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   611
    "Modified: / 16.7.1998 / 19:39:42 / cg"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   612
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   613
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   614
!UISpecificationTool methodsFor:'accessing channels'!
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   615
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   616
modifiedHolder:aValueHolder
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   617
    "set the value holder set to true in case of modifying attributes
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   618
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   619
    modifiedHolder notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   620
        modifiedHolder removeDependent:self. 
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   621
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   622
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   623
    (modifiedHolder := aValueHolder) notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   624
        modifiedHolder addDependent:self.
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   625
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   626
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   627
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   628
364
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   629
!UISpecificationTool methodsFor:'actions'!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   630
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   631
setMaxExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   632
    "set the windows maxExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   633
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   634
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   635
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   636
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   637
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   638
    (self aspectFor:#maxX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   639
    (self aspectFor:#maxY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   640
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   641
    "Modified: / 29.10.1997 / 18:29:17 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   642
!
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   643
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   644
setMinExtent
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   645
    "set the windows minExtent from its current extent"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   646
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   647
    |canvas currentExtent|
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   648
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   649
    canvas := self masterApplication painter topView.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   650
    currentExtent := canvas extent.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   651
    (self aspectFor:#minX) value:currentExtent x.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   652
    (self aspectFor:#minY) value:currentExtent y.
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   653
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   654
    "Created: / 29.10.1997 / 18:17:55 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   655
    "Modified: / 29.10.1997 / 18:28:53 / cg"
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   656
! !
c175e197f050 setMin / setMax
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
   657
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   658
!UISpecificationTool methodsFor:'bindings'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   659
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   660
aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   661
    "returns aspect for a key or nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   662
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   663
    aspects notNil ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   664
        ^ aspects at:aKey ifAbsent:nil
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   665
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   666
    ^ super aspectFor:aKey
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   667
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   668
!
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   669
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   670
releaseResources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   671
    "release resources
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   672
    "
876
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   673
    |frame appl|
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   674
876
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   675
    builder notNil ifTrue:[
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   676
        frame := self windowFrame.
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   677
        appl  := builder application.
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   678
        builder application:appl.
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   679
        builder componentAt:#Frame put:frame.
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   680
    ].
869
65588145cd06 #createBuilder was removed
Claus Gittinger <cg@exept.de>
parents: 855
diff changeset
   681
876
32b1012426e3 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 870
diff changeset
   682
    "Modified: / 20.6.1998 / 15:45:20 / cg"
584
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   683
!
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   684
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   685
specificationFor:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   686
    "this is called if our current specification contains 
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   687
     subspecifications or subcanvases.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   688
     Get the subspecification from the current specification"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   689
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   690
    |cls|
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   691
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   692
    cls := specification class.
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   693
    (cls respondsTo:aKey) ifTrue:[
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   694
        ^ cls perform:aKey
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   695
    ].
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   696
    ^ nil
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   697
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   698
    "Created: / 4.2.1998 / 23:52:39 / stefan"
351914fcc5a4 Define #specificationFor: to fetch subspecifications and
Stefan Vogel <sv@exept.de>
parents: 580
diff changeset
   699
    "Modified: / 4.2.1998 / 23:58:23 / stefan"
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   700
! !
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   701
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   702
!UISpecificationTool methodsFor:'change & update'!
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   703
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   704
update
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   705
    "reload specification
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   706
    "
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   707
    specChannel notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   708
        specChannel value:specification.
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   709
    ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   710
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   711
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   712
!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   713
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   714
update:something with:someArgument from:someone
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   715
    "any attribute changed its state in the current specification
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   716
    "
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   717
    someone ~~ modifiedHolder ifTrue:[
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   718
        "/ any in the spec has changed.
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   719
        "/ update my modified holders value
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   720
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   721
        modifiedHolder value ~~ true ifTrue:[
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   722
            modifiedHolder value:true
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   723
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   724
    ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   725
893
09ea254a9fda comments
Claus Gittinger <cg@exept.de>
parents: 876
diff changeset
   726
    "Modified: / 16.7.1998 / 19:25:59 / cg"
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   727
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   728
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   729
!UISpecificationTool methodsFor:'selection'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   730
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   731
selection:something
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   732
    "selection changed
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   733
    "
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   734
    |slices idx spec frame y window|
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   735
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   736
    specification notNil ifTrue:[
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   737
        slices := specification class slices.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   738
        idx:= slices findFirst:[:aSlice| aSlice first = something ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   739
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   740
        idx ~~ 0 ifTrue:[
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   741
            spec := specification class perform:((slices at:idx) last).
428
f87cca33874e remove dependencies from builder when selection changed
ca
parents: 367
diff changeset
   742
        ]
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   743
    ].
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   744
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   745
    spec ~= selection ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   746
        self releaseResources.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   747
        self clearScrolledView.
752
2dc82cdfdd90 help texts
tz
parents: 610
diff changeset
   748
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   749
        window  := self scrolledView scrolledView.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   750
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   751
        spec notNil ifTrue:[
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   752
            builder buildFromSpec:spec in:window.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   753
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   754
            window allViewBackground:(self windowFrame viewBackground).
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   755
            window extent:1.0@(window preferredExtent y).
1033
21b3bc025e0c removed the (stupid) fontSettings menu support.
Claus Gittinger <cg@exept.de>
parents: 1028
diff changeset
   756
"/            masterApplication updateFonts.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   757
            window realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   758
            self scrolledView sizeChanged:nil.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   759
        ]
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   760
    ].
172
10e8e0510baa helpSpec no longer under UIPainter
ca
parents: 164
diff changeset
   761
    selection := spec.
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   762
! !
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   763
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   764
!UISpecificationTool methodsFor:'spec. window'!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   765
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   766
clearScrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   767
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   768
    scrolledView isNil ifFalse:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   769
        scrolledView scrolledView destroySubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   770
    ]
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   771
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   772
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   773
scrolledView
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   774
    |frame vscroller|
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   775
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   776
    scrolledView isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   777
        frame     := self windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   778
        vscroller := ScrollableView for:ViewScroller origin:0.0 @ 0.0 corner:1.0 @ 1.0 in:frame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   779
        vscroller verticalScrollable:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   780
        vscroller verticalMini:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   781
        vscroller autoHideScrollBars:true.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   782
        scrolledView := vscroller scrolledView.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   783
        scrolledView scrolledView:View new.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   784
        frame realizeAllSubViews.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   785
        frame sizeChanged:nil.
845
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   786
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   787
        "/ 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
   788
        "/ 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
   789
        "/ (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
   790
        "/ the scrolled view.
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   791
        scrolledView level:0.
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   792
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   793
    ^ scrolledView
845
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   794
146b3f78afcb we dont want any 3D effect for the scrolled view
Claus Gittinger <cg@exept.de>
parents: 837
diff changeset
   795
    "Modified: / 21.5.1998 / 00:59:05 / cg"
759
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   796
!
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   797
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   798
windowFrame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   799
    windowFrame isNil ifTrue:[
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   800
        windowFrame := builder componentAt:#Frame
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   801
    ].
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   802
    ^ windowFrame.
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   803
! !
f0c325edcc6c add scroller
ca
parents: 752
diff changeset
   804
164
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   805
!UISpecificationTool class methodsFor:'documentation'!
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   806
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   807
version
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   808
    ^ '$Header$'
1bc26edd0d3e intitial checkin
ca
parents:
diff changeset
   809
! !