UIPainter.st
author Claus Gittinger <cg@exept.de>
Tue, 26 Feb 2008 11:42:57 +0100
changeset 2303 17d06263ee96
parent 2296 365b3a73cd28
child 2310 ac9be9035f2c
permissions -rw-r--r--
automatically generated by browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     1
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
     2
 COPYRIGHT (c) 1995-1998 by eXept Software AG
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
     3
              All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     4
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     5
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     6
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     8
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
     9
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    10
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    11
"
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
    12
"{ Package: 'stx:libtool2' }"
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
    13
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
    14
ResourceSpecEditor subclass:#UIPainter
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    15
	instanceVariableNames:'specSuperclassName treeView selectionPanel specTool layoutTool
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
    16
		helpTool painterView painter lastPort lastPage'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
    17
	classVariableNames:'SelectionPanelClass UseViewScroller LastPort LastPage'
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    18
	poolDictionaries:''
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    19
	category:'Interface-UIPainter'
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    20
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    21
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    22
SelectionInTreeView subclass:#TreeView
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
    23
	instanceVariableNames:'lastDrawnMaster canvasEventsDisabled windowSpec windowSpecClass'
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    24
	classVariableNames:''
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    25
	poolDictionaries:''
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
    26
	privateIn:UIPainter
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    27
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    28
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    29
!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    30
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    31
copyright
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    32
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    33
 COPYRIGHT (c) 1995-1998 by eXept Software AG
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    34
              All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    35
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    36
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    37
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    38
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    39
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    40
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    41
 hereby transferred.
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    42
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    43
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    44
!
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    45
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    46
documentation
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    47
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    48
    The GUI Painter provides the user with a graphical user interface for building own 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    49
    interfaces by interactively assembling widgets and defining the behavior of the widgets.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    50
    The resulting interface specifications can be saved as methods on the application
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    51
    classes, typically subclasses of the class ApplicationModel. These specifications
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    52
    are used by the UIBuilder to generate the application window and its widgets when 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    53
    opening the application.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    54
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    55
    [start with:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    56
        UIPainter open
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    57
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    58
    [author:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    59
        Claus Gittinger, eXept Software AG
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    60
        Claus Atzkern, eXept Software AG
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    61
        Thomas Zwick, eXept Software AG
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    62
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    63
    [see also:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    64
        UIBuilder
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    65
        ApplicationModel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
    66
        UISpecification
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    67
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    68
    [instance variables:]                                                  
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    69
        isSpecOnlyPainter       true if this painter is for a spec only (as used by expecco),
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    70
                                as opposed to a regular painter, which stores the spec in a class.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    71
                                A spec-only painter has no class to store additional specs (esp.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    72
                                menu- and tabSpecs) and should not offer postBuild and other
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
    73
                                callback functions.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    74
"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    75
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    76
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    77
!UIPainter class methodsFor:'instance creation'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    78
195
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    79
openOnClass:aClass andSelector:aSelector
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
    80
    "open a GUI Painter on aClass and (windowSpec) aSelector"
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
    81
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
    82
    ^ self new openOnClass:aClass theNonMetaclass andSelector:aSelector
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    83
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    84
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    85
!UIPainter class methodsFor:'ST-80 queries'!
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    86
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    87
preferenceFor:aSymbol
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    88
    "ST-80 compatible; always returns false
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    89
    "
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    90
    ^ false
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    91
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    92
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    93
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    94
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    95
!UIPainter class methodsFor:'accessing'!
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    96
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    97
defaultNameOfCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    98
    "returns the default name of the application"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    99
2208
4e1c31df6014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2206
diff changeset
   100
    ^ 'NewApplication'
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   101
!
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   102
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   103
selectionPanelClass
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   104
    ^ SelectionPanelClass
2225
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   105
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   106
    "
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   107
     UIPainter selectionPanelClass.
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   108
     UIPainter selectionPanelClass:UISelectionPanel
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   109
    "
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   110
!
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
   111
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   112
selectionPanelClass:something
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   113
    "set the class used as selection panel.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   114
     this is UISelectionPanel as default"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   115
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   116
    SelectionPanelClass := something.
2225
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   117
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   118
    "
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   119
     UIPainter selectionPanelClass:UISelectionPanel
b01b58d85458 comments
Claus Gittinger <cg@exept.de>
parents: 2223
diff changeset
   120
    "
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   121
! !
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   122
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   123
!UIPainter class methodsFor:'help specs'!
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   124
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   125
flyByHelpSpec
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   126
    <resource: #help>
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   127
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   128
    ^super flyByHelpSpec addPairsFrom:#(
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   129
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   130
#fileSave
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
   131
'Save Spec'
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
   132
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   133
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   134
)
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   135
!
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   136
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   137
helpSpec
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   138
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   139
     by the UIHelpTool of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   140
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   141
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   142
     the UIHelpTool may not be able to read the specification."
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   143
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   144
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   145
     UIHelpTool openOnClass:UIPainter    
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   146
    "
114befd1c369 add some help text
ca
parents: 287
diff changeset
   147
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   148
    <resource: #help>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   149
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   150
    ^ super helpSpec addPairsFrom:#(
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   151
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   152
#align
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   153
'Widget alignment functions.'
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   154
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   155
#alignSelectionBottom
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   156
'Aligns the selected widgets bottom edges with the bottom of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   157
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   158
#alignSelectionCenterHor
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   159
'Aligns the selected widgets centers vertically with the center of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   160
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   161
#alignSelectionCenterVer
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   162
'Aligns the selected widgets centers horizontally with the center of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   163
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   164
#alignSelectionLeft
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   165
'Aligns the selected widgets left edges with the left edge of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   166
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   167
#alignSelectionLeftAndRight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   168
'Aligns the selected widgets left & right edges with the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   169
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   170
#alignSelectionRight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   171
'Aligns the selected widgets right edges with the right edge of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   172
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   173
#alignSelectionTop
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   174
'Aligns the selected widgets top edgegs with the top edge of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   175
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   176
#alignSelectionTopAndBottom
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   177
'Aligns the selected widgets top and bottom edges with the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   178
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   179
#centerSelectionHor
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   180
'Centers the selected widgets horizontally within their containing widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   181
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   182
#centerSelectionVer
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   183
'Centers the selected widgets vertically within their containing widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   184
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   185
#changePositionDown
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   186
'Moves the selected widget(s) towards the bottom.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   187
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   188
#changePositionLeft
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   189
'Moves the selected widget(s) towards the left.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   190
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   191
#changePositionRight
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   192
'Moves the selected widget(s) towards the right.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   193
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   194
#changePositionUp
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   195
'Moves the selected widget(s) towards the top.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   196
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   197
#drawEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   198
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   199
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   200
#editBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   201
'Opens a browser on the class of the selected widget.'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   202
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   203
#editDimensionCopyExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   204
'Copies the extent of the selected widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   205
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   206
#editDimensionCopyLayout
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   207
'Copies the layout of the selected widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   208
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   209
#editDimensionDefaultExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   210
'Sets the selected widget(s) extent to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   211
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   212
#editDimensionDefaultHeight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   213
'Sets the selected widget(s) height to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   214
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   215
#editDimensionDefaultWidth
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   216
'Sets the selected widget(s) width to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   217
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   218
#editDimensionPasteExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   219
'Sets the extent of the selected widget(s) to the last copied extent.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   220
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   221
#editDimensionPasteHeight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   222
'Sets the height of the selected widget(s) to the height of the last copied layout/extent.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   223
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   224
#editDimensionPasteLayout
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   225
'Sets the layout of the selected widget(s) to the last copied layout.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   226
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   227
#editDimensionPasteWidth
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   228
'Sets the width of the selected widget(s) to the width of the last copied layout/extent.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   229
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   230
#editInspectSpec
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   231
'Opens an inspector on the spec of the selected widget.'
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   232
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   233
#editInspectView
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   234
'Opens an inspector on the selected widget.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   235
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   236
#editOpenSpecDocumentation
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   237
'Opens the documentation of the selected widget.'
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   238
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   239
#fileBrowseAspectMethods
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   240
'Opens a System Browser on the applications aspect methods.'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   241
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   242
#fileBrowseClass
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   243
'Open a System Browser on the applications class.'
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   244
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   245
#fileLoad
1032
abe3ed3bebc9 help texts
Claus Gittinger <cg@exept.de>
parents: 1027
diff changeset
   246
'Opens a dialog to load a window specification from a classes spec method.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   247
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   248
#fileLoadSubspec
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   249
'Opens a dialog to load a sub specification from a classes windowSpec method.'
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   250
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   251
#fileNew
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   252
'Creates a new window spec.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   253
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   254
#filePickAnInterface
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   255
'Select a view on the screen, generate a window spec for it and edit this spec.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   256
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   257
#fileSave
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   258
'Saves the window spec in the current class (as spec method).'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   259
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   260
#fileSaveAs
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   261
'Opens a dialog to select class and selector for saving the window spec.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   262
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   263
#fileShowWindowSpec
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   264
'Opens a Workspace showing the current window spec.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   265
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   266
#generateAspectMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   267
'Generates aspect methods for defined aspect selectors of the widgets.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   268
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   269
#generateHookMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   270
'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   271
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   272
#helpExamples
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   273
'Show some examples uses of the GUI Painter.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   274
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   275
#helpFunctions
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   276
'Show the documentation on the GUI Painters menu and button functions.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   277
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   278
#helpLayoutTool
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   279
'Show the Layout Tools documentation.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   280
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   281
#helpSelectedWidget
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   282
'Show the documentation of the selected widget.'
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   283
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   284
#helpTutorial
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   285
'Show the GUI Painters documentation.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   286
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   287
#historyMenuItem
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   288
'Edit this windowSpec.'
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   289
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   290
#moveWidgetDown
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   291
'Moves the selected widget one step down.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   292
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   293
#moveWidgetInto
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   294
'Moves the selected widget into next widget as child widget.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   295
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   296
#moveWidgetOut
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   297
'Moves the selected widget out of its parent widget.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   298
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   299
#moveWidgetUp
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   300
'Moves the selected widget one step up.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   301
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   302
#pasteBuffer
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   303
'Pastes the widgets of the clipboard at the current mouse position.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   304
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   305
#pasteWithLayout
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   306
'Pastes the widgets of the clipboard without a changing of their layouts.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   307
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   308
#referToCOnfigDatabase
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   309
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   310
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   311
#settingsAspectsAsInstances
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   312
'Generate aspects as instance variables (or bindings, if off).'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   313
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   314
#settingsCanvas
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   315
'Shows or hides the canvas window.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   316
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   317
#settingsGallery
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   318
'Shows or hides the gallery window.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   319
2294
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   320
#settingsGenerateCommentedCode
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   321
''
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   322
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   323
#settingsGridManager
1032
abe3ed3bebc9 help texts
Claus Gittinger <cg@exept.de>
parents: 1027
diff changeset
   324
'Opens a dialog to toggle grid display or to change the grids spacing.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   325
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   326
#settingsRedefineAspectMethods
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   327
'Toggles the permission to overwrite existing aspect methods.'
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   328
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   329
#settingsTranscriptHelp
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   330
'Toggles display of help texts (after opening a new GUI Painter).'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   331
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   332
#settingsUndoManager
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   333
'Opens a dialog to undo modifications.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   334
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   335
#spreadSelectionHor
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   336
'Sets the horizontal spaces between the selected widgets to the same value.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   337
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   338
#spreadSelectionVer
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   339
'Sets the vertical spaces between the selected widgets to the same value.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   340
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   341
#testGeometryTestMode
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   342
'Toggles geometry test mode (to define ratios of variable panels and top-window dimension).'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   343
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   344
#testStartApplication
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   345
'Starts the application with the current window spec.'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   346
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   347
)
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   348
! !
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   349
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   350
!UIPainter class methodsFor:'helpers'!
14db1276218c change the spec;
ca
parents: 295
diff changeset
   351
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   352
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   353
    "converts a string to a string collection with maximum characters
14db1276218c change the spec;
ca
parents: 295
diff changeset
   354
     per line
14db1276218c change the spec;
ca
parents: 295
diff changeset
   355
    "
14db1276218c change the spec;
ca
parents: 295
diff changeset
   356
    |stream
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   357
        max     "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   358
        size    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   359
        start   "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   360
        stop    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   361
        cpySz   "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   362
        lnSz    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   363
        atBeginOfLine|
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   364
14db1276218c change the spec;
ca
parents: 295
diff changeset
   365
    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   366
                               ifTrue:[max := 20].
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   367
14db1276218c change the spec;
ca
parents: 295
diff changeset
   368
    (size := aString size) <= max ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   369
        ^ aString
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   370
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   371
    start  := 1.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   372
    lnSz   := 0.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   373
    stream := (String new:size) writeStream.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   374
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   375
    atBeginOfLine := true.
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   376
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   377
    [start <= size] whileTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   378
        (start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   379
            ^ stream contents
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   380
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   381
        (aString at:start) == $\ ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   382
            skipLineFeed ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   383
                stream nextPut:$\
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   384
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   385
            start := start + 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   386
            stream cr.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   387
            start := start + 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   388
            lnSz := 0.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   389
        ] ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   390
            (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   391
                stop := size + 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   392
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   393
            (aString at:(stop - 1)) == $\ ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   394
                stop := stop - 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   395
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   396
            cpySz := stop - start.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   397
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   398
            lnSz == 0 ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   399
                (lnSz := lnSz + cpySz) >= max ifTrue:[stream cr.    lnSz := cpySz. atBeginOfLine := true. ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   400
                                             ifFalse:[stream space. lnSz := lnSz + 1]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   401
            ] ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   402
                lnSz := cpySz
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   403
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   404
            stream nextPutAll:aString startingAt:start to:(stop - 1).
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   405
            start := stop.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   406
        ]
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   407
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   408
    ^ stream contents
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   409
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   410
    "Modified: / 1.2.1998 / 14:42:56 / cg"
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   411
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
   412
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   413
!UIPainter class methodsFor:'image specs'!
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   414
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   415
arrowDown
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   416
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   417
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   418
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   419
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   420
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   421
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   422
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   423
     self arrowDown inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   424
     ImageEditor openOnClass:self andSelector:#arrowDown
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   425
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   426
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   427
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   428
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   429
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   430
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   431
        constantNamed:'UIPainter class arrowDown'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   432
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? ?>C@XNC <^C;8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   433
@@@@@@@@@@@? A<@C @D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   434
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   435
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   436
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   437
arrowLeft
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   438
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   439
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   440
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   441
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   442
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   443
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   444
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   445
     self arrowLeft inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   446
     ImageEditor openOnClass:self andSelector:#arrowLeft
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   447
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   448
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   449
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   450
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   451
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   452
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   453
        constantNamed:'UIPainter class arrowLeft'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   454
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O7 >^C18NG <^C98O7 ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@H@A @N@A8@C PF@@H@@@@@@@@a') ; yourself); yourself]
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   455
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   456
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   457
arrowRight
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   458
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   459
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   460
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   461
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   462
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   463
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   464
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   465
     self arrowRight inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   466
     ImageEditor openOnClass:self andSelector:#arrowRight
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   467
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   468
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   469
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   470
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   471
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   472
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   473
        constantNamed:'UIPainter class arrowRight'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   474
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O_ <>C18OC <^C38O_ ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@ @C@@NA@<@C @L@@ @@@@@@@@a') ; yourself); yourself]
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   475
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   476
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   477
arrowUp
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   478
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   479
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   480
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   481
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   482
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   483
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   484
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   485
     self arrowUp inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   486
     ImageEditor openOnClass:self andSelector:#arrowUp
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   487
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   488
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   489
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   490
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   491
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   492
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   493
        constantNamed:'UIPainter class arrowUp'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   494
        ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? >>C18NC 0FC?8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A@@NG1<@O8@@@@@@@@@@AP@a') ; yourself); yourself]
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   495
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   496
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   497
browseActionImage
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   498
    "This resource specification was automatically generated
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   499
     by the ImageEditor of ST/X."
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   500
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   501
    "Do not manually edit this!! If it is corrupted,
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   502
     the ImageEditor may not be able to read the specification."
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   503
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   504
    "
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   505
     self browseActionImage inspect
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   506
     ImageEditor openOnClass:self andSelector:#browseActionImage
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   507
     Icon flushCachedIcons
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   508
    "
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   509
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   510
    <resource: #image>
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   511
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   512
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   513
        constantNamed:'UIPainter class browseActionImage'
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   514
        ifAbsentPut:[(Depth8Image new) width: 11; height: 12; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   515
R@@@RT%RST1LTD9H@D%IT%MRSD1PS$!!RT$5RUEILT%INT%UVT%YWU%IVUUIHT%!!YV%-ZVU!!RWD!!MT%Y[@E-VT%5\RD1RU%,@V5YRWU1HT%!!YV%-ZVU!!RWEIU
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   516
U%IVU5YRU%URZ%IR@EITT ART&,@@@@@T%MR@@@@@@@@@@@@T @@@@@@') ; colorMapFromArray:#[255 248 248 63 144 224 64 152 232 79 160 232 64 152 224 64 144 224 63 136 224 48 128 216 48 120 216 47 112 216 47 112 208 32 104 208 32 96 208 31 88 200 16 88 200 16 80 200 15 72 192 15 64 192 0 64 192 0 56 184 0 56 176 0 48 160 143 200 248 128 200 248 127 192 248 112 184 248 111 176 248 96 168 248 95 160 248 80 152 248 79 144 248 64 128 248 63 120 248 48 112 248 32 104 248 31 96 248 16 88 248 15 80 248 0 72 248 0 64 240 0 48 168 112 176 248 111 168 248 96 160 248 95 152 248 80 144 248 79 136 248 63 128 248 48 120 248 47 112 248 15 72 248 0 48 176 95 168 232 191 224 248 191 216 248 176 208 248 175 208 248 175 200 248 160 200 248 160 192 248 159 192 248 159 184 248 144 184 248 144 176 248 143 168 248 128 168 248 128 160 248 127 160 248 127 152 240 31 72 176 111 168 232 127 160 216 207 216 240 240 240 248 240 232 240 63 88 176 239 232 240 240 240 240 48 88 176 96 168 224 224 224 232 96 160 224 240 144 24 255 248 48 255 248 96 255 248 24 240 208 24 255 248 152 255 248 88 255 248 136 255 248 176 255 248 200 48 80 176 223 216 224 96 152 224 96 152 216 95 152 216 48 120 208 80 144 208 80 136 208 79 128 200 79 120 200 79 120 192 64 112 192 64 104 184 63 104 184 63 96 184 15 56 160]; mask:((Depth1Image new) width: 11; height: 12; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A@@N@F;@?>A?0G>@O8A?0O? [,@N@@P@') ; yourself); yourself]
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   517
!
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   518
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   519
defaultIcon
2175
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   520
    <resource: #programImage>
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   521
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   522
    ^ ToolbarIconLibrary startUIPainterIcon
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   523
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   524
    "Created: / 10-02-2007 / 14:45:56 / cg"
