UIPainter.st
author Claus Gittinger <cg@exept.de>
Thu, 30 Sep 2004 21:16:54 +0200
changeset 1881 dde52f4278c0
parent 1872 ab5cc43b193a
child 1883 577a267a87cb
permissions -rw-r--r--
horizontalLayout flag bug fixed
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
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
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
"
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    12
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
    13
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
    14
"{ Package: 'stx:libtool2' }"
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
    15
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
    16
ToolApplicationModel subclass:#UIPainter
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
    17
	instanceVariableNames:'specClass specSelector specSuperclass aspects treeView
1712
4badda593e48 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1710
diff changeset
    18
		selectionPanel tabSelection modified specTool layoutTool helpTool'
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
    19
	classVariableNames:''
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    20
	poolDictionaries:''
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    21
	category:'Interface-UIPainter'
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    22
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    23
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    24
SelectionInTreeView subclass:#TreeView
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
    25
	instanceVariableNames:'lastDrawnMaster cvsEventsDisabled windowSpec windowSpecClass'
564
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
    26
	classVariableNames:''
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    27
	poolDictionaries:''
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    28
	privateIn:UIPainter
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    29
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
    30
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    31
!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    32
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    33
copyright
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    34
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    35
 COPYRIGHT (c) 1995-1998 by eXept Software AG
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    36
	      All Rights Reserved
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    37
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    38
 This software is furnished under a license and may be used
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    39
 only in accordance with the terms of that license and with the
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    40
 inclusion of the above copyright notice.   This software may not
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    41
 be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    42
 other person.  No title to or ownership of the software is
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    43
 hereby transferred.
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
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    46
!
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    47
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    48
documentation
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    49
"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    50
    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
    51
    interfaces by interactively assembling widgets and defining the behavior of the widgets.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    52
    The resulting interface specifications can be saved as methods on the application
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    53
    classes, typically subclasses of the class ApplicationModel. These specifications
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    54
    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
    55
    opening the application.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    56
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    57
    [start with:]
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    58
	UIPainter open
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    59
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    60
    [author:]
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    61
	Claus Gittinger, eXept Software AG
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    62
	Claus Atzkern, eXept Software AG
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    63
	Thomas Zwick, eXept Software AG
156
b332d7117c40 added copyrights
Claus Gittinger <cg@exept.de>
parents: 155
diff changeset
    64
127
95070ea7ae42 update layout from view
ca
parents: 124
diff changeset
    65
    [see also:]
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    66
	UIBuilder
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    67
	ApplicationModel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
    68
	UISpecification
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    69
"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    70
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    71
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    72
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    73
!UIPainter class methodsFor:'instance creation'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    74
195
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    75
openOnClass:aClass andSelector:aSelector
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
    76
    "open a GUI Painter on aClass and (windowSpec) aSelector
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    77
    "
195
350f95af5d9d check before sending selector to class
Claus Gittinger <cg@exept.de>
parents: 194
diff changeset
    78
    ^ self new openOnClass:aClass andSelector:aSelector
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    79
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
    80
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    81
!UIPainter class methodsFor:'ST-80 queries'!
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    82
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    83
preferenceFor:aSymbol
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    84
    "ST-80 compatible; always returns false
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
    85
    "
87
cc6d70449622 add ST-80 queries
ca
parents: 81
diff changeset
    86
    ^ false
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    87
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    88
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    89
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
    90
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    91
!UIPainter class methodsFor:'accessing'!
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    92
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    93
defaultNameOfCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    94
    "returns the default name of the application"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
    95
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    96
    ^'NewApplication'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    97
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    98
! !
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
    99
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   100
!UIPainter class methodsFor:'help specs'!
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   101
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   102
flyByHelpSpec
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   103
    <resource: #help>
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   104
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   105
    ^super flyByHelpSpec addPairsFrom:#(
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   106
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   107
#alignSelectionBottom
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   108
'Align Bottom Edges'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   109
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   110
#alignSelectionCenterHor
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   111
'Align Centers Vertically'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   112
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   113
#alignSelectionCenterVer
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   114
'Align Centers Horizontally'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   115
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   116
#alignSelectionLeft
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   117
'Align Left Edges'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   118
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   119
#alignSelectionLeftAndRight
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   120
'Align Horizontal Edges'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   121
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   122
#alignSelectionRight
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   123
'Align Right Edges'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   124
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   125
#alignSelectionTop
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   126
'Align Top Edges'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   127
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   128
#alignSelectionTopAndBottom
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   129
'Align Vertical Edges'
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
#centerSelectionHor
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   132
'Center Horizontally'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   133
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   134
#centerSelectionVer
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   135
'Center Vertically'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   136
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   137
#changePositionDown
1801
f487cdce561a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1800
diff changeset
   138
'Move Towards Bottom'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   139
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   140
#changePositionLeft
1801
f487cdce561a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1800
diff changeset
   141
'Move Towards Left'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   142
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   143
#changePositionRight
1801
f487cdce561a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1800
diff changeset
   144
'Move Towards Right'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   145
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   146
#changePositionUp
1801
f487cdce561a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1800
diff changeset
   147
'Move Towards Top'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   148
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   149
#editCopy
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   150
'Copy Widget'
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   151
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   152
#editCut
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   153
'Cut Widget'
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   154
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   155
#editPaste
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   156
'Paste Widget'
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   157
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   158
#editDelete
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   159
'Delete Widget'
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   160
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   161
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   162
#editDimensionCopyExtent
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   163
'Copy Extent'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   164
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   165
#editDimensionCopyLayout
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   166
'Copy Layout'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   167
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   168
#editDimensionPasteExtent
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   169
'Paste Extent'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   170
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   171
#editDimensionPasteHeight
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   172
'Paste Height'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   173
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   174
#editDimensionPasteLayout
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   175
'Paste Layout'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   176
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   177
#editDimensionPasteWidth
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   178
'Paste Width'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   179
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   180
#editInspectSpec
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   181
'Inspect Spec'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   182
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   183
#editBrowseViewClass
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   184
'Browse Widgets Class'
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   185
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   186
#editInspectView
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   187
'Inspect Widget'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   188
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   189
#editOpenSpecDocumentation
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   190
'WidgetDocumentation'
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   191
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   192
#fileBrowseClass
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   193
'Browse Applications Class'
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   194
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   195
#fileBrowseAspectMethods
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   196
'Browse Applications Aspect Methods'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   197
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   198
#fileLoad
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   199
'Load Spec from Method'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   200
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   201
#fileLoadSubspec
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   202
'Load SubSpec'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   203
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   204
#fileNew
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   205
'New Spec'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   206
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   207
#filePickAnInterface
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   208
'Pick Spec'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   209
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   210
#fileSave
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   211
'Save Spec as Method'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   212
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   213
#fileSaveAs
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
   214
'Save Spec as'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   215
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   216
#fileShowWindowSpec
1801
f487cdce561a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1800
diff changeset
   217
'View Spec'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   218
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   219
#generateAspectMethods
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   220
'Generate Aspect Methods'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   221
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   222
#generateHookMethods
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   223
'Generate Hook Methods'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   224
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   225
#moveWidgetDown
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   226
'Move Down'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   227
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   228
#moveWidgetInto
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   229
'Move Into'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   230
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   231
#moveWidgetOut
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   232
'Move Out'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   233
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   234
#moveWidgetUp
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   235
'Move Up'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   236
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   237
#pasteBuffer
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   238
'Paste'
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   239
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   240
#pasteWithLayout
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   241
'Paste With Layout'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   242
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   243
#settingsCanvas
1801
f487cdce561a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1800
diff changeset
   244
'Toggle Canvas'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   245
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   246
#settingsGallery
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   247
'Toggle Gallery'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   248
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   249
#spreadSelectionHor
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   250
'Spread Horizontally'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   251
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   252
#spreadSelectionVer
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   253
'Spread Vertically'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   254
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   255
#testGeometryTestMode
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   256
'Toggle Test Mode'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   257
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   258
#testStartApplication
1800
7e9ce7f9d6b8 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1790
diff changeset
   259
'Start Application'
1545
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   260
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   261
)
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   262
!
4f8b08f745eb flyByHelp stuff
Claus Gittinger <cg@exept.de>
parents: 1540
diff changeset
   263
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   264
helpSpec
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   265
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   266
     by the UIHelpTool of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   267
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   268
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   269
     the UIHelpTool may not be able to read the specification."
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   270
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   271
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   272
     UIHelpTool openOnClass:UIPainter    
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
   273
    "
114befd1c369 add some help text
ca
parents: 287
diff changeset
   274
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   275
    <resource: #help>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   276
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   277
    ^ super helpSpec addPairsFrom:#(
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   278
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   279
#align
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   280
'Widget alignment functions.'
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   281
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   282
#alignSelectionBottom
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   283
'Aligns the selected widgets bottom edges with the bottom of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   284
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   285
#alignSelectionCenterHor
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   286
'Aligns the selected widgets centers vertically with the center of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   287
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   288
#alignSelectionCenterVer
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   289
'Aligns the selected widgets centers horizontally with the center of the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   290
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   291
#alignSelectionLeft
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   292
'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
   293
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   294
#alignSelectionLeftAndRight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   295
'Aligns the selected widgets left & right edges with the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   296
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   297
#alignSelectionRight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   298
'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
   299
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   300
#alignSelectionTop
934
b32cfce56571 help specs
Claus Gittinger <cg@exept.de>
parents: 924
diff changeset
   301
'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
   302
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   303
#alignSelectionTopAndBottom
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   304
'Aligns the selected widgets top and bottom edges with the dominant widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   305
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   306
#centerSelectionHor
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   307
'Centers the selected widgets horizontally within their containing widget.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   308
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   309
#centerSelectionVer
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   310
'Centers the selected widgets vertically within their containing widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   311
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   312
#changePositionDown
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   313
'Moves the selected widget(s) towards the bottom.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   314
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   315
#changePositionLeft
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   316
'Moves the selected widget(s) towards the left.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   317
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   318
#changePositionRight
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   319
'Moves the selected widget(s) towards the right.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   320
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   321
#changePositionUp
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   322
'Moves the selected widget(s) towards the top.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   323
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   324
#drawEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   325
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   326
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   327
#editBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   328
'Opens a browser on the class of the selected widget.'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   329
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   330
#editDimensionCopyExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   331
'Copies the extent of the selected widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   332
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   333
#editDimensionCopyLayout
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   334
'Copies the layout of the selected widget.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   335
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   336
#editDimensionDefaultExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   337
'Sets the selected widget(s) extent to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   338
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   339
#editDimensionDefaultHeight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   340
'Sets the selected widget(s) height to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   341
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   342
#editDimensionDefaultWidth
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   343
'Sets the selected widget(s) width to their default.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   344
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   345
#editDimensionPasteExtent
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   346
'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
   347
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   348
#editDimensionPasteHeight
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   349
'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
   350
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   351
#editDimensionPasteLayout
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   352
'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
   353
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   354
#editDimensionPasteWidth
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   355
'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
   356
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   357
#editInspectSpec
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   358
'Opens an inspector on the spec of the selected widget.'
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
   359
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   360
#editInspectView
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   361
'Opens an inspector on the selected widget.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   362
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   363
#editOpenSpecDocumentation
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   364
'Opens the documentation of the selected widget.'
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   365
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   366
#fileBrowseAspectMethods
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   367
'Opens a System Browser on the applications aspect methods.'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   368
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   369
#fileBrowseClass
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   370
'Open a System Browser on the applications class.'
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
   371
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   372
#fileLoad
1032
abe3ed3bebc9 help texts
Claus Gittinger <cg@exept.de>
parents: 1027
diff changeset
   373
'Opens a dialog to load a window specification from a classes spec method.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   374
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   375
#fileLoadSubspec
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   376
'Opens a dialog to load a sub specification from a classes windowSpec method.'
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
   377
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   378
#fileNew
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   379
'Creates a new window spec.'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   380
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   381
#filePickAnInterface
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   382
'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
   383
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   384
#fileSave
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   385
'Saves the window spec in the current class (as spec method).'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   386
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   387
#fileSaveAs
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   388
'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
   389
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   390
#fileShowWindowSpec
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   391
'Opens a Workspace showing the current window spec.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   392
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   393
#generateAspectMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   394
'Generates aspect methods for defined aspect selectors of the widgets.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   395
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   396
#generateHookMethods
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   397
'Generates startup/release methods. (#closeRequest, #postBuildWith:, #postOpenWith:)'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   398
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   399
#helpExamples
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   400
'Show some examples uses of the GUI Painter.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   401
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   402
#helpFunctions
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   403
'Show the documentation on the GUI Painters menu and button functions.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   404
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   405
#helpLayoutTool
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   406
'Show the Layout Tools documentation.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   407
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   408
#helpSelectedWidget
935
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   409
'Show the documentation of the selected widget.'
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   410
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   411
#helpTutorial
43e8ce3b62ca help specs again.
Claus Gittinger <cg@exept.de>
parents: 934
diff changeset
   412
'Show the GUI Painters documentation.'
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
   413
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   414
#historyMenuItem
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   415
'Edit this windowSpec.'
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   416
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   417
#moveWidgetDown
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   418
'Moves the selected widget one step down.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   419
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   420
#moveWidgetInto
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   421
'Moves the selected widget into next widget as child widget.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   422
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   423
#moveWidgetOut
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   424
'Moves the selected widget out of its parent widget.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   425
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   426
#moveWidgetUp
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   427
'Moves the selected widget one step up.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   428
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   429
#pasteBuffer
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   430
'Pastes the widgets of the clipboard at the current mouse position.'
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   431
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   432
#pasteWithLayout
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   433
'Pastes the widgets of the clipboard without a changing of their layouts.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   434
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   435
#referToCOnfigDatabase
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   436
''
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   437
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   438
#settingsAspectsAsInstances
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   439
'Generate aspects as instance variables (or bindings, if off).'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
   440
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   441
#settingsCanvas
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   442
'Shows or hides the canvas window.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   443
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   444
#settingsGallery
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   445
'Shows or hides the gallery window.'
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   446
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   447
#settingsGridManager
1032
abe3ed3bebc9 help texts
Claus Gittinger <cg@exept.de>
parents: 1027
diff changeset
   448
'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
   449
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   450
#settingsRedefineAspectMethods
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   451
'Toggles the permission to overwrite existing aspect methods.'
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   452
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   453
#settingsTranscriptHelp
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   454
'Toggles display of help texts (after opening a new GUI Painter).'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   455
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   456
#settingsUndoManager
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   457
'Opens a dialog to undo modifications.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   458
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   459
#spreadSelectionHor
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   460
'Sets the horizontal spaces between the selected widgets to the same value.'
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
   461
466
daba7254ed49 no separate help saves
tz
parents: 453
diff changeset
   462
#spreadSelectionVer
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   463
'Sets the vertical spaces between the selected widgets to the same value.'
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   464
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
   465
#testGeometryTestMode
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
   466
'Toggles geometry test mode (to define ratios of variable panels and top-window dimension).'
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   467
43a78c5f806c help texts added
tz
parents: 496
diff changeset
   468
#testStartApplication
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   469
'Starts the application with the current window spec.'
194
2b05bd327785 recompute property list when changing view ordering by
ca
parents: 193
diff changeset
   470
193
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   471
)
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   472
! !
450d9e5c6f4a checkin from browser
ca
parents: 187
diff changeset
   473
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   474
!UIPainter class methodsFor:'helpers'!
14db1276218c change the spec;
ca
parents: 295
diff changeset
   475
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
   476
convertString:aString maxLineSize:maxCharactersPerLine skipLineFeed:skipLineFeed
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   477
    "converts a string to a string collection with maximum characters
14db1276218c change the spec;
ca
parents: 295
diff changeset
   478
     per line
14db1276218c change the spec;
ca
parents: 295
diff changeset
   479
    "
14db1276218c change the spec;
ca
parents: 295
diff changeset
   480
    |stream
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   481
	max     "{ Class:SmallInteger }"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   482
	size    "{ Class:SmallInteger }"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   483
	start   "{ Class:SmallInteger }"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   484
	stop    "{ Class:SmallInteger }"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   485
	cpySz   "{ Class:SmallInteger }"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   486
	lnSz    "{ Class:SmallInteger }"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   487
	atBeginOfLine|
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   488
14db1276218c change the spec;
ca
parents: 295
diff changeset
   489
    maxCharactersPerLine < 20 ifFalse:[max := maxCharactersPerLine - 1]
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   490
			       ifTrue:[max := 20].
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   491
14db1276218c change the spec;
ca
parents: 295
diff changeset
   492
    (size := aString size) <= max ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   493
	^ aString
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   494
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   495
    start  := 1.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   496
    lnSz   := 0.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   497
    stream := (String new:size) writeStream.
14db1276218c change the spec;
ca
parents: 295
diff changeset
   498
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   499
    atBeginOfLine := true.
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   500
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   501
    [start <= size] whileTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   502
	(start := aString indexOfNonSeparatorStartingAt:start) == 0 ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   503
	    ^ stream contents
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   504
	].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   505
	(aString at:start) == $\ ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   506
	    skipLineFeed ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   507
		stream nextPut:$\
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   508
	    ].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   509
	    start := start + 1.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   510
	    stream cr.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   511
	    start := start + 1.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   512
	    lnSz := 0.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   513
	] ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   514
	    (stop := aString indexOfSeparatorStartingAt:start) == 0 ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   515
		stop := size + 1
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   516
	    ].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   517
	    (aString at:(stop - 1)) == $\ ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   518
		stop := stop - 1
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   519
	    ].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   520
	    cpySz := stop - start.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   521
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   522
	    lnSz == 0 ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   523
		(lnSz := lnSz + cpySz) >= max ifTrue:[stream cr.    lnSz := cpySz. atBeginOfLine := true. ]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   524
					     ifFalse:[stream space. lnSz := lnSz + 1]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   525
	    ] ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   526
		lnSz := cpySz
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   527
	    ].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   528
	    stream nextPutAll:aString startingAt:start to:(stop - 1).
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   529
	    start := stop.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   530
	]
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   531
    ].
14db1276218c change the spec;
ca
parents: 295
diff changeset
   532
    ^ stream contents
