UIPainter.st
author Claus Gittinger <cg@exept.de>
Mon, 23 Jun 2008 19:37:51 +0200
changeset 2368 99f14af1d5ec
parent 2361 ae171f5bc002
child 2370 ce1233002cf8
permissions -rw-r--r--
oops
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
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   128
    ^super flyByHelpSpec 
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   129
        addPairsFrom:#(
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   130
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   131
#fileSave
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
   132
'Save Spec'
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
   133
2336
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   134
shadesOfRed
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   135
'Red color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   136
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   137
shadesOfGreen
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   138
'Green color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   139
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   140
shadesOfBlue
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   141
'Blue color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   142
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   143
shadesOfCyan
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   144
'Cyan color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   145
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   146
shadesOfMagenta
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   147
'Magenta color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   148
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   149
shadesOfYellow
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   150
'Yellow color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   151
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   152
shadesOfGray
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   153
'Gray color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   154
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   155
openColorEditor
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   156
'Open a color editor'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   157
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   158
pickColorFromScreen
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   159
'Pick a color from the screen'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   160
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   161
recentlyUsedColors
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   162
'Pick a recently used color'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   163
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   164
useDefaultColorToggle
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   165
'Toggle between default and explicit color'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   166
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   167
);
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   168
    declareAllFrom:self helpSpec
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   169
!
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   170
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   171
helpSpec
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   172
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   173
     by the UIHelpTool of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   174
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   175
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   176
     the UIHelpTool may not be able to read the specification."
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   177
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   178
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   179
     UIHelpTool openOnClass:UIPainter    
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   180
    "
114befd1c369 add some help text
ca
parents: 287
diff changeset
   181
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   182
    <resource: #help>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   183
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   184
    ^ super helpSpec addPairsFrom:#(
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   185
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   186
#align
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   187
'Widget alignment functions.'
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   188
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   189
#alignSelectionBottom
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   190
'Aligns the selected widgets bottom edges with the bottom of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   191
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   192
#alignResizeSelectionBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   193
'Resize the selected widgets bottom edges to align them with the bottom of the dominant widget.'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   194
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   195
#alignSelectionCenterHor
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   196
'Aligns the selected widgets centers vertically with the center of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   197
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   198
#alignSelectionCenterVer
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   199
'Aligns the selected widgets centers horizontally with the center of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   200
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   201
#alignSelectionLeft
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   202
'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
   203
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   204
#alignResizeSelectionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   205
'Resize the selected widgets left edges to align them with the left edge of the dominant widget.'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   206
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   207
#alignSelectionLeftAndRight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   208
'Aligns the selected widgets left & right edges with the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   209
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   210
#alignSelectionRight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   211
'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
   212
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   213
#alignResizeSelectionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   214
'Resize the selected widgets right edges to align them with the right edge of the dominant widget.'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   215
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   216
#alignSelectionTop
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   217
'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
   218
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   219
#alignResizeSelectionTop
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   220
'Resize the selected widgets top edgegs to align them with the top edge of the dominant widget.'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   221
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   222
#alignSelectionTopAndBottom
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   223
'Aligns the selected widgets top and bottom edges with the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   224
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   225
#centerSelectionHor
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   226
'Centers the selected widgets horizontally within their containing widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   227
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   228
#centerSelectionVer
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   229
'Centers the selected widgets vertically within their containing widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   230
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   231
#changePositionDown
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   232
'Moves the selected widget(s) towards the bottom.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   233
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   234
#changePositionLeft
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   235
'Moves the selected widget(s) towards the left.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   236
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   237
#changePositionRight
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   238
'Moves the selected widget(s) towards the right.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   239
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   240
#changePositionUp
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   241
'Moves the selected widget(s) towards the top.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   242
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   243
#drawEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   244
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   245
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   246
#editBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   247
'Opens a browser on the class of the selected widget.'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   248
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   249
#editDimensionCopyExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   250
'Copies the extent of the selected widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   251
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   252
#editDimensionCopyLayout
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   253
'Copies the layout of the selected widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   254
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   255
#editDimensionDefaultExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   256
'Sets the selected widget(s) extent to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   257
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   258
#editDimensionDefaultHeight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   259
'Sets the selected widget(s) height to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   260
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   261
#editDimensionDefaultWidth
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   262
'Sets the selected widget(s) width to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   263
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   264
#editDimensionPasteExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   265
'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
   266
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   267
#editDimensionPasteHeight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   268
'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
   269
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   270
#editDimensionPasteLayout
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   271
'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
   272
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   273
#editDimensionPasteWidth
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   274
'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
   275
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   276
#editInspectSpec
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   277
'Opens an inspector on the spec of the selected widget.'
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   278
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   279
#editInspectView
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   280
'Opens an inspector on the selected widget.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   281
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   282
#editOpenSpecDocumentation
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   283
'Opens the documentation of the selected widget.'
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   284
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   285
#fileBrowseAspectMethods
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   286
'Opens a System Browser on the applications aspect methods.'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   287
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   288
#fileBrowseClass
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   289
'Open a System Browser on the applications class.'
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   290
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   291
#fileLoad
1032
abe3ed3bebc9 help texts
Claus Gittinger <cg@exept.de>
parents: 1027
diff changeset
   292
'Opens a dialog to load a window specification from a classes spec method.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   293
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   294
#fileLoadSubspec
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   295
'Opens a dialog to load a sub specification from a classes windowSpec method.'
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   296
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   297
#fileNew
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   298
'Creates a new window spec.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   299
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   300
#filePickAnInterface
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   301
'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
   302
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   303
#fileSave
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   304
'Saves the window spec in the current class (as spec method).'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   305
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   306
#fileSaveAs
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   307
'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
   308
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   309
#fileShowWindowSpec
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   310
'Opens a Workspace showing the current window spec.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   311
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   312
#generateAspectMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   313
'Generates aspect methods for defined aspect selectors of the widgets.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   314
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   315
#generateHookMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   316
'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   317
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   318
#group
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   319
''
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   320
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   321
#helpExamples
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   322
'Show some examples uses of the GUI Painter.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   323
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   324
#helpFunctions
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   325
'Show the documentation on the GUI Painters menu and button functions.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   326
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   327
#helpLayoutTool
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   328
'Show the Layout Tools documentation.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   329
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   330
#helpSelectedWidget
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   331
'Show the documentation of the selected widget.'
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   332
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   333
#helpTutorial
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   334
'Show the GUI Painters documentation.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   335
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   336
#historyMenuItem
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   337
'Edit this windowSpec.'
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   338
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   339
#moveWidgetDown
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   340
'Moves the selected widget one step down.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   341
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   342
#moveWidgetInto
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   343
'Moves the selected widget into next widget as child widget.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   344
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   345
#moveWidgetOut
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   346
'Moves the selected widget out of its parent widget.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   347
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   348
#moveWidgetUp
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   349
'Moves the selected widget one step up.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   350
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   351
#pasteBuffer
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   352
'Pastes the widgets of the clipboard at the current mouse position.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   353
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   354
#pasteWithLayout
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   355
'Pastes the widgets of the clipboard without a changing of their layouts.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   356
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   357
#referToCOnfigDatabase
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   358
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   359
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   360
#settingsAspectsAsInstances
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   361
'Generate aspects as instance variables (or bindings, if off).'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   362
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   363
#settingsCanvas
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   364
'Shows or hides the canvas window.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   365
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   366
#settingsGallery
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   367
'Shows or hides the gallery window.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   368
2294
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   369
#settingsGenerateCommentedCode
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   370
''
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
   371
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   372
#settingsGridManager
1032
abe3ed3bebc9 help texts
Claus Gittinger <cg@exept.de>
parents: 1027
diff changeset
   373
'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
   374
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   375
#settingsRedefineAspectMethods
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   376
'Toggles the permission to overwrite existing aspect methods.'
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   377
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   378
#settingsTranscriptHelp
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   379
'Toggles display of help texts (after opening a new GUI Painter).'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   380
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   381
#settingsUndoManager
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   382
'Opens a dialog to undo modifications.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   383
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   384
#sortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   385
'Sort the selected items by position (left to right, top to bottom)'
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
   386
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   387
#spreadSelectionHor
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   388
'Sets the horizontal spaces between the selected widgets to the same value.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   389
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   390
#spreadSelectionVer
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   391
'Sets the vertical spaces between the selected widgets to the same value.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   392
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   393
#testGeometryTestMode
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   394
'Toggles geometry test mode (to define ratios of variable panels and top-window dimension).'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   395
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   396
#testStartApplication
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   397
'Starts the application with the current window spec.'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   398
2336
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   399
shadesOfRed
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   400
'Red color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   401
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   402
shadesOfGreen
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   403
'Green color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   404
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   405
shadesOfBlue
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   406
'Blue color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   407
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   408
shadesOfCyan
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   409
'Cyan color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   410
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   411
shadesOfMagenta
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   412
'Magenta color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   413
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   414
shadesOfYellow
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   415
'Yellow color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   416
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   417
shadesOfGray
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   418
'Gray color tones'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   419
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   420
openColorEditor
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   421
'Open a color editor'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   422
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   423
pickColorFromScreen
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   424
'Pick a color from the screen'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   425
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   426
recentlyUsedColors
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   427
'Pick a recently used color'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   428
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   429
useDefaultColorToggle
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   430
'Toggle between default and explicit color'
b3ce8b110486 help spec
Claus Gittinger <cg@exept.de>
parents: 2328
diff changeset
   431
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   432
)
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   433
! !
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   434
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   435
!UIPainter class methodsFor:'helpers'!
14db1276218c change the spec;
ca
parents: 295
diff changeset
   436
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   437
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   438
    "converts a string to a string collection with maximum characters
14db1276218c change the spec;
ca
parents: 295
diff changeset
   439
     per line
14db1276218c change the spec;
ca
parents: 295
diff changeset
   440
    "
14db1276218c change the spec;
ca
parents: 295
diff changeset
   441
    |stream
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   442
        max     "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   443
        size    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   444
        start   "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   445
        stop    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   446
        cpySz   "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   447
        lnSz    "{ Class:SmallInteger }"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   448
        atBeginOfLine|
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   449
14db1276218c change the spec;
ca
parents: 295
diff changeset
   450
    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   451
                               ifTrue:[max := 20].
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   452
14db1276218c change the spec;
ca
parents: 295
diff changeset
   453
    (size := aString size) <= max ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   454
        ^ aString
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   455
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   456
    start  := 1.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   457
    lnSz   := 0.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   458
    stream := (String new:size) writeStream.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   459
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   460
    atBeginOfLine := true.
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   461
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   462
    [start <= size] whileTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   463
        (start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   464
            ^ stream contents
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   465
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   466
        (aString at:start) == $\ ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   467
            skipLineFeed ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   468
                stream nextPut:$\
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   469
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   470
            start := start + 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   471
            stream cr.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   472
            start := start + 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   473
            lnSz := 0.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   474
        ] ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   475
            (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   476
                stop := size + 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   477
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   478
            (aString at:(stop - 1)) == $\ ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   479
                stop := stop - 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   480
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   481
            cpySz := stop - start.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   482
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   483
            lnSz == 0 ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   484
                (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
   485
                                             ifFalse:[stream space. lnSz := lnSz + 1]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   486
            ] ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   487
                lnSz := cpySz
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   488
            ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   489
            stream nextPutAll:aString startingAt:start to:(stop - 1).
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   490
            start := stop.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
   491
        ]
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   492
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   493
    ^ stream contents
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   494
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   495
    "Modified: / 1.2.1998 / 14:42:56 / cg"
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   496
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
   497
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   498
!UIPainter class methodsFor:'image specs'!
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   499
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   500
arrowDown
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   501
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   502
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   503
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   504
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   505
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   506
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   507
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   508
     self arrowDown inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   509
     ImageEditor openOnClass:self andSelector:#arrowDown
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   510
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   511
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   512
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   513
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   514
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   515
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   516
        constantNamed:'UIPainter class arrowDown'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   517
        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
   518
@@@@@@@@@@@? A<@C @D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   519
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   520
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   521
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   522
arrowLeft
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   523
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   524
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   525
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   526
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   527
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   528
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   529
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   530
     self arrowLeft inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   531
     ImageEditor openOnClass:self andSelector:#arrowLeft
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   532
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   533
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   534
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   535
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   536
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   537
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   538
        constantNamed:'UIPainter class arrowLeft'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   539
        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
   540
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   541
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   542
arrowRight
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   543
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   544
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   545
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   546
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   547
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   548
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   549
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   550
     self arrowRight inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   551
     ImageEditor openOnClass:self andSelector:#arrowRight
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   552
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   553
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   554
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   555
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   556
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   557
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   558
        constantNamed:'UIPainter class arrowRight'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   559
        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
   560
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   561
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   562
arrowUp
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   563
    "This resource specification was automatically generated
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   564
     by the ImageEditor of ST/X."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   565
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   566
    "Do not manually edit this!! If it is corrupted,
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   567
     the ImageEditor may not be able to read the specification."
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   568
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   569
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   570
     self arrowUp inspect
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   571
     ImageEditor openOnClass:self andSelector:#arrowUp
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   572
     Icon flushCachedIcons
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   573
    "
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   574
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   575
    <resource: #image>
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   576
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   577
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   578
        constantNamed:'UIPainter class arrowUp'
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   579
        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
   580
!
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
   581
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   582
browseActionImage
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   583
    "This resource specification was automatically generated
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   584
     by the ImageEditor of ST/X."
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   585
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   586
    "Do not manually edit this!! If it is corrupted,
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   587
     the ImageEditor may not be able to read the specification."
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   588
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   589
    "
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   590
     self browseActionImage inspect
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   591
     ImageEditor openOnClass:self andSelector:#browseActionImage
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   592
     Icon flushCachedIcons
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   593
    "
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   594
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   595
    <resource: #image>
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   596
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   597
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   598
        constantNamed:'UIPainter class browseActionImage'
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   599
        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
   600
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
   601
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
   602
!
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
   603
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   604
defaultIcon
2175
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   605
    <resource: #programImage>
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   606
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   607
    ^ ToolbarIconLibrary startUIPainterIcon
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   608
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   609
    "Created: / 10-02-2007 / 14:45:56 / cg"