2175
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   525
    "Modified: / 17-09-2007 / 11:36:33 / cg"
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   526
!
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   527
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   528
editTableIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   529
    <resource: #programImage>
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   530
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   531
    ^ SystemBrowser tableColumnsIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   532
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   533
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   534
helpIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   535
    <resource: #programImage>
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   536
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   537
    ^ Icon helpIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   538
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   539
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   540
iconAlignB
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   541
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   542
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   543
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   544
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   545
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   546
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   547
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   548
     self iconAlignB inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   549
     ImageEditor openOnClass:self andSelector:#iconAlignB
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   550
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   551
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   552
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   553
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   554
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   555
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   556
        constantNamed:'UIPainter class iconAlignB'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   557
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   558
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@G@@@@@@@G@E@@@@@G@G@@@@@G@G@@@@@G@G@@@E@G@G@@@G@G@G@K@G@G@G@@@G@G@G@A@G@G@G@@
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   559
@G@G@G@K@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G C@G @@G'' @G'' @G'' @G'' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' G'''' O??0O??0@@@@@@@C@@@@') ; yourself); yourself]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   560
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   561
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   562
iconAlignL
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   563
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   564
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   565
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   566
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   567
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   568
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   569
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   570
     self iconAlignL inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   571
     ImageEditor openOnClass:self andSelector:#iconAlignL
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   572
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   573
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   574
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   575
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   576
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   577
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   578
        constantNamed:'UIPainter class iconAlignL'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   579
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   580
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   581
@(@@@@@@@(UU@@@@@(_?@@@@@(@@@@@@@(@@@@@@@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@@@G?>@G?>@G?>@G?>@F@@@F@@@G?? G?? G?? G?? F@@@F@@@G? @G? @G? @G? @F@@@@@@@@@@@') ; yourself); yourself]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   582
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   583
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   584
iconAlignLR
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   585
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   586
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   587
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
   588
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   589
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   590
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   591
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   592
     self iconAlignLR inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   593
     ImageEditor openOnClass:self andSelector:#iconAlignLR
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   594
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   595
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   596
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   597
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   598
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   599
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   600
        constantNamed:'UIPainter class iconAlignLR'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   601
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   602
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   603
@(@@@B @@(UUUR @@(_??B @@(@@@B @@(@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@F@A G?? G?? G?? G?? F@A F@A G?? G?? G?? G?? F@A F@A G?? G?? G?; G?? F@A @@@@@@@@') ; yourself); yourself]
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
   604
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   605
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   606
iconAlignR
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   607
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   608
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   609
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   610
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   611
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   612
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   613
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   614
     self iconAlignR inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   615
     ImageEditor openOnClass:self andSelector:#iconAlignR
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   616
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   617
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   618
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   619
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   620
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   621
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   622
        constantNamed:'UIPainter class iconAlignR'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   623
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   624
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   625
@@@@@B @@@@EUR @@@@G?2 @@@@@@B @@@@@@B @@@@@@@@E@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@A G?? G?? G?? G?? @@A @@A @G? @G? @G? @G? @@A @@@@@@@@') ; yourself); yourself]
1432
c032f34cd7bb remove shortcutKeyCharacter's from menu
ca
parents: 1397
diff changeset
   626
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   627
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   628
iconAlignT
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   629
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   630
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   631
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   632
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   633
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   634
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   635
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   636
     self iconAlignT inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   637
     ImageEditor openOnClass:self andSelector:#iconAlignT
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   638
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   639
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   640
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   641
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   642
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   643
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   644
        constantNamed:'UIPainter class iconAlignT'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   645
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   646
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@K@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@K@G@G@G@@@@@G@G@@@@@G@G@@@@@G@G@@
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   647
@@@G@G@@@@@G@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G'''' G'''' G'''' G''''!!G'''' G'''' G'''' @G'' @G'' @G'' @G'' @G @@G C@@@@@@@@@@@@') ; yourself); yourself]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   648
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   649
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   650
iconAlignTB
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   651
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   652
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   653
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   654
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   655
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   656
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   657
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   658
     self iconAlignTB inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   659
     ImageEditor openOnClass:self andSelector:#iconAlignTB
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   660
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   661
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   662
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   663
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   664
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   665
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   666
        constantNamed:'UIPainter class iconAlignTB'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   667
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   668
@@@@@@@A@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@E@E@E@G@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@H@G@G@G@@@G@G@G@A@G@G@G@@@G@G@G@@
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   669
@G@G@D@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@@@H@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@O??0O??0G'''' G''''!!G'''' G'''' G'''' G'''' G'''' G'''' G''''!!G''''!!G''& G'''' O??0O??2@@@@@@@@@@@@') ; yourself); yourself]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   670
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   671
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   672
iconCenterH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   673
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   674
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   675
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   676
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   677
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   678
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   679
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   680
     self iconCenterH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   681
     ImageEditor openOnClass:self andSelector:#iconCenterH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   682
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   683
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   684
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   685
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   686
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   687
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   688
        constantNamed:'UIPainter class iconCenterH'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   689
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   690
@@@@@@@@@@@@@@@@@(@J@B @@(@J@B @@(UZUR @@(?:?R @@(@J@B @@(@J@B @@(@J@B @@@@J@@@@@EUZUU@@@O?:?=@@@@@J@@@@@(@J@B @@(@J@B @
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   691
@(@J@B @@(EZUB@@@(O:=B @@(@J@B @@(@J@B @@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@C@@A?>@A?>@A?>@A?>@@C@@@C@@G?? G?? G?? G??#@C@@@C@C@?<@@?<A@?<@@?<@@C@@@@@A@@@@') ; yourself); yourself]
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   692
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   693
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   694
iconCenterHInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   695
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   696
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   697
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   698
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   699
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   700
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   701
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   702
     self iconCenterHInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   703
     ImageEditor openOnClass:self andSelector:#iconCenterHInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   704
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   705
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   706
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   707
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   708
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   709
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   710
        constantNamed:'UIPainter class iconCenterHInFrame'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   711
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   712
@@@@@@@@J******@H@@@@@B@HL@@@CB@H8UUUR2@HH???RB@H8@@@B2@HH@@@BB@H8@@@B2@H@@@@@B@HEUUUUB@HO???=B@H@@@@@B@H8@@@@2@HH@@@@B@
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   713
H8@@@@2@HHEUUBB@H8O?=B2@HL@@@CB@H@@@@@B@J******@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@_??8P@@HW??(U?>(U?>(U?>(T@@(T@@(W??(W??(W??(W??+T@@(T@@+T?<(T?<)T?<(W??(P@@H_??9@@@@') ; yourself); yourself]
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   714
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   715
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   716
iconCenterV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   717
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   718
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   719
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   720
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   721
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   722
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   723
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   724
     self iconCenterV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   725
     ImageEditor openOnClass:self andSelector:#iconCenterV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   726
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   727
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   728
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   729
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   730
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   731
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   732
        constantNamed:'UIPainter class iconCenterV'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   733
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   734
@@@@@@@@@@@@@@@@@@@@@@@@B**@J*(@B**MJ*(@@@@M@@@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@B*****(@B*****(@@M@M@M@@@M@M@M@@@E@M@M@@
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   735
@@@M@E@@@@@M@@@@B**EJ*(@B(*@J*(@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G @@G @@G'' G''''!!G'''' G'''' G'''' O??0O??0G'''' G'''' G'''' G'''' @G''#@G @@G C@@@@@@@@@@@@') ; yourself); yourself]
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   736
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   737
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   738
iconCenterVInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   739
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   740
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   741
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   742
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   743
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   744
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   745
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   746
     self iconCenterVInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   747
     ImageEditor openOnClass:self andSelector:#iconCenterVInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   748
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   749
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   750
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   751
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   752
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   753
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   754
        constantNamed:'UIPainter class iconCenterVInFrame'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   755
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   756
@@@@@@@@J******@H@@@@@B@HL3@L3B@H:*GJ*2@H@@G@@B@HG@G@@B@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@GB@HG@G@EB@
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   757
HE@G@@B@H@@G@@B@H:*E@J2@HL3@L3B@H@@@@@B@J******@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B_??9P@@HW??(TG (W'' (W''''*W''''(W''''*W'''')W''''(W'''')W''''+W''''*W''''*W''''(W'' )TG (W??(P@@H_??8@@@@') ; yourself); yourself]
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   758
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   759
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   760
iconDistributeH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   761
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   762
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   763
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   764
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   765
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   766
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   767
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   768
     self iconDistributeH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   769
     ImageEditor openOnClass:self andSelector:#iconDistributeH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   770
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   771
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   772
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   773
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   774
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   775
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   776
        constantNamed:'UIPainter class iconDistributeH'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   777
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1863
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   778
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@E@@E@G@@G@@G@G@@G@@G@GHBGHBG@GHBGHBG@GJ*GJ*G@GHBGHBG@GHBGHBG@GB*GJ G@GB*GJ G@
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   779
G@@G@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@<G <<G <<G ?<G =>O1?>O1????<>O1<>O1><G <<G ><G <<G ?@@@A@@@@@@@@@@@@@@@A') ; yourself); yourself]
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   780
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   781
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   782
iconDistributeV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   783
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   784
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   785
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   786
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   787
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   788
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   789
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   790
     self iconDistributeV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   791
     ImageEditor openOnClass:self andSelector:#iconDistributeV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   792
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   793
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   794
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   795
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   796
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   797
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   798
        constantNamed:'UIPainter class iconDistributeV'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   799
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
1863
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   800
@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@@*(@@@@@JB@@@@@@JB@@@@@@JB@@@@@@J*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@J*(@@@@@JB@@@@
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   801
@@JB@@@@@@@B@@@@@@@*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??@A??@A??CA??@@G0@@A@@@A@@@A@@@G0CA??@A??@A??@A??@@G0C@A@@@A@@@A@@@G0AA??AA??@A??@A??B') ; yourself); yourself]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   802
! !
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   803
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   804
!UIPainter class methodsFor:'initialize'!
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   805
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   806
initialize
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   807
    SelectionPanelClass isNil ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   808
        SelectionPanelClass := UISelectionPanel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   809
    ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   810
! !
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   811
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   812
!UIPainter class methodsFor:'interface specs'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   813
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   814
dialogSpecForDefiningClassAndSelector
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   815
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   816
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   817
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
   818
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   819
     the UIPainter may not be able to read the specification."
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   820
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   821
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   822
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningClassAndSelector
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   823
     UIPainter new openInterface:#dialogSpecForDefiningClassAndSelector
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   824
    "
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   825
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   826
    <resource: #canvas>
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   827
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   828
    ^
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   829
     
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   830
       #(#FullSpec
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   831
          #window: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   832
           #(#WindowSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   833
              #name: 'GUI Painter'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   834
              #layout: #(#LayoutFrame 291 0 130 0 637 0 289 0)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   835
              #label: 'GUI Painter'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   836
              #min: #(#Point 350 160)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   837
              #max: #(#Point 500 160)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   838
              #bounds: #(#Rectangle 291 130 638 290)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   839
              #usePreferredExtent: false
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   840
          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   841
          #component: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   842
           #(#SpecCollection
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   843
              #collection: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   844
               #(
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   845
                 #(#FramedBoxSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   846
                    #name: 'FramedBox'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   847
                    #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   848
                    #component: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   849
                     #(#SpecCollection
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   850
                        #collection: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   851
                         #(
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   852
                           #(#LabelSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   853
                              #name: 'selectorLabel'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   854
                              #layout: #(#AlignmentOrigin 67 0.11 29 0 1 0.5)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   855
                              #label: 'Selector:'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   856
                              #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   857
                              #adjust: #right
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   858
                              #resizeForLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   859
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   860
                           #(#InputFieldSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   861
                              #name: 'methodNameField'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   862
                              #layout: #(#LayoutFrame 70 0.11 18 0 4 1.0 40 0)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   863
                              #tabable: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   864
                              #model: #methodNameChannel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   865
                              #group: #inputGroup
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   866
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   867
                           #(#LabelSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   868
                              #name: 'classLabel'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   869
                              #layout: #(#AlignmentOrigin 67 0.11 54 0 1 0.5)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   870
                              #label: 'Class:'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   871
                              #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   872
                              #adjust: #right
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   873
                              #resizeForLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   874
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   875
                           #(#InputFieldSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   876
                              #name: 'classNameField'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   877
                              #layout: #(#LayoutFrame 70 0.11 43 0 4 1.0 65 0)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   878
                              #tabable: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   879
                              #model: #classNameChannel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   880
                              #group: #inputGroup
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   881
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   882
                           #(#LabelSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   883
                              #name: 'superClassLabel'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   884
                              #layout: #(#AlignmentOrigin 67 0.11 79 0 1 0.5)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   885
                              #label: 'Superclass:'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   886
                              #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   887
                              #adjust: #right
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   888
                              #resizeForLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   889
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   890
                           #(#ComboBoxSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   891
                              #name: 'superclassNameComboBox'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   892
                              #layout: #(#LayoutFrame 70 0.11 68 0 4 1.0 90 0)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   893
                              #tabable: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   894
                              #model: #superclassNameChannel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   895
                              #comboList: #superclassNameDefaults
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   896
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   897
                        )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   898
                    )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   899
                    #label: 'Define Class And Selector'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   900
                    #labelPosition: #topLeft
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   901
                    #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   902
                )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   903
                 #(#UISubSpecification
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   904
                    #name: 'subSpec'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   905
                    #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   906
                    #majorKey: #ToolApplicationModel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   907
                    #minorKey: #windowSpecForCommitWithoutChannels
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   908
                )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   909
              )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   910
          )
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   911
      )
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   912
950
3e227dc788be fixed layout (change with framedBox - sigh)
Claus Gittinger <cg@exept.de>
parents: 939
diff changeset
   913
    "Modified: / 13.8.1998 / 19:59:44 / cg"
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   914
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   915
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   916
dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   917
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   918
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   919
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
   920
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   921
     the UIPainter may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   922
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   923
    "
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   924
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   925
     UIPainter new openInterface:#dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   926
    "
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   927
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   928
    <resource: #canvas>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   929
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   930
    ^ 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   931
     #(FullSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   932
        name: dialogSpecForDefiningGridParameters
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   933
        window: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   934
       (WindowSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   935
          label: 'GUI Painter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   936
          name: 'GUI Painter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   937
          min: (Point 300 200)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   938
          max: (Point 300 200)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   939
          bounds: (Rectangle 16 46 298 244)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   940
        )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   941
        component: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   942
       (SpecCollection
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   943
          collection: (
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   944
           (FramedBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   945
              label: 'Grid Parameter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   946
              name: 'FramedBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   947
              layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   948
              labelPosition: topLeft
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   949
              translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   950
              component: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   951
             (SpecCollection
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   952
                collection: (
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   953
                 (CheckBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   954
                    label: 'Show Grid'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   955
                    name: 'ShowGridCheckBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   956
                    layout: (Point 13 14)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   957
                    model: showGrid
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   958
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   959
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   960
                 (CheckBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   961
                    label: 'Align To Grid'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   962
                    name: 'AlignCheckBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   963
                    layout: (Point 13 42)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   964
                    model: alignToGrid
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   965
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   966
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   967
                 (LabelSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   968
                    label: 'Horizontal Pixels:'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   969
                    name: 'HorizontalPixelsLabel'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   970
                    layout: (AlignmentOrigin 138 0 89 0 1 0.5)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   971
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   972
                    resizeForLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   973
                    adjust: right
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   974
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   975
                 (InputFieldSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   976
                    name: 'HorizontalPixelsField'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   977
                    layout: (LayoutFrame 144 0 77 0 197 0 99 0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   978
                    model: hspace
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   979
                    group: inputGroup
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   980
                    type: numberOrNil
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   981
                    acceptOnPointerLeave: false
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   982
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   983
                 (LabelSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   984
                    label: 'Vertical Pixels:'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   985
                    name: 'VerticalPixelsLabel'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   986
                    layout: (AlignmentOrigin 139 0 114 0 1 0.5)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   987
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   988
                    resizeForLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   989
                    adjust: right
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   990
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   991
                 (InputFieldSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   992
                    name: 'VerticalPixelsField'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   993
                    layout: (LayoutFrame 144 0 102 0 197 0 124 0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   994
                    model: vspace
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   995
                    group: inputGroup
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   996
                    type: numberOrNil
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   997
                    acceptOnPointerLeave: false
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   998
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   999
                 )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1000
               
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1001
              )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1002
            )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1003
           (UISubSpecification
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1004
              name: 'subSpec'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1005
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1006
              majorKey: ToolApplicationModel
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1007
              minorKey: windowSpecForCommitWithoutChannels
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1008
            )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1009
           )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1010
         
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1011
        )
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1012
      )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1013
!
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1014
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1015
dialogSpecForDefiningPortAndPageName
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1016
    "This resource specification was automatically generated
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1017
     by the UIPainter of ST/X."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1018
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1019
    "Do not manually edit this!! If it is corrupted,
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1020
     the UIPainter may not be able to read the specification."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1021
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1022
    "
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1023
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningPortAndPageName
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1024
     UIPainter new openInterface:#dialogSpecForDefiningPortAndPageName
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1025
    "
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1026
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1027
    <resource: #canvas>
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1028
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1029
    ^ 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1030
     #(FullSpec
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1031
        name: dialogSpecForDefiningPortAndPageName
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1032
        window: 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1033
       (WindowSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1034
          label: 'GUI Painter'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1035
          name: 'GUI Painter'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1036
          min: (Point 350 140)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1037
          max: (Point 500 140)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1038
          bounds: (Rectangle 0 0 346 138)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1039
        )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1040
        component: 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1041
       (SpecCollection
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1042
          collection: (
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1043
           (FramedBoxSpec
2261
60725fccd12d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2258
diff changeset
  1044
              label: 'Define Service and Pagename'
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1045
              name: 'FramedBox'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1046
              layout: (LayoutFrame 0 0.0 3 0.0 0 1.0 -34 1.0)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1047
              labelPosition: topLeft
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1048
              translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1049
              component: 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1050
             (SpecCollection
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1051
                collection: (
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1052
                 (LabelSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1053
                    label: 'Service (or Port):'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1054
                    name: 'portLabel'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1055
                    layout: (AlignmentOrigin 67 0.11 29 0 1 0.5)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1056
                    translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1057
                    resizeForLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1058
                    adjust: right
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1059
                  )
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1060
                 (ComboBoxSpec
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1061
                    name: 'ComboBox1'
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1062
                    layout: (LayoutFrame 70 0.11 18 0 4 1.0 40 0)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1063
                    model: serviceOrPortNameChannel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1064
                    acceptOnPointerLeave: false
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1065
                    comboList: runningServerPorts
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1066
                  )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1067
                 (LabelSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1068
                    label: 'Pagename:'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1069
                    name: 'pageNameLabel'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1070
                    layout: (AlignmentOrigin 67 0.11 54 0 1 0.5)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1071
                    translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1072
                    resizeForLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1073
                    adjust: right
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1074
                  )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1075
                 (InputFieldSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1076
                    name: 'pageNameNameField'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1077
                    layout: (LayoutFrame 70 0.11 43 0 4 1.0 65 0)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1078
                    tabable: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1079
                    model: pageNameNameChannel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1080
                    group: inputGroup
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1081
                    acceptOnPointerLeave: false
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1082
                  )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1083
                 )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1084
               
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1085
              )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1086
            )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1087
           (UISubSpecification
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1088
              name: 'subSpec'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1089
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1090
              majorKey: ToolApplicationModel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1091
              minorKey: windowSpecForCommitWithoutChannels
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1092
            )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1093
           )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1094
         
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1095
        )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1096
      )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1097
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1098
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1099
windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1100
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1101
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1102
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1103
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1104
     the UIPainter may not be able to read the specification."
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1105
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1106
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1107
     UIPainter new openOnClass:UIPainter andSelector:#windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1108
     UIPainter new openInterface:#windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1109
     UIPainter open
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1110
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1111
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1112
    <resource: #canvas>
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1113
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1114
    ^ 
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1115
     #(FullSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1116
        name: windowSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1117
        window: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1118
       (WindowSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1119
          label: 'GUI Painter'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1120
          name: 'GUI Painter'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1121
          min: (Point 560 460)
1790
51711e3c7046 translateLabel in NoteBookView
ca
parents: 1782
diff changeset
  1122
          bounds: (Rectangle 12 22 620 545)
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
  1123
          icon: defaultIcon
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1124
          menu: menu
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1125
        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1126
        component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1127
       (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1128
          collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1129
           (MenuPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1130
              name: 'menuToolbarView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1131
              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1132
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1133
              tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1134
              menu: menuToolbar
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1135
            )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1136
           (VariableHorizontalPanelSpec
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  1137
              name: 'mainPanel'
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1138
              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1139
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1140
              component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1141
             (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1142
                collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1143
                 (ArbitraryComponentSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1144
                    name: 'treeView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1145
                    tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1146
                    menu: menuEdit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1147
                    hasHorizontalScrollBar: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1148
                    hasVerticalScrollBar: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1149
                    miniScrollerHorizontal: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1150
                    miniScrollerVertical: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1151
                    hasBorder: false
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1152
                    component: treeView
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1153
                  )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1154
                 (ViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1155
                    name: 'specHolderView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1156
                    level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1157
                    component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1158
                   (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1159
                      collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1160
                       (MenuPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1161
                          name: 'menuToolbar2View'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1162
                          layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1163
                          level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1164
                          tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1165
                          menu: menuToolbar2
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1166
                        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1167
                       (NoteBookViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1168
                          name: 'noteBook'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1169
                          layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1170
                          level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1171
                          enableChannel: enableChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1172
                          tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1173
                          model: tabModel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1174
                          menu: tabList
1790
51711e3c7046 translateLabel in NoteBookView
ca
parents: 1782
diff changeset
  1175
                          translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1176
                          canvas: noteBookView
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1177
                        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1178
                       (HorizontalPanelViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1179
                          name: 'HorizontalPanel1'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1180
                          layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1)
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1181
                          horizontalLayout: fit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1182
                          verticalLayout: fit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1183
                          horizontalSpace: 3
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1184
                          verticalSpace: 3
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1185
                          reverseOrderIfOKAtLeft: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1186
                          component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1187
                         (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1188
                            collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1189
                             (ActionButtonSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1190
                                label: 'Cancel'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1191
                                name: 'cancelButton'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1192
                                activeHelpKey: commitCancel
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1193
                                translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1194
                                tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1195
                                model: cancel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1196
                                enableChannel: modifiedChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1197
                                extent: (Point 201 24)
1457
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1198
                              )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1199
                             (ActionButtonSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1200
                                label: 'OK'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1201
                                name: 'acceptButton'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1202
                                activeHelpKey: commitOK
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1203
                                translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1204
                                tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1205
                                model: accept
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1206
                                enableChannel: modifiedChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1207
                                extent: (Point 201 24)
1457
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1208
                              )
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1209
                             )
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1210
                           
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1211
                          )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1212
                        )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1213
                       )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1214
                     
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1215
                    )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1216
                  )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1217
                 )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1218
               
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1219
              )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1220
              handles: (Any 0.318868 1.0)
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1221
            )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1222
           (UISubSpecification
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1223
              name: 'infoBarSubSpec'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1224
              layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1225
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1226
              majorKey: ToolApplicationModel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1227
              minorKey: windowSpecForInfoBar
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1228
            )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1229
           )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1230
         
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1231
        )
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1232
      )
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
  1233
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
  1234
    "Modified: / 10-02-2007 / 14:45:31 / cg"
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1235
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1236
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1237
!UIPainter class methodsFor:'menu specs'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1238
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1239
menu
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1240
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1241
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1242
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1243
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1244
     the MenuEditor may not be able to read the specification."
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1245
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1246
    "
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1247
     MenuEditor new openOnClass:UIPainter andSelector:#menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1248
     (Menu new fromLiteralArrayEncoding:(UIPainter menu)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1249
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1250
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1251
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1252
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1253
    ^ 
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1254
     #(Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1255
        (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1256
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1257
            label: '&File'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1258
            translateLabel: true
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  1259
            submenuChannel: menuFile
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  1260
            keepLinkedMenu: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1261
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1262
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1263
            label: 'Edit'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1264
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1265
            submenuChannel: menuEdit
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1266
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1267
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1268
            label: 'Align'