542
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   533
11be1353d34c author in doc method
Claus Gittinger <cg@exept.de>
parents: 538
diff changeset
   534
    "Modified: / 1.2.1998 / 14:42:56 / cg"
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
   535
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
   536
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   537
!UIPainter class methodsFor:'image specs'!
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   538
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   539
iconAlignB
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   540
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   541
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   542
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   543
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   544
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   545
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   546
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   547
     ImageEditor openOnClass:self andSelector:#iconAlignB
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   548
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   549
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   550
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   551
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   552
    ^Icon
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   553
	constantNamed:#'UIPainter iconAlignB'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   554
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@@@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
   555
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   556
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   557
iconAlignL
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   558
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   559
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   560
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   561
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   562
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   563
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   564
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   565
     ImageEditor openOnClass:self andSelector:#iconAlignL
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   566
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   567
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   568
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   569
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   570
    ^Icon
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   571
	constantNamed:#'UIPainter iconAlignL'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   572
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@@@@@(@@@@@@@(UUUP@I@(_??0@@@(@@@@@@@(@@@@@@@(@@@@@@@(@@@@@@@(UUUU@@@(_???@@@(@@@@@E@(@@@@@@@(@@@@@@@(@@@@@@@(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
   573
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   574
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   575
iconAlignLR
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   576
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   577
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   578
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
   579
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   580
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   581
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   582
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   583
     ImageEditor openOnClass:self andSelector:#iconAlignLR
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   584
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   585
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   586
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   587
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   588
    ^Icon
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   589
	constantNamed:#'UIPainter iconAlignLR'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   590
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@(@@@B @@(@@@B @@(UUUR I@(_??2 @@(@@@B @@(@@@B @@(@@@B @@(@@@B @@(UUUR @@(_??2 @@(@@@B E@(@@@B @@(@@@B @@(@@@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
   591
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   592
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   593
iconAlignR
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   594
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   595
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   596
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   597
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   598
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   599
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   600
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   601
     ImageEditor openOnClass:self andSelector:#iconAlignR
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   602
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   603
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   604
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   605
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   606
    ^Icon
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   607
	constantNamed:#'UIPainter iconAlignR'
1432
c032f34cd7bb remove shortcutKeyCharacter's from menu
ca
parents: 1397
diff changeset
   608
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@B @@@@@@B @@@UUUR I@@_??2 @@@@@@B @@@@@@B @@@@@@B @@@@@@B @@EUUUR @@G???2 @@@@@@B E@@@@@B @@@@@@B @@@@@@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]
c032f34cd7bb remove shortcutKeyCharacter's from menu
ca
parents: 1397
diff changeset
   609
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   610
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   611
iconAlignT
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   612
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   613
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   614
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   615
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   616
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   617
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   618
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   619
     ImageEditor openOnClass:self andSelector:#iconAlignT
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   620
    "
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   621
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   622
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   623
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   624
    ^Icon
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   625
	constantNamed:#'UIPainter iconAlignT'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   626
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@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@@@@@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
   627
!
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   628
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   629
iconAlignTB
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   630
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   631
     by the ImageEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   632
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   633
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   634
     the ImageEditor may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   635
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   636
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   637
     ImageEditor openOnClass:self andSelector:#iconAlignTB
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   638
    "
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
    <resource: #image>
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   641
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   642
    ^Icon
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   643
	constantNamed:#'UIPainter iconAlignTB'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   644
	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@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@@@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
   645
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   646
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   647
iconCenterH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   648
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   649
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   650
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   651
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   652
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   653
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   654
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   655
     self iconCenterH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   656
     ImageEditor openOnClass:self andSelector:#iconCenterH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   657
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   658
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   659
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   660
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   661
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   662
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   663
        constantNamed:#'UIPainter class iconCenterH'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   664
        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
   665
@@@@@@@@@@@@@@@@@(@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
   666
@(@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
   667
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   668
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   669
iconCenterHInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   670
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   671
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   672
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   673
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   674
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   675
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   676
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   677
     self iconCenterHInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   678
     ImageEditor openOnClass:self andSelector:#iconCenterHInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   679
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   680
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   681
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   682
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   683
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   684
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   685
        constantNamed:#'UIPainter class iconCenterHInFrame'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   686
        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
   687
@@@@@@@@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
   688
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
   689
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   690
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   691
iconCenterV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   692
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   693
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   694
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   695
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   696
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   697
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   698
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   699
     self iconCenterV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   700
     ImageEditor openOnClass:self andSelector:#iconCenterV
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   701
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   702
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   703
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   704
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   705
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   706
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   707
        constantNamed:#'UIPainter class iconCenterV'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   708
        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
   709
@@@@@@@@@@@@@@@@@@@@@@@@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
   710
@@@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
   711
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   712
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   713
iconCenterVInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   714
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   715
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   716
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   717
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   718
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   719
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   720
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   721
     self iconCenterVInFrame inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   722
     ImageEditor openOnClass:self andSelector:#iconCenterVInFrame
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   723
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   724
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   725
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   726
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   727
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   728
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   729
        constantNamed:#'UIPainter class iconCenterVInFrame'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   730
        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
   731
@@@@@@@@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
   732
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
   733
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   734
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   735
iconDistributeH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   736
    "This resource specification was automatically generated
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   737
     by the ImageEditor of ST/X."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   738
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   739
    "Do not manually edit this!! If it is corrupted,
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   740
     the ImageEditor may not be able to read the specification."
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   741
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   742
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   743
     self iconDistributeH inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   744
     ImageEditor openOnClass:self andSelector:#iconDistributeH
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   745
     Icon flushCachedIcons
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   746
    "
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   747
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   748
    <resource: #image>
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   749
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   750
    ^Icon
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   751
        constantNamed:#'UIPainter class iconDistributeH'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   752
        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
   753
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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
   754
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
   755
!
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   756
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   757
iconDistributeV
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 iconDistributeV inspect
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   766
     ImageEditor openOnClass:self andSelector:#iconDistributeV
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
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
   773
        constantNamed:#'UIPainter class iconDistributeV'
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:'
1863
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   775
@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@@*(@@@@@JB@@@@@@JB@@@@@@JB@@@@@@J*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@@@J*(@@@@@JB@@@@
f9a8e3c20143 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1862
diff changeset
   776
@@JB@@@@@@@B@@@@@@@*(@@@@@@@@@@@@@UUUT@@@@???4@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 0 0 127 170 170 170]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A??@A??@A??CA??@@G0@@A@@@A@@@A@@@G0CA??@A??@A??@A??@@G0C@A@@@A@@@A@@@G0AA??AA??@A??@A??B') ; yourself); yourself]
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
   777
! !
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
   778
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   779
!UIPainter class methodsFor:'interface specs'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
   780
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   781
dialogSpecForDefiningClassAndSelector
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   782
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   783
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   784
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
   785
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   786
     the UIPainter may not be able to read the specification."
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   787
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   788
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   789
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningClassAndSelector
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   790
     UIPainter new openInterface:#dialogSpecForDefiningClassAndSelector
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   791
    "
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   792
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   793
    <resource: #canvas>
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   794
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   795
    ^
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
   796
     
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   797
       #(#FullSpec
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   798
	  #window: 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   799
	   #(#WindowSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   800
	      #name: 'GUI Painter'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   801
	      #layout: #(#LayoutFrame 291 0 130 0 637 0 289 0)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   802
	      #label: 'GUI Painter'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   803
	      #min: #(#Point 350 160)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   804
	      #max: #(#Point 500 160)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   805
	      #bounds: #(#Rectangle 291 130 638 290)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   806
	      #usePreferredExtent: false
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   807
	  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   808
	  #component: 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   809
	   #(#SpecCollection
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   810
	      #collection: 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   811
	       #(
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   812
		 #(#FramedBoxSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   813
		    #name: 'FramedBox'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   814
		    #layout: #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -35 1.0)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   815
		    #component: 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   816
		     #(#SpecCollection
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   817
			#collection: 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   818
			 #(
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   819
			   #(#LabelSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   820
			      #name: 'selectorLabel'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   821
			      #layout: #(#AlignmentOrigin 67 0.11 29 0 1 0.5)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   822
			      #label: 'Selector:'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   823
			      #translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   824
			      #adjust: #right
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   825
			      #resizeForLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   826
			  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   827
			   #(#InputFieldSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   828
			      #name: 'methodNameField'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   829
			      #layout: #(#LayoutFrame 70 0.11 18 0 4 1.0 40 0)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   830
			      #tabable: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   831
			      #model: #methodNameChannel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   832
			      #group: #inputGroup
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   833
			  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   834
			   #(#LabelSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   835
			      #name: 'classLabel'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   836
			      #layout: #(#AlignmentOrigin 67 0.11 54 0 1 0.5)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   837
			      #label: 'Class:'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   838
			      #translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   839
			      #adjust: #right
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   840
			      #resizeForLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   841
			  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   842
			   #(#InputFieldSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   843
			      #name: 'classNameField'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   844
			      #layout: #(#LayoutFrame 70 0.11 43 0 4 1.0 65 0)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   845
			      #tabable: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   846
			      #model: #classNameChannel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   847
			      #group: #inputGroup
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   848
			  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   849
			   #(#LabelSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   850
			      #name: 'superClassLabel'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   851
			      #layout: #(#AlignmentOrigin 67 0.11 79 0 1 0.5)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   852
			      #label: 'Superclass:'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   853
			      #translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   854
			      #adjust: #right
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   855
			      #resizeForLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   856
			  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   857
			   #(#ComboBoxSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   858
			      #name: 'superclassNameComboBox'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   859
			      #layout: #(#LayoutFrame 70 0.11 68 0 4 1.0 90 0)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   860
			      #tabable: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   861
			      #model: #superclassNameChannel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   862
			      #comboList: #superclassNameDefaults
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   863
			  )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   864
			)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   865
		    )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   866
		    #label: 'Define Class And Selector'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   867
		    #labelPosition: #topLeft
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   868
		    #translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   869
		)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   870
		 #(#UISubSpecification
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   871
		    #name: 'subSpec'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   872
		    #layout: #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   873
		    #majorKey: #ToolApplicationModel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   874
		    #minorKey: #windowSpecForCommitWithoutChannels
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   875
		)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   876
	      )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
   877
	  )
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   878
      )
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
   879
950
3e227dc788be fixed layout (change with framedBox - sigh)
Claus Gittinger <cg@exept.de>
parents: 939
diff changeset
   880
    "Modified: / 13.8.1998 / 19:59:44 / cg"
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   881
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   882
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   883
dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   884
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   885
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   886
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
   887
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   888
     the UIPainter may not be able to read the specification."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   889
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   890
    "
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   891
     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   892
     UIPainter new openInterface:#dialogSpecForDefiningGridParameters
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   893
    "
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   894
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   895
    <resource: #canvas>
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   896
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   897
    ^ 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   898
     #(FullSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   899
        name: dialogSpecForDefiningGridParameters
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   900
        window: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   901
       (WindowSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   902
          label: 'GUI Painter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   903
          name: 'GUI Painter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   904
          min: (Point 300 200)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   905
          max: (Point 300 200)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   906
          bounds: (Rectangle 16 46 298 244)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   907
        )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   908
        component: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   909
       (SpecCollection
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   910
          collection: (
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   911
           (FramedBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   912
              label: 'Grid Parameter'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   913
              name: 'FramedBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   914
              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
   915
              labelPosition: topLeft
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   916
              translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   917
              component: 
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   918
             (SpecCollection
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   919
                collection: (
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   920
                 (CheckBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   921
                    label: 'Show Grid'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   922
                    name: 'ShowGridCheckBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   923
                    layout: (Point 13 14)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   924
                    model: showGrid
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   925
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   926
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   927
                 (CheckBoxSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   928
                    label: 'Align To Grid'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   929
                    name: 'AlignCheckBox'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   930
                    layout: (Point 13 42)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   931
                    model: alignToGrid
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   932
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   933
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   934
                 (LabelSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   935
                    label: 'Horizontal Pixels:'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   936
                    name: 'HorizontalPixelsLabel'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   937
                    layout: (AlignmentOrigin 138 0 89 0 1 0.5)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   938
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   939
                    resizeForLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   940
                    adjust: right
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   941
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   942
                 (InputFieldSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   943
                    name: 'HorizontalPixelsField'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   944
                    layout: (LayoutFrame 144 0 77 0 197 0 99 0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   945
                    model: hspace
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   946
                    group: inputGroup
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   947
                    type: numberOrNil
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   948
                    acceptOnPointerLeave: false
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   949
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   950
                 (LabelSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   951
                    label: 'Vertical Pixels:'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   952
                    name: 'VerticalPixelsLabel'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   953
                    layout: (AlignmentOrigin 139 0 114 0 1 0.5)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   954
                    translateLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   955
                    resizeForLabel: true
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   956
                    adjust: right
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   957
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   958
                 (InputFieldSpec
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   959
                    name: 'VerticalPixelsField'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   960
                    layout: (LayoutFrame 144 0 102 0 197 0 124 0)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   961
                    model: vspace
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   962
                    group: inputGroup
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   963
                    type: numberOrNil
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   964
                    acceptOnPointerLeave: false
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   965
                  )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   966
                 )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   967
               
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   968
              )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   969
            )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   970
           (UISubSpecification
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   971
              name: 'subSpec'
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   972
              layout: (LayoutFrame 0 0.0 -29 1 0 1.0 -5 1)
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   973
              majorKey: ToolApplicationModel
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   974
              minorKey: windowSpecForCommitWithoutChannels
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   975
            )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   976
           )
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   977
         
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
   978
        )
366
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   979
      )
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   980
!
68b0e0a329a4 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 365
diff changeset
   981
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   982
windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   983
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   984
     by the UIPainter of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   985
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   986
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   987
     the UIPainter may not be able to read the specification."
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   988
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   989
    "
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   990
     UIPainter new openOnClass:UIPainter andSelector:#windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   991
     UIPainter new openInterface:#windowSpec
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
   992
     UIPainter open
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   993
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   994
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   995
    <resource: #canvas>
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
   996
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
   997
    ^ 
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
   998
     #(FullSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
   999
        name: windowSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1000
        window: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1001
       (WindowSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1002
          label: 'GUI Painter'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1003
          name: 'GUI Painter'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1004
          min: (Point 560 460)
1790
51711e3c7046 translateLabel in NoteBookView
ca
parents: 1782
diff changeset
  1005
          bounds: (Rectangle 12 22 620 545)
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1006
          menu: menu
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1007
        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1008
        component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1009
       (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1010
          collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1011
           (MenuPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1012
              name: 'menuToolbarView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1013
              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
  1014
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1015
              tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1016
              menu: menuToolbar
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1017
            )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1018
           (VariableHorizontalPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1019
              name: 'hpanel'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1020
              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
  1021
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1022
              component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1023
             (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1024
                collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1025
                 (ArbitraryComponentSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1026
                    name: 'treeView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1027
                    tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1028
                    menu: menuEdit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1029
                    hasHorizontalScrollBar: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1030
                    hasVerticalScrollBar: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1031
                    miniScrollerHorizontal: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1032
                    miniScrollerVertical: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1033
                    hasBorder: false
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1034
                    component: treeView
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1035
                  )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1036
                 (ViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1037
                    name: 'specHolderView'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1038
                    level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1039
                    component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1040
                   (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1041
                      collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1042
                       (MenuPanelSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1043
                          name: 'menuToolbar2View'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1044
                          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
  1045
                          level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1046
                          tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1047
                          menu: menuToolbar2
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1048
                        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1049
                       (NoteBookViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1050
                          name: 'noteBook'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1051
                          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
  1052
                          level: 0
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1053
                          enableChannel: enableChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1054
                          tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1055
                          model: tabModel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1056
                          menu: tabList
1790
51711e3c7046 translateLabel in NoteBookView
ca
parents: 1782
diff changeset
  1057
                          translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1058
                          canvas: noteBookView
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1059
                        )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1060
                       (HorizontalPanelViewSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1061
                          name: 'HorizontalPanel1'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1062
                          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
  1063
                          horizontalLayout: fit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1064
                          verticalLayout: fit
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1065
                          horizontalSpace: 3
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1066
                          verticalSpace: 3
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1067
                          reverseOrderIfOKAtLeft: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1068
                          component: 
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1069
                         (SpecCollection
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1070
                            collection: (
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1071
                             (ActionButtonSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1072
                                label: 'Cancel'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1073
                                name: 'cancelButton'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1074
                                activeHelpKey: commitCancel
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1075
                                translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1076
                                tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1077
                                model: cancel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1078
                                enableChannel: modifiedChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1079
                                extent: (Point 201 24)
1457
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1080
                              )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1081
                             (ActionButtonSpec
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1082
                                label: 'OK'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1083
                                name: 'acceptButton'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1084
                                activeHelpKey: commitOK
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  1085
                                translateLabel: true
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1086
                                tabable: true
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1087
                                model: accept
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1088
                                enableChannel: modifiedChannel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1089
                                extent: (Point 201 24)
1457
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1090
                              )
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1091
                             )
8c15098c3469 ok button is left in some viewStyles
Claus Gittinger <cg@exept.de>
parents: 1456
diff changeset
  1092
                           
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1093
                          )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1094
                        )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1095
                       )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1096
                     
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1097
                    )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1098
                  )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1099
                 )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1100
               
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1101
              )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1102
              handles: (Any 0.318868 1.0)
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1103
            )
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1104
           (UISubSpecification
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1105
              name: 'infoBarSubSpec'
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1106
              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
  1107
              level: 1
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1108
              majorKey: ToolApplicationModel
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  1109
              minorKey: windowSpecForInfoBar
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1110
            )
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1111
           )
1115
1d0ff67419fc arrowButtons smaller
Claus Gittinger <cg@exept.de>
parents: 1103
diff changeset
  1112
         
1317
49d6dac15a57 update focusSequence in UIPainter
ca
parents: 1316
diff changeset
  1113
        )
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1114
      )
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1115
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1116
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1117
!UIPainter class methodsFor:'menu specs'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  1118
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1119
menu
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1120
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1121
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1122
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1123
    "Do not manually edit this!! If it is corrupted,
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1124
     the MenuEditor may not be able to read the specification."
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1125
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1126
    "
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1127
     MenuEditor new openOnClass:UIPainter andSelector:#menu
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1128
     (Menu new fromLiteralArrayEncoding:(UIPainter menu)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1129
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1130
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1131
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1132
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1133
    ^ 
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1134
     #(Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1135
        (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1136
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1137
            enabled: enableChannel
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1138
            label: '&File'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1139
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1140
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1141
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1142
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1143
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1144
                  activeHelpKey: fileNew
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1145
                  label: 'New'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1146
                  itemValue: doNew
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1147
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1148
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1149
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1150
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1151
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1152
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1153
                  activeHelpKey: fileLoad
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1154
                  label: 'Load...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1155
                  itemValue: doLoad
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1156
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1157
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1158
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1159
                  activeHelpKey: fileLoadSubspec
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1160
                  label: 'Load Subspec...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1161
                  itemValue: doLoadSubspec
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1162
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1163
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1164
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1165
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1166
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1167
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1168
                  activeHelpKey: fileSave
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1169
                  label: 'Save'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1170
                  itemValue: doSave
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1171
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1172
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1173
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1174
                  activeHelpKey: fileSaveAs
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1175
                  label: 'Save As...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1176
                  itemValue: doSaveAs
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1177
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1178
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1179
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1180
                  activeHelpKey: fileSaveAs
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1181
                  label: 'Define Class and Selector...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1182
                  itemValue: doDefineClassAndSelector
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1183
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1184
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1185
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1186
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1187
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1188
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1189
                  activeHelpKey: filePickAnInterface
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1190
                  label: 'Pick a Window Spec...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1191
                  itemValue: doPickAView
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1192
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1193
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1194
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1195
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1196
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1197
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1198
                  activeHelpKey: fileShowWindowSpec
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1199
                  label: 'Show Window Spec'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1200
                  itemValue: doWindowSpec
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1201
                  translateLabel: true
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1202
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1203
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1204
                  activeHelpKey: fileBrowseClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1205
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1206
                  label: 'Browse Applications Class'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1207
                  itemValue: doBrowseClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1208
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1209
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1210
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1211
                  activeHelpKey: fileBrowseAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1212
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1213
                  label: 'Browse Applications Aspect Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1214
                  itemValue: doBrowseAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1215
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1216
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1217
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1218
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1219
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1220
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1221
                  activeHelpKey: fileExit
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1222
                  label: 'Exit'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1223
                  itemValue: closeRequest
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1224
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1225
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1226
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1227
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1228
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1229
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1230
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1231
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1232
            label: 'Edit'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1233
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1234
            submenuChannel: menuEdit
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1235
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1236
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1237
            label: 'Align'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1238
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1239
            submenuChannel: menuAlign
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1240
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1241
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1242
            label: 'Generate'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1243
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1244
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1245
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1246
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1247
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1248
                  activeHelpKey: generateAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1249
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1250
                  label: 'Aspect Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1251
                  itemValue: doGenerateAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1252
                  translateLabel: true
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1253
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1254
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1255
                  activeHelpKey: generateAspectMethodFor
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1256
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1257
                  label: 'Aspect Method For...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1258
                  itemValue: doGenerateAspectMethodFor
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1259
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1260
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1261
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1262
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1263
                  label: 'Menu Stub Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1264
                  itemValue: doGenerateMenuMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1265
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1266
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1267
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1268
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1269
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1270
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1271
                  activeHelpKey: generateHookMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1272
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1273
                  label: 'Hook Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1274
                  itemValue: doGenerateHookMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1275
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1276
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1277
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1278
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1279
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1280
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1281
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1282
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1283
            label: 'Test'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1284
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1285
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1286
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1287
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1288
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1289
                  activeHelpKey: testStartApplication
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1290
                  label: 'Start Application'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1291
                  itemValue: doStartApplication
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1292
                  translateLabel: true
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1293
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1294
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1295
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1296
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1297
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1298
                  activeHelpKey: testGeometryTestMode
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1299
                  label: 'Geometry Test Mode'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1300
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1301
                  indication: testMode:
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1302
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1303
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1304
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1305
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1306
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1307
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1308
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1309
            label: 'Settings'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1310
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1311
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1312
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1313
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1314
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1315
                  activeHelpKey: settingsCanvas
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1316
                  label: 'Canvas'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1317
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1318
                  indication: painterShown
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1319
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1320
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1321
                  activeHelpKey: settingsGallery
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1322
                  label: 'Gallery'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1323
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1324
                  indication: galleryShown
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1325
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1326
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1327
                  label: '-'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1328
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1329
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1330
                  activeHelpKey: settingsRedefineAspectMethods
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1331
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1332
                  label: 'Redefine Aspect Methods'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1333
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1334
                  indication: redefineAspectMethods:
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1335
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1336
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1337
                  activeHelpKey: settingsAspectsAsInstances
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1338
                  enabled: hasSpecClass
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1339
                  label: 'Aspects as InstanceVariables'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1340
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1341
                  indication: generateAspectsAsInstanceVariables:
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1342
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1343
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1344
                  label: 'AutoAccept on Selection-Change '
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1345
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1346
                  indication: autoAcceptOnSelectionChange
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1347
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1348
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1349
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1350
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1351
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1352
                  activeHelpKey: settingsUndoManager
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1353
                  enabled: hasUndoHistory
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1354
                  label: 'Undo Manager...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1355
                  itemValue: openUndoMenu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1356
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1357
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1358
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1359
                  activeHelpKey: settingsGridManager
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1360
                  label: 'Grid Manager...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1361
                  itemValue: doDefineGrid
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1362
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1363
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1364
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1365
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1366
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1367
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1368
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1369
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1370
            label: 'History'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1371
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1372
            submenuChannel: menuHistory
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1373
          )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1374
         (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1375
            label: 'Help'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1376
            translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1377
            startGroup: right
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1378
            submenu: 
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1379
           (Menu
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1380
              (
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1381
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1382
                  activeHelpKey: helpTutorial
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1383
                  label: 'Tutorial'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1384
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1385
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1386
                  argument: 'tools/uipainter/TOP.html'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1387
                )
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1388
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1389
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1390
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1391
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1392
                  activeHelpKey: helpFunctions
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1393
                  label: 'Functions'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1394
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1395
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1396
                  argument: 'tools/uipainter/Functions.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1397
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1398
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1399
                  activeHelpKey: helpExamples
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1400
                  label: 'Examples'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1401
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1402
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1403
                  argument: 'tools/uipainter/Examples.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1404
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1405
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1406
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1407
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1408
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1409
                  activeHelpKey: helpHelpTool
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1410
                  label: 'Help Tool'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1411
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1412
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1413
                  argument: 'tools/uipainter/HelpTool.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1414
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1415
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1416
                  activeHelpKey: helpLayoutTool
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1417
                  label: 'Layout Tool'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1418
                  itemValue: openHTMLDocument:
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1419
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1420
                  argument: 'tools/uipainter/LayoutTool.html'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1421
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1422
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1423
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1424
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1425
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1426
                  activeHelpKey: helpSelectedWidget
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1427
                  label: 'Selected Widget'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1428
                  itemValue: doOpenWidgetDocumentation
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1429
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1430
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1431
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1432
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1433
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1434
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1435
                  activeHelpKey: helpShowHelp
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1436
                  label: 'Show Help Texts'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1437
                  translateLabel: true
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1438
                  indication: showingHelp:
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1439
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1440
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1441
                  label: '-'
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1442
                )
1775
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1443
               (MenuItem
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1444
                  activeHelpKey: aboutThisAppliaction
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1445
                  label: 'About this Application...'
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1446
                  itemValue: openAboutThisApplication
695f10f213d1 no flyByHelp for menu
ca
parents: 1772
diff changeset
  1447
                  translateLabel: true
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1448
                )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1449
               )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1450
              nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1451
              nil
1498
817cce99fc96 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1487
diff changeset
  1452
            )
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1453
          )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1454
         )
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1455
        nil
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  1456
        nil
564
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  1457
      )
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  1458
!
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  1459
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1460
menuAlign
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1461
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1462
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1463
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  1464
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1465
     the MenuEditor may not be able to read the specification."
446
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
     MenuEditor new openOnClass:UIPainter andSelector:#menuAlign
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1469
     (Menu new fromLiteralArrayEncoding:(UIPainter menuAlign)) startUp
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1470
    "
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1471
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1472
    <resource: #menu>
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  1473
1862
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1474
    ^ 
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1475
     #(Menu
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1476
        (
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1477
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1478
            activeHelpKey: alignSelectionLeft
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1479
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1480
            label: 'Left'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1481
            itemValue: alignSelectionLeft
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1482
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1483
            labelImage: (ResourceRetriever UIPainter iconAlignL 'Left')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1484
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1485
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1486
            activeHelpKey: alignSelectionRight
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1487
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1488
            label: 'Right'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1489
            itemValue: alignSelectionRight
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1490
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1491
            labelImage: (ResourceRetriever UIPainter iconAlignR 'Right')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1492
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1493
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1494
            activeHelpKey: alignSelectionLeftAndRight
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1495
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1496
            label: 'Left && Right'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1497
            itemValue: alignSelectionLeftAndRight
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1498
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1499
            labelImage: (ResourceRetriever UIPainter iconAlignLR 'Left & Right')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1500
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1501
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1502
            activeHelpKey: alignSelectionTop
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1503
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1504
            label: 'Top'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1505
            itemValue: alignSelectionTop
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1506
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1507
            labelImage: (ResourceRetriever UIPainter iconAlignT 'Top')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1508
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1509
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1510
            activeHelpKey: alignSelectionBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1511
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1512
            label: 'Bottom'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1513
            itemValue: alignSelectionBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1514
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1515
            labelImage: (ResourceRetriever UIPainter iconAlignB 'Bottom')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1516
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1517
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1518
            activeHelpKey: alignSelectionTopAndBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1519
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1520
            label: 'Top && Bottom'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1521
            itemValue: alignSelectionTopAndBottom
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1522
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1523
            labelImage: (ResourceRetriever UIPainter iconAlignTB 'Top & Bottom')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1524
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1525
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1526
            label: '-'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1527
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1528
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1529
            activeHelpKey: alignSelectionCenterHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1530
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1531
            label: 'Center Horizontal'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1532
            itemValue: alignSelectionCenterHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1533
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1534
            labelImage: (ResourceRetriever UIPainter iconCenterH '')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1535
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1536
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1537
            activeHelpKey: centerSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1538
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1539
            label: 'Center Horizontal in Frame'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1540
            itemValue: centerSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1541
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1542
            labelImage: (ResourceRetriever UIPainter iconCenterHInFrame '')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1543
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1544
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1545
            activeHelpKey: alignSelectionCenterVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1546
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1547
            label: 'Center Vertical'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1548
            itemValue: alignSelectionCenterVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1549
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1550
            labelImage: (ResourceRetriever UIPainter iconCenterV '')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1551
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1552
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1553
            activeHelpKey: centerSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1554
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1555
            label: 'Center Vertical in Frame'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1556
            itemValue: centerSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1557
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1558
            labelImage: (ResourceRetriever UIPainter iconCenterVInFrame '')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1559
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1560
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1561
            label: '-'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1562
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1563
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1564
            activeHelpKey: spreadSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1565
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1566
            label: 'Distribute Horizontal'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1567
            itemValue: spreadSelectionHor
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1568
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1569
            labelImage: (ResourceRetriever UIPainter iconDistributeH '')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1570
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1571
         (MenuItem
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1572
            activeHelpKey: spreadSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1573
            enabled: canMoveOrAlignSelection
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1574
            label: 'Distribute Vertical'
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1575
            itemValue: spreadSelectionVer
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1576
            translateLabel: true
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1577
            labelImage: (ResourceRetriever UIPainter iconDistributeV '')
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1578
          )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1579
         )
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1580
        nil
Claus Gittinger <cg@exept.de>
parents: 1851
diff changeset
  1581
        nil
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1582
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1583
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1584
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1585
menuEdit
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1586
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1587
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1588
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  1589
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1590
     the MenuEditor may not be able to read the specification."
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1591
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1592
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1593
     MenuEditor new openOnClass:UIPainter andSelector:#menuEdit
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1594
     (Menu new fromLiteralArrayEncoding:(UIPainter menuEdit)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1595
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1596
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1597
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1598
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1599
    ^ 
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1600
     #(Menu
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1601
        (
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1602
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1603
            activeHelpKey: editUndo
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1604
            enabled: hasUndoHistory
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1605
            label: 'Undo'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1606
            itemValue: undoLast
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1607
            nameKey: undo
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1608
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1609
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1610
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1611
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1612
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1613
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1614
            activeHelpKey: editCut
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1615
            enabled: valueOfCanCut
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1616
            label: 'Cut'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1617
            itemValue: deleteSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1618
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1619
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1620
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1621
            activeHelpKey: editCopy
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1622
            enabled: valueOfCanCopy
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1623
            label: 'Copy'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1624
            itemValue: copySelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1625
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1626
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1627
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1628
            activeHelpKey: pasteBuffer
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1629
            enabled: valueOfCanPaste
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1630
            label: 'Paste'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1631
            itemValue: pasteBuffer
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1632
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1633
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1634
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1635
            activeHelpKey: editDelete
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1636
            enabled: valueOfCanCut
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1637
            label: 'Delete'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1638
            itemValue: deleteTotalSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1639
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1640
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1641
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1642
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1643
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1644
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1645
            activeHelpKey: pasteWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1646
            enabled: valueOfCanPasteWithKeepingLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1647
            label: 'Paste with Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1648
            itemValue: pasteWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1649
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1650
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1651
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1652
            activeHelpKey: editPaste
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1653
            enabled: valueOfCanPasteWithKeepingLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1654
            label: 'Paste Keeping Absolute Position'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1655
            itemValue: pasteKeepingPosition
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1656
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1657
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1658
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1659
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1660
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1661
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1662
            enabled: canMoveSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1663
            label: 'Move'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1664
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1665
            submenuChannel: menuMove
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1666
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1667
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1668
            enabled: hasSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1669
            label: 'Dimension'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1670
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1671
            submenu: 
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1672
           (Menu
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1673
              (
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1674
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1675
                  activeHelpKey: editDimensionDefaultExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1676
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1677
                  label: 'Default Extent'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1678
                  itemValue: setToDefaultExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1679
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1680
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1681
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1682
                  activeHelpKey: editDimensionDefaultWidth
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1683
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1684
                  label: 'Default Width'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1685
                  itemValue: setToDefaultWidth
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1686
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1687
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1688
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1689
                  activeHelpKey: editDimensionDefaultHeight
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1690
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1691
                  label: 'Default Height'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1692
                  itemValue: setToDefaultHeight
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1693
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1694
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1695
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1696
                  label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1697
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1698
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1699
                  activeHelpKey: editDimensionCopyLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1700
                  enabled: hasSingleSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1701
                  label: 'Copy Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1702
                  itemValue: copyLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1703
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1704
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1705
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1706
                  activeHelpKey: editDimensionPasteLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1707
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1708
                  label: 'Paste Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1709
                  itemValue: pasteLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1710
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1711
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1712
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1713
                  activeHelpKey: editDimensionExchangeLayouts
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1714
                  enabled: canExchangeSelectionLayouts
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1715
                  label: 'Exchange Layouts'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1716
                  itemValue: exchangeLayouts
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1717
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1718
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1719
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1720
                  label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1721
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1722
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1723
                  activeHelpKey: editDimensionCopyExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1724
                  enabled: hasSingleSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1725
                  label: 'Copy Extent'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1726
                  itemValue: copyExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1727
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1728
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1729
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1730
                  activeHelpKey: editDimensionPasteExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1731
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1732
                  label: 'Paste Extent'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1733
                  itemValue: pasteExtent
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1734
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1735
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1736
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1737
                  activeHelpKey: editDimensionPasteWidth
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1738
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1739
                  label: 'Paste Width'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1740
                  itemValue: pasteWidth
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1741
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1742
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1743
               (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1744
                  activeHelpKey: editDimensionPasteHeight
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1745
                  enabled: canMoveOrAlignSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1746
                  label: 'Paste Height'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1747
                  itemValue: pasteHeight
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1748
                  translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1749
                )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1750
               )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1751
              nil
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1752
              nil
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  1753
            )
1827
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1754
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1755
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1756
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1757
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1758
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1759
            activeHelpKey: editOpenSpecDocumentation
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1760
            label: 'Open Widget Documentation'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1761
            itemValue: doOpenWidgetDocumentation
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1762
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1763
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1764
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1765
            activeHelpKey: referToCOnfigDatabase
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1766
            label: 'Refer to Config Database'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1767
            itemValue: configSelection
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1768
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1769
            isVisible: false
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1770
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1771
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1772
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1773
            isVisible: false
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1774
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1775
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1776
            activeHelpKey: drawEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1777
            label: 'Draw Edit'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1778
            itemValue: shapeEdit
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1779
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1780
            isVisible: false
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1781
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1782
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1783
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1784
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1785
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1786
            activeHelpKey: group
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1787
            enabled: enGroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1788
            label: 'Group'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1789
            itemValue: group
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1790
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1791
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1792
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1793
            activeHelpKey: groupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1794
            enabled: enGroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1795
            label: 'Group with Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1796
            itemValue: groupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1797
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1798
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1799
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1800
            activeHelpKey: ungroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1801
            enabled: enUngroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1802
            label: 'Ungroup'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1803
            itemValue: ungroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1804
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1805
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1806
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1807
            activeHelpKey: ungroupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1808
            enabled: enUngroup
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1809
            label: 'Ungroup with Layout'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1810
            itemValue: ungroupWithLayout
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1811
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1812
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1813
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1814
            label: '-'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1815
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1816
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1817
            activeHelpKey: editBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1818
            enabled: hasOneSelectionOtherThanCanvas
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1819
            label: 'Browse Widget Class'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1820
            itemValue: doBrowseViewClass
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1821
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1822
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1823
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1824
            activeHelpKey: editInspectView
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1825
            enabled: hasOneSelectionOtherThanCanvas
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1826
            label: 'Inspect Widget'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1827
            itemValue: doInspectView
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1828
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1829
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1830
         (MenuItem
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1831
            activeHelpKey: editInspectSpec
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1832
            label: 'Inspect Spec'
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1833
            itemValue: doInspectSpec
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1834
            translateLabel: true
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1835
          )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1836
         )
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1837
        nil
691d1471cd3e WOs changes
werner
parents: 1820
diff changeset
  1838
        nil
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1839
      )
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1840
!
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1841
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1842
menuMove
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1843
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1844
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1845
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  1846
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1847
     the MenuEditor may not be able to read the specification."
498
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1848
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1849
    "
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1850
     MenuEditor new openOnClass:UIPainter andSelector:#menuMove
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1851
     (Menu new fromLiteralArrayEncoding:(UIPainter menuMove)) startUp
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1852
    "
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1853
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1854
    <resource: #menu>
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1855
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1856
    ^
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1857
     
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1858
       #(#Menu
43a78c5f806c help texts added
tz
parents: 496
diff changeset
  1859
          
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1860
	   #(
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1861
	     #(#MenuItem
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1862
		#label: 'Up'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1863
		#translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1864
		#value: #doStepUp
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1865
		#activeHelpKey: #moveWidgetUp
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1866
		#enabled: #canChangeOrderInContainer
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1867
		#labelImage: #(#ResourceRetriever #Icon #upIcon 'Up')
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1868
	    )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1869
	     #(#MenuItem
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1870
		#label: 'Down'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1871
		#translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1872
		#value: #doStepDown
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1873
		#activeHelpKey: #moveWidgetDown
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1874
		#enabled: #canChangeOrderInContainer
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1875
		#labelImage: #(#ResourceRetriever #Icon #downIcon 'Down')
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1876
	    )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1877
	     #(#MenuItem
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1878
		#label: 'Into'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1879
		#translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1880
		#value: #doStepIn
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1881
		#activeHelpKey: #moveWidgetInto
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1882
		#enabled: #canMoveSelectionIntoContainer
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1883
		#labelImage: #(#ResourceRetriever #Icon #downRightIcon 'Into')
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1884
	    )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1885
	     #(#MenuItem
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1886
		#label: 'Out'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1887
		#translateLabel: true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1888
		#value: #doStepOut
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1889
		#activeHelpKey: #moveWidgetOut
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1890
		#enabled: #canMoveSelectionOutOfContainer
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1891
		#labelImage: #(#ResourceRetriever #Icon #leftDownIcon 'Out')
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1892
	    )
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1893
	  ) nil
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  1894
	  nil
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1895
      )
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1896
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1897
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1898
menuToolbar
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1899
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1900
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1901
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  1902
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  1903
     the MenuEditor may not be able to read the specification."
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1904
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1905
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1906
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1907
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar)) startUp
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1908
    "
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1909
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1910
    <resource: #menu>
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  1911
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1912
    ^ 
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1913
     #(Menu
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1914
        (
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1915
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1916
            activeHelpKey: testStartApplication
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1917
            label: 'Start'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1918
            itemValue: doStartApplication
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1919
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1920
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1921
            labelImage: (ResourceRetriever ToolbarIconLibrary start22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1922
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1923
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1924
            label: ''
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1925
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1926
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1927
            activeHelpKey: fileNew
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1928
            label: 'New'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1929
            itemValue: doNew
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1930
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1931
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1932
            labelImage: (ResourceRetriever ToolbarIconLibrary newWindowSpec24x24Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1933
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1934
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1935
            activeHelpKey: fileLoad
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1936
            label: 'Load'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1937
            itemValue: doLoad
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1938
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1939
            isButton: true
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
  1940
            labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethod22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1941
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1942
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1943
            activeHelpKey: fileSave
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1944
            label: 'Save'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1945
            itemValue: doSave
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1946
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1947
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1948
            labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethod22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1949
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1950
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1951
            label: ''
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1952
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1953
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1954
            activeHelpKey: editCut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1955
            enabled: valueOfCanCut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1956
            label: 'Cut'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1957
            itemValue: deleteSelection
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1958
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1959
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1960
            labelImage: (ResourceRetriever ToolbarIconLibrary cut22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1961
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1962
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1963
            activeHelpKey: editCopy
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1964
            enabled: valueOfCanCopy
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1965
            label: 'Copy'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1966
            itemValue: copySelection
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1967
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1968
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1969
            labelImage: (ResourceRetriever ToolbarIconLibrary copy22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1970
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1971
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1972
            activeHelpKey: editPaste
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1973
            enabled: valueOfCanPasteWithKeepingLayout
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1974
            label: 'Paste With Layout'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1975
            itemValue: pasteWithLayout
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1976
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1977
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1978
            labelImage: (ResourceRetriever ToolbarIconLibrary paste22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1979
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1980
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1981
            activeHelpKey: editDelete
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1982
            enabled: valueOfCanCut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1983
            label: 'Delete'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1984
            itemValue: deleteTotalSelection
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1985
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1986
            isButton: true
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
  1987
            isVisible: false
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1988
            labelImage: (ResourceRetriever ToolbarIconLibrary delete22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1989
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1990
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1991
            label: ''
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  1992
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1993
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1994
            activeHelpKey: moveWidgetUp
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1995
            enabled: canChangeOrderInContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1996
            label: 'Move Up'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1997
            itemValue: doStepUp
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1998
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  1999
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2000
            labelImage: (ResourceRetriever ToolbarIconLibrary up22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2001
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2002
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2003
            activeHelpKey: moveWidgetDown
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2004
            enabled: canChangeOrderInContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2005
            label: 'Move Down'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2006
            itemValue: doStepDown
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2007
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2008
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2009
            labelImage: (ResourceRetriever ToolbarIconLibrary down22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2010
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2011
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2012
            activeHelpKey: moveWidgetInto
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2013
            enabled: canMoveSelectionIntoContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2014
            label: 'Move Into'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2015
            itemValue: doStepIn
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2016
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2017
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2018
            labelImage: (ResourceRetriever ToolbarIconLibrary downRight22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2019
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2020
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2021
            activeHelpKey: moveWidgetOut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2022
            enabled: canMoveSelectionOutOfContainer
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2023
            label: 'Move Out'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2024
            itemValue: doStepOut
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2025
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2026
            isButton: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2027
            labelImage: (ResourceRetriever ToolbarIconLibrary leftDown22x22Icon)
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2028
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2029
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2030
            label: ''
1820
3d834d5e5bb4 toolbar icons & help texts
Claus Gittinger <cg@exept.de>
parents: 1819
diff changeset
  2031
            startGroup: right
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2032
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2033
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2034
            activeHelpKey: settingsCanvas
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2035
            label: 'Canvas'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2036
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2037
            indication: painterShown
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2038
          )
1750
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2039
         (MenuItem
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2040
            activeHelpKey: settingsGallery
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2041
            label: 'Gallery'
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2042
            translateLabel: true
f175cc37a17a toolBar: button image
Claus Gittinger <cg@exept.de>
parents: 1742
diff changeset
  2043
            indication: galleryShown
1690
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2044
          )
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2045
         )
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2046
        nil
Claus Gittinger <cg@exept.de>
parents: 1689
diff changeset
  2047
        nil
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2048
      )
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2049
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2050
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2051
menuToolbar2
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2052
    "This resource specification was automatically generated
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2053
     by the MenuEditor of ST/X."
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2054
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  2055
    "Do not manually edit this!! If it is corrupted,
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2056
     the MenuEditor may not be able to read the specification."
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2057
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2058
    "
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2059
     MenuEditor new openOnClass:UIPainter andSelector:#menuToolbar2
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2060
     (Menu new fromLiteralArrayEncoding:(UIPainter menuToolbar2)) startUp
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2061
    "
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2062
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2063
    <resource: #menu>
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2064
1565
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2065
    ^ 
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2066
     #(#Menu
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2067
        #(
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2068
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2069
            #label: 'Align Left'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2070
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2071
            #value: #alignSelectionLeft
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2072
            #activeHelpKey: #alignSelectionLeft
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2073
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2074
            #labelImage: #(#ResourceRetriever nil #iconAlignL)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2075
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2076
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2077
            #label: 'Align Right'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2078
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2079
            #value: #alignSelectionRight
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2080
            #activeHelpKey: #alignSelectionRight
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2081
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2082
            #labelImage: #(#ResourceRetriever nil #iconAlignR)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2083
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2084
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2085
            #label: 'Align Left & Right'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2086
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2087
            #value: #alignSelectionLeftAndRight
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2088
            #activeHelpKey: #alignSelectionLeftAndRight
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2089
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2090
            #labelImage: #(#ResourceRetriever nil #iconAlignLR)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2091
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2092
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2093
            #label: ''
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2094
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2095
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2096
            #label: 'Align Top'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2097
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2098
            #value: #alignSelectionTop
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2099
            #activeHelpKey: #alignSelectionTop
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2100
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2101
            #labelImage: #(#ResourceRetriever nil #iconAlignT)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2102
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2103
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2104
            #label: 'Align Bottom'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2105
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2106
            #value: #alignSelectionBottom
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2107
            #activeHelpKey: #alignSelectionBottom
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2108
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2109
            #labelImage: #(#ResourceRetriever nil #iconAlignB)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2110
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2111
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2112
            #label: 'Align Top & Bottom'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2113
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2114
            #value: #alignSelectionTopAndBottom
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2115
            #activeHelpKey: #alignSelectionTopAndBottom
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2116
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2117
            #labelImage: #(#ResourceRetriever nil #iconAlignTB)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2118
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2119
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2120
            #label: ''
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2121
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2122
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2123
            #label: 'Move Left'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2124
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2125
            #triggerOnDown: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2126
            #hideMenuOnActivated: false
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2127
            #value: #moveSelectionLeft
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2128
            #activeHelpKey: #changePositionLeft
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2129
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2130
            #labelImage: #(#ResourceRetriever #ArrowButton #LeftArrowForm)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2131
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2132
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2133
            #label: 'Move Right'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2134
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2135
            #triggerOnDown: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2136
            #hideMenuOnActivated: false
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2137
            #value: #moveSelectionRight
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2138
            #activeHelpKey: #changePositionRight
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2139
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2140
            #labelImage: #(#ResourceRetriever #ArrowButton #RightArrowForm)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2141
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2142
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2143
            #label: 'Move Up'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2144
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2145
            #triggerOnDown: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2146
            #value: #moveSelectionUp
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2147
            #activeHelpKey: #changePositionUp
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2148
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2149
            #labelImage: #(#ResourceRetriever #ArrowButton #UpArrowForm)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2150
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2151
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2152
            #label: 'Move Down'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2153
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2154
            #triggerOnDown: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2155
            #value: #moveSelectionDown
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2156
            #activeHelpKey: #changePositionDown
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2157
            #enabled: #canMoveOrAlignSelection
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2158
            #labelImage: #(#ResourceRetriever #ArrowButton #DownArrowForm)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2159
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2160
         #(#MenuItem
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2161
            #label: 'Widget Documentation'
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2162
            #translateLabel: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2163
            #isButton: true
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2164
            #startGroup: #right
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2165
            #value: #doOpenWidgetDocumentation
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2166
            #activeHelpKey: #editOpenSpecDocumentation
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2167
            #labelImage: #(#ResourceRetriever #Icon #helpIcon)
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2168
          )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2169
         )
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2170
        nil
3282f44c5ca4 *** empty log message ***
ca
parents: 1563
diff changeset
  2171
        nil
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  2172
      )
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2173
! !
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2174
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2175
!UIPainter methodsFor:'aspects'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2176
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
  2177
aspectFor:aKey
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2178
    "returns the aspect for aKey"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2179
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2180
    ^aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
724
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
  2181
!
7c7fb3f3a927 docu calls added
tz
parents: 721
diff changeset
  2182
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2183
autoAcceptOnSelectionChange
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2184
    ^ builder valueAspectFor:#autoAcceptOnSelectionChange initialValue:true
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2185
!
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2186
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2187
canChangeOrderInContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2188
    "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
  2189
     within their container"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2190
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2191
    ^ builder booleanValueAspectFor:#canChangeOrderInContainer
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2192
!
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  2193
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2194
canExchangeSelectionLayouts
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2195
    "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
  2196
     consists of exactly 2 components
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2197
     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
  2198
     align operation"
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2199
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2200
    ^ builder booleanValueAspectFor:#canExchangeSelectionLayouts
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2201
!
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2202
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2203
canMoveOrAlignSelection
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2204
    "returns a boolean value holder which is true in case that any selection exists
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2205
     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
  2206
     align operation"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2207
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2208
    ^ builder booleanValueAspectFor:#canMoveOrAlignSelection
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2209
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2210
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2211
canMoveSelection
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2212
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2213
    ^self canChangeOrderInContainer value or: [ 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2214
     self canMoveSelectionOutOfContainer value or: [
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2215
     self canMoveSelectionOutOfContainer value]]
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2216
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2217
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2218
canMoveSelectionIntoContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2219
    "returns a boolean value holder which is true in case that one widget is selected
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2220
     and can change its container widget to the next element in the list which will have
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2221
     the same container"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2222
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2223
    ^ builder booleanValueAspectFor:#canMoveSelectionIntoContainer
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2224
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2225
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2226
canMoveSelectionOutOfContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2227
    "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
  2228
     which is contained within another component"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2229
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2230
    ^ builder booleanValueAspectFor:#canMoveSelectionOutOfContainer
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2231
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2232
118
bc196200ea8b enabled and style
ca
parents: 114
diff changeset
  2233
enableChannel
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2234
    "true if modifications are allowed otherwise running test"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2235
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2236
    ^ self painter enableChannel
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2237
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2238
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2239
galleryShown
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2240
    "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
  2241
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2242
    |holder|
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2243
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2244
    (holder := builder bindingAt:#galleryShown) isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2245
	builder aspectAt:#galleryShown put:(holder :=  true asValue).
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2246
	holder addDependent:self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2247
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2248
    ^ holder
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2249
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2250
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2251
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2252
hasOneSelectionOtherThanCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2253
    "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
  2254
     other than the root"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2255
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2256
    ^ builder booleanValueAspectFor:#hasOneSelectionOtherThanCanvas
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2257
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2258
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2259
helpIcon
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2260
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2261
    ^Icon helpIcon
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2262
!
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2263
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2264
noteBookView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2265
    "returns the notebook view; initialize the tools embedded in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2266
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2267
    |noteBook modifiedChannel applBuilder applWindow|
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2268
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2269
    (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2270
        modifiedChannel := self modifiedChannel.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2271
        noteBook := View new.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2272
        builder aspectAt:#noteBookView put:noteBook.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2273
1314
f22b28597a05 set level of subCanvas'es 'help layout, ...' to 0
ca
parents: 1306
diff changeset
  2274
        layoutTool := UILayoutTool new.
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2275
        layoutTool createBuilder.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2276
        applBuilder := layoutTool builder.
1319
6a245b972637 use ApplicationSubView instead of SimpleView; application query
ca
parents: 1317
diff changeset
  2277
        applWindow  := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2278
        applWindow level:0.
1314
f22b28597a05 set level of subCanvas'es 'help layout, ...' to 0
ca
parents: 1306
diff changeset
  2279
        layoutTool masterApplication:self.
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2280
        applBuilder window:applWindow.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2281
        applWindow client:layoutTool spec:#windowSpec builder:applBuilder.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2282
        applBuilder window:applWindow.
1314
f22b28597a05 set level of subCanvas'es 'help layout, ...' to 0
ca
parents: 1306
diff changeset
  2283
        layoutTool modifiedHolder:modifiedChannel.
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2284
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2285
        helpTool := UIHelpTool new.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2286
        applBuilder := helpTool builder.
1319
6a245b972637 use ApplicationSubView instead of SimpleView; application query
ca
parents: 1317
diff changeset
  2287
        applWindow  := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2288
        applWindow level:0.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2289
        helpTool buildFromClass:specClass.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2290
        helpTool masterApplication:self.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2291
        applBuilder window:applWindow.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2292
        applWindow client:helpTool spec:#windowSpec builder:applBuilder.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2293
        applBuilder window:applWindow.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2294
        helpTool modifiedHolder:modifiedChannel.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2295
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2296
        specTool := UISpecificationTool new.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2297
        specTool createBuilder.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2298
        applBuilder := specTool builder.
1319
6a245b972637 use ApplicationSubView instead of SimpleView; application query
ca
parents: 1317
diff changeset
  2299
        applWindow  := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2300
        specTool masterApplication:self.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2301
        applWindow level:0.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2302
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2303
        applBuilder window:applWindow.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2304
        applWindow client:specTool spec:#windowSpec builder:applBuilder.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2305
        applBuilder window:applWindow.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2306
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2307
        specTool modifiedHolder:modifiedChannel.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2308
    ].
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2309
    ^ noteBook
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2310
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2311
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2312
painterShown
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2313
    "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
  2314
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2315
    |holder|
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2316
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2317
    (holder := builder bindingAt:#painterShown) isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2318
	builder aspectAt:#painterShown put:(holder :=  true asValue).
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2319
	holder addDependent:self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2320
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2321
    ^ holder
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2322
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2323
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2324
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2325
tabList
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2326
    "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
  2327
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  2328
    |tabs holder|
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2329
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2330
    (holder := builder bindingAt:#tabList) isNil ifTrue:[
1782
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  2331
        tabs := #(Basics Details Layout).
8108839cc262 translate label
Claus Gittinger <cg@exept.de>
parents: 1775
diff changeset
  2332
        builder aspectAt:#tabList put:(holder :=  (resources array:tabs) asValue).
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2333
    ].
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2334
    ^ holder
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2335
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2336
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2337
tabModel
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2338
    "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
  2339
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2340
    |holder|
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2341
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2342
    (holder := builder bindingAt:#tabModel) isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2343
	holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2344
	builder aspectAt:#tabModel put:holder.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2345
    ].
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2346
    ^ holder
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2347
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2348
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2349
treeView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2350
    "returns the tree view which holds all widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2351
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2352
    ^ treeView
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2353
!
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2354
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2355
valueOfCanPasteWithKeepingLayout
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2356
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2357
    |holder|
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2358
    (holder := builder bindingAt:#valueOfCanPasteWithKeepingLayout) isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2359
	builder aspectAt:#valueOfCanPasteWithKeepingLayout put:(holder :=  false asValue).
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2360
    ].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2361
    ^ holder
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2362
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2363
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2364
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2365
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  2366
587
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  2367
!UIPainter methodsFor:'building editors'!
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2368
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2369
openDataSetColumnEditor
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2370
    "opens a Table Column Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2371
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2372
    |cls editor specTool columnHolder tableSelector columns|
824
1d5adf147721 change mechanism for opening the dataset builder (step 2)
tz
parents: 819
diff changeset
  2373
1d5adf147721 change mechanism for opening the dataset builder (step 2)
tz
parents: 819
diff changeset
  2374
    (cls := self resolveName:specClass) isNil ifTrue:[
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2375
        self askForSaving ifTrue:[cls := self resolveName:specClass].
1103
ecc91379704b accept before opening an editor
Claus Gittinger <cg@exept.de>
parents: 1071
diff changeset
  2376
    ].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2377
    cls isNil ifTrue:[^ self].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2378
1103
ecc91379704b accept before opening an editor
Claus Gittinger <cg@exept.de>
parents: 1071
diff changeset
  2379
    self modifiedChannel value ifTrue:[
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2380
        (self confirm:'Accept changes made to spec ?') ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2381
            self accept
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2382
        ]
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2383
    ].
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2384
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2385
    editor   := DataSetBuilder new.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2386
    specTool := self specTool.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2387
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2388
    editor masterApplication:self.
824
1d5adf147721 change mechanism for opening the dataset builder (step 2)
tz
parents: 819
diff changeset
  2389
    editor specClass: cls.
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2390
    editor rowClassName:(specTool specification rowClassName).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2391
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2392
    columnHolder  := specTool aspectFor:#columnHolder.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2393
    tableSelector := columnHolder value.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2394
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2395
    tableSelector := tableSelector size ~~ 0 ifTrue:[tableSelector asSymbol]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2396
                                            ifFalse:[nil].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2397
1554
d5e4612bf7cf implements -> includesSelector
Claus Gittinger <cg@exept.de>
parents: 1545
diff changeset
  2398
    (tableSelector notNil and:[cls class includesSelector:tableSelector]) ifTrue:[
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2399
        editor openModalOnClass:cls andSelector:tableSelector
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2400
    ] ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2401
        columns := specTool specification columns.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2402
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2403
        columns size ~~ 0 ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2404
            editor openModalOnResourceSpec:columns
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2405
        ] ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2406
            editor openModal
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2407
        ]
827
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2408
    ].
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2409
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2410
    editor hasSaved ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2411
        specTool specification columns:nil.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2412
        specTool specification rowClassName:(editor rowClassName).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2413
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2414
        tableSelector = editor specSelector ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2415
            columnHolder value:(editor specSelector).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2416
            self accept.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2417
        ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2418
        ^ self
827
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2419
    ].
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2420
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2421
    (editor modified and:[tableSelector isNil]) ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2422
        specTool specification columns:(editor columns).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2423
        specTool specification rowClassName:(editor rowClassName).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2424
        self modifiedChannel value:true.
827
aa8f49da0f22 change mechanism for opening the dataset builder (step 3)
tz
parents: 824
diff changeset
  2425
    ].
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2426
!
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2427
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2428
openEditMenu
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2429
    "opens a Menu Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2430
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2431
    |cls selectorOrMenu editor selectedSpec spec holder|
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2432
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2433
    (cls := self resolveName:specClass) isNil ifTrue:[
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2434
        self askForSaving ifTrue:[cls := self resolveName:specClass].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2435
    ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2436
    cls isNil ifTrue:[^ self].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2437
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2438
    self modifiedChannel value ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2439
        (self confirm:'Accept changes made to spec ?') ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2440
            self accept
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2441
        ]
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2442
    ].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2443
    spec := self specTool specification.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2444
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2445
    (selectorOrMenu := spec menuSelector) notNil ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2446
        selectorOrMenu := selectorOrMenu asSymbol
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2447
    ] ifFalse:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2448
        "/ cg: q&d hack ...
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2449
        selectorOrMenu := nil.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2450
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2451
        (selectedSpec := treeView propertySelected) notNil ifTrue:[
1688
389815b12d3a Convert Object>>errorSignal -> Error
Stefan Vogel <sv@exept.de>
parents: 1684
diff changeset
  2452
            Error handle:[:ex |
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2453
                selectorOrMenu := nil.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2454
            ] do:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2455
                selectorOrMenu := selectedSpec view asMenu.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2456
            ]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2457
        ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2458
    ].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2459
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2460
    editor := MenuEditor new.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2461
    editor masterApplication:self.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2462
    editor specClass: cls.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1663
diff changeset
  2463
    editor useHelpTool:(self helpTool).
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2464
1698
28250498a2b3 *** empty log message ***
penk
parents: 1690
diff changeset
  2465
    selectorOrMenu class == Menu
28250498a2b3 *** empty log message ***
penk
parents: 1690
diff changeset
  2466
        ifTrue: [editor openModalOnMenu:selectorOrMenu]
28250498a2b3 *** empty log message ***
penk
parents: 1690
diff changeset
  2467
        ifFalse:  [editor openModalOnClass:cls andSelector:selectorOrMenu].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2468
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2469
    editor hasSaved ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2470
        holder := self specTool aspectFor:#menuSelector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2471
        holder value:(editor specSelector).
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2472
        self accept.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1663
diff changeset
  2473
        ^ self
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2474
    ].
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2475
!
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2476
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2477
openHierarchicalListEditor
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2478
    "opens a Hierarchical List Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2479
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2480
    |selector editor spec|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2481
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2482
    (self resolveName:specClass) isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2483
	self askForSaving ifFalse: [^self]
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2484
    ].
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2485
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2486
    spec := self specTool specification.
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2487
    (selector := spec hierarchicalList) notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2488
	selector := selector asSymbol
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2489
    ].
735
29c8681ce68d no picking for hierarchical lists + error handler for the starting phase
tz
parents: 729
diff changeset
  2490
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2491
    editor := HierarchicalListEditor new.
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2492
    editor masterApplication:self.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2493
    editor openModalOnClass:specClass andSelector:selector.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2494
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2495
    editor specSelector ~= selector ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2496
	editor hasSaved ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2497
	    spec hierarchicalList:editor specSelector.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2498
	    self modifiedChannel value:true.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2499
	    self accept
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2500
	]
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2501
    ]
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2502
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2503
    "Modified: / 16.7.1998 / 18:15:46 / cg"
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2504
!
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2505
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2506
openSubSpecGUIPainter
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2507
    "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
  2508
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2509
    |spec cls meta sel|
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2510
913
12e73e6c57b4 do open building editors after defining first new app class
tz
parents: 892
diff changeset
  2511
    (self resolveName:specClass) isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2512
        self askForSaving ifFalse: [^self]
913
12e73e6c57b4 do open building editors after defining first new app class
tz
parents: 892
diff changeset
  2513
    ]. 
12e73e6c57b4 do open building editors after defining first new app class
tz
parents: 892
diff changeset
  2514
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2515
    spec := self specTool specification.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2516
    cls := spec majorKey.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2517
    cls isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2518
        cls := specClass.
609
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2519
    ].
913
12e73e6c57b4 do open building editors after defining first new app class
tz
parents: 892
diff changeset
  2520
    (cls := self resolveName:cls inClass:(Smalltalk at: specClass asSymbol)) isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2521
        spec majorKey isNil ifTrue:[
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2522
            ^ self warn:'Cannot find class (no majorKey specified).'.
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2523
        ].
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2524
        ^ 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
  2525
    ].
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2526
    sel := spec minorKey.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2527
    meta := cls class whichClassIncludesSelector:sel.
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2528
    meta isNil ifTrue:[
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2529
        ^ 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
  2530
    ].
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2531
1523
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2532
    self class 
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2533
        openOnClass:meta soleInstance 
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2534
        andSelector:spec minorKey.
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2535
a8fe5e15220b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1521
diff changeset
  2536
    "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
  2537
!
60f89fba074a Allow opening of a GUI Painter for a subSpecification.
Stefan Vogel <sv@exept.de>
parents: 587
diff changeset
  2538
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2539
openTabListEditor
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2540
    "opens a Tab List Editor on current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2541
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2542
    |selector editor spec cls holder|
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2543
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2544
    (cls := self resolveName:specClass) isNil ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2545
        self askForSaving ifTrue:[cls := self resolveName:specClass].
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2546
    ].
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2547
    cls isNil ifTrue:[^ self].
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2548
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2549
    self modifiedChannel value ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2550
        (self confirm:'Accept changes made to spec ?') ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2551
            self accept
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2552
        ]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2553
    ].
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2554
    spec := self specTool specification.
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2555
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2556
    (selector := spec listSelector) isArray 
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2557
        ifTrue: [^self warn: 'Cannot open the Tab List Editor on an array!!'].
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2558
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2559
    editor := TabListEditor new.
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2560
    editor masterApplication:self.
1453
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2561
    editor openModalOnClass:cls andSelector:selector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2562
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2563
    editor hasSaved ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2564
        holder := self specTool aspectFor:#listSelector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2565
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2566
        holder value ~= editor specSelector ifTrue:[
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2567
            holder value:editor specSelector.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2568
            self accept.
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2569
        ]
0cf534cc29a9 bugfix when after close subtool (table menu ..) when reading selector
ca
parents: 1444
diff changeset
  2570
    ].