2175
f8dd64f73dfc icon resource
Claus Gittinger <cg@exept.de>
parents: 2159
diff changeset
   610
    "Modified: / 17-09-2007 / 11:36:33 / cg"
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   611
!
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
   612
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   613
editTableIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   614
    <resource: #programImage>
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   615
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   616
    ^ SystemBrowser tableColumnsIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   617
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   618
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   619
helpIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   620
    <resource: #programImage>
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   621
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   622
    ^ Icon helpIcon
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   623
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
   624
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   625
iconAlignB
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   626
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   627
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   628
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   629
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   630
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   631
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   632
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   633
     self iconAlignB inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   634
     ImageEditor openOnClass:self andSelector:#iconAlignB
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   635
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   636
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   637
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   638
    <resource: #image>
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
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   641
        constantNamed:'UIPainter class iconAlignB'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   642
        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
   643
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   644
@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
   645
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   646
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   647
iconAlignL
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   648
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   649
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   650
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   651
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   652
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   653
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   654
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   655
     self iconAlignL inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   656
     ImageEditor openOnClass:self andSelector:#iconAlignL
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   657
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   658
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   659
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   660
    <resource: #image>
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
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   663
        constantNamed:'UIPainter class iconAlignL'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   664
        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
   665
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   666
@(@@@@@@@(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
   667
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   668
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   669
iconAlignLR
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   670
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   671
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   672
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
   673
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   674
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   675
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   676
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   677
     self iconAlignLR inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   678
     ImageEditor openOnClass:self andSelector:#iconAlignLR
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   679
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   680
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   681
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   682
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   683
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   684
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   685
        constantNamed:'UIPainter class iconAlignLR'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   686
        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
   687
@@@@@@@@@@@@@@@@@(@@@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
   688
@(@@@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
   689
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   690
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   691
iconAlignR
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   692
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   693
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   694
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   695
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   696
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   697
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   698
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   699
     self iconAlignR inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   700
     ImageEditor openOnClass:self andSelector:#iconAlignR
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   701
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   702
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   703
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   704
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   705
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   706
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   707
        constantNamed:'UIPainter class iconAlignR'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   708
        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
   709
@@@@@@@@@@@@@@@@@@@@@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
   710
@@@@@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
   711
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   712
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   713
iconAlignT
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   714
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   715
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   716
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   717
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   718
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   719
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   720
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   721
     self iconAlignT inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   722
     ImageEditor openOnClass:self andSelector:#iconAlignT
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   723
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   724
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   725
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   726
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   727
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   728
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   729
        constantNamed:'UIPainter class iconAlignT'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   730
        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
   731
@@@@@@@@@@@@@@@@@@@@@@@@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
   732
@@@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
   733
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   734
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   735
iconAlignTB
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   736
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   737
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   738
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   739
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   740
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   741
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   742
    "
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   743
     self iconAlignTB inspect
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   744
     ImageEditor openOnClass:self andSelector:#iconAlignTB
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   745
     Icon flushCachedIcons
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   746
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   747
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   748
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   749
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   750
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   751
        constantNamed:'UIPainter class iconAlignTB'
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   752
        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
   753
@@@@@@@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
   754
@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
   755
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   756
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   757
iconCenterH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   758
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   759
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   760
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   761
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   762
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   763
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   764
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   765
     self iconCenterH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   766
     ImageEditor openOnClass:self andSelector:#iconCenterH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   767
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   768
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   769
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   770
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   771
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   772
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   773
        constantNamed:'UIPainter class iconCenterH'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   774
        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
   775
@@@@@@@@@@@@@@@@@(@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
   776
@(@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
   777
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   778
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   779
iconCenterHInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   780
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   781
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   782
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   783
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   784
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   785
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   786
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   787
     self iconCenterHInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   788
     ImageEditor openOnClass:self andSelector:#iconCenterHInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   789
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   790
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   791
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   792
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   793
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   794
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   795
        constantNamed:'UIPainter class iconCenterHInFrame'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   796
        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
   797
@@@@@@@@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
   798
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
   799
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   800
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   801
iconCenterV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   802
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   803
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   804
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   805
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   806
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   807
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   808
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   809
     self iconCenterV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   810
     ImageEditor openOnClass:self andSelector:#iconCenterV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   811
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   812
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   813
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   814
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   815
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   816
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   817
        constantNamed:'UIPainter class iconCenterV'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   818
        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
   819
@@@@@@@@@@@@@@@@@@@@@@@@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
   820
@@@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
   821
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   822
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   823
iconCenterVInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   824
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   825
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   826
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   827
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   828
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   829
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   830
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   831
     self iconCenterVInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   832
     ImageEditor openOnClass:self andSelector:#iconCenterVInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   833
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   834
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   835
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   836
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   837
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   838
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   839
        constantNamed:'UIPainter class iconCenterVInFrame'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   840
        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
   841
@@@@@@@@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
   842
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
   843
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   844
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   845
iconDistributeH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   846
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   847
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   848
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   849
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   850
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   851
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   852
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   853
     self iconDistributeH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   854
     ImageEditor openOnClass:self andSelector:#iconDistributeH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   855
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   856
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   857
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   858
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   859
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   860
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   861
        constantNamed:'UIPainter class iconDistributeH'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   862
        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
   863
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   864
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
   865
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   866
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   867
iconDistributeV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   868
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   869
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   870
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   871
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   872
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   873
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   874
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   875
     self iconDistributeV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   876
     ImageEditor openOnClass:self andSelector:#iconDistributeV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   877
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   878
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   879
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   880
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   881
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   882
    ^Icon
2268
52429abf9eab *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2264
diff changeset
   883
        constantNamed:'UIPainter class iconDistributeV'
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   884
        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
   885
@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@@*(@@@@@JB@@@@@@JB@@@@@@JB@@@@@@J*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@J*(@@@@@JB@@@@
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   886
@@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]
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   887
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   888
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   889
iconResizeB
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   890
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   891
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   892
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   893
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   894
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   895
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   896
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   897
     self iconResizeB inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   898
     ImageEditor openOnClass:self andSelector:#iconResizeB
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   899
     Icon flushCachedIcons
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   900
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   901
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   902
    <resource: #image>
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   903
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   904
    ^Icon
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   905
        constantNamed:'UIPainter class iconResizeB'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   906
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   907
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@@@M@@@@@@@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@@@M@@
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   908
@@@@@E@@@@@@@@@@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 A@G @@G'' @G'' @G''#@G'' G''''"G'''' G''''!!G'''' G'''' O?7 G'''' CCG O??0O??0@@@A@@@@@@@@') ; yourself); yourself]
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   909
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   910
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   911
iconResizeL
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   912
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   913
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   914
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   915
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   916
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   917
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   918
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   919
     self iconResizeL inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   920
     ImageEditor openOnClass:self andSelector:#iconResizeL
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   921
     Icon flushCachedIcons
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   922
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   923
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   924
    <resource: #image>
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   925
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   926
    ^Icon
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   927
        constantNamed:'UIPainter class iconResizeL'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   928
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   929
@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(AUUU@@@(C???@@@(@@@@@E@(@@@@@@@(@@@@@@
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   930
@(@@@@@@@(AU@@@@@(C?@@@@@(@@@@@@@(@@@@@@@@@@@@@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@@@FP@@F?? G?? G?? F?? FP@@FP@@F? @G? @G? @F? @FP@@@@@@@@@@') ; yourself); yourself]
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   931
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   932
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   933
iconResizeLR
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   934
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   935
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   936
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   937
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   938
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   939
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   940
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   941
     self iconResizeLR inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   942
     ImageEditor openOnClass:self andSelector:#iconResizeLR
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   943
     Icon flushCachedIcons
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   944
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   945
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   946
    <resource: #image>
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   947
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   948
    ^Icon
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   949
        constantNamed:'UIPainter class iconResizeLR'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   950
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   951
@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(???2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(AUTB @@(C?<B @@(@@@B E@(@@@B @@(@@@B @
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   952
@(@@@B @@(AUTB @@(C?<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 FPI F?= G?? G?? F?= FPI FPI F?= G?? G?? F?= FPI @@@@@@@@') ; yourself); yourself]
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   953
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   954
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   955
iconResizeR
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   956
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   957
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   958
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   959
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   960
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   961
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   962
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   963
     self iconResizeR inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   964
     ImageEditor openOnClass:self andSelector:#iconResizeR
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   965
     Icon flushCachedIcons
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   966
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   967
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   968
    <resource: #image>
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   969
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   970
    ^Icon
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   971
        constantNamed:'UIPainter class iconResizeR'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   972
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   973
@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@???R @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUTB @@O??<B @@@@@@B E@@@@@B @@@@@@B @
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   974
@@@@@B @@@@ETB @@@@O<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:'@@@@@@@@@@A A?? A?? A?? A?? @@A @@I G?= G?? G?? G?= @@I @@I @G= @G? @G? @G= @@I @@@@@@@@') ; yourself); yourself]
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   975
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   976
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   977
iconResizeT
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   978
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   979
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   980
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   981
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   982
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   983
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   984
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   985
     self iconResizeT inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   986
     ImageEditor openOnClass:self andSelector:#iconResizeT
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   987
     Icon flushCachedIcons
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   988
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   989
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   990
    <resource: #image>
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   991
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   992
    ^Icon
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   993
        constantNamed:'UIPainter class iconResizeT'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   994
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   995
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@@@@@E@@@@@@@M@@@M@M@M@@@M@M@M@@@M@M@M@@@M@M@M@@@@@M@M@@@@@M@M@@@@@M@M@@
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   996
@@@M@M@@@@@M@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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:'@@@@@@@@@@@AO??0O??0CCG G'''' O?7 G'''' G'''' G''''!!G'''' G''''"@G'' @G''#@G'' @G'' @G @@G A@@@@@@@@@@@@') ; yourself); yourself]
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   997
!
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   998
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
   999
iconResizeTB
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1000
    "This resource specification was automatically generated
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1001
     by the ImageEditor of ST/X."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1002
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1003
    "Do not manually edit this!! If it is corrupted,
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1004
     the ImageEditor may not be able to read the specification."
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1005
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1006
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1007
     self iconResizeTB inspect
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1008
     ImageEditor openOnClass:self andSelector:#iconResizeTB
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1009
     Icon flushCachedIcons
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1010
    "
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1011
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1012
    <resource: #image>
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1013
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1014
    ^Icon
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1015
        constantNamed:'UIPainter class iconResizeTB'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1016
        ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1017
@@@@@@@@@@@@@@@@@@@@@@@@B*****(@B*****(@@@@@@@@@@G@@@@@@@G@@@@@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@G@G@@@G@@@@@@
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1018
@G@@@@@@@@@@@@@@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:'@@@B@@@@@@@BO??0O??2G#C@G'''' G/?0G''''#G'''' G'''' G'''' G'''' G''''"G/?0G'''' G#C@O??1O??0@@@A@@@B@@@@') ; yourself); yourself]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  1019
! !
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
  1020
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1021
!UIPainter class methodsFor:'initialize'!
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1022
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1023
initialize
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1024
    SelectionPanelClass isNil ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1025
        SelectionPanelClass := UISelectionPanel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1026
    ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1027
! !
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1028
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  1029
!UIPainter class methodsFor:'interface specs'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  1030
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1031
dialogSpecForDefiningClassAndSelector
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1032
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1033
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1034
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  1035
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1036
     the UIPainter may not be able to read the specification."
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1037
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1038
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1039
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningClassAndSelector
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1040
     UIPainter new openInterface:#dialogSpecForDefiningClassAndSelector
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1041
    "
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1042
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1043
    <resource: #canvas>
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1044
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1045
    ^
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1046
     
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1047
       #(#FullSpec
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1048
          #window: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1049
           #(#WindowSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1050
              #name: 'GUI Painter'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1051
              #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
  1052
              #label: 'GUI Painter'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1053
              #min: #(#Point 350 160)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1054
              #max: #(#Point 500 160)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1055
              #bounds: #(#Rectangle 291 130 638 290)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1056
              #usePreferredExtent: false
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1057
          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1058
          #component: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1059
           #(#SpecCollection
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1060
              #collection: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1061
               #(
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1062
                 #(#FramedBoxSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1063
                    #name: 'FramedBox'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1064
                    #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
  1065
                    #component: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1066
                     #(#SpecCollection
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1067
                        #collection: 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1068
                         #(
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1069
                           #(#LabelSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1070
                              #name: 'selectorLabel'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1071
                              #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
  1072
                              #label: 'Selector:'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1073
                              #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1074
                              #adjust: #right
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1075
                              #resizeForLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1076
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1077
                           #(#InputFieldSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1078
                              #name: 'methodNameField'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1079
                              #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
  1080
                              #tabable: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1081
                              #model: #methodNameChannel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1082
                              #group: #inputGroup
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1083
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1084
                           #(#LabelSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1085
                              #name: 'classLabel'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1086
                              #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
  1087
                              #label: 'Class:'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1088
                              #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1089
                              #adjust: #right
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1090
                              #resizeForLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1091
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1092
                           #(#InputFieldSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1093
                              #name: 'classNameField'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1094
                              #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
  1095
                              #tabable: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1096
                              #model: #classNameChannel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1097
                              #group: #inputGroup
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1098
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1099
                           #(#LabelSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1100
                              #name: 'superClassLabel'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1101
                              #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
  1102
                              #label: 'Superclass:'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1103
                              #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1104
                              #adjust: #right
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1105
                              #resizeForLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1106
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1107
                           #(#ComboBoxSpec
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1108
                              #name: 'superclassNameComboBox'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1109
                              #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
  1110
                              #tabable: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1111
                              #model: #superclassNameChannel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1112
                              #comboList: #superclassNameDefaults
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1113
                          )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1114
                        )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1115
                    )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1116
                    #label: 'Define Class And Selector'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1117
                    #labelPosition: #topLeft
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1118
                    #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1119
                )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1120
                 #(#UISubSpecification
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1121
                    #name: 'subSpec'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1122
                    #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
  1123
                    #majorKey: #ToolApplicationModel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1124
                    #minorKey: #windowSpecForCommitWithoutChannels
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1125
                )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1126
              )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  1127
          )
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1128
      )
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
  1129
950
3e227dc788be fixed layout (change with framedBox - sigh)
Claus Gittinger <cg@exept.de>
parents: 939
diff changeset
  1130
    "Modified: / 13.8.1998 / 19:59:44 / cg"
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1131
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1132
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1133
dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1134
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1135
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1136
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  1137
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1138
     the UIPainter may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1139
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1140
    "
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1141
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1142
     UIPainter new openInterface:#dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1143
    "
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1144
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1145
    <resource: #canvas>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1146
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1147
    ^ 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1148
     #(FullSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1149
        name: dialogSpecForDefiningGridParameters
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1150
        window: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1151
       (WindowSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1152
          label: 'GUI Painter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1153
          name: 'GUI Painter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1154
          min: (Point 300 200)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1155
          max: (Point 300 200)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1156
          bounds: (Rectangle 16 46 298 244)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1157
        )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1158
        component: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1159
       (SpecCollection
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1160
          collection: (
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1161
           (FramedBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1162
              label: 'Grid Parameter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1163
              name: 'FramedBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1164
              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
  1165
              labelPosition: topLeft
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1166
              translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1167
              component: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1168
             (SpecCollection
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1169
                collection: (
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1170
                 (CheckBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1171
                    label: 'Show Grid'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1172
                    name: 'ShowGridCheckBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1173
                    layout: (Point 13 14)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1174
                    model: showGrid
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1175
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1176
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1177
                 (CheckBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1178
                    label: 'Align To Grid'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1179
                    name: 'AlignCheckBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1180
                    layout: (Point 13 42)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1181
                    model: alignToGrid
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1182
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1183
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1184
                 (LabelSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1185
                    label: 'Horizontal Pixels:'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1186
                    name: 'HorizontalPixelsLabel'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1187
                    layout: (AlignmentOrigin 138 0 89 0 1 0.5)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1188
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1189
                    resizeForLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1190
                    adjust: right
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1191
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1192
                 (InputFieldSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1193
                    name: 'HorizontalPixelsField'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1194
                    layout: (LayoutFrame 144 0 77 0 197 0 99 0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1195
                    model: hspace
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1196
                    group: inputGroup
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1197
                    type: numberOrNil
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1198
                    acceptOnPointerLeave: false
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1199
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1200
                 (LabelSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1201
                    label: 'Vertical Pixels:'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1202
                    name: 'VerticalPixelsLabel'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1203
                    layout: (AlignmentOrigin 139 0 114 0 1 0.5)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1204
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1205
                    resizeForLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1206
                    adjust: right
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1207
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1208
                 (InputFieldSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1209
                    name: 'VerticalPixelsField'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1210
                    layout: (LayoutFrame 144 0 102 0 197 0 124 0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1211
                    model: vspace
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1212
                    group: inputGroup
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1213
                    type: numberOrNil
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1214
                    acceptOnPointerLeave: false
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1215
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1216
                 )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1217
               
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1218
              )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1219
            )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1220
           (UISubSpecification
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1221
              name: 'subSpec'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1222
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1223
              majorKey: ToolApplicationModel
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1224
              minorKey: windowSpecForCommitWithoutChannels
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1225
            )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1226
           )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1227
         
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1228
        )
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1229
      )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1230
!
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
  1231
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1232
dialogSpecForDefiningPortAndPageName
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1233
    "This resource specification was automatically generated
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1234
     by the UIPainter of ST/X."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1235
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1236
    "Do not manually edit this!! If it is corrupted,
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1237
     the UIPainter may not be able to read the specification."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1238
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1239
    "
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1240
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningPortAndPageName
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1241
     UIPainter new openInterface:#dialogSpecForDefiningPortAndPageName
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1242
    "
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1244
    <resource: #canvas>
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1245
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1246
    ^ 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1247
     #(FullSpec
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1248
        name: dialogSpecForDefiningPortAndPageName
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1249
        window: 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1250
       (WindowSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1251
          label: 'GUI Painter'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1252
          name: 'GUI Painter'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1253
          min: (Point 350 140)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1254
          max: (Point 500 140)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1255
          bounds: (Rectangle 0 0 346 138)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1256
        )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1257
        component: 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1258
       (SpecCollection
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1259
          collection: (
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1260
           (FramedBoxSpec
2261
60725fccd12d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2258
diff changeset
  1261
              label: 'Define Service and Pagename'
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1262
              name: 'FramedBox'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1263
              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
  1264
              labelPosition: topLeft
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1265
              translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1266
              component: 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1267
             (SpecCollection
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1268
                collection: (
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1269
                 (LabelSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1270
                    label: 'Service (or Port):'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1271
                    name: 'portLabel'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1272
                    layout: (AlignmentOrigin 67 0.11 29 0 1 0.5)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1273
                    translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1274
                    resizeForLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1275
                    adjust: right
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1276
                  )
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1277
                 (ComboBoxSpec
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1278
                    name: 'ComboBox1'
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1279
                    layout: (LayoutFrame 70 0.11 18 0 4 1.0 40 0)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1280
                    model: serviceOrPortNameChannel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1281
                    acceptOnPointerLeave: false
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  1282
                    comboList: runningServerPorts
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1283
                  )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1284
                 (LabelSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1285
                    label: 'Pagename:'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1286
                    name: 'pageNameLabel'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1287
                    layout: (AlignmentOrigin 67 0.11 54 0 1 0.5)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1288
                    translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1289
                    resizeForLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1290
                    adjust: right
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1291
                  )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1292
                 (InputFieldSpec
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1293
                    name: 'pageNameNameField'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1294
                    layout: (LayoutFrame 70 0.11 43 0 4 1.0 65 0)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1295
                    tabable: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1296
                    model: pageNameNameChannel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1297
                    group: inputGroup
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1298
                    acceptOnPointerLeave: false
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1299
                  )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1300
                 )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1301
               
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1302
              )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1303
            )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1304
           (UISubSpecification
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1305
              name: 'subSpec'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1306
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1307
              majorKey: ToolApplicationModel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1308
              minorKey: windowSpecForCommitWithoutChannels
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1309
            )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1310
           )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1311
         
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1312
        )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1313
      )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1314
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1315
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1316
windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1317
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1318
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1319
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1320
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1321
     the UIPainter may not be able to read the specification."
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1322
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1323
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1324
     UIPainter new openOnClass:UIPainter andSelector:#windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1325
     UIPainter new openInterface:#windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1326
     UIPainter open
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1327
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1328
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1329
    <resource: #canvas>
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1330
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1331
    ^ 
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1332
     #(FullSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1333
        name: windowSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1334
        window: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1335
       (WindowSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1336
          label: 'GUI Painter'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1337
          name: 'GUI Painter'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1338
          min: (Point 560 460)
1790
51711e3c7046 translateLabel in NoteBookView
ca
parents: 1782
diff changeset
  1339
          bounds: (Rectangle 12 22 620 545)
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
  1340
          icon: defaultIcon
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1341
          menu: menu
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1342
        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1343
        component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1344
       (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1345
          collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1346
           (MenuPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1347
              name: 'menuToolbarView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1348
              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
  1349
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1350
              tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1351
              menu: menuToolbar
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1352
            )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1353
           (VariableHorizontalPanelSpec
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  1354
              name: 'mainPanel'
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1355
              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
  1356
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1357
              component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1358
             (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1359
                collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1360
                 (ArbitraryComponentSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1361
                    name: 'treeView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1362
                    tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1363
                    menu: menuEdit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1364
                    hasHorizontalScrollBar: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1365
                    hasVerticalScrollBar: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1366
                    miniScrollerHorizontal: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1367
                    miniScrollerVertical: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1368
                    hasBorder: false
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1369
                    component: treeView
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1370
                  )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1371
                 (ViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1372
                    name: 'specHolderView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1373
                    level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1374
                    component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1375
                   (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1376
                      collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1377
                       (MenuPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1378
                          name: 'menuToolbar2View'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1379
                          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
  1380
                          level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1381
                          tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1382
                          menu: menuToolbar2
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1383
                        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1384
                       (NoteBookViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1385
                          name: 'noteBook'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1386
                          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
  1387
                          level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1388
                          enableChannel: enableChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1389
                          tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1390
                          model: tabModel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1391
                          menu: tabList
1790
51711e3c7046 translateLabel in NoteBookView
ca
parents: 1782
diff changeset
  1392
                          translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1393
                          canvas: noteBookView
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1394
                        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1395
                       (HorizontalPanelViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1396
                          name: 'HorizontalPanel1'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1397
                          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
  1398
                          horizontalLayout: fit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1399
                          verticalLayout: fit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1400
                          horizontalSpace: 3
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1401
                          verticalSpace: 3
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1402
                          reverseOrderIfOKAtLeft: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1403
                          component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1404
                         (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1405
                            collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1406
                             (ActionButtonSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1407
                                label: 'Cancel'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1408
                                name: 'cancelButton'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1409
                                activeHelpKey: commitCancel
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1410
                                translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1411
                                tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1412
                                model: cancel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1413
                                enableChannel: modifiedChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1414
                                extent: (Point 201 24)
1457
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1415
                              )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1416
                             (ActionButtonSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1417
                                label: 'OK'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1418
                                name: 'acceptButton'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1419
                                activeHelpKey: commitOK
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1420
                                translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1421
                                tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1422
                                model: accept
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1423
                                enableChannel: modifiedChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1424
                                extent: (Point 201 24)
1457
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1425
                              )
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1426
                             )
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1427
                           
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1428
                          )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1429
                        )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1430
                       )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1431
                     
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1432
                    )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1433
                  )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1434
                 )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1435
               
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1436
              )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1437
              handles: (Any 0.318868 1.0)
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1438
            )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1439
           (UISubSpecification
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1440
              name: 'infoBarSubSpec'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1441
              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
  1442
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1443
              majorKey: ToolApplicationModel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1444
              minorKey: windowSpecForInfoBar
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1445
            )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1446
           )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1447
         
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1448
        )
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1449
      )
2157
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
  1450
76aadc90818e mask of icons
Claus Gittinger <cg@exept.de>
parents: 2138
diff changeset
  1451
    "Modified: / 10-02-2007 / 14:45:31 / cg"
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1452
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1453
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1454
!UIPainter class methodsFor:'menu specs'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1455
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1456
menu
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1457
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1458
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1459
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1460
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1461
     the MenuEditor may not be able to read the specification."
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1462
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1463
    "
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1464
     MenuEditor new openOnClass:UIPainter andSelector:#menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1465
     (Menu new fromLiteralArrayEncoding:(UIPainter menu)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1466
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1467
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1468
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1469
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1470
    ^ 
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1471
     #(Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1472
        (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1473
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1474
            label: '&File'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1475
            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
  1476
            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
  1477
            keepLinkedMenu: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1478
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1479
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1480
            label: 'Edit'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1481
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1482
            submenuChannel: menuEdit
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1483
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1484
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1485
            label: 'Align'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1486
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1487
            submenuChannel: menuAlign
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1488
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1489
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1490
            label: 'Generate'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1491
            translateLabel: true
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  1492
            isVisible: isNotEditingSpecOnly
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1493
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1494
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1495
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1496
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1497
                  activeHelpKey: generateAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1498
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1499
                  label: 'Aspect Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1500
                  itemValue: doGenerateAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1501
                  translateLabel: true
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1502
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1503
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1504
                  activeHelpKey: generateAspectMethodFor
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1505
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1506
                  label: 'Aspect Method For...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1507
                  itemValue: doGenerateAspectMethodFor
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1508
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1509
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1510
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1511
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1512
                  label: 'Menu Stub Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1513
                  itemValue: doGenerateMenuMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1514
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1515
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1516
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1517
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1518
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1519
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1520
                  activeHelpKey: generateHookMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1521
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1522
                  label: 'Hook Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1523
                  itemValue: doGenerateHookMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1524
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1525
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1526
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1527
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1528
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1529
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1530
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1531
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1532
            label: 'Test'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1533
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1534
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1535
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1536
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1537
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1538
                  activeHelpKey: testStartApplication
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1539
                  label: 'Start Application'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1540
                  itemValue: doStartApplication
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1541
                  translateLabel: true
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  1542
                  isVisible: isNotEditingSpecOnly
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1543
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1544
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1545
                  label: '-'
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  1546
                  isVisible: isNotEditingSpecOnly
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1547
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1548
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1549
                  activeHelpKey: testGeometryTestMode
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1550
                  label: 'Geometry Test Mode'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1551
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1552
                  indication: testMode:
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1553
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1554
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1555
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1556
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1557
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1558
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1559
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1560
            label: 'Settings'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1561
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1562
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1563
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1564
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1565
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1566
                  activeHelpKey: settingsCanvas
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1567
                  label: 'Canvas'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1568
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1569
                  indication: painterShown
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1570
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1571
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1572
                  activeHelpKey: settingsGallery
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1573
                  label: 'Gallery'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1574
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1575
                  indication: galleryShown
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1576
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1577
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1578
                  label: '-'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1579
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1580
               (MenuItem
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1581
                  activeHelpKey: settingsAspectsAsInstances
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1582
                  label: 'Aspects as InstanceVariables'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1583
                  translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1584
                  isVisible: isNotEditingSpecOnly
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1585
                  indication: generateAspectsAsInstanceVariables:
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1586
                )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1587
               (MenuItem
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1588
                  activeHelpKey: settingsRedefineAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1589
                  label: 'Redefine Aspect Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1590
                  translateLabel: true
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1591
                  isVisible: isNotEditingSpecOnly
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1592
                  indication: redefineAspectMethods:
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1593
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1594
               (MenuItem
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1595
                  activeHelpKey: settingsGenerateCommentedCode
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1596
                  label: 'Generate Commented Code'
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1597
                  translateLabel: true
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  1598
                  isVisible: isNotEditingSpecOnly
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  1599
                  indication: generateCommentedCode:
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1600
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1601
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1602
                  label: 'AutoAccept on Selection-Change '
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1603
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1604
                  indication: autoAcceptOnSelectionChange
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1605
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1606
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1607
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1608
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1609
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1610
                  activeHelpKey: settingsUndoManager
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1611
                  enabled: hasUndoHistory
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1612
                  label: 'Undo Manager...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1613
                  itemValue: openUndoMenu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1614
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1615
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1616
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1617
                  activeHelpKey: settingsGridManager
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1618
                  label: 'Grid Manager...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1619
                  itemValue: doDefineGrid
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1620
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1621
                )
2247
a1a7ec09adff useSketch menu item moved
Claus Gittinger <cg@exept.de>
parents: 2243
diff changeset
  1622
               (MenuItem
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  1623
                  label: 'Load Sketch as Background...'
2247
a1a7ec09adff useSketch menu item moved
Claus Gittinger <cg@exept.de>
parents: 2243
diff changeset
  1624
                  itemValue: useSketch
a1a7ec09adff useSketch menu item moved
Claus Gittinger <cg@exept.de>
parents: 2243
diff changeset
  1625
                  translateLabel: true
a1a7ec09adff useSketch menu item moved
Claus Gittinger <cg@exept.de>
parents: 2243
diff changeset
  1626
                )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1627
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1628
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1629
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1630
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1631
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1632
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1633
            label: 'History'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1634
            translateLabel: true
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  1635
            isVisible: isStandAlone
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1636
            submenuChannel: menuHistory
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1637
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1638
         (MenuItem
2138
55f338a77eb0 support '?' as help (for now: controlled by resources)
Claus Gittinger <cg@exept.de>
parents: 2124
diff changeset
  1639
            label: 'MENU_Help'
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1640
            translateLabel: true
2124
214c0d1d3c5a #conditionalRight
Claus Gittinger <cg@exept.de>
parents: 2117
diff changeset
  1641
            startGroup: conditionalRight
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1642
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1643
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1644
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1645
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1646
                  activeHelpKey: helpTutorial
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1647
                  label: 'Tutorial'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1648
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1649
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1650
                  argument: 'tools/uipainter/TOP.html'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1651
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1652
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1653
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1654
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1655
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1656
                  activeHelpKey: helpFunctions
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1657
                  label: 'Functions'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1658
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1659
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1660
                  argument: 'tools/uipainter/Functions.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1661
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1662
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1663
                  activeHelpKey: helpExamples
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1664
                  label: 'Examples'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1665
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1666
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1667
                  argument: 'tools/uipainter/Examples.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1668
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1669
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1670
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1671
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1672
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1673
                  activeHelpKey: helpHelpTool
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1674
                  label: 'Help Tool'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1675
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1676
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1677
                  argument: 'tools/uipainter/HelpTool.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1678
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1679
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1680
                  activeHelpKey: helpLayoutTool
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1681
                  label: 'Layout Tool'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1682
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1683
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1684
                  argument: 'tools/uipainter/LayoutTool.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1685
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1686
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1687
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1688
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1689
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1690
                  activeHelpKey: helpSelectedWidget
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1691
                  label: 'Selected Widget'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1692
                  itemValue: doOpenWidgetDocumentation
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1693
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1694
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1695
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1696
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1697
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1698
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1699
                  activeHelpKey: helpShowHelp
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1700
                  label: 'Show Help Texts'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1701
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1702
                  indication: showingHelp:
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1703
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1704
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1705
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1706
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1707
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1708
                  activeHelpKey: aboutThisAppliaction
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1709
                  label: 'About this Application...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1710
                  itemValue: openAboutThisApplication
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1711
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1712
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1713
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1714
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1715
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1716
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1717
          )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1718
         )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1719
        nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1720
        nil
564
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  1721
      )
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  1722
!
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  1723
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1724
menuAlign
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1725
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1726
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1727
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  1728
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1729
     the MenuEditor may not be able to read the specification."
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1730
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1731
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1732
     MenuEditor new openOnClass:UIPainter andSelector:#menuAlign
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1733
     (Menu new fromLiteralArrayEncoding:(UIPainter menuAlign)) startUp
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1734
    "
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1735
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1736
    <resource: #menu>
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1737
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1738
    ^ 
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1739
     #(Menu
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1740
        (
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1741
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1742
            activeHelpKey: alignSelectionLeft
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1743
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1744
            label: 'Left'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1745
            itemValue: alignSelectionLeft
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1746
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1747
            labelImage: (ResourceRetriever UIPainter iconAlignL 'Left')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1748
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1749
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1750
            activeHelpKey: alignSelectionRight
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1751
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1752
            label: 'Right'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1753
            itemValue: alignSelectionRight
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1754
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1755
            labelImage: (ResourceRetriever UIPainter iconAlignR 'Right')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1756
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1757
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1758
            activeHelpKey: alignSelectionTop
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1759
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1760
            label: 'Top'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1761
            itemValue: alignSelectionTop
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1762
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1763
            labelImage: (ResourceRetriever UIPainter iconAlignT 'Top')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1764
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1765
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1766
            activeHelpKey: alignSelectionBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1767
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1768
            label: 'Bottom'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1769
            itemValue: alignSelectionBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1770
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1771
            labelImage: (ResourceRetriever UIPainter iconAlignB 'Bottom')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1772
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1773
         (MenuItem
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1774
            label: '-'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1775
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1776
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1777
            activeHelpKey: alignResizeSelectionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1778
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1779
            label: 'Resize Left'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1780
            itemValue: alignResizeSelectionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1781
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1782
            labelImage: (ResourceRetriever UIPainter iconResizeL 'Resize Left')
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1783
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1784
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1785
            activeHelpKey: alignResizeSelectionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1786
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1787
            label: 'Resize Right'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1788
            itemValue: alignResizeSelectionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1789
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1790
            labelImage: (ResourceRetriever UIPainter iconResizeR 'Resize Right')
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1791
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1792
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1793
            activeHelpKey: alignResizeSelectionTop
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1794
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1795
            label: 'Resize Top'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1796
            itemValue: alignResizeSelectionTop
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1797
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1798
            labelImage: (ResourceRetriever UIPainter iconResizeT 'Resize Top')
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1799
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1800
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1801
            activeHelpKey: alignResizeSelectionBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1802
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1803
            label: 'Resize Bottom'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1804
            itemValue: alignResizeSelectionBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1805
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1806
            labelImage: (ResourceRetriever UIPainter iconResizeB 'Resize Bottom')
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1807
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1808
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1809
            activeHelpKey: alignSelectionLeftAndRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1810
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1811
            label: 'Left && Right'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1812
            itemValue: alignSelectionLeftAndRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1813
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1814
            labelImage: (ResourceRetriever UIPainter iconResizeLR 'Left && Right')
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1815
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1816
         (MenuItem
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1817
            activeHelpKey: alignSelectionTopAndBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1818
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1819
            label: 'Top && Bottom'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1820
            itemValue: alignSelectionTopAndBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1821
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1822
            labelImage: (ResourceRetriever UIPainter iconResizeTB 'Top && Bottom')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1823
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1824
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1825
            label: '-'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1826
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1827
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1828
            activeHelpKey: alignSelectionCenterHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1829
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1830
            label: 'Center Horizontal'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1831
            itemValue: alignSelectionCenterHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1832
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1833
            labelImage: (ResourceRetriever UIPainter iconCenterH 'Center Horizontal')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1834
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1835
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1836
            activeHelpKey: centerSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1837
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1838
            label: 'Center Horizontal in Frame'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1839
            itemValue: centerSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1840
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1841
            labelImage: (ResourceRetriever UIPainter iconCenterHInFrame 'Center Horizontal in Frame')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1842
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1843
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1844
            activeHelpKey: alignSelectionCenterVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1845
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1846
            label: 'Center Vertical'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1847
            itemValue: alignSelectionCenterVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1848
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1849
            labelImage: (ResourceRetriever UIPainter iconCenterV 'Center Vertical')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1850
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1851
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1852
            activeHelpKey: centerSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1853
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1854
            label: 'Center Vertical in Frame'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1855
            itemValue: centerSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1856
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1857
            labelImage: (ResourceRetriever UIPainter iconCenterVInFrame 'Center Vertical in Frame')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1858
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1859
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1860
            label: '-'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1861
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1862
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1863
            activeHelpKey: spreadSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1864
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1865
            label: 'Distribute Horizontal'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1866
            itemValue: spreadSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1867
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1868
            labelImage: (ResourceRetriever UIPainter iconDistributeH 'Distribute Horizontal')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1869
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1870
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1871
            activeHelpKey: spreadSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1872
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1873
            label: 'Distribute Vertical'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1874
            itemValue: spreadSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1875
            translateLabel: true
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1876
            labelImage: (ResourceRetriever UIPainter iconDistributeV 'Distribute Vertical')
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1877
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1878
         )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1879
        nil
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1880
        nil
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1881
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1882
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1883
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1884
menuEdit
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1885
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1886
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1887
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  1888
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1889
     the MenuEditor may not be able to read the specification."
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1890
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1891
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1892
     MenuEditor new openOnClass:UIPainter andSelector:#menuEdit
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1893
     (Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1894
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1895
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1896
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1897
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1898
    ^ 
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1899
     #(Menu
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1900
        (
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1901
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1902
            activeHelpKey: editUndo
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1903
            enabled: hasUndoHistory
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1904
            label: 'Undo'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1905
            itemValue: undoLast
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1906
            nameKey: undo
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1907
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1908
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1909
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1910
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1911
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1912
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1913
            activeHelpKey: editCut
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  1914
            enabled: canCutHolder
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1915
            label: 'Cut'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1916
            itemValue: deleteSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1917
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1918
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1919
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1920
            activeHelpKey: editCopy
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  1921
            enabled: canCopyHolder
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1922
            label: 'Copy'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1923
            itemValue: copySelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1924
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1925
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1926
         (MenuItem
2319
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  1927
            activeHelpKey: editPaste
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  1928
            enabled: canPasteHolder
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1929
            label: 'Paste'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1930
            itemValue: pasteBuffer
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1931
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1932
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1933
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1934
            activeHelpKey: pasteWithLayout
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  1935
            enabled: canPasteKeepingLayoutHolder
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1936
            label: 'Paste With Layout'
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  1937
            itemValue: pasteWithoutLayout
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1938
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1939
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1940
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1941
            activeHelpKey: editPaste
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  1942
            enabled: canPasteKeepingLayoutHolder
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1943
            label: 'Paste Keeping Absolute Position'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1944
            itemValue: pasteKeepingPosition
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1945
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1946
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1947
         (MenuItem
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1948
            activeHelpKey: editDelete
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  1949
            enabled: canCutHolder
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1950
            label: 'Delete'
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1951
            itemValue: deleteTotalSelection
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1952
            translateLabel: true
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1953
          )
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1954
         (MenuItem
2319
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  1955
            activeHelpKey: replaceBy
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  1956
            enabled: canReplaceSelection
2319
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  1957
            label: 'Replace by...'
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  1958
            itemValue: doAskAndReplaceWidgetBy
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1959
            translateLabel: true
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1960
          )
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  1961
         (MenuItem
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1962
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1963
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1964
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1965
            enabled: canMoveSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1966
            label: 'Move'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1967
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1968
            submenuChannel: menuMove
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1969
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1970
         (MenuItem
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1971
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1972
            label: 'Align'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1973
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1974
            submenuChannel: menuAlign
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1975
          )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  1976
         (MenuItem
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1977
            enabled: hasSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1978
            label: 'Dimension'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1979
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1980
            submenu: 
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1981
           (Menu
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1982
              (
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1983
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1984
                  activeHelpKey: editDimensionCopyLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1985
                  enabled: hasSingleSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1986
                  label: 'Copy Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1987
                  itemValue: copyLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1988
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1989
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1990
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1991
                  activeHelpKey: editDimensionPasteLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1992
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1993
                  label: 'Paste Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1994
                  itemValue: pasteLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1995
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1996
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1997
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1998
                  activeHelpKey: editDimensionExchangeLayouts
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1999
                  enabled: canExchangeSelectionLayouts
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2000
                  label: 'Exchange Layouts'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2001
                  itemValue: exchangeLayouts
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2002
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2003
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2004
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2005
                  label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2006
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2007
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2008
                  activeHelpKey: editDimensionCopyExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2009
                  enabled: hasSingleSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2010
                  label: 'Copy Extent'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2011
                  itemValue: copyExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2012
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2013
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2014
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2015
                  activeHelpKey: editDimensionPasteExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2016
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2017
                  label: 'Paste Extent'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2018
                  itemValue: pasteExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2019
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2020
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2021
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2022
                  activeHelpKey: editDimensionPasteWidth
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2023
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2024
                  label: 'Paste Width'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2025
                  itemValue: pasteWidth
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2026
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2027
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2028
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2029
                  activeHelpKey: editDimensionPasteHeight
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2030
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2031
                  label: 'Paste Height'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2032
                  itemValue: pasteHeight
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2033
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2034
                )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2035
               (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2036
                  label: '-'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2037
                )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2038
               (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2039
                  activeHelpKey: editDimensionDefaultExtent
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2040
                  enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2041
                  label: 'Set Default Extent'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2042
                  itemValue: setToDefaultExtent
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2043
                  translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2044
                )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2045
               (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2046
                  activeHelpKey: editDimensionDefaultWidth
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2047
                  enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2048
                  label: 'Set Default Width'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2049
                  itemValue: setToDefaultWidth
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2050
                  translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2051
                )
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2052
               (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2053
                  activeHelpKey: editDimensionDefaultHeight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2054
                  enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2055
                  label: 'Set Default Height'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2056
                  itemValue: setToDefaultHeight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2057
                  translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2058
                )
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2059
               )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2060
              nil
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2061
              nil
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2062
            )
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2063
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2064
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2065
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2066
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2067
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2068
            activeHelpKey: editOpenSpecDocumentation
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2069
            label: 'Open Widget Documentation'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2070
            itemValue: doOpenWidgetDocumentation
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2071
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2072
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2073
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2074
            activeHelpKey: referToCOnfigDatabase
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2075
            label: 'Refer to Config Database'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2076
            itemValue: configSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2077
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2078
            isVisible: false
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2079
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2080
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2081
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2082
            isVisible: false
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2083
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2084
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2085
            activeHelpKey: drawEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2086
            label: 'Draw Edit'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2087
            itemValue: shapeEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2088
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2089
            isVisible: false
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2090
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2091
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2092
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2093
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2094
         (MenuItem
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2095
            activeHelpKey: sortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2096
            label: 'Sort Selected Items'
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2097
            itemValue: doSortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2098
            translateLabel: true
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2099
          )
2319
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  2100
"/         (MenuItem
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  2101
"/            label: 'Action'
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  2102
"/            translateLabel: true
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  2103
"/          )
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2104
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2105
            activeHelpKey: groupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2106
            enabled: enGroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2107
            label: 'Group with Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2108
            itemValue: groupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2109
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2110
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2111
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2112
            activeHelpKey: ungroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2113
            enabled: enUngroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2114
            label: 'Ungroup'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2115
            itemValue: ungroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2116
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2117
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2118
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2119
            activeHelpKey: ungroupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2120
            enabled: enUngroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2121
            label: 'Ungroup with Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2122
            itemValue: ungroupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2123
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2124
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2125
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2126
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2127
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2128
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2129
            activeHelpKey: editBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2130
            enabled: hasOneSelectionOtherThanCanvas
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2131
            label: 'Browse Widget Class'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2132
            itemValue: doBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2133
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2134
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2135
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2136
            activeHelpKey: editInspectView
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2137
            enabled: hasOneSelectionOtherThanCanvas
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2138
            label: 'Inspect Widget'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2139
            itemValue: doInspectView
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2140
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2141
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2142
         (MenuItem
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2143
            activeHelpKey: editBrowseViewClass
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2144
            label: 'Browse Specification Class'
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2145
            itemValue: doBrowseSpecificationClass
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2146
            translateLabel: true
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2147
          )
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2148
         (MenuItem
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2149
            activeHelpKey: editInspectSpec
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2150
            label: 'Inspect Spec'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2151
            itemValue: doInspectSpec
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2152
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2153
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2154
         )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2155
        nil
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  2156
        nil
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2157
      )
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2158
!
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2159
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2160
menuFile
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2161
    "This resource specification was automatically generated
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2162
     by the MenuEditor of ST/X."
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2163
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2164
    "Do not manually edit this!! If it is corrupted,
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2165
     the MenuEditor may not be able to read the specification."
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2166
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2167
    "
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2168
     MenuEditor new openOnClass:UIPainter andSelector:#menuFile
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2169
     (Menu new fromLiteralArrayEncoding:(UIPainter menuFile)) startUp
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2170
    "
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2171
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2172
    <resource: #menu>
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2173
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2174
    ^ 
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2175
     #(Menu
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2176
              (
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2177
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2178
                  activeHelpKey: fileNew
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2179
                  label: 'New'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2180
                  itemValue: doNew
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2181
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2182
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2183
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2184
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2185
                  label: '-'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2186
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2187
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2188
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2189
                  activeHelpKey: fileLoad
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2190
                  label: 'Load...'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2191
                  itemValue: doLoad
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2192
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2193
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2194
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2195
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2196
                  activeHelpKey: fileLoadSubspec
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2197
                  label: 'Load Subspec...'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2198
                  itemValue: doLoadSubspec
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2199
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2200
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2201
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2202
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2203
                  label: '-'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2204
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2205
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2206
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2207
                  activeHelpKey: fileSave
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2208
                  label: 'Save'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2209
                  itemValue: doSave
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2210
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2211
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2212
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2213
                  activeHelpKey: fileSaveAs
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2214
                  label: 'Save As...'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2215
                  itemValue: doSaveAs
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2216
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2217
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2218
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2219
                  label: '-'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2220
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2221
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2222
                  activeHelpKey: fileSaveAs
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2223
                  label: 'Define Class and Selector...'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2224
                  itemValue: doDefineClassAndSelector
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2225
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2226
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2227
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2228
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2229
                  activeHelpKey: filePickAnInterface
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2230
                  label: 'Pick a Window Spec...'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2231
                  itemValue: doPickAView
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2232
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2233
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2234
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2235
                  label: '-'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2236
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2237
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2238
                  label: 'Launch'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2239
                  itemValue: doStartApplication
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2240
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2241
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2242
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2243
                  enabled: canInstallAsWebPageHolder
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2244
                  label: 'Install as WebPage'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2245
                  itemValue: doInstallAsWebPage
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2246
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2247
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2248
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2249
                  label: '-'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2250
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2251
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2252
                  activeHelpKey: fileShowWindowSpec
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2253
                  label: 'Show Window Spec'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2254
                  itemValue: doWindowSpec
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2255
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2256
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2257
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2258
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2259
                  activeHelpKey: fileBrowseClass
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2260
                  enabled: hasSpecClass
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2261
                  label: 'Browse Applications Class'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2262
                  itemValue: doBrowseClass
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2263
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2264
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2265
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2266
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2267
                  activeHelpKey: fileBrowseAspectMethods
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2268
                  enabled: hasSpecClass
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2269
                  label: 'Browse Applications Aspect Methods'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2270
                  itemValue: doBrowseAspectMethods
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2271
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2272
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2273
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2274
                  label: '-'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2275
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2276
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2277
               (MenuItem
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2278
                  activeHelpKey: fileExit
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2279
                  label: 'Exit'
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2280
                  itemValue: closeRequest
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2281
                  translateLabel: true
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2282
                  isVisible: isStandAlone
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2283
                )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2284
               )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2285
              nil
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2286
              nil
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2287
            )
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2288
!
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  2289
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2290
menuMove
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2291
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2292
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2293
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2294
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2295
     the MenuEditor may not be able to read the specification."
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2296
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2297
    "
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2298
     MenuEditor new openOnClass:UIPainter andSelector:#menuMove
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2299
     (Menu new fromLiteralArrayEncoding:(UIPainter menuMove)) startUp
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2300
    "
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2301
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2302
    <resource: #menu>
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2303
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2304
    ^
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2305
     
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2306
       #(#Menu
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  2307
          
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2308
           #(
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2309
             #(#MenuItem
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2310
                #label: 'Up'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2311
                #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2312
                #value: #doStepUp
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2313
                #activeHelpKey: #moveWidgetUp
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2314
                #enabled: #canChangeOrderInContainer
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2315
                #labelImage: #(#ResourceRetriever #Icon #upIcon 'Up')
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2316
            )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2317
             #(#MenuItem
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2318
                #label: 'Down'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2319
                #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2320
                #value: #doStepDown
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2321
                #activeHelpKey: #moveWidgetDown
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2322
                #enabled: #canChangeOrderInContainer
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2323
                #labelImage: #(#ResourceRetriever #Icon #downIcon 'Down')
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2324
            )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2325
             #(#MenuItem
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2326
                #label: 'Into'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2327
                #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2328
                #value: #doStepIn
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2329
                #activeHelpKey: #moveWidgetInto
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2330
                #enabled: #canMoveSelectionIntoContainer
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2331
                #labelImage: #(#ResourceRetriever #Icon #downRightIcon 'Into')
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2332
            )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2333
             #(#MenuItem
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2334
                #label: 'Out'
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2335
                #translateLabel: true
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2336
                #value: #doStepOut
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2337
                #activeHelpKey: #moveWidgetOut
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2338
                #enabled: #canMoveSelectionOutOfContainer
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2339
                #labelImage: #(#ResourceRetriever #Icon #leftDownIcon 'Out')
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2340
            )
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2341
          ) nil
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2342
          nil
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2343
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2344
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2345
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2346
menuReplaceWidget
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2347
    "This resource specification was automatically generated
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2348
     by the MenuEditor of ST/X."
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2349
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2350
    "Do not manually edit this!! If it is corrupted,
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2351
     the MenuEditor may not be able to read the specification."
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2352
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2353
    "
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2354
     MenuEditor new openOnClass:UIPainter andSelector:#menuReplaceWidget
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2355
     (Menu new fromLiteralArrayEncoding:(UIPainter menuReplaceWidget)) startUp
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2356
    "
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2357
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2358
    <resource: #menu>
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2359
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2360
    ^ 
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2361
     #(Menu
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2362
        (
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2363
         (MenuItem
2319
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  2364
            activeHelpKey: replaceBy
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2365
            enabled: canChangeOrderInContainer
2319
357af951d0ec *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2318
diff changeset
  2366
            label: 'Replace by...'
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2367
            itemValue: doAskAndReplaceWidgetBy
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2368
            translateLabel: true
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2369
          )
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2370
         )
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2371
        nil
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2372
        nil
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2373
      )
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2374
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2375
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2376
menuToolbar
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2377
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2378
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2379
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  2380
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2381
     the MenuEditor may not be able to read the specification."
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2382
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2383
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2384
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2385
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2386
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2387
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2388
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2389
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2390
    ^ 
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2391
     #(Menu
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2392
        (
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2393
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2394
            activeHelpKey: testStartApplication
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2395
            label: 'Start'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2396
            itemValue: doStartApplication
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2397
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2398
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2399
            labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2400
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2401
         (MenuItem
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2402
            enabled: canInstallAsWebPageHolder
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2403
            label: 'Install as WebPage'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2404
            itemValue: doInstallAsWebPage
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2405
            translateLabel: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2406
            isButton: true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2407
            isVisible: installAsWebPageVisible
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2408
            labelImage: (ResourceRetriever XPToolbarIconLibrary installAsWebPage24x24Icon)
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2409
          )
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2410
         (MenuItem
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2411
            label: '-'
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2412
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2413
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2414
            activeHelpKey: fileNew
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2415
            label: 'New'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2416
            itemValue: doNew
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2417
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2418
            isButton: true
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  2419
            isVisible: isStandAlone
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  2420
            labelImage: (ResourceRetriever ToolbarIconLibrary newWindowSpecIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2421
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2422
         (MenuItem
1950
aaf6499564ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1940
diff changeset
  2423
            label: '-'
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  2424
            isVisible: isStandAlone
1950
aaf6499564ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1940
diff changeset
  2425
          )
aaf6499564ba *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1940
diff changeset
  2426
         (MenuItem
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2427
            activeHelpKey: fileLoad
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2428
            label: 'Load'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2429
            itemValue: doLoad
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2430
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2431
            isButton: true
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  2432
            isVisible: isStandAlone
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  2433
            labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2434
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2435
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2436
            activeHelpKey: fileSave
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2437
            label: 'Save'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2438
            itemValue: doSave
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2439
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2440
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2441
            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2442
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2443
         (MenuItem
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2444
            label: '-'
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2445
          )
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2446
         (MenuItem
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2447
            activeHelpKey: editUndo
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2448
            enabled: hasUndoHistoryHolder
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2449
            label: 'Undo'
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2450
            itemValue: undoLast
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2451
            translateLabel: true
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2452
            isButton: true
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  2453
            labelImage: (ResourceRetriever ToolbarIconLibrary undoIcon)
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2454
          )
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2455
         (MenuItem
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2456
            label: '-'
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2457
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2458
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2459
            activeHelpKey: editCut
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2460
            enabled: canCutHolder
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2461
            label: 'Cut'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2462
            itemValue: deleteSelection
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2463
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2464
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2465
            labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2466
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2467
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2468
            activeHelpKey: editCopy
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2469
            enabled: canCopyHolder
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2470
            label: 'Copy'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2471
            itemValue: copySelection
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2472
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2473
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2474
            labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2475
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2476
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2477
            activeHelpKey: editPaste
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2478
            enabled: canPasteKeepingLayoutHolder
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2479
            label: 'Paste With Layout'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2480
            itemValue: pasteWithLayout
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2481
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2482
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2483
            labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2484
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2485
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2486
            activeHelpKey: editDelete
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2487
            enabled: canCutHolder
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2488
            label: 'Delete'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2489
            itemValue: deleteTotalSelection
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2490
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2491
            isButton: true
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
  2492
            isVisible: false
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2493
            labelImage: (ResourceRetriever ToolbarIconLibrary deleteWidgetIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2494
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2495
         (MenuItem
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2496
            label: '-'
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2497
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2498
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2499
            activeHelpKey: moveWidgetUp
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2500
            enabled: canChangeOrderInContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2501
            label: 'Move Up'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2502
            itemValue: doStepUp
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2503
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2504
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2505
            labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetUpIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2506
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2507
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2508
            activeHelpKey: moveWidgetDown
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2509
            enabled: canChangeOrderInContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2510
            label: 'Move Down'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2511
            itemValue: doStepDown
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2512
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2513
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2514
            labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetDownIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2515
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2516
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2517
            activeHelpKey: moveWidgetInto
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2518
            enabled: canMoveSelectionIntoContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2519
            label: 'Move Into'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2520
            itemValue: doStepIn
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2521
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2522
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2523
            labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetDownRightIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2524
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2525
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2526
            activeHelpKey: moveWidgetOut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2527
            enabled: canMoveSelectionOutOfContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2528
            label: 'Move Out'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2529
            itemValue: doStepOut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2530
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2531
            isButton: true
1883
577a267a87cb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1872
diff changeset
  2532
            labelImage: (ResourceRetriever ToolbarIconLibrary moveWidgetLeftDownIcon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2533
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2534
         (MenuItem
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2535
            label: '-'
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
  2536
            startGroup: right
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2537
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2538
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2539
            activeHelpKey: settingsCanvas
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2540
            label: 'Canvas'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2541
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2542
            indication: painterShown
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2543
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2544
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2545
            activeHelpKey: settingsGallery
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2546
            label: 'Gallery'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2547
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2548
            indication: galleryShown
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2549
          )
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2550
         )
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2551
        nil
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2552
        nil
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2553
      )
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2554
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2555
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2556
menuToolbar2
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2557
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2558
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2559
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  2560
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2561
     the MenuEditor may not be able to read the specification."
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2562
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2563
    "
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2564
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar2
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2565
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar2)) startUp
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2566
    "
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2567
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2568
    <resource: #menu>
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2569
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2570
    ^ 
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2571
     #(Menu
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2572
        (
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2573
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2574
            activeHelpKey: alignSelectionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2575
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2576
            label: 'Align Left'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2577
            itemValue: alignSelectionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2578
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2579
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2580
            labelImage: (ResourceRetriever nil iconAlignL)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2581
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2582
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2583
            activeHelpKey: alignSelectionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2584
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2585
            label: 'Align Right'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2586
            itemValue: alignSelectionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2587
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2588
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2589
            labelImage: (ResourceRetriever nil iconAlignR)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2590
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2591
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2592
            activeHelpKey: alignSelectionTop
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2593
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2594
            label: 'Align Top'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2595
            itemValue: alignSelectionTop
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2596
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2597
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2598
            labelImage: (ResourceRetriever nil iconAlignT)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2599
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2600
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2601
            activeHelpKey: alignSelectionBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2602
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2603
            label: 'Align Bottom'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2604
            itemValue: alignSelectionBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2605
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2606
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2607
            labelImage: (ResourceRetriever nil iconAlignB)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2608
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2609
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2610
            activeHelpKey: alignSelectionLeftAndRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2611
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2612
            label: 'Align Left & Right'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2613
            itemValue: alignSelectionLeftAndRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2614
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2615
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2616
            labelImage: (ResourceRetriever nil iconResizeLR)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2617
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2618
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2619
            activeHelpKey: alignSelectionTopAndBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2620
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2621
            label: 'Align Top & Bottom'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2622
            itemValue: alignSelectionTopAndBottom
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2623
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2624
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2625
            labelImage: (ResourceRetriever nil iconResizeTB)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2626
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2627
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2628
            label: ''
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2629
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2630
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2631
            activeHelpKey: changePositionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2632
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2633
            label: 'Move Left'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2634
            itemValue: moveSelectionLeft
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2635
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2636
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2637
            hideMenuOnActivated: false
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2638
            triggerOnDown: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2639
            labelImage: (ResourceRetriever nil arrowLeft)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2640
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2641
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2642
            activeHelpKey: changePositionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2643
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2644
            label: 'Move Right'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2645
            itemValue: moveSelectionRight
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2646
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2647
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2648
            hideMenuOnActivated: false
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2649
            triggerOnDown: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2650
            labelImage: (ResourceRetriever nil arrowRight)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2651
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2652
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2653
            activeHelpKey: changePositionUp
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2654
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2655
            label: 'Move Up'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2656
            itemValue: moveSelectionUp
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2657
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2658
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2659
            triggerOnDown: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2660
            labelImage: (ResourceRetriever nil arrowUp)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2661
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2662
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2663
            activeHelpKey: changePositionDown
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2664
            enabled: canMoveOrAlignSelection
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2665
            label: 'Move Down'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2666
            itemValue: moveSelectionDown
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2667
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2668
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2669
            triggerOnDown: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2670
            labelImage: (ResourceRetriever nil arrowDown)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2671
          )
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2672
         (MenuItem
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2673
            activeHelpKey: editOpenSpecDocumentation
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2674
            label: 'Widget Documentation'
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2675
            itemValue: doOpenWidgetDocumentation
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2676
            translateLabel: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2677
            isButton: true
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2678
            startGroup: right
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2679
            labelImage: (ResourceRetriever Icon helpIcon)
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2680
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2681
         )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2682
        nil
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2683
        nil
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  2684
      )
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2685
! !
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2686
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2687
!UIPainter methodsFor:'aspects'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2688
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
  2689
aspectFor:aKey
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2690
    "returns the aspect for aKey or nil"
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2691
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2692
    ^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
  2693
!
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
  2694
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2695
canChangeOrderInContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2696
    "returns a boolean value holder which is true if the widget order can be changed 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2697
     within their container"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2698
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2699
    ^ builder booleanValueAspectFor:#canChangeOrderInContainer
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2700
!
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2701
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2702
canExchangeSelectionLayouts
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2703
    "returns a boolean value holder which is true in case that the selection 
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2704
     consists of exactly 2 components
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2705
     and all widgets in the selection can change its layout through to a move or
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2706
     align operation"
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2707
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2708
    ^ builder booleanValueAspectFor:#canExchangeSelectionLayouts
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2709
!
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2710
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2711
canInstallAsWebPage
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2712
    ^ self specClass notNil
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2713
       and:[ self specClass isSubclassOf:WebApplicationModel ]
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2714
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2715
    "Created: / 14-01-2008 / 17:34:56 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2716
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2717
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2718
canInstallAsWebPageHolder
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2719
    |a|
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2720
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2721
    a := builder booleanValueAspectFor:#canInstallAsWebPageHolder.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2722
    a value:self canInstallAsWebPage.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2723
    ^ a
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2724
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2725
    "Created: / 14-01-2008 / 17:36:04 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2726
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2727
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2728
canMoveOrAlignSelection
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2729
    "returns a boolean value holder which is true in case that any selection exists
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2730
     and all widgets in the selection can change its layout through to a move or
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2731
     align operation"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2732
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2733
    ^ builder booleanValueAspectFor:#canMoveOrAlignSelection
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2734
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2735
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2736
canMoveSelection
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2737
    "true if move-in/move-out/move-up and down are enabled"
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2738
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2739
    ^ self canChangeOrderInContainer value 
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2740
     or: [ self canMoveSelectionOutOfContainer value 
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  2741
     or: [ self canMoveSelectionIntoContainer value ]]
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2742
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2743
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2744
canMoveSelectionIntoContainer
2280
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  2745
    "returns true in case that one widget is selected and can change its container
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  2746
     widget to an element below"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2747
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2748
    ^ builder booleanValueAspectFor:#canMoveSelectionIntoContainer
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2749
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2750
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2751
canMoveSelectionOutOfContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2752
    "returns a boolean value holder which is true in case that one widget is selected
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2753
     which is contained within another component"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2754
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2755
    ^ builder booleanValueAspectFor:#canMoveSelectionOutOfContainer
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2756
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2757
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2758
canPasteHolder
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2759
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2760
    |holder|
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2761
    (holder := builder bindingAt:#canPasteHolder) isNil ifTrue:[
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2762
        holder := [ self canPaste ].
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2763
    ].
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2764
    ^ holder
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2765
!
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2766
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2767
canPasteKeepingLayoutHolder
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2768
    ^ self canPasteHolder
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2769
!
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  2770
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2771
canReplaceSelection
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2772
    treeView isCanvasSelected ifTrue:[^ false].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2773
    ^ true
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2774
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  2775
118
bc196200ea8b enabled and style
ca
parents: 114
diff changeset
  2776
enableChannel
2012
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  2777
    "true if modifications are allowed otherwise in test mode"
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  2778
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  2779
    ^ builder valueAspectFor:#enableChannel initialValue:true
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  2780
!
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  2781
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  2782
enableChannel2
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2783
    "true if modifications are allowed otherwise running test"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2784
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2785
    ^ self painter enableChannel
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2786
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2787
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2788
galleryShown
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2789
    "returns a boolean value holder which is set to true if the gallery is shown"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2790
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2791
    |holder|
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2792
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2793
    (holder := builder bindingAt:#galleryShown) isNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2794
        builder aspectAt:#galleryShown put:(holder :=  true asValue).
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2795
        holder addDependent:self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2796
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2797
    ^ holder
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2798
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2799
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2800
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2801
hasOneSelectionOtherThanCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2802
    "returns a value holder which is true in case that one widget is selected
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2803
     other than the root"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2804
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2805
    ^ builder booleanValueAspectFor:#hasOneSelectionOtherThanCanvas
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2806
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2807
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2808
hasUndoHistory
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2809
    ^ self painter hasUndoHistory
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2810
!
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  2811
1954
1344ec1f99eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1953
diff changeset
  2812
hasUndoHistoryHolder
1344ec1f99eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1953
diff changeset
  2813
    ^ self painter hasUndoHistoryHolder
1344ec1f99eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1953
diff changeset
  2814
!
1344ec1f99eb *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1953
diff changeset
  2815
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2816
installAsWebPageVisible
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2817
    ^ true
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2818
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2819
    "Created: / 14-01-2008 / 17:46:05 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2820
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2821
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2822
noteBookView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2823
    "returns the notebook view; initialize the tools embedded in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2824
2159
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  2825
    |noteBook|
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2826
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2827
    (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2828
        noteBook := View new.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2829
        builder aspectAt:#noteBookView put:noteBook.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2830
2159
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  2831
        layoutTool := self createToolApplication:UILayoutTool        spec:#windowSpec in:noteBook.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  2832
        helpTool   := self createToolApplication:UIHelpTool          spec:#innerSpec  in:noteBook.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  2833
        specTool   := self createToolApplication:UISpecificationTool spec:#windowSpec in:noteBook.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  2834
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  2835
        helpTool loadFromClass:specClass.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2836
    ].
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2837
    ^ noteBook
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  2838
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  2839
    "Modified: / 31-08-2006 / 10:11:15 / cg"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2840
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2841
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2842
painterShown
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2843
    "returns a boolean value holder which is set to true if the painter is shown"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2844
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2845
    |holder|
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2846
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2847
    (holder := builder bindingAt:#painterShown) isNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2848
        builder aspectAt:#painterShown put:(holder :=  true asValue).
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2849
        holder addDependent:self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2850
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2851
    ^ holder
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2852
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2853
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2854
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2855
tabList
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2856
    "returns a value holder which keeps a list of the section labels in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2857
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  2858
    |tabs holder|
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2859
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2860
    (holder := builder bindingAt:#tabList) isNil ifTrue:[
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  2861
        tabs := #(Basics Details Layout).
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  2862
        builder aspectAt:#tabList put:(holder :=  (resources array:tabs) asValue).
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2863
    ].
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2864
    ^ holder
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2865
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2866
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2867
tabModel
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2868
    "returns a value holder which keeps the label of the current section in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2869
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2870
    |holder|
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2871
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2872
    (holder := builder bindingAt:#tabModel) isNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2873
        holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  2874
        builder aspectAt:#tabModel put:holder.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2875
    ].
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2876
    ^ holder
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2877
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2878
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2879
treeView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2880
    "returns the tree view which holds all widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2881
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2882
    ^ treeView
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2883
!
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2884
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2885
valueOfCanPasteWithKeepingLayout
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  2886
    <resource: #obsolete>
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2887
    self obsoleteMethodWarning:'stupid name - use #canPasteKeepingLayoutHolder'.
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  2888
    ^ self canPasteKeepingLayoutHolder
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2889
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2890
587
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  2891
!UIPainter methodsFor:'building editors'!
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2892
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2893
openDataSetColumnEditor
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2894
    "opens a Table Column Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2895
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2896
    |cls editor specTool columnHolder tableSelector columns|
824
1d5adf147721 change mechanism for opening the dataset builder (step 2)
tz
parents: 819
diff changeset
  2897
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2898
    self isEditingSpecOnly ifFalse:[
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2899
        (cls := self resolveName:specClassName) isNil ifTrue:[
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2900
            self askForSaving ifTrue:[cls := self resolveName:specClassName].
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2901
        ].
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2902
        cls isNil ifTrue:[^ self].
1103
ecc91379704b accept before opening an editor
Claus Gittinger <cg@exept.de>
parents: 1071
diff changeset
  2903
    ].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2904
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2905
    self acceptOrIgnoreSectionModification.
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2906
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2907
    editor   := DataSetBuilder new.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2908
    specTool := self specTool.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2909
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2910
    editor masterApplication:self.
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2911
    self isEditingSpecOnly ifFalse:[
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2912
        editor specClass: cls.
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2913
        editor rowClassName:(specTool specification rowClassName).
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2914
    ].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2915
    columnHolder  := specTool aspectFor:#columnHolder.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2916
    tableSelector := columnHolder value.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2917
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2918
    tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2919
                                            ifFalse:[nil].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2920
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2921
    (self isEditingSpecOnly not
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2922
    and:[tableSelector notNil 
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2923
    and:[cls class includesSelector:tableSelector]]) ifTrue:[
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2924
        editor openModalOnClass:cls andSelector:tableSelector
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2925
    ] ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2926
        columns := specTool specification columns.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2927
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2928
        columns size ~~ 0 ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2929
            editor openModalOnResourceSpec:columns
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2930
        ] ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2931
            editor openModal
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2932
        ]
827
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2933
    ].
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2934
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2935
    editor hasSaved ifTrue:[
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2936
        specTool specification 
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2937
            columns:nil;
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2938
            rowClassName:(editor rowClassName).
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2939
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2940
        tableSelector = editor specSelector ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2941
            columnHolder value:(editor specSelector).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2942
            self accept.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2943
        ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2944
        ^ self
827
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2945
    ].
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2946
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2947
    (editor modified and:[tableSelector isNil]) ifTrue:[
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2948
        specTool specification 
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2949
            columns:(editor columns);
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  2950
            rowClassName:(editor rowClassName).
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2951
        self modifiedChannel value:true.
827
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2952
    ].
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2953
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2954
    "Modified: / 12-01-2008 / 10:31:47 / cg"
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2955
!
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2956
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2957
openEditMenu
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2958
    "opens a Menu Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2959
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2960
    |cls selectorOrMenu editor selectedSpec spec holder|
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2961
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  2962
    (cls := self resolveName:specClassName) isNil ifTrue:[
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  2963
        self askForSaving ifTrue:[cls := self resolveName:specClassName].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2964
    ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2965
    cls isNil ifTrue:[^ self].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2966
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  2967
    self acceptOrIgnoreSectionModification.
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2968
    spec := self specTool specification.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2969
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2970
    (selectorOrMenu := spec menuSelector) notNil ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2971
        selectorOrMenu := selectorOrMenu asSymbol
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2972
    ] ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2973
        "/ cg: q&d hack ...
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2974
        selectorOrMenu := nil.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2975
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2976
        (selectedSpec := treeView propertySelected) notNil ifTrue:[
1688
389815b12d3a Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 1684
diff changeset
  2977
            Error handle:[:ex |
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2978
                selectorOrMenu := nil.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2979
            ] do:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2980
                selectorOrMenu := selectedSpec view asMenu.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2981
            ]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2982
        ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2983
    ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2984
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2985
    editor := MenuEditor new.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2986
    editor masterApplication:self.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2987
    editor specClass: cls.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1663
diff changeset
  2988
    editor useHelpTool:(self helpTool).
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2989
1698
28250498a2b3 *** empty log message ***
penk
parents: 1690
diff changeset
  2990
    selectorOrMenu class == Menu
28250498a2b3 *** empty log message ***
penk
parents: 1690
diff changeset
  2991
        ifTrue: [editor openModalOnMenu:selectorOrMenu]
28250498a2b3 *** empty log message ***
penk
parents: 1690
diff changeset
  2992
        ifFalse:  [editor openModalOnClass:cls andSelector:selectorOrMenu].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2993
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2994
    editor hasSaved ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2995
        holder := self specTool aspectFor:#menuSelector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2996
        holder value:(editor specSelector).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2997
        self accept.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1663
diff changeset
  2998
        ^ self
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2999
    ].
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3000
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3001
    "Modified: / 12-01-2008 / 10:31:41 / cg"
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3002
!
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3003
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3004
openHierarchicalListEditor
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3005
    "opens a Hierarchical List Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3006
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3007
    |selector editor spec|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3008
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3009
    (self resolveName:specClassName) isNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3010
        self askForSaving ifFalse: [^self]
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3011
    ].
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3012
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3013
    spec := self specTool specification.
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3014
    (selector := spec hierarchicalList) notNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3015
        selector := selector asSymbol
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3016
    ].
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
  3017
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3018
    editor := HierarchicalListEditor new.
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3019
    editor masterApplication:self.
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3020
    editor openModalOnClass:specClassName andSelector:selector.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3021
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3022
    editor specSelector ~= selector ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3023
        editor hasSaved ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3024
            spec hierarchicalList:editor specSelector.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3025
            self modifiedChannel value:true.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3026
            self accept
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3027
        ]
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3028
    ]
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3029
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3030
    "Modified: / 16.7.1998 / 18:15:46 / cg"
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3031
!
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3032
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3033
openSubSpecGUIPainter
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3034
    "opens a GUI Painter on the current subspecification"
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3035
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3036
    |spec cls meta sel|
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3037
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3038
    (self resolveName:specClassName) isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3039
        self askForSaving ifFalse: [^self]
913
12e73e6c57b4 do open building editors after defining first new app class
tz
parents: 892
diff changeset
  3040
    ]. 
12e73e6c57b4 do open building editors after defining first new app class
tz
parents: 892
diff changeset
  3041
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3042
    spec := self specTool specification.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3043
    cls := spec majorKey.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3044
    cls isNil ifTrue:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3045
        cls := specClassName.
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3046
    ].
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3047
    (cls := self resolveName:cls inClass:(Smalltalk at: specClassName asSymbol)) isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3048
        spec majorKey isNil ifTrue:[
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3049
            ^ self warn:'Cannot find class (no majorKey specified).'.
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3050
        ].
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3051
        ^ self warn:('Cannot find class ', spec majorKey asBoldText, '.').
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3052
    ].
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3053
    sel := spec minorKey.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3054
    meta := cls class whichClassIncludesSelector:sel.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3055
    meta isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3056
        ^ self warn:'Cannot find selector #', (sel ? '') asBoldText, ' in class ', cls name asBoldText, '!!'
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3057
    ].
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3058
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3059
    self class 
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3060
        openOnClass:meta soleInstance 
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3061
        andSelector:spec minorKey.
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3062
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  3063
    "Modified: / 5.11.2001 / 16:51:46 / cg"
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3064
!
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  3065
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3066
openTabListEditor
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3067
    "opens a Tab List Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3068
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3069
    |selector editor spec cls holder|
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3070
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3071
    (cls := self resolveName:specClassName) isNil ifTrue:[
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3072
        self askForSaving ifTrue:[cls := self resolveName:specClassName].
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3073
    ].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3074
    cls isNil ifTrue:[^ self].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3075
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3076
    self acceptOrIgnoreSectionModification.
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3077
    spec := self specTool specification.
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3078
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3079
    (selector := spec listSelector) isArray 
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3080
        ifTrue: [^self warn: 'Cannot open the Tab List Editor on an array!!'].
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3081
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3082
    editor := TabListEditor new.
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3083
    editor masterApplication:self.
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3084
    editor openModalOnClass:cls andSelector:selector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3085
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3086
    editor hasSaved ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3087
        holder := self specTool aspectFor:#listSelector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3088
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3089
        holder value ~= editor specSelector ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3090
            holder value:editor specSelector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3091
            self accept.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3092
        ]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  3093
    ].
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3094
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3095
    "Modified: / 12-01-2008 / 10:31:34 / cg"
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3096
! !
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  3097
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3098
!UIPainter methodsFor:'change & update'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3099
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3100
layoutChanged
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3101
    "called by the painter/canvas whenever the layout of the current selected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3102
     widget has changed"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3103
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3104
    self isModified ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3105
        self layoutTool update.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3106
        self clearModifiedFlag
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3107
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3108
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3109
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3110
propertyChanged
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3111
    "called by the painter/canvas whenever the property of the current selected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3112
     widget has changed"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3113
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3114
    |property spec|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3115
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3116
    (property := treeView propertySelected) notNil ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3117
        spec := property spec copy.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3118
        self specTool specification:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3119
        self setViewInLayoutTool:(property view) spec:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3120
        self clearModifiedFlag
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3121
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3122
        self layoutTool layoutView notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3123
            self clearModifiedFlag.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3124
            self treeSelectionChanged
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3125
        ]
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3126
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3127
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3128
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3129
update:something with:aParameter from:someObject
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3130
    "catches change notifications"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3131
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3132
    |window lbl|
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3133
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3134
    someObject == treeView model ifTrue:[
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3135
        (something == #selection
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3136
        or:[something == #selectionIndex]) ifTrue:[self treeSelectionChanged].
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3137
        ^ self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3138
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3139
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3140
    someObject == self galleryShown ifTrue:[
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3141
        "/ galleryShown toggle changed
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3142
        window := selectionPanel window.
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3143
        (someObject value) ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3144
            self raiseUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3145
        ] ifFalse:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3146
            self hideUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3147
        ].
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3148
        ^ self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3149
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3150
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3151
    someObject == self painterShown ifTrue:[
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3152
        "/ canvasShown toggle changed
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3153
        window := self painter topView.
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3154
        (someObject value) ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3155
            self raiseUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3156
        ] ifFalse:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3157
            self hideUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3158
        ].
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3159
        ^ self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3160
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3161
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3162
    someObject == self autoAcceptOnSelectionChange ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3163
        lbl := someObject value ifTrue:['Apply'] ifFalse:['OK'].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3164
        (builder componentAt:'acceptButton') label:(resources string:lbl).
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3165
        ^ self
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3166
    ].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3167
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3168
    "Modified: / 16.7.1998 / 19:09:57 / cg"
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3169
!
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3170
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3171
updateChannels
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3172
    "updates the channels"
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3173
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3174
    |canCutOrCopy|
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3175
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3176
    self canMoveOrAlignSelection        value:(treeView canMoveOrAlignSelection).
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  3177
    self canExchangeSelectionLayouts    value:(treeView canExchangeSelectionLayouts).
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3178
    self canChangeOrderInContainer      value:(treeView canChangeOrderInContainer).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3179
    self canMoveSelectionIntoContainer  value:(treeView canMoveSelectionIntoContainer).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3180
    self canMoveSelectionOutOfContainer value:(treeView canMoveSelectionOutOfContainer).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3181
    self hasOneSelectionOtherThanCanvas value:(treeView hasOneSelectionOtherThanCanvas).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3182
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3183
    "/ the top-node cannot be cut, copied or pasted.
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3184
    canCutOrCopy := treeView selection notEmptyOrNil and:[treeView selection first ~~ 1].
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  3185
1991
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  3186
    self canCutHolder value: canCutOrCopy.
feaad07cb3cf valueOf* methods renamed
Claus Gittinger <cg@exept.de>
parents: 1983
diff changeset
  3187
    self canCopyHolder value: canCutOrCopy.
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3188
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  3189
"/    self modifiedChannel value: false.
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  3190
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3191
    "Modified: / 16.7.1998 / 19:13:30 / cg"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3192
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3193
952
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3194
!UIPainter methodsFor:'defaults'!
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3195
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3196
aboutImage
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3197
    "the image to be displayed in my about-box;
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3198
     If nil is returned, thhe ST/X default image is used."
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3199
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3200
    ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/setup_windows.xpm'
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3201
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3202
    "Created: / 13.8.1998 / 20:33:05 / cg"
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  3203
!
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  3204
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  3205
defaultWindowSpecClass
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  3206
    ^ WindowSpec
952
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3207
! !
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  3208
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3209
!UIPainter methodsFor:'event handling'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3210
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3211
doesNotUnderstand:aMessage
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3212
    "forward misunderstood messages to the painter"
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3213
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3214
    |painter|
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3215
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3216
    painter := self painter.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3217
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3218
    (painter respondsTo:(aMessage selector)) ifTrue:[
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3219
        ^ aMessage sendTo:painter
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3220
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3221
    super doesNotUnderstand:aMessage
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3222
1957
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3223
!
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3224
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3225
processEvent:anEvent
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3226
    "filter keyboard events.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3227
     Return true, if I have eaten the event"
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3228
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3229
    |key|
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3230
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3231
    anEvent isKeyPressEvent ifTrue:[ 
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3232
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3233
        anEvent targetView == treeView ifFalse:[^ false].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3234
        treeView hasFocus ifFalse:[^ false].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3235
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3236
        key := anEvent key.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3237
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3238
"/        (anEvent rawKey == #Cmdr) ifTrue:[
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3239
"/            self openNameEditorOnTreeSelection.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3240
"/            ^ true.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3241
"/        ].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3242
        (anEvent rawKey == #CtrlCursorUp) ifTrue:[ 
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3243
            self doStepUp.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3244
            ^ true.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3245
        ].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3246
        (anEvent rawKey == #CtrlCursorDown) ifTrue:[ 
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3247
            self doStepDown.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3248
            ^ true.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3249
        ].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3250
        (anEvent rawKey == #CtrlCursorLeft) ifTrue:[ 
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3251
            self doStepOut.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3252
            ^ true.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3253
        ].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3254
        (anEvent rawKey == #CtrlCursorRight) ifTrue:[ 
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3255
            self doStepIn.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3256
            ^ true.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3257
        ].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3258
    ].
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3259
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  3260
    ^ false.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3261
! !
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3262
547
930b3df19305 help menu item aligned to the right
tz
parents: 542
diff changeset
  3263
!UIPainter methodsFor:'help'!
930b3df19305 help menu item aligned to the right
tz
parents: 542
diff changeset
  3264
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  3265
defaultInfoLabel
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3266
    "returns the default info label"
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  3267
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3268
    specClassName isNil ifTrue: [^'No class defined.'].
877
f31f41b29710 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 852
diff changeset
  3269
    specSelector isNil ifTrue: [^'No selector defined.'].
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  3270
    ^ specClassName printString, ' >> ', specSelector
877
f31f41b29710 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 852
diff changeset
  3271
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3272
    "Modified: / 31-08-2006 / 10:12:03 / cg"
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
  3273
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
  3274
2353
13774605a1a7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2336
diff changeset
  3275
!UIPainter methodsFor:'help specs'!
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3276
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3277
flyByHelpSpec
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3278
    |spec|
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3279
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3280
    spec := self class flyByHelpSpec.
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3281
    spec at:#editUndo put:(resources string:'Undo (%1)' 
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3282
                        with:(resources string:self painter undoHistory labelOfLastUndo)).
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3283
    ^ spec
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3284
!
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3285
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3286
helpSpec
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3287
    |spec|
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3288
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3289
    spec := self class helpSpec.
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3290
    spec at:#editUndo put:(resources string:'Undo (%1)' 
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3291
                        with:(resources string:self painter undoHistory labelOfLastUndo)).
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3292
    ^ spec
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3293
! !
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3294
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3295
!UIPainter methodsFor:'initialization'!
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3296
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3297
initialize
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3298
    |name scroller viewScroller|
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3299
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3300
    super initialize.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3301
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3302
    modified := false.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3303
    aspects := IdentityDictionary new.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3304
    aspects at:#classNameChannel put:'NewApplication' asValue.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3305
    aspects at:#superclassNameChannel put:'ApplicationModel' asValue.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3306
    aspects at:#methodNameChannel put:'windowSpec' asValue.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3307
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3308
    treeView := TreeView new.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3309
    treeView windowSpecClass:(self defaultWindowSpecClass).
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3310
    treeView 
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3311
        selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3312
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3313
    painterView := StandardSystemView new.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3314
    name := name ? UIPainter defaultNameOfCanvas.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3315
    painterView beToolWindow.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3316
    painterView name:name.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3317
    painterView label:name.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3318
    painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3319
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3320
    UseViewScroller == true ifTrue:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3321
        scroller := HVScrollableView for:ViewScroller in:painterView.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3322
        scroller
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3323
            horizontalScrollable:true miniScroller:true;
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3324
            verticalScrollable:true; verticalMini:true;
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3325
            autoHideScrollBars:false;
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3326
            layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3327
        viewScroller := scroller scrolledView.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3328
        painter := UIPainterView new.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3329
        painter extent:300@300.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3330
        viewScroller scrolledView:painter.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3331
    ] ifFalse:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3332
        painter := UIPainterView in:painterView.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3333
        painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3334
    ].
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3335
    treeView := treeView canvas:painter specName:name.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3336
    painter treeView:treeView.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3337
    treeView model addDependent:self.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3338
    painter enableChannel:(self enableChannel).
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3339
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3340
    selectionPanel := self selectionPanelClass new.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3341
    selectionPanel allButOpenInterface:#windowSpec.
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3342
! !
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3343
1718
aedf32fc1715 method category rename
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  3344
!UIPainter methodsFor:'menus-dynamic'!
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3345
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3346
menuEdit
1528
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3347
    ^ [
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3348
        |m i|
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3349
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3350
        m := self class menuEdit.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3351
        m := m decodeAsLiteralArray.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3352
        i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3353
        i notNil ifTrue:[
1917
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3354
            i label:(resources string:(i label , ' (%1)') 
53832fa044f1 undo button
Claus Gittinger <cg@exept.de>
parents: 1883
diff changeset
  3355
                        with:(resources string:self painter undoHistory labelOfLastUndo)).
1528
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3356
        ].
1540
dda0bf556ebc findGuiResources... now sets the receiver, if not yet set
Claus Gittinger <cg@exept.de>
parents: 1528
diff changeset
  3357
        "/ m receiver:self.   -- now done in findGuiResources ...
1528
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3358
        m findGuiResourcesIn:self.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3359
        m
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  3360
      ].
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3361
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3362
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3363
menuReplaceWidget
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3364
    ^ [
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3365
        |m i specAndView spec usefulReplacementSpecClasses|
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3366
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3367
        m := self class menuReplaceWidget.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3368
        m := m decodeAsLiteralArray.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3369
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3370
        specAndView := self selectedSpecAndView.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3371
        spec := specAndView first.
1968
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3372
        spec notNil ifTrue:[
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3373
            usefulReplacementSpecClasses := spec usefulReplacementSpecClasses.
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3374
            usefulReplacementSpecClasses notEmptyOrNil ifTrue:[
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3375
                m addSeparator.
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3376
                usefulReplacementSpecClasses do:[:eachClass |      
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3377
                    |item|
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3378
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3379
                    item := MenuItem new label:(resources string:'Replace by %1' with:eachClass userFriendlyName).
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3380
                    item value:#replaceWidgetByClass:.
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3381
                    item argument:eachClass.
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3382
                    m addItem:item.
1a8b9416db6e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1957
diff changeset
  3383
                ].
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3384
            ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3385
        ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3386
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3387
        m findGuiResourcesIn:self.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3388
        m
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3389
      ].
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3390
! !
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3391
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3392
!UIPainter methodsFor:'private'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3393
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3394
acceptOrIgnoreSectionModification
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3395
    self isModified ifTrue:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3396
        (self confirm:'Accept changes made to spec ?') ifTrue:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3397
            self accept
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3398
        ]
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3399
    ].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3400
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3401
    "Created: / 12-01-2008 / 10:31:20 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3402
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3403
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3404
askForModification
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3405
    "asks for window spec modification"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3406
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3407
    |painter|
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3408
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3409
    painter := self painter.
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3410
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3411
    self askForSectionModification.    
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3412
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3413
    (modified or: [painter isModified or: [self helpTool modified]])
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3414
    ifTrue:[
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1760
diff changeset
  3415
        ((YesNoBox title:(resources string:'Window spec was modified. Exit anyway?'))        
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3416
            noText:(resources string:'Cancel');
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1760
diff changeset
  3417
            yesText:(resources string:'Discard Changes and Exit');
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3418
            showAtPointer;
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3419
            accepted) ifFalse: [^false].
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  3420
        self clearModified.
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  3421
        painter resetModification
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3422
    ].
2293
b8149118f0af Do not ask for "discarding changes" on first doSaveAs
Stefan Vogel <sv@exept.de>
parents: 2284
diff changeset
  3423
    ^ true
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
  3424
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
  3425
    "Modified: / 20.5.1998 / 02:03:16 / cg"
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3426
!
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3427
808
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3428
askForSaving
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3429
    "asks for defining an application class"
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3430
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3431
    self askForSectionModification.    
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3432
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3433
    ((YesNoBox title:'No application class defined yet!!')        
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3434
        noText:'Cancel';
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3435
        yesText:'Define';
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3436
        showAtPointer;
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3437
        accepted) ifFalse: [^false].
808
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3438
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3439
    self doSave.
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3440
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3441
    ^true
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3442
!
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  3443
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3444
askForSectionModification
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3445
    "asks for section modification in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3446
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3447
    self isModified ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3448
        (self confirm:'Accept modifications in section ' , tabSelection printString asBoldText, '?') ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3449
            self accept
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3450
        ] ifFalse: [
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3451
            self cancel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3452
        ]
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3453
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3454
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3455
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3456
checkClassAndSelector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3457
    "checks for class & superclass"
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3458
1211
53cfc272acc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  3459
    |superclass cls|
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3460
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3461
    specClassName isNil ifTrue:[^ false].
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3462
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3463
    cls := self resolveName:specClassName.
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3464
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3465
    cls isNil ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3466
        superclass := self resolveName:specSuperclassName.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3467
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3468
        superclass isNil ifTrue:[
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3469
            self warn:'No class named ' , specSuperclassName , ' exists!!'.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3470
            ^ false.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3471
        ].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3472
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3473
        (self confirm:'Create class ' , specClassName asBoldText, '?') ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3474
            cls := superclass 
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3475
                        subclass:(specClassName asSymbol)
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3476
                        instanceVariableNames:''
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3477
                        classVariableNames:''
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3478
                        poolDictionaries:''
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3479
                        category:'Applications'.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3480
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3481
            cls name ~= specClassName ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3482
                self information:'Created new class is ' , cls name.
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3483
                specClassName := cls name
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3484
            ].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3485
            ^ true.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3486
        ].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3487
        ^ false.
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3488
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3489
    cls isBehavior ifFalse:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3490
        self warn:'A global named ' , specClassName , ' exists, but it is no class.'.
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3491
        ^ false.
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3492
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3493
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3494
    specSuperclassName isBehavior ifFalse:[
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  3495
        specSuperclassName notEmptyOrNil ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3496
            superclass := self resolveName:specSuperclassName
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  3497
        ] ifFalse:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3498
            specSuperclassName := nil.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3499
        ]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3500
    ] ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3501
        superclass := specSuperclassName
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3502
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3503
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3504
    specSuperclassName notNil ifTrue:[
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3505
        superclass isNil ifTrue:[
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3506
            self warn:'No class named ' , specSuperclassName , ' exists!!'.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3507
            ^ false.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3508
        ].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3509
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3510
        (cls isSubclassOf:superclass) ifFalse:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3511
            self information:('A global named ' , specClassName , ' exists,\' ,
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3512
                              'but is not a subclass of ' , superclass name , '.\\' ,
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3513
                              'Check and try again if that is not what you want.') withCRs.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3514
        ]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3515
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3516
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3517
    superclass isNil ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3518
        cls notNil ifTrue:[
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3519
            specSuperclassName := cls superclass name
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3520
        ]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3521
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3522
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3523
    ^ true
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3524
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3525
    "Modified: 12.8.1997 / 23:39:10 / cg"
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3526
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3527
2159
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3528
createToolApplication:anApplicationClass spec:aSpec in:aView
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3529
    |appl applBuilder applWindow|
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3530
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3531
    appl := anApplicationClass new.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3532
    appl createBuilder.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3533
    applBuilder := appl builder.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3534
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3535
    applWindow  := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:aView.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3536
    applWindow level:0.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3537
    applWindow hiddenOnRealize:true.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3538
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3539
    appl masterApplication:self.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3540
    applBuilder window:applWindow.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3541
    applWindow client:appl spec:aSpec builder:applBuilder.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3542
    appl modifiedHolder:(self modifiedChannel).
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3543
    applBuilder window:applWindow.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3544
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3545
    ^ appl
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3546
!
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3547
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3548
hideUIView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3549
    "hides the view which is an application or top view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3550
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3551
    aView beIndependent.
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3552
    aView unmap.
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3553
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3554
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3555
raiseTabView
2159
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3556
    |tool|
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3557
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3558
             self isLayoutToolSelected ifTrue:[tool := layoutTool ]
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3559
    ifFalse:[self isHelpToolSelected   ifTrue:[tool := helpTool   ]
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3560
    ifFalse:[
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3561
        tool := specTool.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3562
        tool notNil ifTrue:[ specTool selection:tabSelection ].
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3563
    ]].
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3564
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3565
    (Array with:helpTool with:layoutTool with:specTool) do:[:aTool|
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3566
        aTool ~~ tool ifTrue:[
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3567
            aTool window beInvisible.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3568
        ].
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3569
    ].
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3570
    tool notNil ifTrue:[
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3571
        tool window beVisible.
7f02407f0bbf focus handling
ca
parents: 2157
diff changeset
  3572
    ].
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3573
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3574
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3575
raiseUIView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3576
    "raise the view which is an application or top view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3577
