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