513
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2571
! !
a0d00fecb49a support of TabItemEditor
ca
parents: 512
diff changeset
  2572
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2573
!UIPainter methodsFor:'change & update'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2574
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2575
layoutChanged
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2576
    "called by the painter/canvas whenever the layout of the current selected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2577
     widget has changed"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2578
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  2579
    self isModified ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2580
        self layoutTool update.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2581
        self clearModifiedFlag
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2582
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2583
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2584
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  2585
propertyChanged
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2586
    "called by the painter/canvas whenever the property of the current selected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2587
     widget has changed"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2588
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  2589
    |property spec|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2590
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2591
    (property := treeView propertySelected) notNil ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2592
        spec := property spec copy.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2593
        self specTool specification:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2594
        self setViewInLayoutTool:(property view) spec:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2595
        self clearModifiedFlag
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  2596
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2597
        self layoutTool layoutView notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2598
            self clearModifiedFlag.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2599
            self treeSelectionChanged
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2600
        ]
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  2601
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2602
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2603
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2604
update:something with:aParameter from:someObject
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2605
    "catches change notifications"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2606
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2607
    |window lbl|
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2608
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2609
    someObject == treeView model ifTrue:[
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2610
        (something == #selection
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2611
        or:[something == #selectionIndex]) ifTrue:[self treeSelectionChanged].
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  2612
      ^ self
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2613
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2614
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2615
    someObject == self galleryShown ifTrue:[
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2616
        "/ galleryShown toggle changed
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2617
        window := selectionPanel window.
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2618
        (someObject value) ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2619
            self raiseUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2620
        ] ifFalse:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2621
            self hideUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2622
        ].
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2623
      ^ self
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2624
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2625
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2626
    someObject == self painterShown ifTrue:[
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2627
        "/ canvasShown toggle changed
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2628
        window := self painter topView.
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2629
        (someObject value) ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2630
            self raiseUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2631
        ] ifFalse:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2632
            self hideUIView:window
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2633
        ].
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2634
      ^ self
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2635
    ].
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2636
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2637
    someObject == self autoAcceptOnSelectionChange ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2638
        lbl := someObject value ifTrue:['Apply'] ifFalse:['OK'].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2639
        (builder componentAt:'acceptButton') label:(resources string:lbl).
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2640
        ^ self
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2641
    ].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  2642
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2643
    "Modified: / 16.7.1998 / 19:09:57 / cg"
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2644
!
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2645
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2646
updateChannels
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2647
    "updates the channels"
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2648
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2649
    |canCutOrCopy canPaste clipboard sel treeSelection|
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2650
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2651
    self canMoveOrAlignSelection        value:(treeView canMoveOrAlignSelection).
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2652
    self canExchangeSelectionLayouts    value:(treeView canExchangeSelectionLayouts).
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2653
    self canChangeOrderInContainer      value:(treeView canChangeOrderInContainer).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2654
    self canMoveSelectionIntoContainer  value:(treeView canMoveSelectionIntoContainer).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2655
    self canMoveSelectionOutOfContainer value:(treeView canMoveSelectionOutOfContainer).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2656
    self hasOneSelectionOtherThanCanvas value:(treeView hasOneSelectionOtherThanCanvas).
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2657
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2658
    treeView notNil
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2659
    ifTrue:
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2660
    [
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2661
        treeSelection := treeView selection.
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2662
        "/ the top-node cannot be cut, copied or pasted.
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2663
        canCutOrCopy := treeSelection size >= 1 and:[treeSelection first ~~ 1].
1872
ab5cc43b193a get selection interface changed
ca
parents: 1870
diff changeset
  2664
        clipboard := self getClipboardObject.
ab5cc43b193a get selection interface changed
ca
parents: 1870
diff changeset
  2665
ab5cc43b193a get selection interface changed
ca
parents: 1870
diff changeset
  2666
        clipboard isCollection 
ab5cc43b193a get selection interface changed
ca
parents: 1870
diff changeset
  2667
                ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]]