1193
ada18c876301 partners must be remapped (at old position)
Claus Gittinger <cg@exept.de>
parents: 1192
diff changeset
  3578
    aView remap.
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3579
    aView bePartner.
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3580
!
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3581
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3582
setClass:cls selector:selector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3583
    "sets the specClass and the specSelector under which the window spec should be saved"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3584
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3585
    |clsName superClassName|
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3586
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3587
    clsName := cls name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3588
    superClassName := cls superclass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3589
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3590
    (self aspectFor:#classNameChannel) value:clsName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3591
    (self aspectFor:#methodNameChannel) value:(selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3592
    (self aspectFor:#superclassNameChannel) value:superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3593
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3594
    self painter 
1760
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  3595
            className:clsName 
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  3596
            superclassName:superClassName
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  3597
            selector:(selector ? '').
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3598
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3599
    self specClass:clsName.
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3600
    specSelector := (selector ? '').
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3601
    specSuperclassName := superClassName.
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  3602
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3603
    (specClassName notNil and:[ selector notNil ]) ifTrue:[
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3604
        self addHistoryEntryForClass:specClass selector:specSelector.
1760
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  3605
        self updateInfoLabel
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3606
    ].
587
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  3607
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3608
    "Modified: / 05-02-1998 / 09:44:58 / stefan"
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3609
    "Modified: / 31-08-2006 / 10:14:49 / cg"
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3610
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3611
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3612
setViewInLayoutTool:aView spec:aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3613
    "sets view for layout tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3614
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3615
    |type|
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3616
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3617
    self painter topView == aView ifTrue:[
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3618
        type := #Extent
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3619
    ] ifFalse:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3620
        self canvas == aView ifTrue:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3621
            type := #Extent
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3622
        ]
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3623
    ].
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3624
    self layoutTool layoutView:aView type:type spec:aSpec
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3625
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3626
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3627
specClass
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3628
    specClass isNil ifTrue:[
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3629
        specClassName notNil ifTrue:[
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3630
            specClass := Smalltalk classNamed:specClassName.
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3631
            self canInstallAsWebPageHolder value:self canInstallAsWebPage.
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3632
        ]
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3633
    ].
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3634
    ^ specClass
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3635
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3636
    "Created: / 31-08-2006 / 10:08:43 / cg"
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3637
    "Modified: / 14-01-2008 / 17:39:32 / cg"
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3638
!
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3639
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3640
specClass:aClassOrClassName
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3641
    "sets the specClass and updates the Help Tool"
587
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  3642
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  3643
    aClassOrClassName isBehavior 
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3644
        ifTrue: [ specClass := aClassOrClassName.
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3645
                  specClassName := aClassOrClassName name ]
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3646
        ifFalse:[ specClass := Smalltalk classNamed:aClassOrClassName.
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3647
                  specClassName := aClassOrClassName ].
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3648
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3649
    self canInstallAsWebPageHolder value:self canInstallAsWebPage.
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3650
    self helpTool loadFromClass:specClass.    
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3651
    self clearModifiedFlag.
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  3652
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3653
    "Modified: / 14-01-2008 / 17:39:08 / cg"
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3654
! !
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3655
1714
f57812a56d17 method category rename
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  3656
!UIPainter methodsFor:'private-tools'!
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3657
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3658
canvas
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3659
    "returns the canvas view"
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3660
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3661
    UseViewScroller == true ifTrue:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3662
        ^ painter.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3663
    ].
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3664
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3665
    ^ painter topView.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3666