ab5cc43b193a get selection interface changed
ca
parents: 1870
diff changeset
  2668
                ifFalse:[sel := clipboard].
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  2669
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  2670
        canPaste := (sel isKindOf:UISpecification) 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  2671
"/                    and:[treeSelection size  = 1 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  2672
"/                    and:[treeSelection first == 1 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  2673
"/                         or: [self canPasteInto: treeView selectedNode contents view]]]
884
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2674
    ].
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2675
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2676
    self valueOfCanCut value: canCutOrCopy.
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2677
    self valueOfCanCopy value: canCutOrCopy.
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2678
    self valueOfCanPaste value: canPaste.            
a291fc248a8b images moved to class Icon
tz
parents: 877
diff changeset
  2679
    self valueOfCanPasteWithKeepingLayout value: (canPaste "&  self canKeepLayoutInSelection").
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2680
1063
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  2681
"/    self modifiedChannel value: false.
9e710dbc7c92 inputFields use modified & acceptChannels
Claus Gittinger <cg@exept.de>
parents: 1059
diff changeset
  2682
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  2683
    "Modified: / 16.7.1998 / 19:13:30 / cg"
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2684
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2685
952
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2686
!UIPainter methodsFor:'defaults'!
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2687
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2688
aboutImage
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2689
    "the image to be displayed in my about-box;
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2690
     If nil is returned, thhe ST/X default image is used."
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2691
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2692
    ^ Image fromFile:'bitmaps/xpmBitmaps/misc_tools/setup_windows.xpm'
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2693
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2694
    "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
  2695