"/    ^ treeView canvas
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3667
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3668
    "Modified: / 05-09-2006 / 18:36:32 / cg"
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3669
!
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3670
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3671
helpTool
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3672
    "returns the help tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3673
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3674
    helpTool isNil ifTrue:[self noteBookView].
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3675
  ^ helpTool
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3676
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3677
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3678
layoutTool
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3679
    "returns the layout tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3680
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3681
    layoutTool isNil ifTrue:[self noteBookView].
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3682
  ^ layoutTool
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3683
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3684
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3685
painter
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3686
    "returns the canvas view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3687
2077
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  3688
    ^ painter.
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  3689
"/    ^ treeView canvas
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  3690
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  3691
    "Modified: / 05-09-2006 / 18:36:32 / cg"
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3692
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3693
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3694
specTool
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3695
    "returns the spec tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3696
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3697
    specTool isNil ifTrue:[self noteBookView].
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3698
  ^ specTool
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3699
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3700
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3701
!UIPainter methodsFor:'queries'!
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3702
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3703
canPaste
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3704
    |clipboard sel|
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3705
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3706
    clipboard := painterView getClipboardObject.
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3707
2328
5324713ed697 care for non collection which responds to notEmptyOrNil
Claus Gittinger <cg@exept.de>
parents: 2319
diff changeset
  3708
    (clipboard isCollection 
5324713ed697 care for non collection which responds to notEmptyOrNil
Claus Gittinger <cg@exept.de>
parents: 2319
diff changeset
  3709
    and:[ clipboard notEmptyOrNil ]) 