!
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  2696
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  2697
defaultWindowSpecClass
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  2698
    ^ WindowSpec
952
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2699
! !
c6408190dc6d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 950
diff changeset
  2700
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2701
!UIPainter methodsFor:'event handling'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2702
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2703
doesNotUnderstand:aMessage
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2704
    "if does not understand incoming messages, detour them to painter"
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2705
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2706
    |painter|
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2707
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2708
    painter := self painter.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2709
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2710
    (painter respondsTo:(aMessage selector)) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2711
	^ aMessage sendTo:painter
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2712
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2713
    super doesNotUnderstand:aMessage
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2714
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2715
! !
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2716
547
930b3df19305 help menu item aligned to the right
tz
parents: 542
diff changeset
  2717
!UIPainter methodsFor:'help'!
930b3df19305 help menu item aligned to the right
tz
parents: 542
diff changeset
  2718
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  2719
defaultInfoLabel
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2720
    "returns the default info label"
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  2721
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2722
    specClass isNil ifTrue: [^'No class and selector defined.'].
877
f31f41b29710 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 852
diff changeset
  2723
    specSelector isNil ifTrue: [^'No selector defined.'].
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  2724
    ^specClass printString, ' >> ', specSelector
877
f31f41b29710 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 852
diff changeset
  2725
f31f41b29710 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 852
diff changeset
  2726
    "Modified: / 20.6.1998 / 16:49:16 / cg"
297
14db1276218c change the spec;
ca
parents: 295
diff changeset
  2727
! !
14db1276218c change the spec;
ca
parents: 295
diff changeset
  2728
1718
aedf32fc1715 method category rename
Claus Gittinger <cg@exept.de>
parents: 1716
diff changeset
  2729
!UIPainter methodsFor:'menus-dynamic'!
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  2730
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  2731
menuEdit
1528
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2732
    ^ [
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2733
        |m i|
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2734
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2735
        m := self class menuEdit.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2736
        m := m decodeAsLiteralArray.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2737
        i := m detectItem:[:item | item nameKey == #undo] ifNone:nil.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2738
        i notNil ifTrue:[
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2739
            i label:(i label , ' (' , self painter undoHistory labelOfLastUndo , ')')   
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2740
        ].
1540
dda0bf556ebc findGuiResources... now sets the receiver, if not yet set
Claus Gittinger <cg@exept.de>
parents: 1528
diff changeset
  2741
        "/ m receiver:self.   -- now done in findGuiResources ...
1528
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2742
        m findGuiResourcesIn:self.
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2743
        m
4136505d3cbe oops - menu was wrong
Claus Gittinger <cg@exept.de>
parents: 1523
diff changeset
  2744
      ].
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  2745
! !
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  2746
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2747
!UIPainter methodsFor:'private'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  2748
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2749
askForModification
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2750
    "asks for window spec modification"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2751
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2752
    |painter|
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2753
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2754
    painter := self painter.
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2755
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2756
    self askForSectionModification.    
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2757
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2758
    (modified or: [painter isModified or: [self helpTool modified]])
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2759
    ifTrue:[
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1760
diff changeset
  2760
        ((YesNoBox title:(resources string:'Window spec was modified. Exit anyway?'))        
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2761
            noText:(resources string:'Cancel');
1772
e33aee13defe Use 'Discard Changes and Exit' instead of 'Forget it...'
Stefan Vogel <sv@exept.de>
parents: 1760
diff changeset
  2762
            yesText:(resources string:'Discard Changes and Exit');
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2763
            showAtPointer;
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2764
            accepted) ifFalse: [^false].
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2765
        modified := false.
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  2766
        painter resetModification
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2767
    ].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2768
    ^true
838
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
  2769
0ac5a26498c1 help texts & national strings
Claus Gittinger <cg@exept.de>
parents: 827
diff changeset
  2770
    "Modified: / 20.5.1998 / 02:03:16 / cg"
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2771
!
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2772
808
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2773
askForSaving
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2774
    "asks for defining an application class"
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2775
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2776
    self askForSectionModification.    
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2777
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2778
    ((YesNoBox title:'No application class defined yet!!')        
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2779
	noText:'Cancel';
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2780
	yesText:'Define';
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2781
	showAtPointer;
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2782
	accepted) ifFalse: [^false].
808
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2783
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2784
    self doSave.
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2785
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2786
    ^true
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2787
!
4e2ab5e77344 ask first for saving before calling other editors
tz
parents: 807
diff changeset
  2788
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2789
askForSectionModification
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2790
    "asks for section modification in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2791
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2792
    self isModified ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2793
	(self confirm:'Accept modifications in section ' , tabSelection printString asBoldText, '?') ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2794
	    self accept
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2795
	] ifFalse: [
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2796
	    self cancel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2797
	]
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2798
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2799
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2800
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2801
checkClassAndSelector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2802
    "checks for class & superclass"
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2803
1211
53cfc272acc9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1204
diff changeset
  2804
    |superclass cls|
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2805
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2806
    specClass isNil ifTrue:[^ false].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2807
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2808
    cls := self resolveName:specClass.
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2809
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2810
    cls isNil ifTrue:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2811
	superclass := self resolveName:specSuperclass.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2812
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2813
	superclass isNil ifTrue:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2814
	    self warn:'No class named ' , specSuperclass , ' exists!!'.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2815
	    ^ false.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2816
	].
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2817
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2818
	(self confirm:'Create class ' , specClass asBoldText, '?') ifTrue:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2819
	    cls := superclass 
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2820
			subclass:(specClass asSymbol)
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2821
			instanceVariableNames:''
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2822
			classVariableNames:''
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2823
			poolDictionaries:''
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2824
			category:'Applications'.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2825
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2826
	    cls name ~= specClass ifTrue:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2827
		self information:'Created new class is ' , cls name.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2828
		specClass := cls name
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2829
	    ].
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2830
	    ^ true.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2831
	].
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2832
	^ false.
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2833
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2834
    cls isBehavior ifFalse:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2835
	self warn:'A global named ' , specClass , ' exists, but it is no class.'.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2836
	^ false.
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2837
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2838
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2839
    specSuperclass isBehavior ifFalse:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2840
	specSuperclass isEmpty ifFalse:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2841
	    superclass := self resolveName:specSuperclass
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2842
	] ifTrue:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2843
	    specSuperclass := nil.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2844
	]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2845
    ] ifTrue:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2846
	superclass := specSuperclass
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2847
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2848
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2849
    specSuperclass notNil ifTrue:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2850
	superclass isNil ifTrue:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2851
	    self warn:'No class named ' , specSuperclass , ' exists!!'.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2852
	    ^ false.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2853
	].
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2854
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2855
	(cls isSubclassOf:superclass) ifFalse:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2856
	    self information:('A global named ' , specClass , ' exists,\' ,
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2857
			      'but is not a subclass of ' , superclass name , '.\\' ,
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2858
			      'Check and try again if that is not what you want.') withCRs.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2859
	]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2860
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2861
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2862
    superclass isNil ifTrue:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2863
	cls notNil ifTrue:[
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2864
	    specSuperclass := cls superclass name
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2865
	]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2866
    ].
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2867
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2868
    ^ true
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2869
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2870
    "Modified: 12.8.1997 / 23:39:10 / cg"
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2871
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  2872
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2873
hideUIView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2874
    "hides the view which is an application or top view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2875
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2876
    aView beIndependent.
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2877
    aView unmap.
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2878
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2879
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2880
raiseTabView
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2881
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2882
    self isLayoutToolSelected ifTrue:[
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2883
        helpTool   window unmap.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2884
        specTool   window unmap.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2885
        layoutTool window realize.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2886
    ] ifFalse:[
1306
66252dfdd14c hack for tabable (becomes better)
ca
parents: 1273
diff changeset
  2887
        self isHelpToolSelected ifTrue:[
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2888
            layoutTool window unmap.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2889
            specTool   window unmap.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2890
            helpTool   window realize.
1306
66252dfdd14c hack for tabable (becomes better)
ca
parents: 1273
diff changeset
  2891
        ] ifFalse:[
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2892
            specTool selection:tabSelection.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2893
            helpTool   window unmap.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2894
            layoutTool window unmap.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2895
            specTool   window realize.
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2896
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2897
"/            specTool selection:tabSelection.
1306
66252dfdd14c hack for tabable (becomes better)
ca
parents: 1273
diff changeset
  2898
        ]
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2899
    ]
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2900
!
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2901
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2902
raiseUIView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2903
    "raise the view which is an application or top view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2904
1193
ada18c876301 partners must be remapped (at old position)
Claus Gittinger <cg@exept.de>
parents: 1192
diff changeset
  2905
    aView remap.
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  2906
    aView bePartner.
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2907
!
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2908
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2909
resourceMessage: aString
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2910
    "reads the specClass and the specSelector by evaluating aString"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2911
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  2912
    (aString notNil and: [self askForModification]) 
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2913
    ifTrue:
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2914
    [            
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2915
	|msg cls sel|
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2916
	msg := aString asCollectionOfWords.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2917
	(msg size == 2 and:
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2918
	[(cls := self resolveName:(msg at:1)) notNil])
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2919
	ifTrue:
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2920
	[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2921
	    self specClass:cls.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2922
	    specSuperclass := cls superclass name.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2923
	    specSelector := (msg at: 2) asSymbol.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2924
	    ^true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  2925
	]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2926
    ].
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2927
    ^false
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2928
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  2929
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2930
setClass:cls selector:selector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2931
    "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
  2932
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2933
    |clsName superClassName|
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2934
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2935
    clsName := cls name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2936
    superClassName := cls superclass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2937
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2938
    (self aspectFor:#classNameChannel) value:clsName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2939
    (self aspectFor:#methodNameChannel) value:(selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2940
    (self aspectFor:#superclassNameChannel) value:superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2941
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2942
    self painter 
1760
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  2943
            className:clsName 
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  2944
            superclassName:superClassName
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  2945
            selector:(selector ? '').
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2946
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2947
    self specClass:clsName.
177
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2948
    specSelector := (selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2949
    specSuperclass := superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via
Claus Gittinger <cg@exept.de>
parents: 176
diff changeset
  2950
1760
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  2951
    (specClass notNil and:[ selector notNil ]) ifTrue:[
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  2952
        self addToHistory: (specClass, ' ', specSelector) -> #loadFromMessage:.
8419c463c4f6 use #and: - not #& you lazy bone, you
Claus Gittinger <cg@exept.de>
parents: 1750
diff changeset
  2953
        self updateInfoLabel
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  2954
    ].
587
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  2955
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  2956
    "Modified: / 5.2.1998 / 09:44:58 / stefan"
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2957
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  2958
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  2959
setViewInLayoutTool:aView spec:aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2960
    "sets view for layout tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2961
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2962
    |type|
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2963
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2964
    self painter topView == aView ifTrue:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  2965
	type := #Extent
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2966
    ].
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  2967
    self layoutTool layoutView:aView type:type spec:aSpec
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2968
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2969
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2970
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2971
specClass:aClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2972
    "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
  2973
dd545d089d95 Fix typos. Ensure that specClass is a string.
Stefan Vogel <sv@exept.de>
parents: 572
diff changeset
  2974
    specClass := aClass isBehavior ifTrue:[aClass name]
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2975
                                   ifFalse:[aClass].
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2976
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  2977
    self helpTool buildFromClass:specClass.    
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  2978
    self clearModifiedFlag. 
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2979
! !
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2980
1714
f57812a56d17 method category rename
Claus Gittinger <cg@exept.de>
parents: 1712
diff changeset
  2981
!UIPainter methodsFor:'private-tools'!
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2982
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2983
helpTool
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2984
    "returns the help tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2985
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2986
    helpTool isNil ifTrue:[self noteBookView].
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2987
  ^ helpTool
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2988
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2989
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2990
layoutTool
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2991
    "returns the layout tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2992
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2993
    layoutTool isNil ifTrue:[self noteBookView].
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  2994
  ^ layoutTool
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2995
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2996
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  2997
painter
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2998
    "returns the canvas view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  2999
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3000
    ^ treeView canvas
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3001
!
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3002
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3003
specTool
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3004
    "returns the spec tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3005
1316
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3006
    specTool isNil ifTrue:[self noteBookView].
d66f0b84aa6b *** empty log message ***
ca
parents: 1314
diff changeset
  3007
  ^ specTool
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3008
! !
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3009
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3010
!UIPainter methodsFor:'queries'!
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3011
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3012
hasSpecClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3013
    "answers whether an application class is defined"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3014
328
0e8a4296dec1 add DataSetBuilder
ca
parents: 321
diff changeset
  3015
    ^ (self resolveName:specClass) notNil
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3016
!
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3017
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3018
hasSpecClassAndSelector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3019
    "answers whether an application class and a selector under which
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3020
     the window spec is stored is defined"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3021
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3022
    specSelector size > 1 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3023
	^ self hasSpecClass
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3024
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3025
    ^ false
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3026
!
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3027
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3028
isHelpToolSelected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3029
    "answers whether the current selected section in the noteBook is the Help Tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3030
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3031
    ^ tabSelection = UIHelpTool label
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3032
!
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3033
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3034
isLayoutToolSelected
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3035
    "answers whether the current selected section in the noteBook is the Layout Tool"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3036
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3037
    ^ tabSelection = UILayoutTool label
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3038
!
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3039
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3040
isModified
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3041
    "answers whether the current window spec or a layout is modified"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3042
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3043
    ^ self modifiedChannel value
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3044
!
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3045
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3046
isPainterEnabled
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3047
    "answers whether I am running in test mode"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3048
217
354ba46948b4 access MenuEditor for specs
ca
parents: 206
diff changeset
  3049
    ^ self painter enabled
1608
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3050
!
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3051
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3052
isUIPainter
2ad8ca8b5260 isUIPainter query added
penk
parents: 1596
diff changeset
  3053
    ^ true
166
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3054
! !
cd5699643975 add tools: layout and specification tool
ca
parents: 161
diff changeset
  3055
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3056
!UIPainter methodsFor:'selection'!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3057
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3058
askForUnsavedModifications
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3059
    |whatToDo|
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3060
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3061
    self isModified ifFalse:[^ true].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3062
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3063
    whatToDo := DialogBox 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3064
                    confirmWithCancel:'Accept modifications in section ' , tabSelection printString asBoldText, ' ?'
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3065
                    labels:#('Cancel' 'Ignore' 'Accept')
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3066
                    default:3.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3067
    whatToDo isNil ifTrue:[^ false].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3068
    whatToDo == true ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3069
        self accept
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3070
    ] ifFalse:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3071
        self cancel
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3072
    ].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3073
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3074
    ^ true
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3075
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3076
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3077
copySelection
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3078
    self painter copySelection.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3079
    self updateChannels.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3080
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3081
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3082
selectionChangeAllowed:newSelection
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3083
    self isModified ifFalse:[^ true].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3084
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3085
    self autoAcceptOnSelectionChange value ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3086
        self accept
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3087
    ] ifFalse:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3088
        self askForUnsavedModifications ifFalse:[^ false].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3089
    ].
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3090
    ^ true
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3091
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3092
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3093
tabSelection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3094
    "returns the label of the current section in the notebook"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3095
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3096
    ^ tabSelection
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3097
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3098
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3099
tabSelection:something
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3100
    "called whenever the section of the notebook has changed"
351
7cb9f9c9a872 more checks
Claus Gittinger <cg@exept.de>
parents: 348
diff changeset
  3101
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3102
    (something isNil or:[tabSelection = something]) ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3103
        ^ self
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3104
    ].
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3105
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3106
    self autoAcceptOnSelectionChange value ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3107
        self accept
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3108
    ] ifFalse:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3109
        self askForUnsavedModifications ifFalse:[^ self].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3110
    ].
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3111
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3112
    tabSelection := something.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3113
    self raiseTabView.
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3114
    self cancel.
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3115
!
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3116
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3117
treeSelectionChanged
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3118
    "called whenever the selection of the treeview has changed"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3119
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3120
    |view spec property|
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3121
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3122
    self askForUnsavedModifications ifFalse:[^ self].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3123
"/    self isModified ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3124
"/        (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
  3125
"/            self accept
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3126
"/        ]
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3127
"/    ].
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3128
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  3129
    treeView isCanvasSelected ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3130
        spec := treeView canvasSpec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3131
        view := self painter topView.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3132
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3133
        (property := treeView propertySelected) notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3134
            treeView canResizeSelectedWidget ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3135
                view := property view.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3136
            ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3137
            spec := property spec copy.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3138
        ]
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  3139
    ].
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3140
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3141
    self setViewInLayoutTool:view spec:spec.
287
1ecabfd468dc HelpTool is seperated like LayoutTool
ca
parents: 282
diff changeset
  3142
    self specTool specification:spec.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3143
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3144
    self updateSlicesForSpec:spec andView:view.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3145
    self clearModifiedFlag.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3146
    self updateChannels.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3147
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3148
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3149
updateSlicesForSpec:spec andView:view
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3150
    |slices size list tabComponent|
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3151
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3152
    tabComponent := self componentAt:#noteBook.
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  3153
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3154
    spec notNil ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3155
        self helpTool helpKey:(spec activeHelpKey).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3156
        slices := spec class slices.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3157
        size   := slices size.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3158
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3159
        view notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3160
            self treeView isCanvasSelected 
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3161
            ifFalse:
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3162
            [
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3163
                list := Array new:(size + 2).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3164
                list at:(size + 2) put:(UILayoutTool label).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3165
            ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3166
            ifTrue:
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3167
            [
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3168
                list := Array new:(size + 1).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3169
                list at:(size + 1) put:(UILayoutTool label).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3170
            ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3171
        ] ifFalse:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3172
            list := Array new:(size + 1).
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3173
        ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3174
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3175
        1 to:size do:[:i| list at:i put:((slices at:i) first asString)].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3176
        self treeView isCanvasSelected ifFalse: [list at:(size + 1) put:(UIHelpTool label)].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3177
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3178
        self tabList value:list.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3179
        self showHelp:spec class name for:self.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3180
        tabComponent enabled:true.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3181
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3182
        (tabSelection := tabComponent selection) isNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3183
            tabComponent setSelection:(tabSelection := list first)
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3184
        ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3185
        self raiseTabView
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  3186
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3187
        self helpTool helpKey:nil.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3188
        tabComponent enabled:false.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3189
        self defaultInfoLabel.
272
99de6af43afa confirm/cancel changes before switching a section or widget
ca
parents: 271
diff changeset
  3190
    ].
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3191
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3192
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3193
!UIPainter methodsFor:'settings'!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3194
924
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3195
generateAspectsAsInstanceVariables
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3196
    "if on, aspects are held as instance variables;
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3197
     if off (the default), they are kept in the bindings dictionary.
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3198
    "
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3199
    ^ UIPainterView generateAspectsAsInstanceVariables
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3200
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3201
    "Created: / 29.7.1998 / 11:17:59 / cg"
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3202
!
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3203
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3204
generateAspectsAsInstanceVariables:aBoolean
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3205
    "if on, aspects are held as instance variables;
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3206
     if off (the default), they are kept in the bindings dictionary.
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3207
    "
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3208
    ^ UIPainterView generateAspectsAsInstanceVariables:aBoolean
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3209
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3210
    "Created: / 29.7.1998 / 11:18:20 / cg"
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3211
!
0416d7cbae92 reviewed help texts;
Claus Gittinger <cg@exept.de>
parents: 913
diff changeset
  3212
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3213
redefineAspectMethods
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3214
    "redefine methods yes or no. If a method is defined in super class
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3215
     should the message be reinstalled ?
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3216
    "
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3217
    ^ UIPainterView redefineAspectMethods
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3218
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3219
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3220
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3221
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3222
redefineAspectMethods:aBoolean
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3223
    "redefine methods yes or no. If a method is defined in super class
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3224
     should the message be reinstalled ?
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3225
    "
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3226
    UIPainterView redefineAspectMethods:aBoolean
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3227
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3228
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3229
! !
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3230
1716
5ae373f6fef0 method category rename
Claus Gittinger <cg@exept.de>
parents: 1714
diff changeset
  3231
!UIPainter methodsFor:'startup & release'!
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3232
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3233
closeRequest
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3234
    "close request"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3235
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3236
    self askForModification ifFalse:[^self].
133
e12f82d3afb7 popup box caused by a closeRequest with still open
ca
parents: 130
diff changeset
  3237
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3238
    treeView model removeDependent:self.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3239
    self painter release.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3240
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3241
    selectionPanel notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3242
	selectionPanel masterApplication:nil.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3243
	selectionPanel closeRequest
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3244
    ].
149
e652608690b1 help ...
ca
parents: 144
diff changeset
  3245
    selectionPanel := nil.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3246
    treeView       := nil.
149
e652608690b1 help ...
ca
parents: 144
diff changeset
  3247
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3248
    super closeRequest.
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3249
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3250
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3251
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3252
closeRequestFor:aTopView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3253
    "handles a close request for a specific view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3254