2313
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3710
            ifTrue:[sel := clipboard first]
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3711
            ifFalse:[sel := clipboard].
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3712
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3713
    ^ (sel isKindOf:UISpecification) 
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3714
"/                    and:[treeSelection size  = 1 
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3715
"/                    and:[treeSelection first == 1 
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3716
"/                         or: [self canPasteInto: treeView selectedNode contents view]]]
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3717
!
c60fe56ab5bf changed #updateChannels
Stefan Vogel <sv@exept.de>
parents: 2310
diff changeset
  3718
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3719
hasSpecClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3720
    "answers whether an application class is defined"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3721
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  3722
    ^ (self resolveName:specClassName) notNil
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3723
!
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3724
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3725
hasSpecClassAndSelector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3726
    "answers whether an application class and a selector under which
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3727
     the window spec is stored is defined"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3728
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3729
    specSelector size > 1 ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  3730
        ^ self hasSpecClass
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3731
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3732
    ^ false
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3733
!
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3734
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  3735
isEditingSpecOnly
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  3736
    ^ self isNotEditingSpecOnly not
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  3737
!
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  3738
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3739
isHelpToolSelected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3740
    "answers whether the current selected section in the noteBook is the Help Tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3741
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3742
    ^ tabSelection = UIHelpTool label
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3743
!
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3744
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3745
isLayoutToolSelected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3746
    "answers whether the current selected section in the noteBook is the Layout Tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3747
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3748
    ^ tabSelection = UILayoutTool label
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3749
!
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3750
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3751
isModified
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3752
    "answers whether the current window spec or a layout is modified"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3753
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3754
    ^ self modifiedChannel value
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3755
!
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3756
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3757
isNotEditingSpecOnly
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3758
    ^ true
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3759
!
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  3760
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3761
isPainterEnabled
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3762
    "answers whether I am running in test mode"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3763
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3764
    ^ self painter enabled
1608
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3765
!
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3766
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3767
isUIPainter
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3768
    ^ true
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3769
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3770
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3771
listOfAspects
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3772
    ^ self painter listOfAspects
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3773
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3774
    "Created: / 12-01-2008 / 19:24:51 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3775
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3776
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3777
listOfCallbacks
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3778
    ^ self painter listOfCallbacks
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3779
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3780
    "Created: / 12-01-2008 / 19:25:09 / cg"
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3781
! !
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3782
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3783
!UIPainter methodsFor:'selection'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3784
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3785
askForUnsavedModifications
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3786
    |whatToDo|
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3787
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3788
    self isModified ifFalse:[^ true].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3789
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3790
    whatToDo := DialogBox 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3791
                    confirmWithCancel:'Accept modifications in section ' , tabSelection printString asBoldText, ' ?'
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3792
                    labels:#('Cancel' 'Ignore' 'Accept')
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3793
                    default:3.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3794
    whatToDo isNil ifTrue:[^ false].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3795
    whatToDo == true ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3796
        self accept
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3797
    ] ifFalse:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3798
        self cancel
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3799
    ].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3800
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3801
    ^ true
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3802
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3803
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3804
copySelection
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3805
    self painter copySelection.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3806
    self updateChannels.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3807
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3808
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3809
selectedSpec
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3810
    |specAndView|
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3811
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3812
    specAndView := self selectedSpecAndView.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3813
    ^ specAndView first
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3814
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3815
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3816
selectedSpecAndView
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3817
    |spec view property|
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3818
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3819
    treeView isCanvasSelected ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3820
        spec := treeView canvasSpec.
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  3821
        view := self canvas. "/ self painter topView.
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3822
    ] ifFalse:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3823
        (property := treeView propertySelected) notNil ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3824
            treeView canResizeSelectedWidget ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3825
                view := property view.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3826
            ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3827
            spec := property spec copy.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3828
        ]
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3829
    ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3830
    ^ Array with:spec with:view
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3831
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3832
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3833
tabSelection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3834
    "returns the label of the current section in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3835
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3836
    ^ tabSelection
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3837
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3838
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3839
tabSelection:something
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3840
    "called whenever the section of the notebook has changed"
351
7cb9f9c9a872 more checks
Claus Gittinger <cg@exept.de>
parents: 348
diff changeset
  3841
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3842
    (something isNil or:[tabSelection = something]) ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3843
        ^ self
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3844
    ].
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3845
2202
b465c7e48050 changed #tabSelection:
ca
parents: 2198
diff changeset
  3846
    self isModified ifTrue:[
b465c7e48050 changed #tabSelection:
ca
parents: 2198
diff changeset
  3847
        self autoAcceptOnSelectionChange value ifTrue:[
b465c7e48050 changed #tabSelection:
ca
parents: 2198
diff changeset
  3848
            self accept
b465c7e48050 changed #tabSelection:
ca
parents: 2198
diff changeset
  3849
        ] ifFalse:[
b465c7e48050 changed #tabSelection:
ca
parents: 2198
diff changeset
  3850
            self askForUnsavedModifications ifFalse:[^ self].
b465c7e48050 changed #tabSelection:
ca
parents: 2198
diff changeset
  3851
        ].
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3852
    ].
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3853
    tabSelection := something.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3854
    self raiseTabView.
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3855
    self cancel.
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3856
!
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3857
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3858
treeSelectionChanged
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3859
    "called whenever the selection of the treeview has changed"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3860
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3861
    |specAndView view spec|
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3862
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3863
    self askForUnsavedModifications ifFalse:[^ self].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3864
"/    self isModified ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3865
"/        (self confirm:'Accept modifications in section ' , tabSelection printString asBoldText, '?') ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3866
"/            self accept
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3867
"/        ]
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3868
"/    ].
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3869
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3870
    specAndView := self selectedSpecAndView.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3871
    spec := specAndView first.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  3872
    view := specAndView last.
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3873
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3874
    self setViewInLayoutTool:view spec:spec.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3875
    self specTool specification:spec.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3876
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3877
    self updateSlicesForSpec:spec andView:view.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3878
    self clearModifiedFlag.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3879
    self updateChannels.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3880
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3881
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3882
updateSlicesForSpec:spec andView:view
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3883
    |slices "size" list tabComponent|
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3884
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3885
    tabComponent := self componentAt:#noteBook.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3886
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3887
    spec notNil ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3888
        self helpTool helpKey:(spec activeHelpKey).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3889
        slices := spec class slices.
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3890
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3891
        list := slices collect:[:eachSlice | eachSlice first asString].
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3892
        self treeView isCanvasSelected ifFalse:[
2040
2df23da6484a you shalt not add to Arrays !
ab
parents: 2023
diff changeset
  3893
            list := list copyWith:(UIHelpTool label)
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3894
        ].
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3895
        view notNil ifTrue:[
2040
2df23da6484a you shalt not add to Arrays !
ab
parents: 2023
diff changeset
  3896
            list := list copyWith:UILayoutTool label.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3897
        ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3898
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3899
"/        size   := slices size.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3900
"/        view notNil ifTrue:[
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3901
"/            self treeView isCanvasSelected ifFalse:[
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3902
"/                list := Array new:(size + 2).
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3903
"/                list at:(size + 2) put:(UILayoutTool label).
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3904
"/            ] ifTrue:[
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3905
"/                list := Array new:(size + 1).
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3906
"/                list at:(size + 1) put:(UILayoutTool label).
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3907
"/            ].
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3908
"/        ] ifFalse:[
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3909
"/            list := Array new:(size + 1).
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3910
"/        ].
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3911
"/
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3912
"/        1 to:size do:[:i| list at:i put:((slices at:i) first asString)].
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3913
"/        self treeView isCanvasSelected ifFalse: [
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3914
"/            list at:(size + 1) put:(UIHelpTool label)
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3915
"/        ].
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3916
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3917
        self tabList value:list.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3918
        self showHelp:spec class name for:self.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3919
        tabComponent enabled:true.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3920
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3921
        (tabSelection := tabComponent selection) isNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3922
            tabComponent setSelection:(tabSelection := list first)
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3923
        ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3924
        self raiseTabView
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3925
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3926
        self helpTool helpKey:nil.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3927
        tabComponent enabled:false.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3928
        self defaultInfoLabel.
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3929
    ].
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3930
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3931
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3932
!UIPainter methodsFor:'settings'!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3933
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3934
generateAspectsAsInstanceVariables
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3935
    "if on, aspects are held as instance variables;
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3936
     if off (the default), they are kept in the bindings dictionary."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3937
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3938
    ^ UIPainterView generateAspectsAsInstanceVariables
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3939
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3940
    "Created: / 29-07-1998 / 11:17:59 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3941
    "Modified: / 12-01-2008 / 10:37:43 / cg"
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3942
!
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3943
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3944
generateAspectsAsInstanceVariables:aBoolean
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3945
    "if on, aspects are held as instance variables;
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3946
     if off (the default), they are kept in the bindings dictionary."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3947
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3948
    ^ UIPainterView generateAspectsAsInstanceVariables:aBoolean
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3949
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3950
    "Created: / 29.7.1998 / 11:18:20 / cg"
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3951
!
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3952
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3953
generateCommentedCode
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3954
    "comments in generated aspect methods; yes or no."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3955
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3956
    ^ UIPainterView generateCommentedCode
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3957
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3958
    "Created: / 12-01-2008 / 10:34:14 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3959
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3960
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3961
generateCommentedCode:aBoolean
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3962
    "comments in generated aspect methods; yes or no."
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3963
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3964
    UIPainterView generateCommentedCode:aBoolean
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3965
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3966
    "Created: / 12-01-2008 / 10:23:10 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3967
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3968
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3969
redefineAspectMethods
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3970
    "redefine methods yes or no.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3971
     If a method is defined in super class should the message be reinstalled ?"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3972
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3973
    ^ UIPainterView redefineAspectMethods
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3974
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3975
    "Modified: / 12-01-2008 / 10:34:07 / cg"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3976
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3977
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3978
redefineAspectMethods:aBoolean
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3979
    "redefine methods yes or no.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3980
     If a method is defined in super class should the message be reinstalled ?"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3981
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3982
    UIPainterView redefineAspectMethods:aBoolean
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3983
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  3984
    "Modified: / 12-01-2008 / 10:23:20 / cg"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3985
! !
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3986
1716
5ae373f6fef0 method category rename
Claus Gittinger <cg@exept.de>
parents: 1714
diff changeset
  3987
!UIPainter methodsFor:'startup & release'!
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3988
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3989
closeRequest
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  3990
    "asks for permission before closing"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3991
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3992
    self askForModification ifFalse:[^self].
133
e12f82d3afb7 popup box caused by a closeRequest with still open
ca
parents: 130
diff changeset
  3993
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  3994
    super closeRequest.
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  3995
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3996
    treeView model removeDependent:self.
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  3997
    "/ self painter release.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3998
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3999
    selectionPanel notNil ifTrue:[
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4000
        selectionPanel masterApplication:nil.
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4001
        selectionPanel closeRequest
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4002
    ].