173
a8468f4e83f0 show/hide painter/gallery
ca
parents: 171
diff changeset
  3255
    |topView|
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3256
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3257
    (topView := self window) == aTopView ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3258
	super closeRequestFor:aTopView
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3259
    ] ifFalse:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3260
	aTopView = selectionPanel window ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3261
	    self galleryShown value:false
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3262
	] ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3263
	    aTopView == (self painter topView) ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3264
		self painterShown value:false
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3265
	    ] ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3266
		aTopView closeRequest
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3267
	    ]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3268
	].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3269
	topView raise.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3270
    ].
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3271
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3272
1185
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3273
loadFromMessage: aMessageString
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3274
    "loads a window spec by evaluating aMessageString
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3275
     (which is something like 'fooClass windowSpec')"
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3276
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3277
    |readStream aClass aSelector|
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3278
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3279
    ((aMessageString size > 0) and: [self askForModification])
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3280
    ifTrue:[
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3281
        readStream := aMessageString readStream.
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3282
        (aClass := Smalltalk at: (readStream upTo: $ ) asSymbol) notNil
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3283
        ifTrue:[
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3284
            aSelector :=  readStream upToEnd asSymbol.
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3285
            self setClass: aClass selector: aSelector.    
1671
493e0430518e no longer use InputView
ca
parents: 1669
diff changeset
  3286
1185
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3287
            (aClass respondsTo:aSelector) ifTrue:[   
1671
493e0430518e no longer use InputView
ca
parents: 1669
diff changeset
  3288
                self painter setupFromSpec:(aClass perform:aSelector).
1185
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3289
            ]
6c14008722e9 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1180
diff changeset
  3290
        ]
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3291
    ]
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3292
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3293
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3294
openInterface:aSymbol 
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3295
    "opens the interface on the selector aSymbol"
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3296
    
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3297
    |cls painterView painter topView galleryWindow icon name|
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3298
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3299
    modified := false.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3300
    aspects := IdentityDictionary new.
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3301
    specClass notNil ifTrue:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3302
        specClass isBehavior ifTrue:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3303
            name := specClass nameWithoutPrefix.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3304
        ] ifFalse:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3305
            name := specClass printString string
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3306
        ]
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3307
    ].
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3308
    aspects at:#classNameChannel
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3309
        put:((specClass notNil ifTrue:[ specClass ] ifFalse:[ 'NewApplication' ]) 
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3310
                asValue).
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3311
    specSuperclass isNil ifTrue:[
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3312
        specClass notNil ifTrue:[
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3313
            (cls := self resolveName:specClass) notNil ifTrue:[
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3314
                specSuperclass := cls superclass name.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3315
            ]
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3316
        ]
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3317
    ].
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3318
    aspects at:#superclassNameChannel
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3319
        put:((specSuperclass notNil 
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3320
                ifTrue:[ specSuperclass ]
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3321
                ifFalse:[ 'ApplicationModel' ]) asValue).
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3322
    aspects at:#superclassNameDefaults
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3323
        put:#( 'ApplicationModel' 'SimpleDialog' ) asValue.
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3324
    aspects at:#methodNameChannel
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3325
        put:((specSelector notNil 
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3326
                ifTrue:[ specSelector asValue ]
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3327
                ifFalse:[ #windowSpec ]) asValue).
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3328
    treeView := TreeView new.
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  3329
    treeView windowSpecClass:(self defaultWindowSpecClass).
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3330
    treeView 
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3331
        selectConditionBlock:[:newSelection | self selectionChangeAllowed:newSelection ].
136
42a2a4494281 remove postOpen
ca
parents: 133
diff changeset
  3332
    painterView := StandardSystemView new.
1397
054670838983 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1396
diff changeset
  3333
    name := name ? UIPainter defaultNameOfCanvas.
1868
535504d9501f *** empty log message ***
ca
parents: 1863
diff changeset
  3334
    painterView beToolWindow.
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3335
    painterView name:name.
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3336
    painterView label:name.
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3337
    painterView extent:(treeView windowSpecClass defaultExtentInUIPainter).
136
42a2a4494281 remove postOpen
ca
parents: 133
diff changeset
  3338
    painter := UIPainterView in:painterView.
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3339
    painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3340
    treeView := treeView canvas:painter specName:name.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3341
    painter treeView:treeView.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  3342
    treeView model addDependent:self.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3343
    super openInterface:aSymbol.
136
42a2a4494281 remove postOpen
ca
parents: 133
diff changeset
  3344
    topView := self window.
345
c4d8f4c74c26 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 344
diff changeset
  3345
    topView label:'GUI Painter'.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3346
    painterView openInGroup:(topView windowGroup).
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3347
    painterView application:self.
1461
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  3348
    selectionPanel := self selectionPanelClass new.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3349
    selectionPanel allButOpenInterface:#windowSpec.
1868
535504d9501f *** empty log message ***
ca
parents: 1863
diff changeset
  3350
    galleryWindow := selectionPanel window.
535504d9501f *** empty log message ***
ca
parents: 1863
diff changeset
  3351
    galleryWindow beToolWindow.
535504d9501f *** empty log message ***
ca
parents: 1863
diff changeset
  3352
    galleryWindow openInGroup:(topView windowGroup).
535504d9501f *** empty log message ***
ca
parents: 1863
diff changeset
  3353
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3354
    selectionPanel masterApplication:self.
1273
4703a5b17114 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1270
diff changeset
  3355
    icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3356
    topView iconLabel:'GUI Painter'.
1270
8e1a2c6db256 try my bitmaps in package directory
Claus Gittinger <cg@exept.de>
parents: 1247
diff changeset
  3357
    topView icon:icon.
1046
b3994c5e5e2f checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1041
diff changeset
  3358
    painterView iconLabel:'GUI Canvas'.
1270
8e1a2c6db256 try my bitmaps in package directory
Claus Gittinger <cg@exept.de>
parents: 1247
diff changeset
  3359
    painterView icon:icon.
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3360
    
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3361
"/    painterView topView raise.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3362
    topView bePartner.
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3363
    painterView bePartner.
1193
ada18c876301 partners must be remapped (at old position)
Claus Gittinger <cg@exept.de>
parents: 1192
diff changeset
  3364
    galleryWindow bePartner.
ada18c876301 partners must be remapped (at old position)
Claus Gittinger <cg@exept.de>
parents: 1192
diff changeset
  3365
    galleryWindow iconLabel:'GUI Gallery'.
1270
8e1a2c6db256 try my bitmaps in package directory
Claus Gittinger <cg@exept.de>
parents: 1247
diff changeset
  3366
    galleryWindow icon:icon.
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3367
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3368
    selectionPanel window waitUntilVisible.
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3369
    painterView window waitUntilVisible.
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3370
    self window waitUntilVisible.
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3371
    [ Delay waitForSeconds:0.5. self window topView raise ] fork.
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3372
!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3373
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3374
openOnClass:aClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3375
    "opens the GUI Painter on aClass and #windowSpec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3376
109
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3377
    self openOnClass:aClass andSelector:#windowSpec
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3378
!
0b53bd128667 *** empty log message ***
ca
parents: 101
diff changeset
  3379
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3380
openOnClass:aClass andSelector:aSelector
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3381
    "opens the GUI Painter on aClass and aSelector
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3382
    "
157
ce974dce3dd4 enhanced class & method dialog
Claus Gittinger <cg@exept.de>
parents: 156
diff changeset
  3383
    aClass isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3384
	(self confirm:'No class given to the GUI Painter (class was probably renamed?)\\Open anyway (to create a new window spec) ?' withCRs)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3385
	ifFalse:[^ nil].
157
ce974dce3dd4 enhanced class & method dialog
Claus Gittinger <cg@exept.de>
parents: 156
diff changeset
  3386
    ].
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3387
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3388
    specSelector := aSelector.
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3389
    specClass := aClass.
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3390
964
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  3391
    self openInterface.
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  3392
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  3393
"/    specSelector := aSelector.
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  3394
"/    specClass := aClass.
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  3395
476235fbb312 setup class/selector, before opening the interface;
Claus Gittinger <cg@exept.de>
parents: 952
diff changeset
  3396
    "Modified: / 21.8.1998 / 20:59:15 / cg"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3397
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3398
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3399
postBuildWith: aBuilder
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3400
    "sets the root of the tree view as first selection;
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3401
     sets the grid parameters, if defined"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3402
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3403
    |painter settings gridPara hspace vspace cls sel|
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3404
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3405
    super postBuildWith:aBuilder.
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3406
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3407
    cls := specClass.
966
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3408
    cls isString ifTrue:[
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3409
        cls := Smalltalk at:(cls string asSymbol)
966
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3410
    ].
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3411
    sel := specSelector.
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3412
    specSelector := nil.
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3413
    specClass    := nil.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3414
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3415
    painter  := self painter.
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3416
    settings := self class settings.
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3417
    gridPara := painter gridParameters copy.
1059
ecb59576e1e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1058
diff changeset
  3418
    hspace   := settings at: #HGridSpace ifAbsent:10.
ecb59576e1e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1058
diff changeset
  3419
    vspace   := settings at: #VGridSpace ifAbsent:10.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3420
    gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace.
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3421
    painter gridParameters:gridPara.
1059
ecb59576e1e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1058
diff changeset
  3422
    painter gridShown: (settings at: #GridShown ifAbsent:false).
ecb59576e1e6 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1058
diff changeset
  3423
    painter gridAlign: (settings at: #GridAlign ifAbsent:false).
1803
a0f73e1695e1 clear -> clearView
Claus Gittinger <cg@exept.de>
parents: 1801
diff changeset
  3424
    painter shown ifTrue:[painter clearView].
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3425
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3426
    cls notNil ifTrue:[
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3427
        self setClass:cls selector:sel.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3428
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3429
        (cls respondsTo:sel) ifTrue:[  
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3430
            painter setupFromSpec:(cls perform:sel).
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3431
        ]
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3432
    ].
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3433
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3434
    self autoAcceptOnSelectionChange addDependent:self.
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3435
    self autoAcceptOnSelectionChange value ifTrue:[
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3436
        (builder componentAt:'acceptButton') label:(resources string:'Apply')
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3437
    ].
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3438
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3439
    "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
  3440
!
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3441
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3442
postOpenWith: aBuilder
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3443
    "sets the initial selection"
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3444
1194
651885033545 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1193
diff changeset
  3445
    |myWindow canvasWindow canvasOrg galleryWindow 
651885033545 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1193
diff changeset
  3446
     galleryOrg myOrg myCorner|
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3447
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3448
    super postOpenWith: aBuilder.
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3449
    treeView selection: #(1).
1247
6fb170b75302 clear menuBar in keyProcessor
ca
parents: 1230
diff changeset
  3450
    aBuilder keyboardProcessor menuBar:nil.
798
c1116ba57e66 set window specification after realization of the window
ca
parents: 794
diff changeset
  3451
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3452
    myWindow := self window.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3453
    canvasWindow := self painter topView.
1456
7435d111bb09 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3454
    [selectionPanel isNil] whileTrue:[
7435d111bb09 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3455
        Delay waitForSeconds:0.1.
7435d111bb09 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1453
diff changeset
  3456
    ].
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3457
    galleryWindow := selectionPanel window.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3458
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3459
    myOrg := myWindow origin.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3460
    myCorner := myWindow corner.
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3461
1197
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3462
    "/ try to lay out things non-overlapping
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3463
    "/ 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
  3464
    "/ on top of each other
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3465
    myOrg = canvasWindow origin ifTrue:[
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3466
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3467
        canvasOrg := 10@20.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3468
"/        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
  3469
        galleryOrg := (device width - galleryWindow width - 20) 
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3470
                      @ 
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3471
                      ((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
  3472
        myWindow origin:myOrg.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3473
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3474
        canvasWindow origin:canvasOrg.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3475
        galleryWindow origin:galleryOrg.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3476
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3477
        galleryWindow raise.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3478
        canvasWindow raise.
ef91ed58b7d4 only move canvas & gallery, if windowManager placed windows
Claus Gittinger <cg@exept.de>
parents: 1195
diff changeset
  3479
    ].
1192
f3f5c92930c9 do painter setup in postBuild, selection in postOpen.
Claus Gittinger <cg@exept.de>
parents: 1188
diff changeset
  3480
1195
64f3537ca061 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1194
diff changeset
  3481
    "Modified: / 13.7.1999 / 21:26:52 / cg"
1461
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  3482
!
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  3483
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  3484
selectionPanelClass
b061747908b5 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1457
diff changeset
  3485
    ^ UISelectionPanel
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3486
! !
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  3487
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3488
!UIPainter methodsFor:'user actions'!
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3489
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3490
accept
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3491
    "accepts all modifications done to the attributes of the current section"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3492
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3493
    |painter layout spec layoutTool layoutView t|
1068
dcb2cba5787f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  3494
dcb2cba5787f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1063
diff changeset
  3495
    self acceptChannel value:true; value:false.  "/ force editFields to accept
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3496
    self clearModifiedFlag.
788
8f9f3c3fcf60 avoid modified problems
tz
parents: 787
diff changeset
  3497
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3498
    painter := self painter.
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3499
    spec := self specTool specification.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3500
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3501
    self isLayoutToolSelected ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3502
        layoutTool := self layoutTool.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3503
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3504
        (layout := layoutTool layout) notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3505
            layoutTool layoutType == #Extent ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3506
                layoutView := layoutTool layoutView.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3507
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3508
                layoutView == painter topView ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3509
                    layoutView extent:layout
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3510
                ] ifFalse:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3511
                    spec useDefaultExtent:(layoutTool aspectFor:#useDefaultExtent) value.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3512
                    spec useDefaultExtent ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3513
                        "/ temporarily unfreeze the widgets size
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3514
                        "/ (but remember, the old setting, which is actually
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3515
                        "/ controlled by the resizeForLabel attribute)
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3516
                        t := layoutView sizeFixed.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3517
                        layoutView sizeFixed:false.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3518
                        layout := layoutView preferredExtent.    
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3519
                        layoutView sizeFixed:t.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3520
                    ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3521
                    painter setExtent:layout.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3522
                    painter updateFromSpec:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3523
                ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3524
            ] ifFalse:[
1444
fec7424dccda clear the useDefaultExtent flag, if the layout is NOT an extent
martin
parents: 1442
diff changeset
  3525
                spec useDefaultExtent:false.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3526
                painter setLayout:layout
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3527
            ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3528
        ]
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3529
    ] ifFalse:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3530
        self isHelpToolSelected ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3531
            self helpTool accept.      
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3532
            spec activeHelpKey:self helpTool helpKey.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3533
        ].      
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3534
        painter updateFromSpec:spec
1071
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3535
    ].
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3536
560a9eb1a5d8 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1068
diff changeset
  3537
    modified := false.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3538
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3539
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3540
addWidget: aSpecClass
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3541
    "adds a widget from aSpecClass to the current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3542
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3543
    self addWidgetOfSpec: (Array with: (Smalltalk at: aSpecClass) new)
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3544
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3545
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3546
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3547
addWidgetOfSpec: aSpec
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3548
    "adds a widget from aSpec to the current widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3549
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3550
    |newSel|
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3551
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3552
    (newSel := self pasteSpecifications:aSpec keepLayout:false at:0@0) notNil
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3553
    ifTrue:
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3554
    [
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3555
        self select: newSel
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3556
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3557
    ifFalse:
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3558
    [   
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3559
        ((treeView selection size = 0) or: [treeView selectedNode isNil])
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3560
        ifTrue:
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3561
        [                          
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3562
            treeView selection: #(1).
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3563
        ]
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3564
        ifFalse:
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3565
        [  
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3566
            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
  3567
        ].
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3568
        self addWidgetOfSpec: aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3569
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3570
1521
2efd2b9419c4 undo: show type of undo in menu;
Claus Gittinger <cg@exept.de>
parents: 1499
diff changeset
  3571
    "Modified: / 30.10.2001 / 13:22:25 / cg"
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3572
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3573
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3574
cancel
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3575
    "cancels all modifications done to the attributes of the current section; 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3576
     reread the old attributes"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3577
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3578
    |spec key view|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3579
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3580
    self isModified ifTrue:[
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3581
        (spec := self painter specForSelection) notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3582
            key := spec activeHelpKey.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3583
        ].
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3584
        self helpTool helpKey:key.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3585
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3586
        treeView isCanvasSelected ifTrue: [
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3587
            spec := treeView canvasSpec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3588
        ].
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3589
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3590
        self specTool specification:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3591
        view := self layoutTool layoutView.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3592
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3593
        self setViewInLayoutTool:view spec:spec.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3594
        spec class == DataSetSpec ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3595
            view notNil ifTrue:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3596
                view columnDescriptors:(spec columns)
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3597
            ]
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3598
        ].        
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3599
        self clearModifiedFlag.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3600
        modified := false.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3601
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3602
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3603
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3604
doBrowseAspectMethods
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3605
    "opens a browser on the aspect methods"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3606
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3607
    |methods|
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3608
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3609
    self painter isModified ifTrue:[
1392
f6f7a70c5d41 browserClass from preferences
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  3610
        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
  3611
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3612
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3613
    (methods := self painter aspectMethods) isEmpty ifTrue:[
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3614
        self warn:'No aspect methods found !!'.
1392
f6f7a70c5d41 browserClass from preferences
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  3615
        ^ self.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3616
    ].
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3617
    UserPreferences systemBrowserClass 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3618
        browseMethods:methods 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3619
        title:'Aspect methods'.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3620
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3621
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3622
doBrowseClass
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3623
    "opens a System Browser on the specClass"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3624
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3625
    self painter isModified ifTrue:[
1392
f6f7a70c5d41 browserClass from preferences
Claus Gittinger <cg@exept.de>
parents: 1391
diff changeset
  3626
        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
  3627
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3628
1487
846527ddac8b UserPreference access
Claus Gittinger <cg@exept.de>
parents: 1466
diff changeset
  3629
    UserPreferences systemBrowserClass openInClass:(self resolveName:specClass)
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3630
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3631
1742
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3632
doBrowseViewClass
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3633
    "opens a browser on the selected widgets class"
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3634
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3635
    |selection|
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3636
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3637
    ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3638
        selection first class browse
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3639
    ] ifFalse: [
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3640
        selection class browse
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3641
    ]
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3642
!
4c39c2f1dcc7 help texts
Claus Gittinger <cg@exept.de>
parents: 1739
diff changeset
  3643
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3644
doDefineClassAndSelector
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3645
    "launches a dialog for defining class, superclass, and selector of the application"
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3646
1819
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3647
    |again readFromModelKeyed|
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3648
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3649
    readFromModelKeyed := [:aKey| |ret|
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3650
        ret := (self aspectFor:aKey) value.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3651
        ret isEmptyOrNil ifTrue:[
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3652
            ret := nil
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3653
        ] ifFalse:[
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3654
            ret isString ifTrue:[
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3655
                ret := ret string withoutSeparators.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3656
                ret := ret isEmpty ifTrue:[nil] ifFalse:[ret asSymbol].
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3657
            ].
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3658
        ].
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3659
        ret
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3660
    ].
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3661
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3662
    [
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3663
        again := false.
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3664
1819
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3665
        aspects at:#classNameChannel      put:(specClass      ? 'NewApplication')   asValue.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3666
        aspects at:#methodNameChannel     put:(specSelector   ? 'windowSpec')       asValue.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3667
        aspects at:#superclassNameChannel put:(specSuperclass ? 'ApplicationModel') asValue.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3668
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3669
        (self openDialogInterface:#dialogSpecForDefiningClassAndSelector) ifTrue:[
1819
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3670
            specClass      := readFromModelKeyed value:#classNameChannel.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3671
            specSelector   := readFromModelKeyed value:#methodNameChannel.
cbf2079fd723 bugfix: test whether specClass is a symbol not a string
ca
parents: 1803
diff changeset
  3672
            specSuperclass := readFromModelKeyed value:#superclassNameChannel.
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3673
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3674
            (again := self checkClassAndSelector not) ifFalse:[
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3675
                self painter className:specClass
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3676
                        superclassName:specSuperclass
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3677
                              selector:specSelector.
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3678
            ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3679
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3680
            again ifFalse:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3681
                ((Smalltalk at:specClass asSymbol) notNil
1554
d5e4612bf7cf implements -> includesSelector
Claus Gittinger <cg@exept.de>
parents: 1545
diff changeset
  3682
                and:[ (Smalltalk at:specClass asSymbol) class includesSelector:specSelector ])
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3683
                ifTrue:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3684
                    (self confirm:('%1 already implements %2. Overwrite ?' bindWith:specClass with:specSelector))
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3685
                    ifFalse:[
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3686
                        again := true.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3687
                    ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3688
                ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3689
            ].
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  3690
        ] ifFalse: [
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3691
            ^nil
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3692
        ]
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3693
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3694
    ] doWhile:[again].
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3695
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3696
    specClass := specClass isBehavior ifTrue:[specClass name]
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3697
                                      ifFalse:[specClass].
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3698
1188
4805027d9d33 code cleanup
Claus Gittinger <cg@exept.de>
parents: 1186
diff changeset
  3699
    self clearModifiedFlag.
1663
60bd14266560 *** empty log message ***
ca
parents: 1661
diff changeset
  3700
    self helpTool buildAndMergeFromClass:specClass.
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3701
    self updateInfoLabel
892
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3702
b200d2d9bf5e avoid repeated send-sequences
Claus Gittinger <cg@exept.de>
parents: 890
diff changeset
  3703
    "Modified: / 16.7.1998 / 18:26:33 / cg"
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3704
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3705
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3706
doDefineGrid
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3707
    "opens a dialog for the grid parameters"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3708
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3709
    |hspace vspace bindings painter gridPara settings|
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3710
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3711
    painter  := self painter.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3712
    bindings := IdentityDictionary new.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3713
    gridPara := painter gridParameters copy.
1021
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  3714
    settings := self class settings.
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  3715
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  3716
    bindings at:#showGrid    put:((settings at: #GridShown ifAbsent: [painter gridShown]) asValue).
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  3717
    bindings at:#alignToGrid put:((settings at: #GridAlign ifAbsent: [painter gridAlign]) asValue).
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3718
    bindings at:#hspace      put:((gridPara at:1) asValue).
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3719
    bindings at:#vspace      put:((gridPara at:2) asValue).
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3720
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3721
    (self openDialogInterface:#dialogSpecForDefiningGridParameters withBindings:bindings) ifFalse:[
1803
a0f73e1695e1 clear -> clearView
Claus Gittinger <cg@exept.de>
parents: 1801
diff changeset
  3722
        ^ self
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3723
    ].
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3724
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3725
    hspace := (bindings at:#hspace) value ? 5.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3726
    vspace := (bindings at:#vspace) value ? 5.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3727
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3728
    gridPara at:1 put:hspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3729
    gridPara at:2 put:vspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3730
    gridPara at:5 put:hspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3731
    gridPara at:6 put:vspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3732
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3733
    painter gridShown:false. 
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3734
    painter gridAlign:false. 
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3735
    painter gridParameters:gridPara.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3736
    painter gridAlign:(bindings at:#alignToGrid) value.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3737
    painter gridShown:(bindings at:#showGrid) value.
1021
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  3738
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3739
    settings at: #GridShown  put: (bindings at:#showGrid) value.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3740
    settings at: #GridAlign  put: (bindings at:#alignToGrid) value.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3741
    settings at: #HGridSpace put: hspace.
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3742
    settings at: #VGridSpace put: vspace.
1803
a0f73e1695e1 clear -> clearView
Claus Gittinger <cg@exept.de>
parents: 1801
diff changeset
  3743
    painter clearView.
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3744
1021
8c1deb0281c7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 984
diff changeset
  3745
    "Modified: / 4.2.1999 / 15:36:34 / cg"
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3746
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3747
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3748
doGenerateAspectMethodFor
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3749
    |cls code aspectList displayedList selectorsToGenerateCode 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3750
     doBrowse methods|
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3751
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3752
    self askForSectionModification.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3753
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3754
    cls := self targetClass.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3755
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3756
    aspectList := OrderedCollection new.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3757
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3758
    self aspectSelectorsAndTypesDo:
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3759
        [:selector :type | 
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3760
            ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3761
                (cls includesSelector:selector) ifFalse:[
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3762
                    aspectList add:( Array with:selector with:type ).
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3763
                ]
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3764
            ]
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3765
        ].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3766
    
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3767
    aspectList isEmpty ifTrue:[
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3768
        self information:'All aspect methods exist.'.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3769
        ^ self.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3770
    ].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3771
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3772
    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
  3773
    aspectList := aspectList collect:[:each | each first].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3774
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3775
    doBrowse := false.    
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3776
    selectorsToGenerateCode := Dialog
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3777
        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
  3778
        fromList:displayedList 
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3779
        values:aspectList 
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3780
        initialSelection:nil
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3781
        buttons:nil 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3782
        values:nil 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3783
        lines:15 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3784
        cancel:nil 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3785
        multiple:true
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3786
        postBuildBlock:[:dialog | 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3787
                            |b|
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3788
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3789
                            b := Button label:'Generate & Browse'.
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3790
                            b action:[doBrowse := true. dialog okPressed].
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3791
                            b := dialog addButton:b before:dialog okButton.
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3792
                       ].
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3793
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3794
    selectorsToGenerateCode isEmptyOrNil ifTrue:[^ self].
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3795
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3796
    code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3797
    code readStream fileIn.
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3798
1689
5d02658c548a must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
  3799
    "/ refetch - cls is now obsolete
5d02658c548a must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
  3800
    cls := self targetClass.
5d02658c548a must refetch class after adding instVars (when generating aspects)
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
  3801
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3802
    doBrowse ifTrue:[
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3803
        methods := selectorsToGenerateCode 
1739
f7baa10ebb1c Delete #max: (- windowsize) in windowSpecs
Stefan Vogel <sv@exept.de>
parents: 1719
diff changeset
  3804
                        collect:[:sel | cls compiledMethodAt:sel]
1684
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3805
                        thenSelect:[:m | m notNil].
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3806
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3807
        UserPreferences systemBrowserClass 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3808
            browseMethods:methods 
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3809
            title:'Some Aspect methods'.
34b35b8ae80f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1683
diff changeset
  3810
    ].
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3811
!
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3812
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3813
doGenerateAspectMethods
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3814
    "generates aspect and action methods for the application class"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3815
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3816
    self askForSectionModification.
1683
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3817
    self withWaitCursorDo:[
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3818
        |code|
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3819
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3820
        code := self painter generateAspectMethodCode.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3821
        code readStream fileIn.
f95658463570 added selective aspect method generation.
Claus Gittinger <cg@exept.de>
parents: 1671
diff changeset
  3822
    ]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3823
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3824
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3825
doGenerateAspectSelectorsMethod
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3826
    "generates aspectSelectors method for the exported aspects"
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3827
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3828
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3829
    self askForSectionModification.
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3830
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3831
    (ReadStream on:self painter generateAspectSelectorsMethod) fileIn.
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3832
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3833
!
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  3834
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  3835
doGenerateHookMethods
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3836
    "generates hook methods for the application class"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3837
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3838
    self askForSectionModification.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3839
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3840
    (ReadStream on:self painter generateHookMethods) fileIn.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3841
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3842
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3843
966
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3844
doGenerateMenuMethods
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3845
    "generates menu stub methods for the application class"
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3846
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3847
    self askForSectionModification.
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3848
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3849
    (ReadStream on:self painter generateMenuMethods) fileIn.
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3850
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3851
    "Created: / 23.8.1998 / 16:10:04 / cg"
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3852
!
bbea01c1de98 added menu-action code generation
Claus Gittinger <cg@exept.de>
parents: 964
diff changeset
  3853
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3854
doInspectSpec
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3855
    "opens an inspector on the spec of the selected widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3856
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3857
    |spec|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3858
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3859
    (spec := self specForSelection) isNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3860
	treeView isCanvasSelected ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3861
	    spec := treeView canvasSpec.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3862
	]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3863
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3864
    spec notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3865
	spec inspect
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3866
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3867
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3868
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3869
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3870
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3871
doInspectView
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3872
    "opens an inspector on the view of the selected widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3873
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3874
    |selection|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3875
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3876
    ((selection := self painter selection) isCollection and: [selection size >= 1]) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3877
	selection first inspect
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3878
    ] ifFalse: [
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3879
	selection inspect
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3880
    ]
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3881
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3882
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3883
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3884
doLoad
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3885
    "opens a ResourceSelectionBrowser for loading a window spec from a class"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3886
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3887
    self askForModification ifFalse: [^nil].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3888
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3889
    self loadFromMessage: 
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3890
	(ResourceSelectionBrowser
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3891
	    request: 'Load Window Spec From Class'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3892
	    onSuperclass: nil
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3893
	    andClass: specClass
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3894
	    andSelector: specSelector ? #windowSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3895
	    withResourceTypes: #(canvas))
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3896
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3897
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3898
doLoadSubspec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3899
    "opens a ResourceSelectionBrowser for loading a sub spec from a class"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3900
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3901
    |subSpecMessage|
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3902
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3903
    self askForSectionModification.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3904
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3905
    (subSpecMessage := ResourceSelectionBrowser
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3906
	    request: 'Load Subspec From Class'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3907
	    onSuperclass: nil
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3908
	    andClass: specClass
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3909
	    andSelector: specSelector
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3910
	    withResourceTypes: #(canvas)) notNil
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3911
    ifTrue:
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3912
    [
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3913
	|readStream aClass aSelector|
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3914
	readStream := subSpecMessage readStream.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3915
	(aClass := Smalltalk at: (readStream upTo: $ ) asSymbol) notNil
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3916
	ifTrue:
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3917
	[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3918
	    aSelector :=  readStream upToEnd asSymbol.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3919
	    (aClass name == specClass and: [aSelector == specSelector]) ifTrue: [^self warn: 'Current interface as subspec not allowed!!'].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3920
	    (aClass respondsTo:aSelector) 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3921
	    ifTrue:
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3922
	    [
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3923
		self addWidgetOfSpec: (Array with: (UISubSpecification new majorKey: aClass name; minorKey: aSelector))
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3924
	    ]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3925
	]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3926
    ]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3927
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3928
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3929
doNew
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3930
    "removes all widgets, specClass, and specSelector"
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3931
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3932
    self askForModification ifFalse: [^nil].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3933
    specClass := specSelector := nil.
572
ac2a1dd83d28 open tutorial added
tz
parents: 565
diff changeset
  3934
    self painter removeAll.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3935
    treeView canvas topView name:  UIPainter defaultNameOfCanvas.
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3936
    treeView canvas topView label: UIPainter defaultNameOfCanvas.
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  3937
    self helpTool doNew.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  3938
    self treeSelectionChanged.
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3939
    treeView selectedNode changed.
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  3940
    self tabModel value: self tabList value first.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3941
    self updateInfoLabel.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3942
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3943
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3944
doOpenWidgetDocumentation
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3945
    "opens documentation for the selected widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3946
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3947
    |spec document|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3948
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3949
    (spec := self specForSelection) isNil ifTrue:[
1204
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  3950
        treeView isCanvasSelected ifTrue:[
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  3951
            spec := nil
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  3952
        ]
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3953
    ].
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3954
    spec notNil ifTrue:[
1204
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  3955
        document := 'tools/uipainter/', spec documentFileName,'.html'
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3956
    ] ifFalse: [
1204
faff065c78fd replace userFriendlyName by
Claus Gittinger <cg@exept.de>
parents: 1197
diff changeset
  3957
        document := 'tools/uipainter/WindowSpec.html'
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3958
    ].
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3959
    HTMLDocumentView openFullOnDocumentationFile: document 
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3960
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3961
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3962
!
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3963
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3964
doPickAView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3965
    "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
  3966
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3967
    |view|
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3968
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3969
    self askForModification ifFalse: [^nil].
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3970
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3971
    (view := Screen current viewFromUser) notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3972
	view == Screen current rootView ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3973
	    self painter setupFromSpec:(UISpecification fromView:view topView).
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  3974
	]
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3975
    ].
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3976
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3977
    self updateInfoLabel
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  3978
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3979
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  3980
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3981
doSave
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3982
    "saves the window spec"
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3983
    
1574
e4897b61395c Remove unused method var
Stefan Vogel <sv@exept.de>
parents: 1572
diff changeset
  3984
    |code painter cls|
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3985
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  3986
    self askForSectionModification.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3987
    self hasSpecClassAndSelector ifFalse:[
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3988
        self doDefineClassAndSelector isNil ifTrue:[
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3989
            ^ nil
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3990
        ]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3991
    ].
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3992
    
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3993
    (specClass notNil 
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3994
        and:[ (cls := Smalltalk at:specClass asSymbol) isClass ]) 
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3995
            ifFalse:[
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3996
                self warn:('Oops - cannot save - class not found: ' , specClass).
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3997
                ^ nil
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  3998
            ].
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  3999
    painter := self painter.
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4000
    painter 
1341
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  4001
        className:specClass
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  4002
        superclassName:specSuperclass
83fe4fae7c10 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1338
diff changeset
  4003
        selector:specSelector.
1851
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4004
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4005
"/    Transcript showCR:'generating windowSpec code...'.
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4006
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4007
    (painter topView extent > (800 @ 600)) ifTrue:[
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4008
        Dialog 
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4009
            warn:(resources
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4010
                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.'
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4011
                with:painter topView extent printString allBold)
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4012
    ].
d036350188f5 warn if spec is saved too large
Claus Gittinger <cg@exept.de>
parents: 1850
diff changeset
  4013
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4014
    code := painter generateWindowSpecMethodSource withCRs.
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4015
    (ReadStream on:code) fileIn.
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4016
    self doGenerateAspectSelectorsMethod.
1669
e6ea33c843a0 *** empty log message ***
ca
parents: 1663
diff changeset
  4017
    self helpTool doSave.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4018
    self updateInfoLabel.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  4019
    modified := false.
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4020
    painter resetModification.
1850
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  4021
    (cls class includesSelector:specSelector) ifTrue:[
410f98d259b7 kludge to raise the ui-painters control window
Claus Gittinger <cg@exept.de>
parents: 1827
diff changeset
  4022
        self addToHistory:(specClass , ' ' , specSelector) -> #loadFromMessage:.
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4023
    ].
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4024
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4025
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4026
doSaveAs
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4027
    "opens a ResourceSelectionBrowser for saving the window spec on a class"
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4028
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4029
    |resourceMessage|
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4030
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4031
    self askForSectionModification.
729
12f157d5e017 askings for modifications completed (?)
tz
parents: 724
diff changeset
  4032
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4033
    (resourceMessage := ResourceSelectionBrowser
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4034
	    request: 'Save Window Spec In Class'
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4035
	    onSuperclass: #Object
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4036
	    andClass: (specClass ? #ApplicationModel) asSymbol
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4037
	    andSelector: specSelector ? #windowSpec
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4038
	    withResourceTypes: #(canvas)) notNil
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4039
    ifTrue:
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4040
    [
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4041
	modified := false.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4042
	self painter resetModification.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4043
	(self resourceMessage: resourceMessage)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4044
	ifTrue:
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4045
	[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4046
	    self doSave.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4047
	    ^true
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4048
	]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4049
    ]
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4050
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4051
!
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4052
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4053
doStartApplication
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4054
    "starts the application on the editing window spec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4055
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4056
    |cls application|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4057
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4058
    self hasSpecClassAndSelector ifFalse:[
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4059
        self doSave isNil ifTrue: [^nil].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4060
    ] ifTrue: [
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4061
        self askForSectionModification.    
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4062
        (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
  4063
        ifTrue:
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4064
        [
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4065
            ((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
  4066
                noText:'Cancel';
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4067
                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
  4068
                showAtPointer;
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4069
                accepted) ifFalse: [^nil].
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4070
            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
  4071
        ]
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4072
    ].
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4073
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4074
    cls := self resolveName:specClass.
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4075
    cls isNil ifTrue:[
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4076
        self warn:'Oops cannot start application - no class:' , specClass.
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4077
        ^ nil
1177
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4078
    ].
57a2a0edeb79 namespace resolving
Claus Gittinger <cg@exept.de>
parents: 1174
diff changeset
  4079
    ((application := cls new) respondsTo:#openInterface:) ifFalse:[
1442
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4080
        (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
  4081
        ifTrue:[
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4082
            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
  4083
        ].
ed108e53c783 allow opening a dialog for a non-dialog/appmodel class
Claus Gittinger <cg@exept.de>
parents: 1439
diff changeset
  4084
        ^ self.
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4085
    ].        
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4086
    application openInterface:specSelector
446
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4087
!
b513a621a7a4 new toolbar + other features added
tz
parents: 440
diff changeset
  4088
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4089
doStepDown
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4090
    "moves the selected widget one step down in the hierarchy"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4091
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4092
    treeView doStepOver:1
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4093
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4094
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4095
doStepIn
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4096
    "moves the selected widget into the next widget as child"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4097
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4098
    treeView doStepIn
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4099
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4100
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4101
doStepOut
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4102
    "moves the selected widget out of the parent widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4103
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4104
    treeView doStepOut
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4105
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4106
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4107
doStepUp
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4108
    "moves the selected widget one step up in the hierarchy"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4109
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4110
    treeView doStepOver:-1
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4111
!
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4112
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4113
doWindowSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4114
    "opens a code view with the contents of the window spec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4115
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4116
    self askForSectionModification.
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4117
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4118
    CodeView 
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4119
	openWith: self painter generateWindowSpecMethodSource 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4120
	title: 'Window Spec'
743
d58a3e7e39d5 support user defined font styles
tz
parents: 735
diff changeset
  4121
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4122
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4123
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4124
!UIPainter::TreeView class methodsFor:'documentation'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4125
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4126
documentation
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4127
"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4128
    selection in tree view; only used by the UIPainter
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4129
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4130
    [see also:]
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4131
	SelectionInTreeView
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4132
	SelectionInTree
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4133
	TreeItem
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4134
	UIPainter
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4135
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4136
    [author:]
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4137
	Claus Atzkern
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4138
"
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4139
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4140
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4141
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4142
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4143
!UIPainter::TreeView methodsFor:'accessing'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4144
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4145
canvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4146
    "returns the canvas (UIPainterView)"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4147
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4148
    ^ model root contents view
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4149
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4150
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4151
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4152
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4153
canvas:aCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4154
    "install canvas (UIPainterView)"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4155
1396
58c4d1027a5e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1395
diff changeset
  4156
    self canvas:aCanvas specName:nil
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4157
!
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4158
1394
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4159
canvas:aCanvas specName:nameOfSpec
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4160
    "install canvas (UIPainterView)"
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4161
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4162
    |props|
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4163
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4164
    props := UIPainterView::ViewProperty new.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4165
    props view:aCanvas.
1396
58c4d1027a5e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1395
diff changeset
  4166
    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
  4167
    model root expand.
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4168
    self enableChannel:(aCanvas enableChannel).
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4169
!
97a7eeabae40 overwriting existing method check (in #defineClass & selector);
Claus Gittinger <cg@exept.de>
parents: 1392
diff changeset
  4170
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4171
canvasSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4172
    "returns spec assigned to canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4173
1574
e4897b61395c Remove unused method var
Stefan Vogel <sv@exept.de>
parents: 1572
diff changeset
  4174
    |spec list cls canvas|
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4175
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4176
    spec := self windowSpecClass new.
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4177
    canvas := self canvas.
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4178
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4179
    spec fromView:(canvas topView) callBack:nil.
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4180
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4181
    windowSpec notNil ifTrue:[
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4182
        spec copyValuesFromSpec:windowSpec.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4183
    ].
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4184
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4185
    spec exportedAspects isNil ifTrue:[
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4186
        (     (cls  := canvas className) notNil
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4187
         and:[(cls  := canvas resolveName:cls) notNil]
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4188
        ) ifTrue:[
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4189
            list := cls perform:#aspectSelectors ifNotUnderstood:nil.
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4190
        ].
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4191
        spec setExportedAspectsFrom:list.
1360
555429506474 care for nil window
Claus Gittinger <cg@exept.de>
parents: 1357
diff changeset
  4192
        windowSpec notNil ifTrue:[
555429506474 care for nil window
Claus Gittinger <cg@exept.de>
parents: 1357
diff changeset
  4193
            windowSpec exportedAspects:(spec exportedAspects).
555429506474 care for nil window
Claus Gittinger <cg@exept.de>
parents: 1357
diff changeset
  4194
        ]
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4195
    ].
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4196
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4197
    self propertiesDo:[:aProp| 
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4198
        |propsSpec|
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4199
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4200
        spec exportedAspectsAddKey:(aProp model) type:nil.
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4201
        propsSpec := aProp spec.
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4202
        propsSpec aspectSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4203
        propsSpec actionSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:#action].
1356
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4204
    ].
189c9cec8ce6 exported channels.
ca
parents: 1341
diff changeset
  4205
  ^ spec
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4206
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4207
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4208
canvasSpec:aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4209
    "update canvas from spec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4210
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4211
    |spec|
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4212
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4213
    self setAttributesFromWindowSpec:aSpec.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4214
    spec := aSpec copy.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4215
    spec  menu:nil.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4216
    spec flags:nil.
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4217
394
1933896da0c3 sett UIBuilder isEditing to true
ca
parents: 375
diff changeset
  4218
    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
  4219
!
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4220
1357
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4221
exportedAspects
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4222
    "returns spec assigned to canvas"
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4223
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4224
    windowSpec isNil ifTrue:[^ #()].
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4225
    ^ windowSpec exportedAspects ? #()
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4226
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4227
!
ba372586f899 checkin from browser
ca
parents: 1356
diff changeset
  4228
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4229
itemOfView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4230
    "returns item assigned to view or nil"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4231
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4232
    aView notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4233
	self allItemsDo:[:anItem|
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4234
	    (anItem contents view == aView) ifTrue:[^ anItem]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4235
	]
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4236
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4237
    ^ nil
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4238
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4239
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4240
!
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4241
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4242
lastDrawnMaster
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4243
    "returns the lastDrawnMaster"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4244
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4245
    ^ lastDrawnMaster
755
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4246
cfbbec0a33c6 some cleans for grid, etc.
tz
parents: 743
diff changeset
  4247
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4248
!
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4249
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4250
windowSpecClass
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4251
    "returns the default  windowSpecClass (WindowSpec)"
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4252
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4253
    ^ windowSpecClass ? WindowSpec
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4254
!
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4255
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4256
windowSpecClass:aClass
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4257
    "set the default windowSpecClass"
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4258
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4259
    ^ windowSpecClass := aClass
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4260
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4261
1661
5c0f73b1bd07 category change
Claus Gittinger <cg@exept.de>
parents: 1626
diff changeset
  4262
!UIPainter::TreeView methodsFor:'accessing-property'!
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4263
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4264
propertiesDo:aOneArgBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4265
    "evaluates the argument a block on each property"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4266
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4267
    self allItemsDo:[:anItem| aOneArgBlock value:(anItem contents)]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4268
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4269
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4270
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4271
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4272
propertyDetect:aOneArgBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4273
    "evaluates the block on each property"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4274
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4275
    self allItemsDo:[:anItem|
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4276
	(aOneArgBlock value:(anItem contents)) ifTrue:[^ anItem contents]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4277
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4278
    ^ nil
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4279
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4280
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4281
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4282
propertySelected
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4283
    "returns current selected property or nil in case of multi selection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4284
     or empty selection "
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4285
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4286
    |idx|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4287
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4288
    selection size == 1 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4289
	(idx := selection first) ~~ 1 ifTrue:[          "canvas: not yet supported"
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4290
	    ^ (listOfNodes at:idx) contents
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4291
	]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4292
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4293
    ^ nil
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4294
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4295
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4296
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4297
!UIPainter::TreeView methodsFor:'adding & removing'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4298
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4299
addProperty:aProperty
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4300
    "adds a new item"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4301
533
dde823aeca4c supports loading of subspecs
tz
parents: 527
diff changeset
  4302
    |parent| 
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  4303
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4304
    parent := self detectItemCorespondingToView:(aProperty view superView).
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  4305
114befd1c369 add some help text
ca
parents: 287
diff changeset
  4306
    parent notNil ifTrue:[
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4307
        model add:(TreeItem new contents:aProperty) below:parent
295
114befd1c369 add some help text
ca
parents: 287
diff changeset
  4308
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4309
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4310
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4311
removeAll
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4312
    "removes all items other than canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4313
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4314
    lastDrawnMaster := nil.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4315
    windowSpec := nil.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4316
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4317
    self canvas subViews copy do:[:aView|
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  4318
	"/ care to not destroy the transparent input view
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  4319
	(aView isInputOnly) ifFalse:[aView destroy]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4320
    ].
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4321
    model root name: UIPainter defaultNameOfCanvas asBoldText.
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4322
    model removeAllOtherThanRoot.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4323
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4324
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4325
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4326
removeView:aView
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4327
    "removes a view"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4328
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4329
    |item prnt|
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4330
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4331
    ((item := self itemOfView:aView) notNil and:[(prnt := item parent) notNil]) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4332
	aView destroy.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4333
	prnt contents view sizeChanged:nil.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4334
	model remove:item
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4335
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4336
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4337
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4338
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4339
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4340
!UIPainter::TreeView methodsFor:'building'!
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4341
1058
243d945b1daf name the (full-)spec
tm
parents: 1046
diff changeset
  4342
generateFullSpecForComponents:aSpecArray named:specNameSymbol
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4343
    "generates a full spec from aSpecArray"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4344
351
7cb9f9c9a872 more checks
Claus Gittinger <cg@exept.de>
parents: 348
diff changeset
  4345
    |fullSpec winSpec|
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4346
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4347
    fullSpec := FullSpec new.
1058
243d945b1daf name the (full-)spec
tm
parents: 1046
diff changeset
  4348
    fullSpec name:specNameSymbol.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4349
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4350
    fullSpec fromBuilder:(self canvas topView)
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  4351
	      components:(SpecCollection new collection:aSpecArray).
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4352
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4353
    windowSpec notNil ifTrue:[
1186
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  4354
	winSpec := fullSpec window.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  4355
	winSpec copyValuesFromSpec:windowSpec.
4cea2d4e9dbc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1185
diff changeset
  4356
	winSpec name: winSpec label.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4357
    ].    
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4358
    ^ fullSpec literalArrayEncoding.
351
7cb9f9c9a872 more checks
Claus Gittinger <cg@exept.de>
parents: 348
diff changeset
  4359
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4360
!
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4361
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4362
setAttributesFromWindowSpec:aWindowSpec
1172
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4363
    "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
  4364
     to the canvas."
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4365
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  4366
    |name canvasView builder|
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4367
1466
6fecdd5341dc allow for windowSpecClass to be customized
Claus Gittinger <cg@exept.de>
parents: 1461
diff changeset
  4368
    windowSpec := (self windowSpecClass) new copyValuesFromSpec:aWindowSpec.
1172
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4369
    canvasView := self canvas.
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4370
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4371
    builder := UIBuilder new isEditing:true.
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4372
    aWindowSpec setAttributesIn:canvasView with:builder.
e22253cb348f set the top attributes (especially: viewbackground)
Claus Gittinger <cg@exept.de>
parents: 1167
diff changeset
  4373
1391
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  4374
    name := aWindowSpec label.
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  4375
    canvasView topView name:name.
be99f3e9260e set changed label in tree-view for canvas
ca
parents: 1360
diff changeset
  4376
    self canvasNameChanged:name.
1710
4d81ff7b3412 autoAccept on selectionChange; ok -> apply;
Claus Gittinger <cg@exept.de>
parents: 1698
diff changeset
  4377
    self application treeSelectionChanged.
311
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4378
! !
52f954630dca support of menu and srollers for the canvas
ca
parents: 305
diff changeset
  4379
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4380
!UIPainter::TreeView methodsFor:'canvas selection'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4381
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4382
cvsSelection:aSelection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4383
    "canvas changed its selection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4384
    "
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4385
    |sel list size|
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4386
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4387
    ((sel := aSelection) isNil or:[sel isCollection]) ifFalse:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4388
	sel := Array with:sel
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4389
    ].
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4390
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4391
    (size := sel size) ~~ 0 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4392
	list := OrderedCollection new:size.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4393
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4394
	sel do:[:aView||item|
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4395
	    (item := self itemOfView:aView) notNil ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4396
		list add:item.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4397
		model doMakeVisible:item.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4398
	    ]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4399
	].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4400
	sel := list collect:[:anItem| self indexOfNode:anItem ].
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4401
    ].
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4402
    self cvsEventsDisabledDo:[ self selection:sel ].            
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4403
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4404
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4405
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4406
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4407
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4408
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4409
cvsSelectionAdd:aView
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4410
    "canvas adds a view to current selection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4411
    "
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4412
    |item index oldSel|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4413
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4414
    item := self itemOfView:aView.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4415
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4416
    item notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4417
	model doMakeVisible:item.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4418
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4419
	(index := self indexOfNode:item) ~~ 0 ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4420
	    oldSel := selection copy.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4421
	    self addToSelection:index.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4422
	    self selectionChangedFrom:oldSel
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4423
	]        
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4424
    ]            
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4425
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4426
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4427
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4428
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4429
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4430
cvsSelectionRemove:aView
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4431
    "canvas removes a view from current selection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4432
    "
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4433
    |item index oldSel|
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4434
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4435
    (     (item := self itemOfView:aView) notNil
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4436
     and:[(index := self indexOfNode:item) ~~ 0
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4437
     and:[self isInSelection:index]]
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4438
    ) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4439
	oldSel := selection copy.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4440
	self removeFromSelection:index.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4441
	self selectionChangedFrom:oldSel.
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4442
    ].
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4443
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4444
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4445
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4446
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4447
!UIPainter::TreeView methodsFor:'change & update'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4448
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4449
canvasNameChanged:aName
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4450
    "called if identification name assigned to window (canvas) changed
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4451
    "
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4452
    |name node|
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4453
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4454
    node := listOfNodes at:1.
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4455
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4456
    (    aName size ~~ 0
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4457
     and:[(name := aName string withoutSeparators) size ~~ 0
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4458
     and:[(self propertyDetect:[:p| p name = name]) isNil
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4459
     and:[node name ~= name]]]
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4460
    ) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4461
	node name: name asBoldText.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4462
	node changed.   
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4463
    ].
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4464
!
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4465
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4466
layoutChanged
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4467
    "layout of any component changed; in case of single selection, the
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4468
     application will be informed to update its layout
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4469
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4470
    selection size == 1 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4471
	self application layoutChanged
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4472
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4473
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4474
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4475
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4476
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4477
propertyChanged:aProperty
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4478
    "property of view derived from argument a property changed
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4479
    "
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4480
    |item idx end|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4481
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4482
    item := self itemOfView:(aProperty view).
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4483
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4484
    item notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4485
	item contents:aProperty.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4486
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4487
	item name = aProperty name ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4488
	    idx := self firstLineShown.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4489
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4490
	    (end := self lastLineShown) > listOfNodes size ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4491
		end := listOfNodes size
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4492
	    ].                          
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4493
	    item changed.   
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4494
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4495
	    [idx <= end] whileTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4496
		(listOfNodes at:idx) == item ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4497
		    self redrawLine:idx.                "/ is visible; redraw line
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4498
		    end := 0
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4499
		] ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4500
		    idx := idx + 1
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4501
		]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4502
	    ]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4503
	].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4504
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4505
	self selectedNode == item ifTrue:[              "/ inform application
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4506
	    self application propertyChanged
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4507
	]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4508
    ].
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4509
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4510
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4511
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4512
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4513
!UIPainter::TreeView methodsFor:'drag & drop'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4514
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4515
canDrop:anObjectOrCollection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4516
    "can drop ? delegate to canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4517
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4518
    ^ self canvas canDrop:anObjectOrCollection
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4519
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4520
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4521
drop:anObjectOrCollection at:aPoint
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4522
    "drop objects ? delegate to canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4523
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4524
    self canvas drop:anObjectOrCollection at:aPoint
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4525
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4526
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4527
!UIPainter::TreeView methodsFor:'enumerating'!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4528
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4529
allItemsDo:aOneArgBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4530
    "evaluates the argument a block on each item other than the canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4531
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4532
    model root allChildrenDo:aOneArgBlock
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4533
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4534
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4535
! !
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4536
1719
735984d47d9b method category rename
Claus Gittinger <cg@exept.de>
parents: 1718
diff changeset
  4537
!UIPainter::TreeView methodsFor:'event handling'!
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4538
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4539
cvsEventsDisabledDo:aBlock
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4540
    "evaluates the block without raising selection changed notifications
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4541
     to canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4542
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4543
    |restoreCvsEvents|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4544
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4545
    restoreCvsEvents  := cvsEventsDisabled.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4546
    cvsEventsDisabled := true.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4547
    aBlock value.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4548
    cvsEventsDisabled := restoreCvsEvents.
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4549
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4550
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4551
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4552
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4553
doubleClicked
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4554
    "disables collapsing of the root item"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4555
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4556
    self selectedNode == model root ifFalse:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4557
	super doubleClicked
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4558
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4559
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4560
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4561
!
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4562
852
c24c7584abe4 replace reimplememented method:
ca
parents: 851
diff changeset
  4563
redrawLabelAt:x y:yTop index:anIndex
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4564
    "draws a tiny rectangle for indicating the master node (first selected node)"
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4565
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4566
    |dX|
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4567
852
c24c7584abe4 replace reimplememented method:
ca
parents: 851
diff changeset
  4568
    super redrawLabelAt:x y:yTop index:anIndex.
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4569
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4570
    ((selection size > 1) and: [selection first == anIndex]) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4571
	dX := textInset - 1.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4572
	self paint:(Color red). "/ self application painter handleMasterColor.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4573
	self fillRectangleX:(x - dX - 2)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4574
			  y:yTop + ((fontHeight - dX) // 2)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4575
		      width:dX
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4576
		     height:dX
805
99e70b6c02e5 new indication of the master widget
tz
parents: 798
diff changeset
  4577
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4578
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4579
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4580
!UIPainter::TreeView methodsFor:'initialization'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4581
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4582
initialize
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4583
    "initialize the tree view; multiple select and tree item actions"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4584
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4585
    super initialize.
564
df1f1e84d94a add menu added
tz
parents: 547
diff changeset
  4586
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4587
    self multipleSelectOk:true.
368
9e588f397bc9 support of lineFeed character \ in the help text
ca
parents: 366
diff changeset
  4588
    cvsEventsDisabled := false.
440
1198f19712ff spec items have got individual icons
tz
parents: 437
diff changeset
  4589
    self showDirectoryIndicator: true.
656
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  4590
    self showDirectoryIndicatorForRoot: false.
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  4591
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  4592
    self model iconAction: 
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  4593
    [:aNode|
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4594
	|specClass|       
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4595
	(specClass := aNode contents spec) isNil 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4596
	    ifTrue: [WindowSpec icon]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4597
	    ifFalse:[specClass class icon]
656
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  4598
    ].
21fe350cfa06 tree item labels changed to a more convenient style
tz
parents: 630
diff changeset
  4599
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4600
    self model labelAction: 
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4601
    [:aNode|
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4602
	|spec|
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4603
	(spec := aNode contents spec) notNil
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4604
	    ifTrue: [self nameForSpecInList:spec] 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4605
	    ifFalse:[aNode name]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4606
    ]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4607
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4608
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4609
!UIPainter::TreeView methodsFor:'private'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4610
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4611
nameForSpecInList:aSpec
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4612
    "returns the tree item label for aSpec"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4613
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4614
     ^ aSpec name asBoldText, ': [', aSpec viewClass name , ']' 
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4615
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4616
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4617
selectionChangedFrom:oldSelection
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4618
    "selection has changed. update master selection and raise notification
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4619
     to canvas in case of enabled cvs events
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4620
    "
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4621
    |sel size|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4622
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4623
    super selectionChangedFrom:oldSelection.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4624
    size := selection size.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4625
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4626
    cvsEventsDisabled ifFalse:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4627
	(size ~~ 0 and:[size ~~ 1 or:[selection first ~~ 1]]) ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4628
	    sel := OrderedCollection new.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4629
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4630
	    selection do:[:i|
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4631
		i ~~ 1 ifTrue:[sel add:(listOfNodes at:i) contents view]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4632
	    ]
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4633
	].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4634
	self canvas updateSelectionFromModel:sel
778
a4b931b2aff6 master widget highlighting changed in the tree list
tz
parents: 774
diff changeset
  4635
    ].             
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4636
    size = 1 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4637
	oldSelection size > 1 ifTrue: [
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4638
	    (listOfNodes at:lastDrawnMaster) retrieveLabel.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4639
	    self redrawLine: lastDrawnMaster. 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4640
	    lastDrawnMaster := selection first
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4641
	]
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4642
    ].
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4643
    size > 1 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4644
	selection first ~~ lastDrawnMaster ifTrue: [
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4645
	    (listOfNodes at:selection first) retrieveLabel.
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4646
	    lastDrawnMaster notNil ifTrue: [(listOfNodes at:lastDrawnMaster) retrieveLabel].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4647
	    self redrawLine: lastDrawnMaster. 
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4648
	    self redrawLine: (lastDrawnMaster := selection first)
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4649
	]
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  4650
    ]         