149
e652608690b1 help ...
ca
parents: 144
diff changeset
  4003
    selectionPanel := nil.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4004
    treeView       := nil.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4005
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4006
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4007
closeRequestFor:aTopView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4008
    "handles a close request for a specific view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4009
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  4010
    |topView|
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4011
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4012
    (topView := self window) == aTopView ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4013
        super closeRequestFor:aTopView
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4014
    ] ifFalse:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4015
        aTopView = selectionPanel window ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4016
            self galleryShown value:false
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4017
        ] ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4018
            aTopView == (self painter topView) ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4019
                self painterShown value:false
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4020
            ] ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4021
                aTopView closeRequest
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4022
            ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4023
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4024
        topView raise.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4025
    ].
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4026
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4027
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4028
commonPostBuild
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4029
    "sets the root of the tree view as first selection;
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4030
     sets the grid parameters, if defined"
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4031
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4032
    |cls sel|
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4033
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4034
    cls := self specClass.
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4035
    sel := specSelector.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4036
    cls notNil ifTrue:[
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4037
        self setClass:cls selector:sel.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4038
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4039
        (cls respondsTo:sel) ifTrue:[  
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4040
            self painter setupFromSpec:(cls perform:sel).
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4041
        ]
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4042
    ].
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4043
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4044
    self autoAcceptOnSelectionChange addDependent:self.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4045
    self autoAcceptOnSelectionChange value ifTrue:[
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4046
        (builder componentAt:'acceptButton') label:(resources string:'Apply')
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4047
    ].
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4048
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4049
    "/ using masters infoHolder ?
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4050
    (builder aspectAt:#useAlienInfoLabelHolder) == true ifTrue:[
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4051
        (builder componentAt:#mainPanel) layout bottomOffset:0.
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4052
        (builder componentAt:#infoBarSubSpec) beInvisible
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4053
    ].
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4054
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  4055
    self updateInfoLabel.
2023
7a37b7c85092 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2012
diff changeset
  4056
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4057
    "Modified: / 31-08-2006 / 10:12:53 / cg"
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4058
!
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4059
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4060
loadFromClass:aClass andSelector:selector
1185
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  4061
    "loads a window spec by evaluating aMessageString
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  4062
     (which is something like 'fooClass windowSpec')"
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  4063
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4064
    self assert:(aClass isNil or:[aClass isClass]).
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4065
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4066
    self askForModification ifFalse:[^ self].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4067
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4068
    self setClass:aClass selector:selector.    
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4069
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4070
    (aClass respondsTo:selector) ifTrue:[   
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4071
        self loadFromSpec:(aClass perform:selector).
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4072
    ]
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4073
!
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4074
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4075
loadFromMessage:classAndSelector
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4076
    "loads a window spec by evaluating aMessageString
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4077
     (which is something like 'fooClass windowSpec')"
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4078
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4079
    self askForModification ifFalse:[^ self].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4080
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4081
    classAndSelector notNil ifTrue:[
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4082
        self 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4083
            loadFromClass:classAndSelector methodClass 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4084
            andSelector:classAndSelector methodSelector
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4085
    ]
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4086
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4087
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4088
loadFromSpec:aSpec
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4089
    "loads a window spec proper"
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4090
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4091
    self askForModification ifFalse:[^ self].
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4092
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4093
    self painter setupFromSpec:aSpec.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4094
!
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4095
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  4096
openInterface:aSymbol 
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4097
    "in addition to opening my interface, also open up a gallery and a painter"
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  4098
    
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4099
    |topView|
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4100
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4101
    self setupSpecClassAndSelector.
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4102
2012
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4103
"/    treeView := TreeView new.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4104
"/    treeView windowSpecClass:(self defaultWindowSpecClass).
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4105
"/    treeView 
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4106
"/        selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4107
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4108
"/    painterView := StandardSystemView new.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4109
"/    name := name ? UIPainter defaultNameOfCanvas.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4110
"/    painterView beToolWindow.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4111
"/    painterView name:name.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4112
"/    painterView label:name.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4113
"/    painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4114
"/    painter := UIPainterView in:painterView.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4115
"/    painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4116
"/    treeView := treeView canvas:painter specName:name.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4117
"/    painter treeView:treeView.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4118
"/    treeView model addDependent:self.
3a3b694c8288 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2007
diff changeset
  4119
"/    painter enableChannel:(self enableChannel).
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4120
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4121
    super openInterface:aSymbol.
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4122
136
42a2a4494281 remove postOpen
ca
parents: 133
diff changeset
  4123
    topView := self window.
345
c4d8f4c74c26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 344
diff changeset
  4124
    topView label:'GUI Painter'.
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4125
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4126
"/    self setupCanvasAndSelectionPanel.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4127
"/
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4128
"/    selectionPanel window waitUntilVisible.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4129
"/    painterView window waitUntilVisible.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4130
"/    self window waitUntilVisible.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4131
"/    [ Delay waitForSeconds:0.5. self window topView raise ] fork.
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4132
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4133
    "Modified: / 31-08-2006 / 10:13:16 / cg"
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4134
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4135
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4136
openOnClass:aClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4137
    "opens the GUI Painter on aClass and #windowSpec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4138
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4139
    self openOnClass:aClass andSelector:#windowSpec
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4140
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  4141
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4142
openOnClass:aClass andSelector:aSelector
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4143
    "opens the GUI Painter on aClass and aSelector"
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4144
157
ce974dce3dd4 enhanced class & method dialog
Claus Gittinger <cg@exept.de>
parents: 156
diff changeset
  4145
    aClass isNil ifTrue:[
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4146
        (self confirm:'No class given to the GUI Painter (class was probably renamed?)\\Open anyway (to create a new window spec) ?' withCRs)
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4147
        ifFalse:[^ nil].
157
ce974dce3dd4 enhanced class & method dialog
Claus Gittinger <cg@exept.de>
parents: 156
diff changeset
  4148
    ].
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4149
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  4150
    specSelector := aSelector.
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4151
    specClass := aClass.
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4152
    specClassName := aClass name.
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  4153
964
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  4154
    self openInterface.
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  4155
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  4156
"/    specSelector := aSelector.
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  4157
"/    specClass := aClass.
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  4158
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4159
    "Modified: / 31-08-2006 / 10:13:31 / cg"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4160
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4161
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4162
postBuildWith: aBuilder
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4163
    super postBuildWith:aBuilder.
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  4164
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4165
    self setupPainter.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  4166
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4167
    "Modified: / 22.8.1998 / 17:41:34 / cg"
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4168
!
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4169
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4170
postOpenWith: aBuilder
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4171
    "spread the painter and gallery views on the screen"
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4172
1194
651885033545 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1193
diff changeset
  4173
    |myWindow canvasWindow canvasOrg galleryWindow 
1957
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  4174
     galleryOrg myOrg myCorner windowGroup|
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4175
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4176
    super postOpenWith: aBuilder.
1957
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  4177
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  4178
    windowGroup := self topApplication windowGroup.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  4179
    windowGroup addPreEventHook:self.
cd30f8cd59f8 Ctrl-CursorUp/Down in tree
Claus Gittinger <cg@exept.de>
parents: 1954
diff changeset
  4180
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  4181
    treeView selection: #(1).
1247
6fb170b75302 clear menuBar in keyProcessor
ca
parents: 1230
diff changeset
  4182
    aBuilder keyboardProcessor menuBar:nil.
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  4183
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4184
    myWindow := self window.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4185
    canvasWindow := self painter topView.
1456
7435d111bb09 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  4186
    [selectionPanel isNil] whileTrue:[
7435d111bb09 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  4187
        Delay waitForSeconds:0.1.
7435d111bb09 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  4188
    ].
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4189
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4190
    galleryWindow := selectionPanel window.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4191
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4192
    myOrg := myWindow origin.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4193
    myCorner := myWindow corner.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4194
1197
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4195
    "/ try to lay out things non-overlapping
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4196
    true
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4197
1197
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4198
    "/ but only, if the window manager placed all windows
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4199
    "/ on top of each other
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4200
    "/ myOrg = canvasWindow origin 
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4201
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4202
    ifTrue:[
1197
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4203
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4204
        canvasOrg := 10@20.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4205
"/        myOrg := (device width - myWindow width - 20) @ 20.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4206
        galleryOrg := (device width - galleryWindow width - 20) 
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4207
                      @ 
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4208
                      ((myWindow height + 20) min:(device height - galleryWindow height - 20)).
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4209
        myWindow origin:myOrg.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4210
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4211
        canvasWindow origin:canvasOrg.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4212
        galleryWindow origin:galleryOrg.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4213
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4214
        galleryWindow raise.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4215
        canvasWindow raise.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  4216
    ].
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  4217
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4218
    self setupCanvasAndSelectionPanel.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4219
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4220
"/    selectionPanel window waitUntilVisible.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4221
"/    painterView window waitUntilVisible.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4222
"/    self window waitUntilVisible.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4223
    [   Delay waitForSeconds:0.1. 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4224
        self window topView raise.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4225
        Delay waitForSeconds:0.25. 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4226
        self window topView raise 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4227
    ] fork.
1195
64f3537ca061 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1194
diff changeset
  4228
    "Modified: / 13.7.1999 / 21:26:52 / cg"
1461
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  4229
!
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  4230
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  4231
selectionPanelClass
2218
01fdf3323d89 changed #selectionPanelClass
Stefan Vogel <sv@exept.de>
parents: 2217
diff changeset
  4232
    ^ SelectionPanelClass
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4233
!
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4234
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4235
setupCanvasAndSelectionPanel
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4236
    |topView galleryWindow icon|
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4237
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4238
    icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4239
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4240
    topView := self window.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4241
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4242
    painterView openInGroup:(topView windowGroup).
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4243
    painterView application:self.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4244
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4245
    galleryWindow := selectionPanel window.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4246
    galleryWindow beToolWindow.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4247
    galleryWindow openInGroup:(topView windowGroup).
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4248
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4249
    selectionPanel masterApplication:self.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4250
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4251
    topView iconLabel:'GUI Painter'.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4252
    topView icon:icon.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4253
    painterView iconLabel:'GUI Canvas'.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4254
    painterView icon:icon.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4255
    galleryWindow iconLabel:'GUI Gallery'.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4256
    galleryWindow icon:icon.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4257
    
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  4258
    topView isModal ifFalse:[
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  4259
        topView bePartner.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  4260
        painterView bePartner.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  4261
        galleryWindow bePartner.
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  4262
    ]
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4263
!
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4264
1994
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4265
setupPainter
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4266
    "sets the painter's grid parameters, if defined"
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4267
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4268
    |painter settings gridPara hspace vspace|
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4269
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4270
    painter  := self painter.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4271
    settings := self class settings.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4272
    gridPara := painter gridParameters copy.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4273
    hspace   := settings at: #HGridSpace ifAbsent:10.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4274
    vspace   := settings at: #VGridSpace ifAbsent:10.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4275
    gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4276
    painter gridParameters:gridPara.
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4277
    painter gridShown: (settings at: #GridShown ifAbsent:false).
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4278
    painter gridAlign: (settings at: #GridAlign ifAbsent:false).
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4279
    painter shown ifTrue:[painter clearView].
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4280
afcf20d971e0 postBuild
Claus Gittinger <cg@exept.de>
parents: 1991
diff changeset
  4281
    "Modified: / 22.8.1998 / 17:41:34 / cg"
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4282
!
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4283
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4284
setupSpecClassAndSelector
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4285
    |cls name|
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4286
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4287
    self specClass notNil ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4288
        specClassName isBehavior ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4289
            name := specClassName nameWithoutPrefix.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4290
        ] ifFalse:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4291
            name := specClassName printString string
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4292
        ]
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4293
    ].
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4294
    (aspects at:#classNameChannel) value:(specClassName ? 'NewApplication').
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4295
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4296
    specSuperclassName isNil ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4297
        specClassName notNil ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4298
            (cls := self resolveName:specClassName) notNil ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4299
                specSuperclassName := cls superclass name.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4300
            ]
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4301
        ]
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4302
    ].
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4303
    aspects at:#superclassNameChannel
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4304
        put:((specSuperclassName notNil 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4305
                ifTrue:[ specSuperclassName ]
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4306
                ifFalse:[ 'ApplicationModel' ]) asValue).
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4307
    aspects at:#superclassNameDefaults
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4308
        put:#( 'ApplicationModel' 'SimpleDialog' 'WebApplicationModel') asValue.
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4309
    aspects at:#methodNameChannel
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4310
        put:((specSelector notNil 
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4311
                ifTrue:[ specSelector asValue ]
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4312
                ifFalse:[ #windowSpec ]) asValue).
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4313
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4314
    "Modified: / 16-01-2008 / 10:44:55 / cg"
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4315
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4316
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4317
!UIPainter methodsFor:'user actions'!
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4318
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4319
accept
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4320
    "accepts all modifications done to the attributes of the current section"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4321
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  4322
    |painter layout spec layoutTool layoutView t|
1068
dcb2cba5787f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  4323
dcb2cba5787f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  4324
    self acceptChannel value:true; value:false.  "/ force editFields to accept
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4325
    self clearModifiedFlag.
788
8f9f3c3fcf60 avoid modified problems
tz
parents: 787
diff changeset
  4326
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4327
    painter := self painter.
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  4328
    spec := self specTool specification.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4329
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4330
    self isLayoutToolSelected ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4331
        layoutTool := self layoutTool.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4332
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4333
        (layout := layoutTool layout) notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4334
            layoutTool layoutType == #Extent ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4335
                layoutView := layoutTool layoutView.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4336
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  4337
                layoutView == self canvas ifTrue:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  4338
                    layoutView extent:layout.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  4339
                    UseViewScroller == true ifTrue:[
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  4340
                        layoutView container container sizeChanged:nil.
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  4341
                    ].
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4342
                ] ifFalse:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4343
                    spec useDefaultExtent:(layoutTool aspectFor:#useDefaultExtent) value.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4344
                    spec useDefaultExtent ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4345
                        "/ temporarily unfreeze the widgets size
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4346
                        "/ (but remember, the old setting, which is actually
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4347
                        "/ controlled by the resizeForLabel attribute)
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4348
                        t := layoutView sizeFixed.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4349
                        layoutView sizeFixed:false.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4350
                        layout := layoutView preferredExtent.    
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4351
                        layoutView sizeFixed:t.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4352
                    ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4353
                    painter setExtent:layout.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4354
                    painter updateFromSpec:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4355
                ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4356
            ] ifFalse:[
1444
fec7424dccda clear the useDefaultExtent flag, if the layout is NOT an extent
martin
parents: 1442
diff changeset
  4357
                spec useDefaultExtent:false.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4358
                painter setLayout:layout
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4359
            ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4360
        ]
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4361
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4362
        self isHelpToolSelected ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4363
            self helpTool accept.      
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4364
            spec activeHelpKey:self helpTool helpKey.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4365
        ].      
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4366
        painter updateFromSpec:spec
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  4367
    ].
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  4368
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4369
    self clearModified
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4370
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4371
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4372
addWidget: aSpecClass
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4373
    "adds a widget from aSpecClass to the current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4374
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4375
    self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClass) new)
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4376
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4377
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4378
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4379
addWidgetOfSpec: aSpec
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4380
    "adds a widget from aSpec to the current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4381
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4382
    |newSel|
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4383
2077
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4384
    (newSel := painter pasteSpecifications:aSpec keepLayout:false at:0@0) notNil
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4385
    ifTrue:[
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4386
        painter select: newSel
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4387
    ] ifFalse:[   
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4388
        ((treeView selection size = 0) or: [treeView selectedNode isNil])
2077
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4389
        ifTrue:[                          
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4390
            treeView selection: #(1).
2077
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4391
        ] ifFalse:[  
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4392
            treeView selectNode: (treeView detectNode: [:n| n = treeView selectedNode parent])
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4393
        ].
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  4394
        self addWidgetOfSpec: aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4395
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4396
2077
bf7f7207fa07 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2072
diff changeset
  4397
    "Modified: / 05-09-2006 / 18:37:12 / cg"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4398
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4399
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4400
cancel
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4401
    "cancels all modifications done to the attributes of the current section; 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4402
     reread the old attributes"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4403
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4404
    |spec key view|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4405
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4406
    self isModified ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4407
        (spec := self painter specForSelection) notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4408
            key := spec activeHelpKey.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4409
        ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4410
        self helpTool helpKey:key.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4411
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4412
        treeView isCanvasSelected ifTrue: [
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4413
            spec := treeView canvasSpec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4414
        ].
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  4415
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4416
        self specTool specification:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4417
        view := self layoutTool layoutView.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4418
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4419
        self setViewInLayoutTool:view spec:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4420
        spec class == DataSetSpec ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4421
            view notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4422
                view columnDescriptors:(spec columns)
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4423
            ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4424
        ].        
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4425
        self clearModifiedFlag.
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  4426
        self clearModified.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4427
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4428
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4429
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4430
doAskAndReplaceWidgetBy
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4431
    |widgetClass list common|
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4432
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4433
    list :=  UISpecification allSubclasses
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4434
                select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4435
    list sort:[:a :b | a name < b name].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4436
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4437
    common := self selectedSpec class commonReplacementClasses.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4438
    common notEmpty ifTrue:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4439
        list addAllFirst:(common , (Array with:'-')).
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4440
    ].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4441
    widgetClass := Dialog 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4442
                        requestClass:'Spec- or View-Class:'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4443
                        list:list
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4444
                        okLabel:'OK' 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4445
                        initialAnswer:nil.
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4446
    widgetClass isNil ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4447
        ^ self
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4448
    ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4449
    self replaceWidgetByClass:widgetClass
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4450
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4451
    "Modified: / 12-01-2008 / 23:50:25 / cg"
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4452
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  4453
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4454
doBrowseActionMethod:aspectSelector
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4455
    "browse or create the action method as entered in the field (button beside input filed pressed)"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4456
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4457
    self acceptOrIgnoreSectionModification.
2240
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  4458
2222
23205ddb56e1 bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents: 2220
diff changeset
  4459
    self doBrowseActionMethod:aspectSelector nameAs:aspectSelector
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4460
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4461
    "Modified: / 12-01-2008 / 10:32:12 / cg"
2222
23205ddb56e1 bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents: 2220
diff changeset
  4462
!
23205ddb56e1 bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents: 2220
diff changeset
  4463
23205ddb56e1 bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents: 2220
diff changeset
  4464
doBrowseActionMethod:aspectSelector nameAs:aspectNameShown
2240
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  4465
    "browse or create the action method as entered in the field"
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  4466
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4467
    |cls spec aspect code|
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4468
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4469
    cls := self specClass.
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4470
    cls isNil ifTrue:[
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  4471
        Dialog information:'No application class defined.'.
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4472
        ^ self
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4473
    ].
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4474
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4475
    spec := painter specForSelection.
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4476
    spec isNil ifTrue:[^ self].
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4477
    aspect := spec perform:aspectSelector.
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4478
    aspect isNil ifTrue:[
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4479
        Dialog information:(resources 
2296
365b3a73cd28 pass info about being a non-class editor to dataSetEditor
Claus Gittinger <cg@exept.de>
parents: 2294
diff changeset
  4480
                                string:'Please enter an action method name for "%1" first.'
2222
23205ddb56e1 bug fix: saving a spec while grid is on saved the grid-Form
Claus Gittinger <cg@exept.de>
parents: 2220
diff changeset
  4481
                                with:(resources string:aspectNameShown) allBold).
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4482
        ^ self
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4483
    ].
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4484
        
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4485
    (cls implements:aspect asSymbol) ifFalse:[
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4486
        (Dialog confirm:(resources 
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4487
                            stringWithCRs:'%1 does not implement %2.\\Create ?'
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4488
                            with:(cls name allBold)
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4489
                            with:aspect allBold)) 
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4490
        ifFalse:[
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4491
            (Dialog confirm:(resources 
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4492
                                stringWithCRs:'Browse implementors of %1 ?'
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4493
                                with:aspect allBold)) 
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4494
            ifTrue:[
2219
dc5bf7573298 changed #doBrowseActionMethod:
Claus Gittinger <cg@exept.de>
parents: 2218
diff changeset
  4495
                UserPreferences current systemBrowserClass browseImplementorsOf:aspect
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4496
            ].
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4497
            ^ self
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4498
        ].
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4499
        code := painter
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4500
            generateActionMethodFor:aspect 
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4501
            spec:nil 
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4502
            inClass:cls.
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4503
        code readStream fileIn.
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4504
    ].
2219
dc5bf7573298 changed #doBrowseActionMethod:
Claus Gittinger <cg@exept.de>
parents: 2218
diff changeset
  4505
    UserPreferences current systemBrowserClass openInClass:cls selector:aspect
2210
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4506
!
0a2c19976d82 action creation/browse added
Claus Gittinger <cg@exept.de>
parents: 2208
diff changeset
  4507
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4508
doBrowseAspectMethod:aspectSelector
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4509
    "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4510
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4511
    self acceptOrIgnoreSectionModification.
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4512
    self doBrowseAspectMethod:aspectSelector nameAs:aspectSelector
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4513
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4514
    "Modified: / 12-01-2008 / 10:32:15 / cg"
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4515
!
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4516
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4517
doBrowseAspectMethod:aspectSelector nameAs:aspectNameShown
2240
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  4518
    "browse or create the aspect method as entered in the field"
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  4519
2357
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4520
    |cls spec aspect code implementingClass|
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4521
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4522
    cls := self specClass.
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4523
    cls isNil ifTrue:[
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4524
        Dialog information:'No Application Class defined.'.
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4525
        ^ self
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4526
    ].
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4527
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4528
    spec := painter specForSelection.
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4529
    spec isNil ifTrue:[^ self].
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4530
    aspect := spec perform:aspectSelector.
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4531
    aspect isString ifFalse:[
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4532
        "ignore non-strings (list may be an Array)"
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4533
        aspect isNil ifTrue:[
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4534
            Dialog information:(resources 
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4535
                                    string:'Please enter a Method name for "%1" first.'
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4536
                                    with:(resources string:aspectNameShown) allBold).
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4537
        ].
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4538
        ^ self
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4539
    ].
2357
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4540
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4541
    implementingClass := (cls whichClassImplements:aspect asSymbol).
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4542
    implementingClass isNil ifTrue:[
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4543
        implementingClass := (cls class whichClassImplements:aspect asSymbol).
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4544
    ].
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4545
    implementingClass isNil ifTrue:[
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4546
        (Dialog confirm:(resources 
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4547
                            stringWithCRs:'%1 does not implement %2.\\Create ?'
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4548
                            with:(cls name allBold)
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4549
                            with:aspect allBold)) 
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4550
        ifFalse:[
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4551
            (Dialog confirm:(resources 
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4552
                                stringWithCRs:'Browse implementors of %1 ?'
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4553
                                with:aspect allBold)) 
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4554
            ifTrue:[
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4555
                UserPreferences current systemBrowserClass browseImplementorsOf:aspect
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4556
            ].
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4557
            ^ self
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4558
        ].
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4559
        code := painter
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4560
            generateAspectMethodFor:aspect 
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4561
            spec:spec 
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4562
            inClass:cls.
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4563
        code readStream fileIn.
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4564
    ].
2357
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4565
    UserPreferences current systemBrowserClass 