713
f94e58bb44ac some changes for the docu
tz
parents: 697
diff changeset
  4651
    ifFalse: [
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4652
	lastDrawnMaster := nil
785
35ad7901368c avoid selection problems
tz
parents: 778
diff changeset
  4653
    ] 
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4654
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4655
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4656
!UIPainter::TreeView methodsFor:'queries'!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4657
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  4658
canChangeOrderInContainer
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  4659
    "returns true if any selection exists and all widgets in the selection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4660
     can change their layout through to a move or align operation"
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  4661
889
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  4662
    ^(selection size == 1)  and: 
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  4663
    [(selection at: 1) ~~ 1 and:   
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  4664
    [self selectedNode parent children size > 1]] 
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  4665
39d326722589 up/down channel updating
tz
parents: 884
diff changeset
  4666
565
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  4667
!
8fdeb11c72fd items move enabling
tz
parents: 564
diff changeset
  4668
1230
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4669
canExchangeSelectionLayouts 
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4670
    "returns true if the selections size is exactly 2
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4671
     and all widgets in the selection
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4672
     can change their layout through to a move or align operation"
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4673
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4674
    selection size == 2 ifFalse:[
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4675
        ^ false
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4676
    ].
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4677
    ^ self canMoveOrAlignSelection
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4678
!
23e5d0c133e8 added exchangeLayouts function
Claus Gittinger <cg@exept.de>
parents: 1211
diff changeset
  4679
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4680
canMoveOrAlignSelection
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4681
    "returns true if any selection exists and all widgets in the selection
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4682
     can change their layout through to a move or align operation"
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4683
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4684
    selection size == 0 ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4685
	^ false
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4686
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4687
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4688
    selection do:[:i|
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4689
	i == 1 ifTrue:[^ false].
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4690
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4691
	(self canvas canChangeLayoutOfView:((listOfNodes at:i) contents view)) ifFalse:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4692
	    ^ false
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4693
	]
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4694
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4695
    ^ true
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4696
!
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4697
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4698
canMoveSelectionIntoContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4699
    "returns true in case that one widget is selected and can change its container
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4700
     widget to the next element in the list which will have the same container"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4701
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4702
    |item prnt container|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4703
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4704
    (     (item := self selectedNode) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4705
      or:[(prnt := item parent) isNil
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4706
      or:[(container := prnt childAt:((prnt indexOfChild:item) + 1)) isNil
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4707
      or:[container contents spec class supportsSubComponents not]]]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4708
    ) ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4709
        ^ false
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4710
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4711
    ^ true
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4712
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4713
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4714
canMoveSelectionOutOfContainer
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4715
    "returns true in case that one widget is selected which is contained within
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4716
     another widget"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4717
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4718
    |item prnt|
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4719
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4720
    (     (item := self selectedNode) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4721
      or:[(prnt := item parent) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4722
      or:[prnt parent isNil]]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4723
    ) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4724
	^ false
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4725
    ].
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4726
    ^ true
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4727
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4728
301
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  4729
canResizeSelectedWidget
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  4730
    "returns true in case of one widget selected and is contained
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4731
     within a widget which allows to resize sub components"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4732
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4733
    |selectedNode|
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4734
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4735
    (selectedNode := self selectedNode) notNil ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4736
	(selectedNode := selectedNode parent) notNil ifTrue:[
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4737
	    ^ (selectedNode parent isNil or:[selectedNode contents spec class canResizeSubComponents])
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4738
	]