48ed61c2825e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2353
diff changeset
  4566
        openInClass:implementingClass selector:aspect
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4567
!
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4568
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4569
doBrowseAspectMethods
2240
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  4570
    "opens a browser on all the aspect methods"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4571
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4572
    |methods|
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4573
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4574
    self painter isModified ifTrue:[
1392
f6f7a70c5d41 browserClass from preferences
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  4575
        self warn:'The current window spec has not yet been saved!!\\The System Browser may show the code of the old aspect methods.' withCRs.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4576
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4577
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4578
    (methods := self painter aspectMethods) isEmpty ifTrue:[
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4579
        self warn:'No aspect methods found !!'.
1392
f6f7a70c5d41 browserClass from preferences
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  4580
        ^ self.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4581
    ].
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4582
    UserPreferences systemBrowserClass 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4583
        browseMethods:methods 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4584
        title:'Aspect methods'.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4585
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4586
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4587
doBrowseClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4588
    "opens a System Browser on the specClass"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4589
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4590
    self painter isModified ifTrue:[
1392
f6f7a70c5d41 browserClass from preferences
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  4591
        self warn:'The current window spec has not yet been saved!!\\The System Browser will show the code of the old window spec.' withCRs.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4592
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4593
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4594
    UserPreferences systemBrowserClass openInClass:(self resolveName:specClassName)
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4595
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4596
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4597
doBrowseSpecificationClass
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4598
    "opens an browser on the spec class of the selected widget"
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4599
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4600
    |spec|
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4601
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4602
    (spec := self painter specForSelection) isNil ifTrue:[
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4603
        treeView isCanvasSelected ifTrue:[
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4604
            spec := treeView canvasSpec.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4605
        ]
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4606
    ].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4607
    spec notNil ifTrue:[
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4608
        spec class browse
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4609
    ]
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4610
!
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  4611
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4612
doBrowseViewClass
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4613
    "opens a browser on the selected widgets class"
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4614
2273
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4615
    |selection widget|
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4616
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4617
    ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[
2273
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4618
        widget := selection first
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4619
    ] ifFalse:[
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4620
        widget := selection
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4621
    ].
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4622
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4623
    widget isScrollWrapper ifTrue:[ widget := widget scrolledView].
b72473dda659 changed #doBrowseViewClass
Claus Gittinger <cg@exept.de>
parents: 2268
diff changeset
  4624
    widget class browse
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4625
!
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  4626
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4627
doDefineClassAndSelector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4628
    "launches a dialog for defining class, superclass, and selector of the application"
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4629
1819
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4630
    |again readFromModelKeyed|
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4631
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4632
    readFromModelKeyed := [:aKey| |ret|
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4633
        ret := (self aspectFor:aKey) value.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4634
        ret isEmptyOrNil ifTrue:[
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4635
            ret := nil
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4636
        ] ifFalse:[
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4637
            ret isString ifTrue:[
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4638
                ret := ret string withoutSeparators.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4639
                ret := ret isEmpty ifTrue:[nil] ifFalse:[ret asSymbol].
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4640
            ].
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4641
        ].
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4642
        ret
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4643
    ].
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4644
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4645
    [
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4646
        again := false.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4647
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4648
        aspects at:#classNameChannel      put:(specClassName      ? 'NewApplication')   asValue.
1819
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4649
        aspects at:#methodNameChannel     put:(specSelector   ? 'windowSpec')       asValue.
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4650
        aspects at:#superclassNameChannel put:(specSuperclassName ? 'ApplicationModel') asValue.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4651
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4652
        (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[
2206
1a7921b6c104 changed #doDefineClassAndSelector
Claus Gittinger <cg@exept.de>
parents: 2202
diff changeset
  4653
            specClassName  := readFromModelKeyed value:#classNameChannel.
1819
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  4654
            specSelector   := readFromModelKeyed value:#methodNameChannel.
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4655
            specSuperclassName := readFromModelKeyed value:#superclassNameChannel.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4656
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4657
            (again := self checkClassAndSelector not) ifFalse:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4658
                self painter className:specClassName
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4659
                        superclassName:specSuperclassName
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4660
                              selector:specSelector.
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4661
            ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4662
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4663
            again ifFalse:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4664
                ((Smalltalk at:specClassName asSymbol) notNil
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4665
                and:[ (Smalltalk at:specClassName asSymbol) class includesSelector:specSelector ])
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4666
                ifTrue:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4667
                    (self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClassName with:specSelector))
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4668
                    ifFalse:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4669
                        again := true.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4670
                    ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4671
                ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4672
            ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4673
        ] ifFalse: [
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4674
            ^nil
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4675
        ]
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4676
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4677
    ] doWhile:[again].
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4678
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4679
    specClassName := specClassName isBehavior ifTrue:[specClassName name]
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4680
                                      ifFalse:[specClassName].
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4681
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  4682
    self clearModifiedFlag.
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4683
    self helpTool buildAndMergeFromClass:specClassName.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4684
    self updateInfoLabel
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  4685
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  4686
    "Modified: / 16.7.1998 / 18:26:33 / cg"
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4687
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4688
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4689
doDefineGrid
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4690
    "opens a dialog for the grid parameters"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4691
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4692
    |hspace vspace bindings painter gridPara settings|
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4693
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4694
    painter  := self painter.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4695
    bindings := IdentityDictionary new.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4696
    gridPara := painter gridParameters copy.
1021
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4697
    settings := self class settings.
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4698
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4699
    bindings at:#showGrid    put:((settings at: #GridShown ifAbsent: [painter gridShown]) asValue).
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4700
    bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue).
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4701
    bindings at:#hspace      put:((gridPara at:1) asValue).
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4702
    bindings at:#vspace      put:((gridPara at:2) asValue).
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4703
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4704
    (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[
1803
a0f73e1695e1 clear -> clearView
Claus Gittinger <cg@exept.de>
parents: 1801
diff changeset
  4705
        ^ self
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4706
    ].
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4707
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4708
    hspace := (bindings at:#hspace) value ? 5.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4709
    vspace := (bindings at:#vspace) value ? 5.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4710
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4711
    gridPara at:1 put:hspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4712
    gridPara at:2 put:vspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4713
    gridPara at:5 put:hspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4714
    gridPara at:6 put:vspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4715
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4716
    painter gridShown:false. 
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4717
    painter gridAlign:false. 
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4718
    painter gridParameters:gridPara.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4719
    painter gridAlign:(bindings at:#alignToGrid) value.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4720
    painter gridShown:(bindings at:#showGrid) value.
1021
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4721
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4722
    settings at: #GridShown  put: (bindings at:#showGrid) value.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4723
    settings at: #GridAlign  put: (bindings at:#alignToGrid) value.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4724
    settings at: #HGridSpace put: hspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4725
    settings at: #VGridSpace put: vspace.
1803
a0f73e1695e1 clear -> clearView
Claus Gittinger <cg@exept.de>
parents: 1801
diff changeset
  4726
    painter clearView.
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4727
1021
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  4728
    "Modified: / 4.2.1999 / 15:36:34 / cg"
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4729
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4730
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4731
doEditList:listSelector
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4732
    "browse or create the aspect method as entered in the field (button beside input fieled pressed)"
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4733
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4734
    |spec list editor|
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4735
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4736
    self acceptOrIgnoreSectionModification.
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4737
2318
8d920f26edef care for nil UIList
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  4738
    UIListEditor isNil ifTrue:[^ self].
8d920f26edef care for nil UIList
Claus Gittinger <cg@exept.de>
parents: 2313
diff changeset
  4739
2284
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4740
    spec := painter specForSelection.
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4741
    spec isNil ifTrue:[^ self].
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4742
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4743
    "Kludge: subject - fetch the AspectAdaptor behind the TypeConverter"
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4744
    list := (specTool aspectFor:listSelector) subject value.
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4745
    list isNil ifTrue:[
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4746
        list := #()
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4747
    ].
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4748
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4749
    editor := UIListEditor new.
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4750
    editor
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4751
        informationLabel:'Edit List';
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4752
        list:list;
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4753
        useSymbols:(list notEmpty and:[list conform:[:e| e isSymbol]]);    "set use symbols, if all elements are symbols"
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4754
        open.
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4755
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4756
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4757
    editor accepted ifTrue:[
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4758
        "Kludge: subject - fetch the AspectAdaptor behind the TypeConverter"
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4759
        (specTool aspectFor:listSelector) subject value:editor list.
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4760
    ].
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4761
!
4116d91b6dda Allow to edit a list in a spec inline
Stefan Vogel <sv@exept.de>
parents: 2280
diff changeset
  4762
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4763
doGenerateAspectMethodFor
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4764
    |cls code aspectList displayedList selectorsToGenerateCode 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4765
     doBrowse methods|
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4766
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4767
    self askForSectionModification.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4768
2238
3b631ae43cc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2235
diff changeset
  4769
    cls := self painter targetClass.
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4770
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4771
    aspectList := OrderedCollection new.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4772
2238
3b631ae43cc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2235
diff changeset
  4773
    self painter aspectSelectorsAndTypesDo:
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4774
        [:selector :type |
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4775
            |newEntry|
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4776
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4777
            ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[
2294
0a4591e6bb20 changed #doGenerateAspectMethodFor
Stefan Vogel <sv@exept.de>
parents: 2293
diff changeset
  4778
                ((cls canUnderstand:selector) or:[cls class canUnderstand:selector]) ifFalse:[
2235
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4779
                    newEntry := Array with:selector with:type.    
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4780
                    (aspectList contains:[:entry | entry = newEntry]) ifFalse:[    
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4781
                        aspectList add:newEntry.
ac5b46f34c53 browse/generate aspect methods
Claus Gittinger <cg@exept.de>
parents: 2230
diff changeset
  4782
                    ]
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4783
                ]
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4784
            ]
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4785
        ].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4786
    
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4787
    aspectList isEmpty ifTrue:[
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4788
        self information:'All aspect methods exist.'.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4789
        ^ self.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4790
    ].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4791
2220
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  4792
    aspectList sort:[:a :b | a first < b first].
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4793
    displayedList := aspectList collect:[:entry | (((entry first) paddedTo:25) contractTo:25) , ' -> ' , entry second ].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4794
    aspectList := aspectList collect:[:each | each first].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4795
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4796
    doBrowse := false.    
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4797
    selectorsToGenerateCode := Dialog
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4798
        choose:'Select aspect(s) for which code shall be generated:' 
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4799
        fromList:displayedList 
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4800
        values:aspectList 
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4801
        initialSelection:nil
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4802
        buttons:nil 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4803
        values:nil 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4804
        lines:15 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4805
        cancel:nil 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4806
        multiple:true
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4807
        postBuildBlock:[:dialog | 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4808
                            |b|
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4809
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4810
                            b := Button label:'Generate & Browse'.
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4811
                            b action:[doBrowse := true. dialog okPressed].
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4812
                            b := dialog addButton:b before:dialog okButton.
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4813
                       ].
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4814
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4815
    selectorsToGenerateCode isEmptyOrNil ifTrue:[^ self].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4816
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4817
    code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4818
    code readStream fileIn.
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4819
1689
5d02658c548a must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
  4820
    "/ refetch - cls is now obsolete
2238
3b631ae43cc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2235
diff changeset
  4821
    cls := self painter targetClass.
1689
5d02658c548a must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
  4822
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4823
    doBrowse ifTrue:[
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4824
        methods := selectorsToGenerateCode 
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  4825
                        collect:[:sel | cls compiledMethodAt:sel]
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4826
                        thenSelect:[:m | m notNil].
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4827
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4828
        UserPreferences systemBrowserClass 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4829
            browseMethods:methods 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4830
            title:'Some Aspect methods'.
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  4831
    ].
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4832
!
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4833
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4834
doGenerateAspectMethods
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4835
    "generates aspect and action methods for the application class"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4836
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4837
    self askForSectionModification.
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4838
    self withWaitCursorDo:[
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4839
        |code|
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4840
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4841
        code := self painter generateAspectMethodCode.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4842
        code readStream fileIn.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  4843
    ]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4844
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4845
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4846
doGenerateAspectSelectorsMethod
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4847
    "generates aspectSelectors method for the exported aspects"
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4848
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4849
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4850
    self askForSectionModification.
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4851
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4852
    (ReadStream on:self painter generateAspectSelectorsMethod) fileIn.
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4853
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4854
!
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4855
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4856
doGenerateHookMethods
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4857
    "generates hook methods for the application class"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4858
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4859
    self askForSectionModification.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4860
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4861
    (ReadStream on:self painter generateHookMethods) fileIn.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4862
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4863
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4864
966
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4865
doGenerateMenuMethods
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4866
    "generates menu stub methods for the application class"
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4867
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4868
    self askForSectionModification.
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4869
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4870
    (ReadStream on:self painter generateMenuMethods) fileIn.
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4871
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4872
    "Created: / 23.8.1998 / 16:10:04 / cg"
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4873
!
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  4874
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4875
doInspectSpec
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4876
    "opens an inspector on the spec of the selected widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4877
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4878
    |spec|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4879
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4880
    (spec := self painter specForSelection) isNil ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4881
        treeView isCanvasSelected ifTrue:[
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4882
            spec := treeView canvasSpec.
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4883
        ]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4884
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4885
    spec notNil ifTrue:[
2198
804e778590fc slightly refactored to allow for more redefinition in a subclass
Claus Gittinger <cg@exept.de>
parents: 2175
diff changeset
  4886
        spec inspect
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4887
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4888
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4889
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4890
doInspectView
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4891
    "opens an inspector on the view of the selected widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4892
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4893
    |selection|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4894
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4895
    ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4896
        selection first inspect
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4897
    ] ifFalse: [
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  4898
        selection inspect
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4899
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4900
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4901
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4902
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4903
doInstallAsWebPage
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4904
    "lets user select a service, page-name and installs the page"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4905
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  4906
    |runningServerPorts again serviceOrPort pageName port serviceLinkName service server app|
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  4907
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  4908
    runningServerPorts := (HTTPServer runningServers collect:[:s | s port printString]) asOrderedCollection sort.
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4909
    serviceOrPort := lastPort ? LastPort ? '8080'.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4910
    pageName := lastPage ? LastPage ? 'myPage'.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4911
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4912
    [
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4913
        again := false.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4914
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4915
        aspects at:#serviceOrPortNameChannel put:serviceOrPort printString  asValue.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4916
        aspects at:#pageNameNameChannel      put:pageName printString asValue.
2258
db98899b44d1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2256
diff changeset
  4917
        aspects at:#runningServerPorts       put:runningServerPorts.
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4918
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4919
        (self openDialogInterface:#dialogSpecForDefiningPortAndPageName) ifFalse:[^ nil].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4920
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4921
        port := Integer readFrom:(aspects at:#serviceOrPortNameChannel) value onError:nil.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4922
        port isNil ifTrue:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4923
            serviceLinkName := (aspects at:#serviceOrPortNameChannel) value.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4924
            service := HTTPPortalService allSubInstances select:[:s | s linkName = serviceLinkName].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4925
            service notEmptyOrNil ifTrue:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4926
                again := false.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4927
                service := service first.    
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4928
            ] ifFalse:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4929
                Dialog warn:'No such service'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4930
            ].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4931
        ] ifFalse:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4932
            server := HTTPServer serverOnPort:port.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4933
            service := server 
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4934
                        serviceForLink:'/portal'
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4935
                        ifAbsent:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4936
                            service := HTTPPortalService new.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4937
                            service linkName:'/portal'.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4938
                            service class unRegisterServiceOn:server.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4939
                            service registerServiceOn:server.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4940
                        ].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4941
        ].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4942
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4943
        pageName := (aspects at:#pageNameNameChannel) value.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4944
    ] doWhile:[again].
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4945
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4946
    lastPage := LastPage := pageName.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4947
    lastPort := LastPort := port.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4948
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4949
    app := self specClass new.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4950
    app link:pageName.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4951
    app service:service.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4952
    app defineInterface:(self specSelector).
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4953
    app addToService.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4954
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4955
"/    self clearModifiedFlag.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4956
"/    self helpTool buildAndMergeFromClass:specClassName.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4957
    self updateInfoLabel
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4958
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4959
    "Modified: / 15-01-2008 / 14:18:53 / cg"
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4960
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  4961
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4962
doLoad
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4963
    "opens a ResourceSelectionBrowser for loading a window spec from a class"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4964
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  4965
    self askForModification ifFalse: [^nil].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  4966
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4967
    self loadFromMessage: 
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4968
        (ResourceSelectionBrowser
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4969
            request: 'Load Window Spec From Class'
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4970
            onSuperclass: nil
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4971
            andClass: self specClass
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4972
            andSelector: specSelector ? #windowSpec
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4973
            withResourceTypes: #(canvas))
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4974
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4975
    "Modified: / 31-08-2006 / 10:14:01 / cg"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4976
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4977
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4978
doLoadSubspec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4979
    "opens a ResourceSelectionBrowser for loading a sub spec from a class"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4980
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4981
    |classAndSelector class selector|
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  4982
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4983
    self askForSectionModification.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  4984
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4985
    classAndSelector := ResourceSelectionBrowser
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4986
            request: 'Load Subspec From Class'
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4987
            onSuperclass: nil
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  4988
            andClass: self specClass
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4989
            andSelector: specSelector
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4990
            withResourceTypes: #(canvas).
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4991
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4992
    classAndSelector isNil ifTrue:[^ self].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4993
    class := classAndSelector methodClass.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4994
    selector := classAndSelector methodSelector.
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  4995
    (class == specClassName and: [selector == specSelector]) ifTrue: [
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4996
        self warn: 'Current interface as subspec not allowed!!'.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4997
        ^ self.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4998
    ].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  4999
    (class respondsTo:selector) ifTrue:[
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5000
        self addWidgetOfSpec:(Array with: (UISubSpecification new majorKey: class name; minorKey: selector))
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5001
    ]
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  5002
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  5003
    "Modified: / 31-08-2006 / 10:13:56 / cg"
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5004
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5005
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5006
doNew
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5007
    "removes all widgets, specClass, and specSelector"
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5008
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5009
    self askForModification ifFalse: [^nil].
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  5010
    specClass := specClassName := specSelector := nil.
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  5011
    self painter removeAll.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5012
    treeView canvas topView name:  UIPainter defaultNameOfCanvas.
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5013
    treeView canvas topView label: UIPainter defaultNameOfCanvas.
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  5014
    self helpTool doNew.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  5015
    self treeSelectionChanged.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  5016
    treeView selectedNode changed.
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  5017
    self tabModel value: self tabList value first.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5018
    self updateInfoLabel.
2072
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  5019
0b0a24d7b198 class vs. className confusion
Claus Gittinger <cg@exept.de>
parents: 2040
diff changeset
  5020
    "Modified: / 31-08-2006 / 10:14:10 / cg"
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5021
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5022
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5023
doOpenWidgetDocumentation
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5024
    "opens documentation for the selected widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5025
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5026
    |spec document|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5027
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5028
    (spec := self specForSelection) isNil ifTrue:[
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5029
"/        treeView isCanvasSelected ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5030
"/            spec := nil
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5031
"/        ]
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5032
    ].
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5033
    spec notNil ifTrue:[
1204
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  5034
        document := 'tools/uipainter/', spec documentFileName,'.html'
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5035
    ] ifFalse: [
1204
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  5036
        document := 'tools/uipainter/WindowSpec.html'
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5037
    ].
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5038
    HTMLDocumentView openFullOnDocumentationFile: document 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5039
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5040
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5041
doPickAView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5042
    "changes the cursor for picking a view and builds a window spec from it"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5043
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5044
    |view|
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5045
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5046
    self askForModification ifFalse: [^nil].
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5047
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5048
    (view := Screen current viewFromUser) notNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5049
        view == Screen current rootView ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5050
            self painter setupFromSpec:(UISpecification fromView:view topView).
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5051
        ]
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5052
    ].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5053
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5054
    self updateInfoLabel
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  5055
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5056
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5057
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5058
doSave
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5059
    "saves the window spec"
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  5060
    
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5061
    |code painter specClass extentUsed|
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5062
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5063
    self askForSectionModification.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5064
    self hasSpecClassAndSelector ifFalse:[
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  5065
        self doDefineClassAndSelector isNil ifTrue:[
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  5066
            ^ nil
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  5067
        ]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5068
    ].
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5069
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5070
    specClass := self resolveName:specClassName.
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5071
    (specClass notNil and:[ specClass isClass ]) ifFalse:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  5072
        self warn:('Oops - cannot save - class not found: ' , specClassName).
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5073
        ^ nil
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5074
    ].
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5075
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5076
    painter := self painter.
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  5077
    painter 
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5078
        class:specClass
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5079
        superclassName:specSuperclassName
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  5080
        selector:specSelector.
1851
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5081
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5082
"/    Transcript showCR:'generating windowSpec code...'.
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5083
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5084
    extentUsed := self canvas extent.
2264
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5085
    (extentUsed > (1024 @ 768)) ifTrue:[
1851
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5086
        Dialog 
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5087
            warn:(resources
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5088
                stringWithCRs:'The application''s default window-size is taken from the current size and will be %1.\\This may be too small on some displays - if required, resize and save again.'
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5089
                with:extentUsed printString allBold)
1851
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5090
    ].
2264
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5091
    (self canvas maxExtent notNil
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5092
    and:[ extentUsed > self canvas maxExtent ]) ifTrue:[
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5093
        Dialog 
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5094
            warn:(resources
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5095
                stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.'
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5096
                with:extentUsed printString allBold)
26ee5a23ae95 max extent handling
Claus Gittinger <cg@exept.de>
parents: 2261
diff changeset
  5097
    ].
1851
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  5098
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5099
    code := painter generateWindowSpecMethodSource withCRs.
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5100
    (ReadStream on:code) fileIn.
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5101
    self doGenerateAspectSelectorsMethod.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1663
diff changeset
  5102
    self helpTool doSave.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5103
    self updateInfoLabel.
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  5104
    self clearModified.
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  5105
    painter resetModification.
2001
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5106
    (specClass respondsTo:specSelector) ifTrue:[
b12d9b4dd6f2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1994
diff changeset
  5107
        self addHistoryEntryForClass:specClass selector:specSelector.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5108
    ].
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5109
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5110
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5111
doSaveAs
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5112
    "opens a ResourceSelectionBrowser for saving the window spec on a class"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5113
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5114
    |classAndSelector|
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5115
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5116
    self askForSectionModification.
2293
b8149118f0af Do not ask for "discarding changes" on first doSaveAs
Stefan Vogel <sv@exept.de>
parents: 2284
diff changeset
  5117
    self hasSpecClassAndSelector ifTrue:[
b8149118f0af Do not ask for "discarding changes" on first doSaveAs
Stefan Vogel <sv@exept.de>
parents: 2284
diff changeset
  5118
        self askForModification ifFalse:[^ false].
b8149118f0af Do not ask for "discarding changes" on first doSaveAs
Stefan Vogel <sv@exept.de>
parents: 2284
diff changeset
  5119
    ].
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5120
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5121
    classAndSelector := ResourceSelectionBrowser
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5122
            request: 'Save Window Spec In Class'
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5123
            onSuperclass: #Object
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  5124
            andClass: (specClassName ? #ApplicationModel) asSymbol
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5125
            andSelector: specSelector ? #windowSpec
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5126
            withResourceTypes: #(canvas).
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5127
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5128
    classAndSelector isNil ifTrue:[^ false].
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5129
2007
77cf7ecc9ecf embedding as special editors
Claus Gittinger <cg@exept.de>
parents: 2001
diff changeset
  5130
    self clearModified.
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5131
    self painter resetModification.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5132
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  5133
    specClassName := classAndSelector methodClass.
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5134
    specSelector := classAndSelector methodSelector.
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  5135
    specSuperclassName := specClassName superclass name.
1976
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5136
    self doSave.
969584dd8beb code cleanup & refactoring
Claus Gittinger <cg@exept.de>
parents: 1968
diff changeset
  5137
    ^ true
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5138
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5139
2240
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5140
doSelectAspectMethod:aspectSelector
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5141
    "open a dialog to select an existing aspect method and enter in the field"
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5142
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5143
    self doSelectAspectMethod:aspectSelector nameAs:aspectSelector
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5144
!
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5145
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5146
doSelectAspectMethod:aspectSelector nameAs:aspectNameShown
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5147
"/    |cls spec aspect code|
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5148
"/
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5149
"/    cls := self specClass.
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5150
"/    cls isNil ifTrue:[
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5151
"/        Dialog information:'No Application Class defined.'.
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5152
"/        ^ self
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5153
"/    ].
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5154
"/
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5155
"/    spec := painter specForSelection.
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5156
"/    spec isNil ifTrue:[^ self].
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5157
"/    aspect := spec perform:aspectSelector.
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5158
"/    aspect isNil ifTrue:[
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5159
"/        Dialog information:(resources 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5160
"/                                string:'Please enter a Method name for "%1" first.'
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5161
"/                                with:(resources string:aspectNameShown) allBold).
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5162
"/        ^ self
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5163
"/    ].
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5164
"/        
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5165
"/    (cls implements:aspect asSymbol) ifFalse:[
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5166
"/        (Dialog confirm:(resources 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5167
"/                            stringWithCRs:'%1 does not implement %2.\\Create ?'
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5168
"/                            with:(cls name allBold)
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5169
"/                            with:aspect allBold)) 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5170
"/        ifFalse:[
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5171
"/            (Dialog confirm:(resources 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5172
"/                                stringWithCRs:'Browse implementors of %1 ?'
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5173
"/                                with:aspect allBold)) 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5174
"/            ifTrue:[
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5175
"/                UserPreferences current systemBrowserClass browseImplementorsOf:aspect
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5176
"/            ].
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5177
"/            ^ self
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5178
"/        ].
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5179
"/        code := painter
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5180
"/            generateAspectMethodFor:aspect 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5181
"/            spec:nil 
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5182
"/            inClass:cls.
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5183
"/        code readStream fileIn.
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5184
"/    ].
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5185
"/    UserPreferences current systemBrowserClass openInClass:cls selector:aspect
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5186
!
2cf6b94ae9f9 aspect chooser in inputFieldSpec (prep)
Claus Gittinger <cg@exept.de>
parents: 2238
diff changeset
  5187
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  5188
doSortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  5189
    "sort the selected items by position"
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  5190
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  5191
    treeView doSortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  5192
!
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  5193
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5194
doStartApplication
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5195
    "starts the application on the editing window spec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5196
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  5197
    |cls application|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5198
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5199
    self hasSpecClassAndSelector ifFalse:[
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5200
        self doSave isNil ifTrue: [^nil].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5201
    ] ifTrue: [
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5202
        self askForSectionModification.    
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5203
        (modified or: [self painter isModified or: [self helpTool modified]])
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5204
        ifTrue:
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5205
        [
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5206
            ((YesNoBox title:'Window Spec was modified!!')        
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5207
                noText:'Cancel';
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5208
                yesText:'Save it and start';
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5209
                showAtPointer;
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5210
                accepted) ifFalse: [^nil].
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5211
            self doSave isNil ifTrue: [^nil]
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5212
        ]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5213
    ].
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5214
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  5215
    cls := self resolveName:specClassName.
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  5216
    cls isNil ifTrue:[
1983
5528c812da8f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1976
diff changeset
  5217
        self warn:'Oops cannot start application - no class:' , specClassName.
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5218
        ^ nil
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  5219
    ].
2227
a0af7929bfca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2225
diff changeset
  5220
    application := cls new.
a0af7929bfca *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2225
diff changeset
  5221
    (application respondsTo:#openInterface:) ifFalse:[
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5222
        (self confirm:('The application does not respond to the ''openInterface:'' message.\(maybe the spec is supposed to be used as subApplication/subCanvas)\\Shall I try to open this as a standAlone dialog ?') withCRs)
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5223
        ifTrue:[
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5224
            SimpleDialog new openSpec:(cls perform:specSelector) withBindings:nil.
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5225
        ].
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  5226
        ^ self.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5227
    ].        
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5228
    application openInterface:specSelector
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5229
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  5230
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5231
doStepDown
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5232
    "moves the selected widget one step down in the hierarchy"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5233
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5234
    treeView doStepOver:1
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5235
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5236
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5237
doStepIn
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5238
    "moves the selected widget into the next widget as child"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5239
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5240
    treeView doStepIn
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5241
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5242
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5243
doStepOut
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5244
    "moves the selected widget out of the parent widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5245
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5246
    treeView doStepOut
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5247
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5248
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5249
doStepUp
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5250
    "moves the selected widget one step up in the hierarchy"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5251
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5252
    treeView doStepOver:-1
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  5253
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  5254
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  5255
doWindowSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5256
    "opens a code view with the contents of the window spec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5257
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5258
    self askForSectionModification.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5259
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5260
    CodeView 
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5261
        openWith: self painter generateWindowSpecMethodSource 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5262
        title: 'Window Spec'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  5263
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5264
!
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5265
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5266
replaceWidgetByClass:aSpecOrWidgetClass
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5267
    |specClass oldSpec newSpec painter|
1940
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5268
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5269
    (aSpecOrWidgetClass isSubclassOf:UISpecification) ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5270
        specClass := aSpecOrWidgetClass.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5271
    ] ifFalse:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5272
        (aSpecOrWidgetClass isSubclassOf:View) ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5273
            specClass := aSpecOrWidgetClass basicNew specClass.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5274
        ] ifFalse:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5275
        ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5276
    ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5277
    specClass isNil ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5278
        Dialog warn:'Invalid Spec- or View-Class: ' , aSpecOrWidgetClass name.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5279
        ^ self.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5280
    ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5281
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5282
    treeView isCanvasSelected ifTrue:[
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5283
        ^ self
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5284
    ].
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5285
    oldSpec := self selectedSpec.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5286
    newSpec := specClass cloneFrom:oldSpec.
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5287
0f9be199d1c5 +replace widget
Claus Gittinger <cg@exept.de>
parents: 1917
diff changeset
  5288
    painter := self painter.
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5289
    painter replaceSelectionBy:newSpec.
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5290
!
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5291
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5292
useSketch
2247
a1a7ec09adff useSketch menu item moved
Claus Gittinger <cg@exept.de>
parents: 2243
diff changeset
  5293
    "select sketchfile to underly"
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5294
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5295
    |fn|
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5296
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5297
    fn := Dialog requestFileName:'Sketch ?' pattern:'*.TOP' fromDirectory:'f:'.
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5298
    fn isNil ifTrue:[
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5299
        ^ self
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5300
    ].
2247
a1a7ec09adff useSketch menu item moved
Claus Gittinger <cg@exept.de>
parents: 2243
diff changeset
  5301
    painter useSketchFile:fn
2243
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5302
d6fec8c8e9ce changed #initialize
Claus Gittinger <cg@exept.de>
parents: 2240
diff changeset
  5303
    "Created: / 16-01-2008 / 17:49:20 / cg"
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5304
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5305
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5306
!UIPainter::TreeView class methodsFor:'documentation'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5307
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5308
documentation
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5309
"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5310
    selection in tree view; only used by the UIPainter
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5311
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5312
    [see also:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5313
        SelectionInTreeView
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5314
        SelectionInTree
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5315
        TreeItem
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5316
        UIPainter
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5317
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5318
    [author:]
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5319
        Claus Atzkern
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5320
"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5321
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5322
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5323
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5324
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5325
!UIPainter::TreeView methodsFor:'accessing'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5326
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5327
canvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5328
    "returns the canvas (UIPainterView)"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5329
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5330
    ^ model root contents view
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5331
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5332
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5333
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5334
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5335
canvas:aCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5336
    "install canvas (UIPainterView)"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5337
1396
58c4d1027a5e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1395
diff changeset
  5338
    self canvas:aCanvas specName:nil
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5339
!
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5340
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5341
canvas:aCanvas specName:nameOfSpec
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5342
    "install canvas (UIPainterView)"
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5343
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5344
    |props|
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5345
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5346
    props := UIPainterView::ViewProperty new.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5347
    props view:aCanvas.
1396
58c4d1027a5e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1395
diff changeset
  5348
    model root:(TreeItem name:(nameOfSpec ? UIPainter defaultNameOfCanvas) asBoldText contents:props).
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5349
    model root expand.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5350
    self enableChannel:(aCanvas enableChannel).
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5351
!
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  5352
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5353
canvasSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5354
    "returns spec assigned to canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5355
1574
e4897b61395c Remove unused method var
Stefan Vogel <sv@exept.de>
parents: 1572
diff changeset
  5356
    |spec list cls canvas|
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5357
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5358
    spec := self windowSpecClass new.
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5359
    canvas := self canvas.
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5360
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5361
    spec fromView:(canvas topView) callBack:nil.
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5362
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5363
    windowSpec notNil ifTrue:[
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5364
        spec copyValuesFromSpec:windowSpec.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5365
    ].
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5366
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5367
    spec exportedAspects isNil ifTrue:[
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5368
        (     (cls  := canvas className) notNil
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5369
         and:[(cls  := canvas resolveName:cls) notNil]
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5370
        ) ifTrue:[
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5371
            list := cls perform:#aspectSelectors ifNotUnderstood:nil.
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5372
        ].
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5373
        spec setExportedAspectsFrom:list.
1360
555429506474 care for nil window
Claus Gittinger <cg@exept.de>
parents: 1357
diff changeset
  5374
        windowSpec notNil ifTrue:[
555429506474 care for nil window
Claus Gittinger <cg@exept.de>
parents: 1357
diff changeset
  5375
            windowSpec exportedAspects:(spec exportedAspects).
555429506474 care for nil window
Claus Gittinger <cg@exept.de>
parents: 1357
diff changeset
  5376
        ]
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5377
    ].
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5378
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5379
    self propertiesDo:[:aProp| 
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5380
        |propsSpec|
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5381
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5382
        spec exportedAspectsAddKey:(aProp model) type:nil.
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5383
        propsSpec := aProp spec.
2251
afc2987e67b1 care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents: 2247
diff changeset
  5384
        propsSpec aspectSelectors 
afc2987e67b1 care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents: 2247
diff changeset
  5385
                select:[:a | a isString or:[a isSymbol]] 
afc2987e67b1 care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents: 2247
diff changeset
  5386
                thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
afc2987e67b1 care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents: 2247
diff changeset
  5387
        propsSpec actionSelectors 
afc2987e67b1 care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents: 2247
diff changeset
  5388
                select:[:a | a isString or:[a isSymbol]] 
afc2987e67b1 care for non-symbolic aspects (false)
Claus Gittinger <cg@exept.de>
parents: 2247
diff changeset
  5389
                thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:#action].
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5390
    ].
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  5391
  ^ spec
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5392
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5393
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5394
canvasSpec:aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5395
    "update canvas from spec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5396
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5397
    |spec|
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5398
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5399
    self setAttributesFromWindowSpec:aSpec.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5400
    spec := aSpec copy.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5401
    spec  menu:nil.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5402
    spec flags:nil.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5403
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5404
    spec setAttributesIn:(self canvas "topView") with:(UIBuilder new isEditing:true).
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5405
!
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5406
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5407
exportedAspects
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5408
    "returns spec assigned to canvas"
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5409
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5410
    windowSpec isNil ifTrue:[^ #()].
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5411
    ^ windowSpec exportedAspects ? #()
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5412
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5413
!
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  5414
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5415
itemOfView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5416
    "returns item assigned to view or nil"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5417
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5418
    aView notNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5419
        self allItemsDo:[:anItem|
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5420
            (anItem contents view == aView) ifTrue:[^ anItem]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5421
        ]
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5422
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5423
    ^ nil
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5424
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5425
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  5426
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  5427
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  5428
lastDrawnMaster
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5429
    "returns the lastDrawnMaster"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5430
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5431
    ^ lastDrawnMaster
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  5432
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  5433
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5434
!
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5435
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5436
windowSpecClass
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5437
    "returns the default  windowSpecClass (WindowSpec)"
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5438
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5439
    ^ windowSpecClass ? WindowSpec
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5440
!
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5441
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5442
windowSpecClass:aClass
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5443
    "set the default windowSpecClass"
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5444
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5445
    ^ windowSpecClass := aClass
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5446
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5447
1661
5c0f73b1bd07 category change
Claus Gittinger <cg@exept.de>
parents: 1626
diff changeset
  5448
!UIPainter::TreeView methodsFor:'accessing-property'!
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5449
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5450
propertiesDo:aOneArgBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5451
    "evaluates the argument a block on each property"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5452
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5453
    self allItemsDo:[:anItem| aOneArgBlock value:(anItem contents)]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5454
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5455
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5456
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5457
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5458
propertyDetect:aOneArgBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5459
    "evaluates the block on each property"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5460
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5461
    self allItemsDo:[:anItem|
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5462
        (aOneArgBlock value:(anItem contents)) ifTrue:[^ anItem contents]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5463
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5464
    ^ nil
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5465
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5466
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5467
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5468
propertySelected
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5469
    "returns current selected property or nil in case of multi selection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5470
     or empty selection "
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5471
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5472
    |idx|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5473
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5474
    selection size == 1 ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5475
        (idx := selection first) ~~ 1 ifTrue:[          "canvas: not yet supported"
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5476
            ^ (listOfNodes at:idx) contents
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5477
        ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5478
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5479
    ^ nil
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5480
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5481
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5482
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5483
!UIPainter::TreeView methodsFor:'adding & removing'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5484
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5485
addProperty:aProperty
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5486
    "adds a new item"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5487
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
  5488
    |parent| 
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  5489
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  5490
    parent := self detectItemCorespondingToView:(aProperty view superView).
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  5491
114befd1c369 add some help text
ca
parents: 287
diff changeset
  5492
    parent notNil ifTrue:[
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  5493
        model add:(TreeItem new contents:aProperty) below:parent
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  5494
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5495
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5496
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5497
removeAll
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5498
    "removes all items other than canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5499
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5500
    lastDrawnMaster := nil.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5501
    windowSpec := nil.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5502
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5503
    self canvas subViews copy do:[:aView|
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5504
        "/ care to not destroy the transparent input view
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5505
        (aView isInputOnly) ifFalse:[aView destroy]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5506
    ].
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5507
    model root name: UIPainter defaultNameOfCanvas asBoldText.
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5508
    model removeAllOtherThanRoot.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5509
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5510
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5511
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5512
removeView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5513
    "removes a view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5514
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5515
    |item prnt|
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5516
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5517
    ((item := self itemOfView:aView) notNil and:[(prnt := item parent) notNil]) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5518
        aView destroy.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5519
        prnt contents view sizeChanged:nil.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5520
        model remove:item
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5521
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5522
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5523
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5524
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5525
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5526
!UIPainter::TreeView methodsFor:'building'!
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5527
1058
243d945b1daf name the (full-)spec
tm
parents: 1046
diff changeset
  5528
generateFullSpecForComponents:aSpecArray named:specNameSymbol
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5529
    "generates a full spec from aSpecArray"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5530
351
7cb9f9c9a872 more checks
Claus Gittinger <cg@exept.de>
parents: 348
diff changeset
  5531
    |fullSpec winSpec|
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5532
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5533
    fullSpec := FullSpec new.
1058
243d945b1daf name the (full-)spec
tm
parents: 1046
diff changeset
  5534
    fullSpec name:specNameSymbol.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5535
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5536
    fullSpec fromBuilder:(self canvas)
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5537
              components:(SpecCollection new collection:aSpecArray).
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5538
2223
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5539
    winSpec := fullSpec window.
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5540
    windowSpec isNil ifTrue:[
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5541
        "/ kludge: if grid was on, its now present in the windowSpec (which should not)
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5542
        self canvas gridShown ifTrue:[
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5543
            fullSpec window backgroundColor:nil.    
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5544
        ].
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5545
    ] ifFalse:[
2213
cb1e13d68761 UseViewScroller
Claus Gittinger <cg@exept.de>
parents: 2210
diff changeset
  5546
        winSpec copyValuesFromSpec:windowSpec.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5547
    ].    
2223
7cddff46d0ad *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2222
diff changeset
  5548
    winSpec name: winSpec label.
2277
342f25e2c276 more changes to allow for non-class/selector (i.e. spec-only) use
Claus Gittinger <cg@exept.de>
parents: 2273
diff changeset
  5549
    ^ fullSpec.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5550
!
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5551
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5552
setAttributesFromWindowSpec:aWindowSpec
1172
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5553
    "sets a window spec from aWindowSpec and applies some attributes
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5554
     to the canvas."
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5555
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  5556
    |name canvasView builder|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5557
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  5558
    windowSpec := (self windowSpecClass) new copyValuesFromSpec:aWindowSpec.
1172
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5559
    canvasView := self canvas.
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5560
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5561
    builder := UIBuilder new isEditing:true.
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5562
    aWindowSpec setAttributesIn:canvasView with:builder.
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  5563
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  5564
    name := aWindowSpec label.
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  5565
    canvasView topView name:name.
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  5566
    self canvasNameChanged:name.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  5567
    self application treeSelectionChanged.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5568
! !
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  5569
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5570
!UIPainter::TreeView methodsFor:'canvas selection'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5571
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5572
canvasSelection:aSelection
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5573
    "canvas changed its selection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5574
    "
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5575
    |sel list size|
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5576
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5577
    ((sel := aSelection) isNil or:[sel isCollection]) ifFalse:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5578
        sel := Array with:sel
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5579
    ].
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5580
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5581
    (size := sel size) ~~ 0 ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5582
        list := OrderedCollection new:size.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5583
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5584
        sel do:[:aView||item|
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5585
            (item := self itemOfView:aView) notNil ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5586
                list add:item.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5587
                model doMakeVisible:item.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5588
            ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5589
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5590
        sel := list collect:[:anItem| self indexOfNode:anItem ].
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5591
    ].
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5592
    self canvasEventsDisabledDo:[ self selection:sel ].            
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5593
!
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5594
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5595
canvasSelectionAdd:aView
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5596
    "canvas adds a view to current selection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5597
    "
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5598
    |item index oldSel|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5599
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5600
    item := self itemOfView:aView.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5601
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5602
    item notNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5603
        model doMakeVisible:item.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5604
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5605
        (index := self indexOfNode:item) ~~ 0 ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5606
            oldSel := selection copy.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5607
            self addToSelection:index.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5608
            self selectionChangedFrom:oldSel
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5609
        ]        
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5610
    ]            
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5611
!
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5612
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5613
canvasSelectionRemove:aView
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5614
    "canvas removes a view from current selection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5615
    "
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5616
    |item index oldSel|
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5617
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5618
    (     (item := self itemOfView:aView) notNil
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5619
     and:[(index := self indexOfNode:item) ~~ 0
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5620
     and:[self isInSelection:index]]
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5621
    ) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5622
        oldSel := selection copy.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5623
        self removeFromSelection:index.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5624
        self selectionChangedFrom:oldSel.
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  5625
    ].
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5626
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5627
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5628
!UIPainter::TreeView methodsFor:'change & update'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5629
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5630
canvasNameChanged:aName
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5631
    "called if identification name assigned to window (canvas) changed
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5632
    "
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5633
    |name node|
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5634
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5635
    node := listOfNodes at:1.
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5636
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5637
    (    aName size ~~ 0
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5638
     and:[(name := aName string withoutSeparators) size ~~ 0
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5639
     and:[(self propertyDetect:[:p| p name = name]) isNil
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5640
     and:[node name ~= name]]]
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5641
    ) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5642
        node name: name asBoldText.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5643
        node changed.   
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5644
    ].
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5645
!
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5646
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5647
layoutChanged
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5648
    "layout of any component changed; in case of single selection, the
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5649
     application will be informed to update its layout
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5650
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5651
    selection size == 1 ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5652
        self application layoutChanged
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5653
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5654
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5655
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5656
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5657
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5658
propertyChanged:aProperty
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5659
    "property of view derived from argument a property changed
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5660
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5661
    |item idx end|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5662
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5663
    item := self itemOfView:(aProperty view).
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5664
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5665
    item notNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5666
        item contents:aProperty.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5667
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5668
        item name = aProperty name ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5669
            idx := self firstLineShown.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5670
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5671
            (end := self lastLineShown) > listOfNodes size ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5672
                end := listOfNodes size
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5673
            ].                          
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5674
            item changed.   
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5675
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5676
            [idx <= end] whileTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5677
                (listOfNodes at:idx) == item ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5678
                    self redrawLine:idx.                "/ is visible; redraw line
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5679
                    end := 0
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5680
                ] ifFalse:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5681
                    idx := idx + 1
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5682
                ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5683
            ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5684
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5685
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5686
        self selectedNode == item ifTrue:[              "/ inform application
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5687
            self application propertyChanged
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5688
        ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5689
    ].
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5690
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5691
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5692
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5693
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5694
!UIPainter::TreeView methodsFor:'drag & drop'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5695
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5696
canDrop:aDropContext
1953
3b5022bccca4 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 1950
diff changeset
  5697
    "can drop ? -> delegate to canvas"
3b5022bccca4 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 1950
diff changeset
  5698
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5699
    ^ self canvas canDrop:aDropContext
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5700
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5701
    "Modified: / 13-10-2006 / 16:08:43 / cg"
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5702
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5703
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5704
canDrop:aDropContext at:aPoint
2114
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5705
    "can drop ? -> delegate to canvas"
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5706
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5707
    ^ self canvas canDrop:aDropContext at:aPoint
2114
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5708
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5709
    "Created: / 13-10-2006 / 12:35:53 / cg"
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5710
    "Modified: / 13-10-2006 / 16:08:46 / cg"
2114
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5711
!
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5712
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5713
canDropObjects:aCollectionOfDropObjects
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5714
    "can drop ? -> delegate to canvas"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5715
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5716
    ^ self canvas canDropObjects:aCollectionOfDropObjects
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5717
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5718
    "Created: / 13-10-2006 / 16:08:31 / cg"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5719
!
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5720
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5721
canDropObjects:aCollectionOfDropObjects at:aPoint
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5722
    "can drop ? -> delegate to canvas"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5723
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5724
    ^ self canvas canDropObjects:aCollectionOfDropObjects at:aPoint
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5725
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5726
    "Created: / 13-10-2006 / 16:08:35 / cg"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5727
!
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5728
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5729
drop:aDropContext
2114
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5730
    "drop objects -> delegate to canvas"
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5731
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5732
    self canvas drop:aDropContext
2114
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5733
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5734
    "Created: / 13-10-2006 / 12:35:59 / cg"
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5735
    "Modified: / 13-10-2006 / 16:09:04 / cg"
2114
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5736
!
eca72652fa9e drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2077
diff changeset
  5737
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5738
drop:aDropContext at:aPoint
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5739
    "drop objects -> delegate to canvas"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5740
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5741
    self canvas drop:aDropContext at:aPoint
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5742
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5743
    "Modified: / 13-10-2006 / 16:09:07 / cg"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5744
!
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5745
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5746
dropObjects:aCollectionOfDropObjects
1953
3b5022bccca4 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 1950
diff changeset
  5747
    "drop objects -> delegate to canvas"
3b5022bccca4 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 1950
diff changeset
  5748
2117
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5749
    self canvas dropObjects:aCollectionOfDropObjects
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5750
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5751
    "Created: / 13-10-2006 / 16:08:51 / cg"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5752
!
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5753
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5754
dropObjects:aCollectionOfDropObjects at:aPoint
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5755
    "drop objects -> delegate to canvas"
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5756
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5757
    self canvas dropObjects:aCollectionOfDropObjects at:aPoint
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5758
3d456b890124 drag and drop cleanup
Claus Gittinger <cg@exept.de>
parents: 2114
diff changeset
  5759
    "Created: / 13-10-2006 / 16:08:56 / cg"
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5760
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5761
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5762
!UIPainter::TreeView methodsFor:'enumerating'!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5763
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5764
allItemsDo:aOneArgBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5765
    "evaluates the argument a block on each item other than the canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5766
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5767
    model root allChildrenDo:aOneArgBlock
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5768
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5769
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5770
! !
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5771
1719
735984d47d9b method category rename
Claus Gittinger <cg@exept.de>
parents: 1718
diff changeset
  5772
!UIPainter::TreeView methodsFor:'event handling'!
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5773
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5774
canvasEventsDisabledDo:aBlock
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5775
    "evaluates the block without raising selection changed notifications to canvas"
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5776
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5777
    |restoreCanvasEvents|
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5778
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5779
    restoreCanvasEvents  := canvasEventsDisabled.
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5780
    canvasEventsDisabled := true.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5781
    aBlock value.
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5782
    canvasEventsDisabled := restoreCanvasEvents.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5783
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5784
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5785
doubleClicked
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5786
    "disables collapsing of the root item"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5787
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5788
    self selectedNode == model root ifFalse:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5789
        super doubleClicked
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5790
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5791
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5792
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5793
!
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5794
852
c24c7584abe4 replace reimplememented method:
ca
parents: 851
diff changeset
  5795
redrawLabelAt:x y:yTop index:anIndex
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5796
    "draws a tiny rectangle for indicating the master node (first selected node)"
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5797
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5798
    |dX|
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5799
852
c24c7584abe4 replace reimplememented method:
ca
parents: 851
diff changeset
  5800
    super redrawLabelAt:x y:yTop index:anIndex.
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5801
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5802
    ((selection size > 1) and: [selection first == anIndex]) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5803
        dX := textInset - 1.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5804
        self paint:(Color red). "/ self application painter handleMasterColor.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5805
        self fillRectangleX:(x - dX - 2)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5806
                          y:yTop + ((fontHeight - dX) // 2)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5807
                      width:dX
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5808
                     height:dX
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  5809
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5810
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5811
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5812
!UIPainter::TreeView methodsFor:'initialization'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5813
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5814
initialize
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5815
    "initialize the tree view; multiple select and tree item actions"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5816
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5817
    super initialize.
564
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  5818
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5819
    self multipleSelectOk:true.
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5820
    canvasEventsDisabled := false.
440
1198f19712ff spec items have got individual icons
tz
parents: 437
diff changeset
  5821
    self showDirectoryIndicator: true.
656
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  5822
    self showDirectoryIndicatorForRoot: false.
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  5823
2220
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5824
    self model 
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5825
        iconAction: 
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5826
            [:aNode|
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5827
                |specClass|       
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5828
                (specClass := aNode contents spec) isNil 
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5829
                    ifTrue: [WindowSpec icon]
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5830
                    ifFalse:[specClass class icon]
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5831
            ].
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5832
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5833
    self model 
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5834
        labelAction: 
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5835
            [:aNode|
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5836
                |spec|
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5837
                (spec := aNode contents spec) notNil
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5838
                    ifTrue: [self nameForSpecInList:spec] 
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5839
                    ifFalse:[aNode name]
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5840
            ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5841
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5842
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5843
!UIPainter::TreeView methodsFor:'private'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5844
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5845
nameForSpecInList:aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5846
    "returns the tree item label for aSpec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5847
2230
33c98cefa7e6 refactorings
Claus Gittinger <cg@exept.de>
parents: 2227
diff changeset
  5848
    |aspect|
33c98cefa7e6 refactorings
Claus Gittinger <cg@exept.de>
parents: 2227
diff changeset
  5849
33c98cefa7e6 refactorings
Claus Gittinger <cg@exept.de>
parents: 2227
diff changeset
  5850
    aspect := aSpec nameOfMainAspect.
33c98cefa7e6 refactorings
Claus Gittinger <cg@exept.de>
parents: 2227
diff changeset
  5851
    aspect notNil ifTrue:[
33c98cefa7e6 refactorings
Claus Gittinger <cg@exept.de>
parents: 2227
diff changeset
  5852
        ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' 
2220
ff2b5cb004c2 sort aspects in generateAspectsMethods dialog;
Claus Gittinger <cg@exept.de>
parents: 2219
diff changeset
  5853
    ].
2230
33c98cefa7e6 refactorings
Claus Gittinger <cg@exept.de>
parents: 2227
diff changeset
  5854
    ^ aSpec name "allBold", ': [', aSpec viewClass name , ']' 
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5855
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5856
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5857
selectionChangedFrom:oldSelection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5858
    "selection has changed. update master selection and raise notification
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5859
     to canvas in case of enabled cvs events
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5860
    "
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5861
    |sel size|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5862
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5863
    super selectionChangedFrom:oldSelection.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5864
    size := selection size.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5865
2256
2bd9e855e6ac code beautification; reasonable methodNames;
Claus Gittinger <cg@exept.de>
parents: 2251
diff changeset
  5866
    canvasEventsDisabled ifFalse:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5867
        (size ~~ 0 and:[size ~~ 1 or:[selection first ~~ 1]]) ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5868
            sel := OrderedCollection new.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5869
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5870
            selection do:[:i|
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5871
                i ~~ 1 ifTrue:[sel add:(listOfNodes at:i) contents view]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5872
            ]
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5873
        ].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5874
        self canvas updateSelectionFromModel:sel
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  5875
    ].             
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5876
    size = 1 ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5877
        oldSelection size > 1 ifTrue: [
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5878
            (listOfNodes at:lastDrawnMaster) retrieveLabel.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5879
            self redrawLine: lastDrawnMaster. 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5880
            lastDrawnMaster := selection first
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5881
        ]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5882
    ].
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5883
    size > 1 ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5884
        selection first ~~ lastDrawnMaster ifTrue: [
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5885
            (listOfNodes at:selection first) retrieveLabel.
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5886
            lastDrawnMaster notNil ifTrue: [(listOfNodes at:lastDrawnMaster) retrieveLabel].
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5887
            self redrawLine: lastDrawnMaster. 
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5888
            self redrawLine: (lastDrawnMaster := selection first)
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5889
        ]
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  5890
    ]         
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  5891
    ifFalse: [
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5892
        lastDrawnMaster := nil
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  5893
    ] 
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5894
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5895
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5896
!UIPainter::TreeView methodsFor:'queries'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5897
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  5898
canChangeOrderInContainer
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  5899
    "returns true if any selection exists and all widgets in the selection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5900
     can change their layout through to a move or align operation"
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  5901
889
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  5902
    ^(selection size == 1)  and: 
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  5903
    [(selection at: 1) ~~ 1 and:   
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  5904
    [self selectedNode parent children size > 1]] 
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  5905
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  5906
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  5907
!
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  5908
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5909
canExchangeSelectionLayouts 
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5910
    "returns true if the selections size is exactly 2
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5911
     and all widgets in the selection
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5912
     can change their layout through to a move or align operation"
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5913
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5914
    selection size == 2 ifFalse:[
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5915
        ^ false
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5916
    ].
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5917
    ^ self canMoveOrAlignSelection
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5918
!
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  5919
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5920
canMoveOrAlignSelection
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5921
    "returns true if any selection exists and all widgets in the selection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5922
     can change their layout through to a move or align operation"
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5923
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5924
    selection isEmptyOrNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5925
        ^ false
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5926
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5927
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5928
    selection do:[:i|
2361
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5929
        |node view|
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5930
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5931
        i == 1 ifTrue:[
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5932
            "/ the tree node for the canvas itself.
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5933
            ^ false
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5934
        ].
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5935
        node := listOfNodes at:i.
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5936
        view := node contents view.
ae171f5bc002 can resize - allow resizing all;
Claus Gittinger <cg@exept.de>
parents: 2357
diff changeset
  5937
        (self canvas canChangeLayoutOfView:view) ifFalse:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5938
            ^ false
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5939
        ]
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5940
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5941
    ^ true
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5942
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5943
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5944
canMoveSelectionIntoContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5945
    "returns true in case that one widget is selected and can change its container