301
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  4739
    ].
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  4740
    ^ false
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  4741
!
131f874fc2a2 support of hierarchical list editor
ca
parents: 297
diff changeset
  4742
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4743
hasOneSelectionOtherThanCanvas
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4744
    "returns true in case that one selection exists other than the canvas"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4745
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4746
    ^ selection size == 1 and:[selection first ~~ 1]
281
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4747
!
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4748
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4749
isCanvasSelected
aabb4037f6a3 window spec
ca
parents: 280
diff changeset
  4750
    "returns true in case of a single selection and the
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4751
     selection is the canvas (index 1)"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4752
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4753
    ^ selection size == 1 and:[self isInSelection:1]
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4754
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4755
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4756
!UIPainter::TreeView methodsFor:'searching'!
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4757
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4758
detectItemCorespondingToView:aView
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4759
    "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
  4760
     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
  4761
     returned"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4762
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4763
    |view item|
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4764
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4765
    (view := aView) notNil ifTrue:[
1870
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4766
        [(item := self itemOfView:view) isNil] whileTrue:[
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4767
            (view := view superView) isNil ifTrue:[^ listOfNodes at:1]
771fcc38ecb8 set selection interface changed
ca
parents: 1868
diff changeset
  4768
        ].
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4769
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4770
    ^ item
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4771
! !
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4772
1439
540781421bbf category change
Claus Gittinger <cg@exept.de>
parents: 1432
diff changeset
  4773
!UIPainter::TreeView methodsFor:'user interaction'!
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4774
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4775
askForSelectionChangeAllowed 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4776
    selectConditionBlock notNil ifTrue:[
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4777
        ^ selectConditionBlock value:nil 
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4778
    ].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4779
    ^ true
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4780
!
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4781
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4782
doChangeHierarchyOf:anItem
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4783
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4784
    |canvas|
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4785
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4786
    anItem isNil ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4787
        ^ self
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4788
    ].
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4789
    self askForSelectionChangeAllowed ifFalse:[^ self].    
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4790
    self setSelection:nil.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4791
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4792
    canvas := self canvas.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4793
    canvas deleteSelection.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4794
    canvas setSelection:(anItem contents view) withRedraw:false.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4795
    canvas pasteWithLayout.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4796
!
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4797
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4798
doStepIn
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4799
    |item prnt|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4800
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4801
    (     (item := self selectedNode) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4802
      or:[(prnt := item parent) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4803
      or:[(prnt := prnt childAt:((prnt indexOfChild:item) + 1)) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4804
      or:[prnt contents spec class supportsSubComponents not]]]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4805
    ) ifFalse:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4806
	self doChangeHierarchyOf:prnt
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4807
    ]
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4808
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4809
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4810
doStepOut
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4811
    |item|
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4812
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4813
    ((item := self selectedNode) notNil and:[(item := item parent) notNil]) ifTrue:[
984
f1b6d6b68510 dont specify the tabViews font (instead, use defaults from styleSheet)
Claus Gittinger <cg@exept.de>
parents: 973
diff changeset
  4814
	self doChangeHierarchyOf:(item parent)
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4815
    ].
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4816
!
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4817
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4818
doStepOver:anIndex
765
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4819
    "moves child 'anOffset' forward or backward in list of children"
27936ff059d3 obselete methods removed + comments revised
tz
parents: 755
diff changeset
  4820
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4821
    |item idx size prnt spVw view canvas|
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4822
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4823
    self askForSelectionChangeAllowed ifFalse:[^ self].
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4824
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4825
    (    (item := self selectedNode) isNil
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4826
     or:[(prnt := item parent) isNil
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4827
     or:[(size := prnt children size) < 2
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4828
     or:[(idx  := prnt indexOfChild:item) == 0]]]
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4829
    ) ifTrue:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4830
        ^ self
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4831
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4832
    idx := idx + anIndex.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4833
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4834
    idx < 1 ifTrue:[idx := size]
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4835
           ifFalse:[idx > size ifTrue:[idx := 1]].
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4836
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4837
    self setSelection:nil.
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4838
    model remove:item.
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4839
    model add:item beforeIndex:idx below:prnt.
774
5ca0853de0bc reuse methods provided by the model
ca
parents: 765
diff changeset
  4840
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4841
    idx    := prnt indexOfChild:item.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4842
    view   := item contents view.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4843
    spVw   := prnt contents view.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4844
    canvas := self canvas.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4845
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4846
    canvas hideSelection.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4847
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4848
    spVw changeSequenceOrderFor:view to:idx.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4849
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4850
    spVw specClass isLayoutContainer ifFalse:[
1621
112670159075 cg: check if selection change is allowed BEFORE changing the
tm
parents: 1608
diff changeset
  4851
        spVw subViews do:[:v| v raise ].
282
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4852
    ].
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4853
    canvas showSelection.
bb88d92ae887 checkin from browser
ca
parents: 281
diff changeset
  4854
    self selectNode:item.
222
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4855
! !
dd2688307d90 added treeView; change specs
ca
parents: 217
diff changeset
  4856
60
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4857
!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4858
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4859
version
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4860
    ^ '$Header$'
7542ab7fbbfe *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 59
diff changeset
  4861
! !