2280
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5946
     widget to an element below"
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5947
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5948
    |item oldParentItem newParentItem idx|
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5949
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5950
    item := self selectedNode.
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5951
    (item notNil and:[(oldParentItem := item parent) notNil]) ifTrue:[
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5952
        idx := (oldParentItem indexOfChild:item) + 1.
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5953
        newParentItem := oldParentItem children detect:[:eachChild|
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5954
            eachChild contents spec class supportsSubComponents
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5955
        ] startingAt:idx ifNone:nil.
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5956
        ^ newParentItem notNil.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5957
    ].
2280
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5958
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  5959
    ^ false
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5960
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5961
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5962
canMoveSelectionOutOfContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5963
    "returns true in case that one widget is selected which is contained within
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5964
     another widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5965
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5966
    |item prnt|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5967
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5968
    (     (item := self selectedNode) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5969
      or:[(prnt := item parent) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5970
      or:[prnt parent isNil]]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5971
    ) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5972
        ^ false
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5973
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5974
    ^ true
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5975
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  5976
301
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  5977
canResizeSelectedWidget
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  5978
    "returns true in case of one widget selected and is contained
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5979
     within a widget which allows to resize sub components"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5980
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5981
    |selectedNode|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5982
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5983
    (selectedNode := self selectedNode) notNil ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5984
        (selectedNode := selectedNode parent) notNil ifTrue:[
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5985
            ^ (selectedNode parent isNil or:[selectedNode contents spec class canResizeSubComponents])
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  5986
        ]
301
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  5987
    ].
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  5988
    ^ false
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  5989
!
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  5990
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  5991
hasOneSelectionOtherThanCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5992
    "returns true in case that one selection exists other than the canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5993
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5994
    ^ selection size == 1 and:[selection first ~~ 1]
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5995
!
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5996
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5997
isCanvasSelected
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  5998
    "returns true in case of a single selection and the
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  5999
     selection is the canvas (index 1)"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6000
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6001
    ^ selection size == 1 and:[self isInSelection:1]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6002
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6003
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6004
!UIPainter::TreeView methodsFor:'searching'!
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6005
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  6006
detectItemCorespondingToView:aView
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  6007
    "detects the item coresponding to the view. The item of the view or the first
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6008
     subview providing the item is returned. If no property is detected nil is
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6009
     returned"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6010
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6011
    |view item|
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6012
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6013
    (view := aView) notNil ifTrue:[
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  6014
        [(item := self itemOfView:view) isNil] whileTrue:[
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  6015
            (view := view superView) isNil ifTrue:[^ listOfNodes at:1]
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  6016
        ].
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6017
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6018
    ^ item
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6019
! !
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6020
1439
540781421bbf category change
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  6021
!UIPainter::TreeView methodsFor:'user interaction'!
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6022
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6023
askForSelectionChangeAllowed 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6024
    selectConditionBlock notNil ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6025
        ^ selectConditionBlock value:nil 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6026
    ].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6027
    ^ true
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6028
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6029
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6030
doChangeHierarchyOf:anItem
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6031
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6032
    |canvas|
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6033
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6034
    anItem isNil ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6035
        ^ self
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6036
    ].
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6037
    self askForSelectionChangeAllowed ifFalse:[^ self].    
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6038
    self setSelection:nil.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6039
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6040
    canvas := self canvas.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6041
    canvas deleteSelection.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6042
    canvas setSelection:(anItem contents view) withRedraw:false.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6043
    canvas pasteWithLayout.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6044
!
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6045
2310
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6046
doSortItems
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6047
    "moves child 'anOffset' forward or backward in list of children"
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6048
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6049
    |selectedItems parent sortedItems newChildren itemList parentView|
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6050
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6051
    self askForSelectionChangeAllowed ifFalse:[^ self].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6052
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6053
    selectedItems := self selectedNodes.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6054
    selectedItems size <= 1 ifTrue:[^ self].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6055
    parent := selectedItems first parent.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6056
    (parent isNil or:[(selectedItems conform:[:e| e parent == parent]) not]) ifTrue:[^ self].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6057
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6058
    sortedItems := selectedItems sort:[:a :b| a contents view origin isLeftOrAbove:(b contents view origin)].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6059
    itemList := selectedItems asIdentitySet.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6060
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6061
    newChildren := parent children collect:[:eachChild|
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6062
        (itemList includes:eachChild) ifTrue:[
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6063
            sortedItems removeFirst.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6064
        ] ifFalse:[
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6065
            eachChild.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6066
        ].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6067
    ].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6068
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6069
    self setSelection:nil.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6070
    model remove:parent children.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6071
    model add:newChildren beforeIndex:1 below:parent.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6072
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6073
    parentView := parent contents view.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6074
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6075
    self canvas hideSelection.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6076
    newChildren keysAndValuesDo:[:idx :eachItem|
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6077
        parentView changeSequenceOrderFor:eachItem contents view to:idx.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6078
    ].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6079
    parentView specClass isLayoutContainer ifFalse:[
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6080
        parentView subViews do:[:v| v raise ].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6081
    ].
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6082
    self canvas showSelection.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6083
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6084
    self selectNodes:itemList.
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6085
!
ac9be9035f2c Support sorting of items in tree
Stefan Vogel <sv@exept.de>
parents: 2296
diff changeset
  6086
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6087
doStepIn
2280
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6088
    "move the currently selected widget into the next available container below"
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6089
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6090
    |item oldParentItem newParentItem idx|
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6091
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6092
    item := self selectedNode.
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6093
    (item notNil and:[(oldParentItem := item parent) notNil]) ifTrue:[
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6094
        idx := (oldParentItem indexOfChild:item) + 1.
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6095
        newParentItem := oldParentItem children detect:[:eachChild|
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6096
            eachChild contents spec class supportsSubComponents
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6097
        ] startingAt:idx ifNone:nil.
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6098
        newParentItem notNil ifTrue:[
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6099
            self doChangeHierarchyOf:newParentItem
d9a56ee79c70 changed #canMoveSelectionIntoContainer
Stefan Vogel <sv@exept.de>
parents: 2277
diff changeset
  6100
        ].
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6101
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6102
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6103
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6104
doStepOut
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6105
    |item|
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6106
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6107
    ((item := self selectedNode) notNil and:[(item := item parent) notNil]) ifTrue:[
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  6108
        self doChangeHierarchyOf:(item parent)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6109
    ].
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6110
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6111
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6112
doStepOver:anIndex
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6113
    "moves child 'anOffset' forward or backward in list of children"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  6114
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6115
    |item idx size prnt spVw view canvas|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6116
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6117
    self askForSelectionChangeAllowed ifFalse:[^ self].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6118
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6119
    (    (item := self selectedNode) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6120
     or:[(prnt := item parent) isNil
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6121
     or:[(size := prnt children size) < 2
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6122
     or:[(idx  := prnt indexOfChild:item) == 0]]]
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6123
    ) ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6124
        ^ self
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6125
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6126
    idx := idx + anIndex.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6127
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6128
    idx < 1 ifTrue:[idx := size]
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6129
           ifFalse:[idx > size ifTrue:[idx := 1]].
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6130
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6131
    self setSelection:nil.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6132
    model remove:item.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6133
    model add:item beforeIndex:idx below:prnt.
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  6134
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6135
    idx    := prnt indexOfChild:item.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6136
    view   := item contents view.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6137
    spVw   := prnt contents view.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6138
    canvas := self canvas.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6139
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6140
    canvas hideSelection.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6141
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6142
    spVw changeSequenceOrderFor:view to:idx.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6143
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6144
    spVw specClass isLayoutContainer ifFalse:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  6145
        spVw subViews do:[:v| v raise ].
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6146
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6147
    canvas showSelection.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  6148
    self selectNode:item.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6149
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  6150
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  6151
!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  6152
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  6153
version
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  6154
    ^ '$Header$'
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  6155
! !
2217
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  6156
b54632779619 Use class var for SelectionPanel
Stefan Vogel <sv@exept.de>
parents: 2213
diff changeset
  6157
UIPainter initialize!