hg/stx-libtool2: UIPainter.st@354ba46948b4 (annotated)

156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	1	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	2	COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	3	All Rights Reserved
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
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	13
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	14	ApplicationModel subclass:#UIPainter
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	15	instanceVariableNames:'activeHelpTool layoutTool specTool objectList selectionPanel
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	16	tabSelection specClass specSelector specSuperclass aspects'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	17	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	18	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	19	category:'Interface-UIPainter'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	20	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	21
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	22	!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	23
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	24	copyright
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	25	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	26	COPYRIGHT (c) 1995 by eXept Software AG
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	27	All Rights Reserved
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	28
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	29	This software is furnished under a license and may be used
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	30	only in accordance with the terms of that license and with the
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	31	inclusion of the above copyright notice. This software may not
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	32	be provided or otherwise made available to, or used by, any
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	33	other person. No title to or ownership of the software is
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	34	hereby transferred.
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	35	"
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	36
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
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	39	documentation
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	40	"
127 95070ea7ae42 update layout from view ca parents: 124 diff changeset	41	GUI-Builder:
95070ea7ae42 update layout from view ca parents: 124 diff changeset	42	this class allows the user to build its own applications providing a graphical
95070ea7ae42 update layout from view ca parents: 124 diff changeset	43	user interface to buildin components and to define the behavior of the components
95070ea7ae42 update layout from view ca parents: 124 diff changeset	44	during runtime. The resulting specifications can be installed as methods on
95070ea7ae42 update layout from view ca parents: 124 diff changeset	45	classes, typically subclasses of an ApplicationModel. These specifications
95070ea7ae42 update layout from view ca parents: 124 diff changeset	46	are used by the UIBuilder to generate the application window and its component
95070ea7ae42 update layout from view ca parents: 124 diff changeset	47	structues when open the application.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	48
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	49	[start with:]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	50	UIPainter open
127 95070ea7ae42 update layout from view ca parents: 124 diff changeset	51
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	52	[author:]
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	53	Claus Gittinger
156 b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	54	Claus Atzkern
b332d7117c40 added copyrights Claus Gittinger <cg@exept.de> parents: 155 diff changeset	55
127 95070ea7ae42 update layout from view ca parents: 124 diff changeset	56	[see also:]
95070ea7ae42 update layout from view ca parents: 124 diff changeset	57	UIBuilder
95070ea7ae42 update layout from view ca parents: 124 diff changeset	58	ApplicationModel
95070ea7ae42 update layout from view ca parents: 124 diff changeset	59	UISpecification
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	60	"
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	61
0b53bd128667 * empty log message * ca parents: 101 diff changeset	62	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	63
0b53bd128667 * empty log message * ca parents: 101 diff changeset	64	!UIPainter class methodsFor:'instance creation'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	65
0b53bd128667 * empty log message * ca parents: 101 diff changeset	66	listHolder:aListHolder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	67	\|application\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	68
0b53bd128667 * empty log message * ca parents: 101 diff changeset	69	application := self new.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	70	application objectList:aListHolder.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	71	^ application open
0b53bd128667 * empty log message * ca parents: 101 diff changeset	72	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	73
195 350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	74	openOnClass:aClass andSelector:aSelector
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	75	^ self new openOnClass:aClass andSelector:aSelector
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	76
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	77	"Created: 1.7.1997 / 19:16:59 / cg"
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	78	!
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	79
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	80	painter:aBuilderView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	81	\|application\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	82
0b53bd128667 * empty log message * ca parents: 101 diff changeset	83	application := self new.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	84	application painter:aBuilderView.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	85	^ application open
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	86	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	87
87 cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	88	!UIPainter class methodsFor:'ST-80 queries'!
cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	89
cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	90	preferenceFor:aSymbol
cc6d70449622 add ST-80 queries ca parents: 81 diff changeset	91	^ false
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	92
0b53bd128667 * empty log message * ca parents: 101 diff changeset	93
0b53bd128667 * empty log message * ca parents: 101 diff changeset	94	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	95
193 450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	96	!UIPainter class methodsFor:'help specs'!
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	97
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	98	helpSpec
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	99	"return a dictionary filled with helpKey -> helptext associations.
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	100	These are used by the activeHelp tool.
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	101	"
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	102	^ super helpSpec addPairsFrom:#(
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	103
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	104	#alignSelectionCenterVer
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	105	'align selection vertical'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	106
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	107	#alignSelectionLeft
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	108	'align selected components to the left edge of the
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	109	dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	110
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	111	#alignSelectionRight
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	112	'align selected components to the right edge of the
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	113	dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	114
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	115	#alignSelectionLeftAndRight
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	116	'align selected components to the right and left edge
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	117	of the dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	118
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	119	#alignSelectionTop
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	120	'align selected components to the top edge of the
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	121	dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	122
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	123	#alignSelectionBottom
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	124	'align selected components to the bottom edge of the
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	125	dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	126
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	127	#alignSelectionTopAndBottom
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	128	'align selected components to the top and bottom edge
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	129	of the dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	130
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	131	#alignSelectionCenterVer
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	132	'align selected components horizontal to the center of
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	133	the dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	134
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	135	#alignSelectionCenterHor
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	136	'align selected components vertical to the center of
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	137	the dominant component ( underlined )'
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	138
194 2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	139	#spreadSelectionVer
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	140	'vertical spacing between selected components is made the same'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	141
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	142	#spreadSelectionHor
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	143	'horizontal spacing between selected components is made the same'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	144
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	145	#centerSelectionHor
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	146	'center components horizontal in contained view'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	147
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	148	#centerSelectionVer
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	149	'center vertical horizontal in contained view'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	150
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	151	#setToDefaultExtent
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	152	'set selected components to their default extent'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	153
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	154	#setToDefaultWidth
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	155	'set selected components to their default width'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	156
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	157	#setToDefaultHeight
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	158	'set selected components to their default height'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	159
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	160	#copyExtent
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	161	'copy extent of the selected component'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	162
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	163	#pasteExtent
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	164	'change extent of all selected components to the
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	165	last copied extent'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	166
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	167	#pasteWidth
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	168	'change width of all selected components to the
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	169	last copied extent width'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	170
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	171	#pasteHeight
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	172	'change height of all selected components to the
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	173	last copied extent height'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	174
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	175	#copyLayout
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	176	'copy layout of the selected component'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	177
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	178	#pasteLayout
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	179	'change layout of all selected components to the
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	180	last copied layout'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	181
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	182	#pasteBuffer
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	183	'paste components at current mouse position'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	184
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	185	#pasteWithLayout
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	186	'paste components without changing their layouts'
2b05bd327785 recompute property list when changing view ordering by ca parents: 193 diff changeset	187
193 450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	188	)
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	189
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	190
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	191
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	192
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	193	! !
450d9e5c6f4a checkin from browser ca parents: 187 diff changeset	194
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	195	!UIPainter class methodsFor:'icons'!
bc196200ea8b enabled and style ca parents: 114 diff changeset	196
bc196200ea8b enabled and style ca parents: 114 diff changeset	197	iconAlignB
bc196200ea8b enabled and style ca parents: 114 diff changeset	198	^ Image fromFile:'b_alignB.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	199
bc196200ea8b enabled and style ca parents: 114 diff changeset	200	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	201
bc196200ea8b enabled and style ca parents: 114 diff changeset	202	iconAlignCenterH
bc196200ea8b enabled and style ca parents: 114 diff changeset	203	^ Image fromFile:'b_alignCH.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	204
bc196200ea8b enabled and style ca parents: 114 diff changeset	205	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	206
bc196200ea8b enabled and style ca parents: 114 diff changeset	207	iconAlignCenterV
bc196200ea8b enabled and style ca parents: 114 diff changeset	208	^ Image fromFile:'b_alignCV.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	209
bc196200ea8b enabled and style ca parents: 114 diff changeset	210	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	211
bc196200ea8b enabled and style ca parents: 114 diff changeset	212	iconAlignL
bc196200ea8b enabled and style ca parents: 114 diff changeset	213	^ Image fromFile:'b_alignL.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	214	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	215
bc196200ea8b enabled and style ca parents: 114 diff changeset	216	iconAlignLR
bc196200ea8b enabled and style ca parents: 114 diff changeset	217	^ Image fromFile:'b_alignLR.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	218
bc196200ea8b enabled and style ca parents: 114 diff changeset	219	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	220
bc196200ea8b enabled and style ca parents: 114 diff changeset	221	iconAlignR
bc196200ea8b enabled and style ca parents: 114 diff changeset	222	^ Image fromFile:'b_alignR.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	223
bc196200ea8b enabled and style ca parents: 114 diff changeset	224	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	225
bc196200ea8b enabled and style ca parents: 114 diff changeset	226	iconAlignT
bc196200ea8b enabled and style ca parents: 114 diff changeset	227	^ Image fromFile:'b_alignT.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	228
bc196200ea8b enabled and style ca parents: 114 diff changeset	229	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	230
bc196200ea8b enabled and style ca parents: 114 diff changeset	231	iconAlignTB
bc196200ea8b enabled and style ca parents: 114 diff changeset	232	^ Image fromFile:'b_alignTB.xbm'
bc196200ea8b enabled and style ca parents: 114 diff changeset	233
bc196200ea8b enabled and style ca parents: 114 diff changeset	234	! !
bc196200ea8b enabled and style ca parents: 114 diff changeset	235
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	236	!UIPainter class methodsFor:'interface specs'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	237
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	238	menuAlignment
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	239	"this window spec was automatically generated by the ST/X MenuEditor"
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	240
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	241	"do not manually edit this - the builder may not be able to
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	242	handle the specification if its corrupted."
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	243
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	244	"
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	245	MenuEditor new openOnClass:UIPainter andSelector:#menuAlignment
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	246	(Menu new fromLiteralArrayEncoding:(UIPainter menuAlignment)) startUp
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	247	"
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	248
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	249	<resource: #menu>
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	250
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	251	^
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	252
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	253	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	254
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	255	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	256	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	257	#'label:' 'align left'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	258	#'value:' #alignSelectionLeft
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	259	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	260	#'activeHelpKey:' #alignSelectionLeft
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	261	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	262	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	263	nil #iconAlignL
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	264	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	265	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	266	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	267	#'label:' 'align right'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	268	#'value:' #alignSelectionRight
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	269	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	270	#'activeHelpKey:' #alignSelectionRight
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	271	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	272	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	273	nil #iconAlignR
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	274	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	275	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	276	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	277	#'label:' 'align left & right'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	278	#'value:' #alignSelectionLeftAndRight
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	279	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	280	#'activeHelpKey:' #alignSelectionLeftAndRight
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	281	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	282	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	283	nil #iconAlignLR
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	284	)
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	285	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	286	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	287	#'label:' 'align top'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	288	#'value:' #alignSelectionTop
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	289	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	290	#'activeHelpKey:' #alignSelectionTop
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	291	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	292	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	293	nil #iconAlignT
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	294	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	295	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	296	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	297	#'label:' 'align bottom'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	298	#'value:' #alignSelectionBottom
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	299	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	300	#'activeHelpKey:' #alignSelectionBottom
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	301	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	302	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	303	nil #iconAlignB
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	304	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	305	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	306	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	307	#'label:' 'align top & bottom'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	308	#'value:' #alignSelectionTopAndBottom
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	309	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	310	#'activeHelpKey:' #alignSelectionTopAndBottom
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	311	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	312	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	313	nil #iconAlignTB
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	314	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	315	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	316	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	317	#'label:' 'align centered horizontal'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	318	#'value:' #alignSelectionCenterHor
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	319	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	320	#'activeHelpKey:' #alignSelectionCenterHor
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	321	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	322	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	323	nil #iconAlignCenterH
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	324	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	325	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	326	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	327	#'label:' 'align centered vertical'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	328	#'value:' #alignSelectionCenterVer
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	329	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	330	#'activeHelpKey:' #alignSelectionCenterVer
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	331	#'labelImage:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	332	#(#ResourceRetriever
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	333	nil #iconAlignCenterV
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	334	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	335	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	336	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	337	#( 3 3 )
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	338	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	339	)
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	340	!
bc196200ea8b enabled and style ca parents: 114 diff changeset	341
bc196200ea8b enabled and style ca parents: 114 diff changeset	342	menuPullDown
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	343	"this window spec was automatically generated by the ST/X MenuEditor"
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	344
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	345	"do not manually edit this - the builder may not be able to
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	346	handle the specification if its corrupted."
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	347
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	348	"
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	349	MenuEditor new openOnClass:UIPainter andSelector:#menuPullDown
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	350	(Menu new fromLiteralArrayEncoding:(UIPainter menuPullDown)) startUp
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	351	"
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	352
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	353	<resource: #menu>
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	354
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	355	^
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	356
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	357	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	358
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	359	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	360	#(#MenuItem
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	361	#'label:' 'file'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	362	#'value:' #file
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	363	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	364	#'submenu:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	365	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	366
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	367	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	368	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	369	#'label:' 'new'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	370	#'value:' #doNew
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	371	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	372	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	373	#'label:' 'from class ...'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	374	#'value:' #doFromClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	375	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	376	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	377	#'label:' 'pick a view '
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	378	#'value:' #doPickAView
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	379	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	380	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	381	#'label:' '-'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	382	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	383	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	384	#'label:' 'raise'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	385	#'value:' #doRaise
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	386	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	387	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	388	#'label:' '='
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	389	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	390	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	391	#'label:' 'quit'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	392	#'value:' #closeRequest
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	393	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	394	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	395	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	396	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	397	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	398	#(#MenuItem
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	399	#'label:' 'misc'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	400	#'value:' #misc
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	401	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	402	#'submenu:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	403	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	404
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	405	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	406	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	407	#'label:' 'grid'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	408	#'value:' #grid
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	409	#'submenu:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	410	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	411
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	412	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	413	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	414	#'label:' 'show'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	415	#'indication:' #'gridShown:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	416	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	417	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	418	#'label:' 'align'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	419	#'indication:' #'gridAlign:'
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	420	)
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	421	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	422	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	423	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	424	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	425	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	426	#'label:' 'undo'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	427	#'value:' #undo
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	428	#'submenu:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	429	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	430
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	431	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	432	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	433	#'label:' 'last'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	434	#'value:' #undoLast
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	435	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	436	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	437	#'label:' 'menu'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	438	#'value:' #openUndoMenu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	439	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	440	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	441	#'label:' '-'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	442	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	443	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	444	#'label:' 'delete'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	445	#'value:' #removeUndoHistory
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	446	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	447	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	448	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	449	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	450	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	451	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	452	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	453	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	454	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	455	#(#MenuItem
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	456	#'label:' 'code'
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	457	#'value:' #code
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	458	#'enabled:' #enableChannel
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	459	#'submenu:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	460	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	461
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	462	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	463	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	464	#'label:' 'class && method ...'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	465	#'value:' #defineClassAndSelector
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	466	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	467	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	468	#'label:' '='
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	469	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	470	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	471	#'label:' 'install window spec.'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	472	#'value:' #doInstallSpec
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	473	#'enabled:' #hasSpecClassAndSelector
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	474	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	475	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	476	#'label:' 'install help spec.'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	477	#'value:' #doInstallHelp
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	478	#'enabled:' #hasSpecClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	479	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	480	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	481	#'label:' '-'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	482	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	483	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	484	#'label:' 'install aspects'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	485	#'value:' #doInstallAspects
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	486	#'enabled:' #hasSpecClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	487	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	488	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	489	#'label:' '='
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	490	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	491	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	492	#'label:' 'show window spec.'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	493	#'value:' #doWindowSpec
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	494	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	495	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	496	#'label:' '='
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	497	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	498	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	499	#'label:' 'browse application'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	500	#'value:' #doBrowseAppClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	501	#'enabled:' #hasSpecClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	502	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	503	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	504	#'label:' 'start application'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	505	#'value:' #doStartApplication
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	506	#'enabled:' #hasSpecClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	507	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	508	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	509	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	510	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	511	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	512	#(#MenuItem
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	513	#'label:' 'test'
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	514	#'nameKey:' #test
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	515	#'value:' #test
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	516	#'submenu:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	517	#(#Menu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	518
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	519	#(
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	520	#(#MenuItem
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	521	#'label:' 'test mode'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	522	#'indication:' #'testMode:'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	523	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	524	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	525	nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	526	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	527	)
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	528	) nil
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	529	nil
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	530	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	531	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	532
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	533	nameAndSelectorSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	534	"this window spec was automatically generated by the ST/X UIPainter"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	535
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	536	"do not manually edit this - the painter/builder may not be able to
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	537	handle the specification if its corrupted."
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	538
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	539	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	540	UIPainter new openOnClass:UIPainter andSelector:#nameAndSelectorSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	541	UIPainter new openInterface:#nameAndSelectorSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	542	"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	543
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	544	<resource: #canvas>
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	545
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	546	^
142 75f927b856f6 update specs; remove color and default values ca parents: 137 diff changeset	547
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	548	#(#FullSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	549	#'window:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	550	#(#WindowSpec
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	551	#'name:' 'uIPainterView'
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	552	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	553	#'label:' 'Painter'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	554	#'bounds:' #(#Rectangle 0 0 391 170)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	555	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	556	#'component:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	557	#(#SpecCollection
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	558	#'collection:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	559	#(
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	560	#(#LabelSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	561	#'name:' 'classLabel'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	562	#'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	563	#'label:' 'class:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	564	#'adjust:' #right
176 a9e5b1615761 update menu ca parents: 174 diff changeset	565	#'resizeForLabel:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	566	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	567	#(#LabelSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	568	#'name:' 'superClassLabel'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	569	#'layout:' #(#AlignmentOrigin 45 0.11 77 0 1 0.5)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	570	#'label:' 'superclass:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	571	#'adjust:' #right
176 a9e5b1615761 update menu ca parents: 174 diff changeset	572	#'resizeForLabel:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	573	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	574	#(#LabelSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	575	#'name:' 'selectorLabel'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	576	#'layout:' #(#AlignmentOrigin 45 0.11 105 0 1 0.5)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	577	#'label:' 'selector:'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	578	#'adjust:' #right
176 a9e5b1615761 update menu ca parents: 174 diff changeset	579	#'resizeForLabel:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	580	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	581	#(#InputFieldSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	582	#'name:' 'methodNameField'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	583	#'layout:' #(#LayoutFrame 47 0.11 95 0 -5 1.0 117 0)
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	584	#'tabable:' true
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	585	#'model:' #methodNameChannel
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	586	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	587	#(#LabelSpec
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	588	#'name:' 'boxLabel'
176 a9e5b1615761 update menu ca parents: 174 diff changeset	589	#'layout:' #(#Point 5 10)
92 79473a16fdc9 spec for class & selector Claus Gittinger <cg@exept.de> parents: 87 diff changeset	590	#'label:' 'class & selector for code:'
79473a16fdc9 spec for class & selector Claus Gittinger <cg@exept.de> parents: 87 diff changeset	591	#'adjust:' #left
176 a9e5b1615761 update menu ca parents: 174 diff changeset	592	#'resizeForLabel:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	593	)
a9e5b1615761 update menu ca parents: 174 diff changeset	594	#(#InputFieldSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	595	#'name:' 'classNameField'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	596	#'layout:' #(#LayoutFrame 47 0.11 39 0 -5 1.0 61 0)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	597	#'tabable:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	598	#'model:' #classNameChannel
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	599	)
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	600	#(#ComboBoxSpec
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	601	#'name:' 'comboBox1'
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	602	#'layout:' #(#LayoutFrame 47 0.11 67 0 -5 1.0 89 0)
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	603	#'tabable:' true
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	604	#'model:' #superclassNameChannel
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	605	#'comboList:' #superclassNameDefaults
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	606	)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	607	#(#HorizontalPanelViewSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	608	#'name:' 'commitPanel'
a9e5b1615761 update menu ca parents: 174 diff changeset	609	#'layout:' #(#LayoutFrame 0 0.0 -24 1.0 0 1.0 0 1.0)
a9e5b1615761 update menu ca parents: 174 diff changeset	610	#'component:'
a9e5b1615761 update menu ca parents: 174 diff changeset	611	#(#SpecCollection
a9e5b1615761 update menu ca parents: 174 diff changeset	612	#'collection:'
a9e5b1615761 update menu ca parents: 174 diff changeset	613	#(
a9e5b1615761 update menu ca parents: 174 diff changeset	614	#(#ActionButtonSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	615	#'name:' 'button1'
a9e5b1615761 update menu ca parents: 174 diff changeset	616	#'label:' 'cancel'
a9e5b1615761 update menu ca parents: 174 diff changeset	617	#'tabable:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	618	#'model:' #cancel
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	619	#'extent:' #(#Point 191 24)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	620	)
a9e5b1615761 update menu ca parents: 174 diff changeset	621	#(#ActionButtonSpec
a9e5b1615761 update menu ca parents: 174 diff changeset	622	#'name:' 'button2'
a9e5b1615761 update menu ca parents: 174 diff changeset	623	#'label:' 'ok'
a9e5b1615761 update menu ca parents: 174 diff changeset	624	#'tabable:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	625	#'isDefault:' true
a9e5b1615761 update menu ca parents: 174 diff changeset	626	#'model:' #accept
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	627	#'extent:' #(#Point 191 24)
176 a9e5b1615761 update menu ca parents: 174 diff changeset	628	)
a9e5b1615761 update menu ca parents: 174 diff changeset	629	)
a9e5b1615761 update menu ca parents: 174 diff changeset	630	)
a9e5b1615761 update menu ca parents: 174 diff changeset	631	#'horizontalLayout:' #fitSpace
a9e5b1615761 update menu ca parents: 174 diff changeset	632	#'verticalLayout:' #fit
a9e5b1615761 update menu ca parents: 174 diff changeset	633	#'horizontalSpace:' 3
a9e5b1615761 update menu ca parents: 174 diff changeset	634	#'verticalSpace:' 3
a9e5b1615761 update menu ca parents: 174 diff changeset	635	)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	636	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	637	)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	638	)
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	639
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	640	"Modified: 24.6.1997 / 18:50:14 / cg"
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	641	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	642
0b53bd128667 * empty log message * ca parents: 101 diff changeset	643	windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	644	"this window spec was automatically generated by the ST/X UIPainter"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	645
0b53bd128667 * empty log message * ca parents: 101 diff changeset	646	"do not manually edit this - the painter/builder may not be able to
0b53bd128667 * empty log message * ca parents: 101 diff changeset	647	handle the specification if its corrupted."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	648
0b53bd128667 * empty log message * ca parents: 101 diff changeset	649	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	650	UIPainter new openOnClass:UIPainter andSelector:#windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	651	UIPainter new openInterface:#windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	652	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	653	"UIPainter open"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	654
0b53bd128667 * empty log message * ca parents: 101 diff changeset	655	<resource: #canvas>
0b53bd128667 * empty log message * ca parents: 101 diff changeset	656
0b53bd128667 * empty log message * ca parents: 101 diff changeset	657	^
0b53bd128667 * empty log message * ca parents: 101 diff changeset	658
0b53bd128667 * empty log message * ca parents: 101 diff changeset	659	#(#FullSpec
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	660	#'flags:' 0
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	661	#'window:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	662	#(#WindowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	663	#'name:' 'uIPainterView'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	664	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	665	#'flags:' 0
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	666	#'label:' 'Tree-View'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	667	#'bounds:' #(#Rectangle 0 0 524 456)
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	668	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	669	#'component:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	670	#(#SpecCollection
0b53bd128667 * empty log message * ca parents: 101 diff changeset	671	#'collection:'
0b53bd128667 * empty log message * ca parents: 101 diff changeset	672	#(
0b53bd128667 * empty log message * ca parents: 101 diff changeset	673	#(#MenuPanelSpec
137 335faeed1663 update ca parents: 136 diff changeset	674	#'name:' 'menuPullDown'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	675	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 25 0)
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	676	#'flags:' 0
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	677	#'tabable:' true
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	678	#'menu:' #menuPullDown
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	679	)
137 335faeed1663 update ca parents: 136 diff changeset	680	#(#MenuPanelSpec
335faeed1663 update ca parents: 136 diff changeset	681	#'name:' 'menuAlignment'
335faeed1663 update ca parents: 136 diff changeset	682	#'layout:' #(#LayoutFrame 0 0.0 29 0 233 0 54 0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	683	#'flags:' 0
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	684	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	685	#'menu:' #menuAlignment
335faeed1663 update ca parents: 136 diff changeset	686	#'showSeparatingLines:' true
335faeed1663 update ca parents: 136 diff changeset	687	)
335faeed1663 update ca parents: 136 diff changeset	688	#(#PanelViewSpec
335faeed1663 update ca parents: 136 diff changeset	689	#'name:' 'panelViewButtons'
149 e652608690b1 help ... ca parents: 144 diff changeset	690	#'layout:' #(#LayoutFrame -125 1.0 25 0.0 0 1.0 57 0.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	691	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	692	#'component:'
335faeed1663 update ca parents: 136 diff changeset	693	#(#SpecCollection
335faeed1663 update ca parents: 136 diff changeset	694	#'collection:'
335faeed1663 update ca parents: 136 diff changeset	695	#(
335faeed1663 update ca parents: 136 diff changeset	696	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	697	#'name:' 'moveLeft'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	698	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	699	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	700	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	701	#'labelChannel:' #'LABELb_moveLeft.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	702	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	703	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	704	#'model:' #moveSelectionLeft
335faeed1663 update ca parents: 136 diff changeset	705	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	706	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	707	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	708	)
335faeed1663 update ca parents: 136 diff changeset	709	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	710	#'name:' 'moveRight'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	711	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	712	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	713	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	714	#'labelChannel:' #'LABELb_moveRight.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	715	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	716	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	717	#'model:' #moveSelectionRight
335faeed1663 update ca parents: 136 diff changeset	718	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	719	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	720	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	721	)
335faeed1663 update ca parents: 136 diff changeset	722	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	723	#'name:' 'moveUp'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	724	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	725	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	726	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	727	#'labelChannel:' #'LABELb_moveUp.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	728	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	729	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	730	#'model:' #moveSelectionUp
335faeed1663 update ca parents: 136 diff changeset	731	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	732	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	733	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	734	)
335faeed1663 update ca parents: 136 diff changeset	735	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	736	#'name:' 'moveDown'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	737	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	738	#'label:' ''
335faeed1663 update ca parents: 136 diff changeset	739	#'translateLabel:' true
335faeed1663 update ca parents: 136 diff changeset	740	#'labelChannel:' #'LABELb_moveDown.xbm'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	741	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	742	#'defaultable:' true
335faeed1663 update ca parents: 136 diff changeset	743	#'model:' #moveSelectionDown
335faeed1663 update ca parents: 136 diff changeset	744	#'isTriggerOnDown:' true
335faeed1663 update ca parents: 136 diff changeset	745	#'enableChannel:' #enableChannel
335faeed1663 update ca parents: 136 diff changeset	746	#'extent:' #(#Point 26 24)
335faeed1663 update ca parents: 136 diff changeset	747	)
335faeed1663 update ca parents: 136 diff changeset	748	)
335faeed1663 update ca parents: 136 diff changeset	749	)
335faeed1663 update ca parents: 136 diff changeset	750	#'level:' 1
335faeed1663 update ca parents: 136 diff changeset	751	#'horizontalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	752	#'verticalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	753	#'horizontalSpace:' 4
335faeed1663 update ca parents: 136 diff changeset	754	#'verticalSpace:' 4
335faeed1663 update ca parents: 136 diff changeset	755	)
335faeed1663 update ca parents: 136 diff changeset	756	#(#SequenceViewSpec
335faeed1663 update ca parents: 136 diff changeset	757	#'name:' 'objectTree'
149 e652608690b1 help ... ca parents: 144 diff changeset	758	#'layout:' #(#LayoutFrame 0 0.0 59 0.0 0 0.35 -25 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	759	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	760	#'enableChannel:' #enableChannel
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	761	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	762	#'menu:' #objectListMenu
335faeed1663 update ca parents: 136 diff changeset	763	#'model:' #objectList
335faeed1663 update ca parents: 136 diff changeset	764	#'hasHorizontalScrollBar:' true
335faeed1663 update ca parents: 136 diff changeset	765	#'hasVerticalScrollBar:' true
335faeed1663 update ca parents: 136 diff changeset	766	#'miniScrollerHorizontal:' true
335faeed1663 update ca parents: 136 diff changeset	767	#'isMultiSelect:' true
335faeed1663 update ca parents: 136 diff changeset	768	#'doubleClickSelector:' #doubleClick
335faeed1663 update ca parents: 136 diff changeset	769	#'useIndex:' true
335faeed1663 update ca parents: 136 diff changeset	770	)
335faeed1663 update ca parents: 136 diff changeset	771	#(#NoteBookViewSpec
335faeed1663 update ca parents: 136 diff changeset	772	#'name:' 'noteBook'
149 e652608690b1 help ... ca parents: 144 diff changeset	773	#'layout:' #(#LayoutFrame 0 0.35 59 0.0 0 1.0 -55 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	774	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	775	#'enableChannel:' #enableChannel
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	776	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	777	#'menu:' #tabList
335faeed1663 update ca parents: 136 diff changeset	778	#'style:'
335faeed1663 update ca parents: 136 diff changeset	779	#(#FontDescription
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	780	#helvetica #medium
137 335faeed1663 update ca parents: 136 diff changeset	781	#roman #'10'
335faeed1663 update ca parents: 136 diff changeset	782	)
335faeed1663 update ca parents: 136 diff changeset	783	#'model:' #tabModel
335faeed1663 update ca parents: 136 diff changeset	784	#'tabWidget:' #Window
335faeed1663 update ca parents: 136 diff changeset	785	#'canvas:' #noteBookView
335faeed1663 update ca parents: 136 diff changeset	786	)
335faeed1663 update ca parents: 136 diff changeset	787	#(#HorizontalPanelViewSpec
335faeed1663 update ca parents: 136 diff changeset	788	#'name:' 'modifyPanel'
149 e652608690b1 help ... ca parents: 144 diff changeset	789	#'layout:' #(#LayoutFrame 0 0.35 -55 1.0 0 1.0 -25 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	790	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	791	#'component:'
335faeed1663 update ca parents: 136 diff changeset	792	#(#SpecCollection
335faeed1663 update ca parents: 136 diff changeset	793	#'collection:'
335faeed1663 update ca parents: 136 diff changeset	794	#(
335faeed1663 update ca parents: 136 diff changeset	795	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	796	#'name:' 'cancelButton'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	797	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	798	#'label:' 'cancel'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	799	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	800	#'model:' #cancel
335faeed1663 update ca parents: 136 diff changeset	801	#'enableChannel:' #modifiedChannel
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	802	#'extent:' #(#Point 166 24)
137 335faeed1663 update ca parents: 136 diff changeset	803	)
335faeed1663 update ca parents: 136 diff changeset	804	#(#ActionButtonSpec
335faeed1663 update ca parents: 136 diff changeset	805	#'name:' 'acceptButton'
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	806	#'flags:' 0
137 335faeed1663 update ca parents: 136 diff changeset	807	#'label:' 'ok'
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	808	#'tabable:' true
137 335faeed1663 update ca parents: 136 diff changeset	809	#'model:' #accept
335faeed1663 update ca parents: 136 diff changeset	810	#'enableChannel:' #modifiedChannel
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	811	#'extent:' #(#Point 166 24)
137 335faeed1663 update ca parents: 136 diff changeset	812	)
335faeed1663 update ca parents: 136 diff changeset	813	)
335faeed1663 update ca parents: 136 diff changeset	814	)
335faeed1663 update ca parents: 136 diff changeset	815	#'level:' 0
335faeed1663 update ca parents: 136 diff changeset	816	#'horizontalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	817	#'verticalLayout:' #fitSpace
335faeed1663 update ca parents: 136 diff changeset	818	#'horizontalSpace:' 3
335faeed1663 update ca parents: 136 diff changeset	819	#'verticalSpace:' 3
335faeed1663 update ca parents: 136 diff changeset	820	)
149 e652608690b1 help ... ca parents: 144 diff changeset	821	#(#LabelSpec
e652608690b1 help ... ca parents: 144 diff changeset	822	#'name:' 'helpInfo'
e652608690b1 help ... ca parents: 144 diff changeset	823	#'layout:' #(#LayoutFrame 2 0.0 -25 1.0 -2 1.0 -2 1.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	824	#'flags:' 0
149 e652608690b1 help ... ca parents: 144 diff changeset	825	#'label:' ''
e652608690b1 help ... ca parents: 144 diff changeset	826	#'level:' -1
e652608690b1 help ... ca parents: 144 diff changeset	827	#'adjust:' #left
e652608690b1 help ... ca parents: 144 diff changeset	828	)
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	829	#(#ToggleSpec
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	830	#'name:' 'galleryLabel'
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	831	#'layout:' #(#LayoutFrame -162 1.0 1 0 -82 1.0 23 0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	832	#'flags:' 0
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	833	#'label:' 'Gallery'
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	834	#'model:' #galleryShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	835	#'isTriggerOnDown:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	836	#'showLamp:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	837	#'lampColor:' #(#Color 100.0 100.0 0.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	838	)
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	839	#(#ToggleSpec
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	840	#'name:' 'painterLabel'
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	841	#'layout:' #(#LayoutFrame -81 1.0 1 0 -1 1.0 23 0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	842	#'flags:' 0
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	843	#'label:' 'Painter'
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	844	#'model:' #painterShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	845	#'isTriggerOnDown:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	846	#'showLamp:' true
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	847	#'lampColor:' #(#Color 100.0 100.0 0.0)
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	848	)
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	849	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	850	)
0b53bd128667 * empty log message * ca parents: 101 diff changeset	851	)
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	852	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	853
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	854	!UIPainter methodsFor:'actions'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	855
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	856	accept
0b53bd128667 * empty log message * ca parents: 101 diff changeset	857	\|layout\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	858
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	859	objectList removeDependent:self.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	860
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	861	self isLayoutToolSelected ifTrue:[
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	862	(layout := layoutTool layout) notNil ifTrue:[
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	863	layoutTool layoutType == #Extent ifTrue:[
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	864	self painter setExtent:layout
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	865	] ifFalse:[
149 e652608690b1 help ... ca parents: 144 diff changeset	866	self painter setLayout:layout
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	867	]
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	868	]
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	869	] ifFalse:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	870	self isHelpToolSelected ifTrue:[
149 e652608690b1 help ... ca parents: 144 diff changeset	871	activeHelpTool accept
e652608690b1 help ... ca parents: 144 diff changeset	872	].
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	873	self painter updateFromSpec:(specTool specification).
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	874	].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	875	self modifiedChannel value:false.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	876	objectList addDependent:self.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	877
0b53bd128667 * empty log message * ca parents: 101 diff changeset	878	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	879
0b53bd128667 * empty log message * ca parents: 101 diff changeset	880	cancel
0b53bd128667 * empty log message * ca parents: 101 diff changeset	881	"cancel all changes and read back attributes from current view
0b53bd128667 * empty log message * ca parents: 101 diff changeset	882	"
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	883	self modifiedChannel value ifTrue:[
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	884	specTool specification:(self painter specForSelection).
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	885	layoutTool layoutView:(layoutTool layoutView).
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	886	self modifiedChannel value:false.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	887	]
137 335faeed1663 update ca parents: 136 diff changeset	888	!
335faeed1663 update ca parents: 136 diff changeset	889
335faeed1663 update ca parents: 136 diff changeset	890	doubleClick
335faeed1663 update ca parents: 136 diff changeset	891	objectList selectGroup
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	892	!
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	893
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	894	openEditMenu
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	895	\|cls aspect editor\|
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	896
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	897	specClass isNil ifTrue:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	898	^ self information:'no class yet'.
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	899	].
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	900	(cls := specClass) isBehavior ifFalse:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	901	cls := Smalltalk at:specClass asSymbol.
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	902	cls isNil ifTrue:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	903	^ self information:'no class yet'
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	904	]
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	905	].
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	906
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	907	cls notNil ifTrue:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	908	(aspect := specTool specification menu) notNil ifTrue:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	909	aspect := aspect asSymbol
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	910	].
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	911	editor := MenuEditor new.
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	912	editor masterApplication:self.
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	913	editor activeHelpTool:(self activeHelpTool).
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	914	editor openModalOnClass:cls andSelector:aspect
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	915	]
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	916
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	917
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	918	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	919
149 e652608690b1 help ... ca parents: 144 diff changeset	920	!UIPainter methodsFor:'active help'!
e652608690b1 help ... ca parents: 144 diff changeset	921
197 646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	922	activeHelpTool
646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	923	"setup help tool
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	924	"
149 e652608690b1 help ... ca parents: 144 diff changeset	925	activeHelpTool isNil ifTrue:[
152 2261aa2fa21d help ca parents: 149 diff changeset	926	activeHelpTool := UIHelpTool new.
197 646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	927	activeHelpTool helpSpecFrom:specClass.
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	928	activeHelpTool masterApplication:self.
149 e652608690b1 help ... ca parents: 144 diff changeset	929	].
e652608690b1 help ... ca parents: 144 diff changeset	930	^ activeHelpTool
e652608690b1 help ... ca parents: 144 diff changeset	931	!
e652608690b1 help ... ca parents: 144 diff changeset	932
e652608690b1 help ... ca parents: 144 diff changeset	933	showHelp:aHelpText for:view
e652608690b1 help ... ca parents: 144 diff changeset	934	"hook to allow an application to display active help
e652608690b1 help ... ca parents: 144 diff changeset	935	texts in its own info area.
e652608690b1 help ... ca parents: 144 diff changeset	936	This method may be redefined in a concrete application.
e652608690b1 help ... ca parents: 144 diff changeset	937	If it returns false, the ActiveHelp manager will popup a
e652608690b1 help ... ca parents: 144 diff changeset	938	bubble with the help text."
e652608690b1 help ... ca parents: 144 diff changeset	939
e652608690b1 help ... ca parents: 144 diff changeset	940	\|l\|
e652608690b1 help ... ca parents: 144 diff changeset	941
e652608690b1 help ... ca parents: 144 diff changeset	942	(l := self builder componentAt:#helpInfo) notNil ifTrue:[
152 2261aa2fa21d help ca parents: 149 diff changeset	943	aHelpText replaceAll:(Character cr) by:(Character space).
149 e652608690b1 help ... ca parents: 144 diff changeset	944	l label:aHelpText.
152 2261aa2fa21d help ca parents: 149 diff changeset	945	^ true.
149 e652608690b1 help ... ca parents: 144 diff changeset	946	].
e652608690b1 help ... ca parents: 144 diff changeset	947	^ false
e652608690b1 help ... ca parents: 144 diff changeset	948
e652608690b1 help ... ca parents: 144 diff changeset	949
e652608690b1 help ... ca parents: 144 diff changeset	950	! !
e652608690b1 help ... ca parents: 144 diff changeset	951
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	952	!UIPainter methodsFor:'aspects'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	953
118 bc196200ea8b enabled and style ca parents: 114 diff changeset	954	enableChannel
bc196200ea8b enabled and style ca parents: 114 diff changeset	955	"true if modifications are allowed otherwise running test
bc196200ea8b enabled and style ca parents: 114 diff changeset	956	"
bc196200ea8b enabled and style ca parents: 114 diff changeset	957	^ self painter enableChannel
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	958	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	959
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	960	galleryShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	961	\|holder\|
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	962
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	963	(holder := builder bindingAt:#galleryShown) isNil ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	964	builder aspectAt:#galleryShown put:(holder := true asValue).
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	965	holder addDependent:self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	966	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	967	^ holder
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	968
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	969	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	970
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	971	modifiedChannel
0b53bd128667 * empty log message * ca parents: 101 diff changeset	972
0b53bd128667 * empty log message * ca parents: 101 diff changeset	973	\|holder\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	974
0b53bd128667 * empty log message * ca parents: 101 diff changeset	975	(holder := builder bindingAt:#modifiedChannel) isNil ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	976	builder aspectAt:#modifiedChannel put:(holder := false asValue).
0b53bd128667 * empty log message * ca parents: 101 diff changeset	977	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	978	^ holder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	979	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	980
0b53bd128667 * empty log message * ca parents: 101 diff changeset	981	noteBookView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	982	"automatically generated by UIPainter ..."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	983
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	984	\|noteBook channel n1 n2\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	985
0b53bd128667 * empty log message * ca parents: 101 diff changeset	986	(noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	987	noteBook := View new.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	988	layoutTool := UILayoutTool new.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	989	specTool := UISpecificationTool new.
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	990	channel := self modifiedChannel.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	991
152 2261aa2fa21d help ca parents: 149 diff changeset	992	layoutTool masterApplication:self.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	993	specTool masterApplication:self.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	994
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	995	n1 := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	996	n2 := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	997
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	998	n1 client:layoutTool.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	999	specTool builder:(n2 client:specTool).
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1000
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1001	layoutTool masterApplication:self.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1002	specTool masterApplication:self.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1003	layoutTool modifiedHolder:channel.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1004	specTool modifiedHolder:channel.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1005	builder aspectAt:#noteBookView put:noteBook.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1006	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1007	^ noteBook
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1008	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1009
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1010	objectList
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1011	^ objectList
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1012	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1013
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1014	objectListMenu
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1015	"returns a block which returns the menu
114 93cd25c62a68 menu and handling ca parents: 109 diff changeset	1016	!!hack!!
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1017	"
121 96d6feeeb049 middleButtonMen: ca parents: 118 diff changeset	1018	^ [ self painter showMiddleButtonMenu ].
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1019
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1020
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1021
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1022	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1023
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1024	painterShown
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1025	\|holder\|
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1026
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1027	(holder := builder bindingAt:#painterShown) isNil ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1028	builder aspectAt:#painterShown put:(holder := true asValue).
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1029	holder addDependent:self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1030	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1031	^ holder
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1032
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1033	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1034
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1035	tabList
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1036	"automatically generated by UIPainter ..."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1037
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1038	\|holder\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1039
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1040	(holder := builder bindingAt:#tabList) isNil ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1041	builder aspectAt:#tabList put:(holder := ValueHolder new).
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1042	holder value:#( 'Properties' ).
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1043	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1044	^ holder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1045	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1046
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1047	tabModel
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1048	"automatically generated by UIPainter ..."
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1049
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1050	\|holder\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1051
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1052	(holder := builder bindingAt:#tabModel) isNil ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1053	holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1054	builder aspectAt:#tabModel put:holder.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1055	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1056	^ holder
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1057	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1058
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1059	!UIPainter methodsFor:'binding access'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1060
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1061	aspectFor:aKey
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1062	"check wether aspect is assigned to a label icon
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1063	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1064	(aKey startsWith:'LABEL') ifFalse:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1065	^ aspects at:aKey ifAbsent:[ super aspectFor:aKey ]
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1066	].
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1067	^ Image fromFile:(aKey copyFrom:(('LABEL' size) + 1))
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1068	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1069
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1070	!UIPainter methodsFor:'change & update'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1071
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1072	update:something with:aParameter from:someObject
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1073
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1074	(someObject == objectList and:[something ~~ #list]) ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1075	something ~~ #layout ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1076	self objectListChanged
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1077	] ifFalse:[
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1078	self modifiedChannel value ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1079	^ self
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1080	].
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1081	layoutTool update
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1082	].
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1083	^ self modifiedChannel value:false
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1084	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1085
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1086	self galleryShown == someObject ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1087	(self galleryShown value) ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1088	self raiseUIView:(selectionPanel window)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1089	] ifFalse:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1090	self hideUIView:(selectionPanel window)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1091	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1092	^ self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1093	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1094
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1095	self painterShown == someObject ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1096	(self painterShown value) ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1097	self raiseUIView:(self painter topView)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1098	] ifFalse:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1099	self hideUIView:(self painter topView)
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1100	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1101	^ self
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1102	].
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1103
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1104	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1105
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1106	!UIPainter methodsFor:'event handling'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1107
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1108	doesNotUnderstand:aMessage
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1109	\|painter\|
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1110
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1111	painter := self painter.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1112
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1113	(painter respondsTo:(aMessage selector)) ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1114	^ aMessage sendTo:painter
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1115	].
149 e652608690b1 help ... ca parents: 144 diff changeset	1116	super doesNotUnderstand:aMessage
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1117
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1118	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1119
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1120	objectListChanged
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1121	"something changed in the painter view
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1122	"
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1123	\|oldSelection view slices list spec props size nameOfSpec\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1124
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1125	props := objectList selectedProperty.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1126	oldSelection := tabSelection.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1127	tabSelection := nil.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1128
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1129	props isNil ifFalse:[
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1130	view := props view.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1131	spec := props spec copy.
142 75f927b856f6 update specs; remove color and default values ca parents: 137 diff changeset	1132
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1133	layoutTool layoutView == view ifFalse:[
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1134	slices := spec class slices.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1135	size := slices size + 1.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1136	list := Array new:size.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1137	slices keysAndValuesDo:[:i :s\|list at:i put:(s first asString)].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1138	list at:size put:(layoutTool class label).
144 bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1139	(self tabList) value:list.
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1140	] ifTrue:[
bca8b1953ee8 checkin from browser ca parents: 142 diff changeset	1141	list := self tabList value
142 75f927b856f6 update specs; remove color and default values ca parents: 137 diff changeset	1142	].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1143	(list findFirst:[:n\| n = oldSelection ]) ~~ 0 ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1144	tabSelection := oldSelection
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1145	] ifFalse:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1146	tabSelection := list first
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1147	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1148	nameOfSpec := spec class name.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1149	] ifTrue:[
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1150	nameOfSpec := ''
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1151	].
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1152
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1153	self showHelp:nameOfSpec for:nil.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1154
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1155	layoutTool layoutView:view.
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1156	specTool specification:spec.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1157
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1158	tabSelection notNil ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1159	self isLayoutToolSelected ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1160	(self noteBookView subViews at:1) raise
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1161	] ifFalse:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1162	specTool selection:tabSelection.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1163	(self noteBookView subViews at:2) raise
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1164	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1165	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1166
168 8a79add2260f update notification when tab changed ca parents: 166 diff changeset	1167	(builder componentAt:#noteBook) setSelection:tabSelection.
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1168	self modifiedChannel value:false.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1169	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1170
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1171	!UIPainter methodsFor:'private'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1172
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1173	hideUIView:aView
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1174	aView beIndependent.
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1175	aView unmap.
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1176	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1177
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1178	painter
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1179	^ objectList painter
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1180	!
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1181
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1182	raiseUIView:aView
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1183	aView map.
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1184	aView bePartner.
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1185	!
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1186
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1187	setClass:cls selector:selector
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1188	\|clsName superClassName\|
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1189
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1190	clsName := cls name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1191	superClassName := cls superclass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1192
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1193	(self aspectFor:#classNameChannel) value:clsName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1194	(self aspectFor:#methodNameChannel) value:(selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1195	(self aspectFor:#superclassNameChannel) value:superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1196
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1197	self painter
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1198	className:clsName
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1199	superclassName:superClassName
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1200	selector:(selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1201
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1202	specClass := clsName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1203	specSelector := (selector ? '').
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1204	specSuperclass := superClassName.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1205
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1206	"Modified: 24.6.1997 / 19:07:01 / cg"
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1207	! !
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1208
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1209	!UIPainter methodsFor:'queries'!
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1210
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1211	hasSpecClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1212
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1213	specClass notNil ifTrue:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1214	^ (specClass isBehavior or:[(Smalltalk at:specClass asSymbol) notNil])
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1215	].
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1216	^ false
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1217	!
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1218
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1219	hasSpecClassAndSelector
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1220
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1221	specSelector size > 1 ifTrue:[
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1222	^ self hasSpecClass
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1223	].
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1224	^ false
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1225	!
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1226
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1227	isHelpToolSelected
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1228	^ tabSelection = 'Help'
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1229	!
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1230
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1231	isLayoutToolSelected
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1232	^ tabSelection = layoutTool class label
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1233	!
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1234
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1235	isPainterEnabled
354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1236	^ self painter enabled
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1237	! !
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1238
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1239	!UIPainter methodsFor:'selection'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1240
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1241	tabSelection
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1242	^ tabSelection
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1243	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1244
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1245	tabSelection:something
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1246	\|raiseViewIdx\|
121 96d6feeeb049 middleButtonMen: ca parents: 118 diff changeset	1247
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1248	something notNil ifTrue:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1249	raiseViewIdx := 1.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1250	tabSelection := something.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1251
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1252	self isLayoutToolSelected ifFalse:[
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1253	specTool selection:tabSelection.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1254	raiseViewIdx := 2
121 96d6feeeb049 middleButtonMen: ca parents: 118 diff changeset	1255	].
166 cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1256	(self noteBookView subViews at:raiseViewIdx) raise.
cd5699643975 add tools: layout and specification tool ca parents: 161 diff changeset	1257	self cancel.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1258	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1259	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1260
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1261	!UIPainter methodsFor:'startup / release'!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1262
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1263	closeRequest
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1264	"close all windows open by builder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1265	"
133 e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1266	\|anyUnsavedChanges\|
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1267
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1268	objectList painter isModified ifTrue:[
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1269	(self confirm:'quit without saving ?') ifFalse:[
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1270	^ self
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1271	]
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1272	].
e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1273
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1274	objectList removeDependent:self.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1275	objectList painter release.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1276
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1277	selectionPanel notNil ifTrue:[
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	1278	selectionPanel masterApplication:nil.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1279	selectionPanel closeRequest
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1280	].
149 e652608690b1 help ... ca parents: 144 diff changeset	1281	selectionPanel := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1282	layoutTool := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1283	objectList := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1284	activeHelpTool := nil.
e652608690b1 help ... ca parents: 144 diff changeset	1285
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1286	super closeRequest.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1287
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1288	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1289
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1290	closeRequestFor:aTopView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1291	"handle a close request for a specific view
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1292	"
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1293	\|topView\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1294
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1295	topView := self window.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1296
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1297	topView == aTopView ifTrue:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1298	super closeRequestFor:aTopView
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1299	] ifFalse:[
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1300	aTopView = selectionPanel window ifTrue:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1301	self galleryShown value:false
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1302	] ifFalse:[
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1303	self painterShown value:false
a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1304	].
133 e12f82d3afb7 popup box caused by a closeRequest with still open ca parents: 130 diff changeset	1305	topView raise.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1306	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1307	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1308
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1309	openInterface
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1310	"open interfaces
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1311	"
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1312	\|painterView painter cls topView\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1313
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1314	aspects := IdentityDictionary new.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1315
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1316	aspects at:#classNameChannel put:(
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1317	(specClass notNil ifTrue:[specClass]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1318	ifFalse:['NewApplication']) asValue
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1319	).
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1320	specSuperclass isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1321	specClass notNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1322	(cls := Smalltalk at:specClass asSymbol) notNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1323	specSuperclass := cls superclass name.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1324	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1325	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1326	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1327	aspects at:#superclassNameChannel put:(
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1328	(specSuperclass notNil ifTrue:[specSuperclass]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1329	ifFalse:['ApplicationModel']) asValue
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1330	).
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1331	aspects at:#superclassNameDefaults put:#('ApplicationModel' 'SimpleDialog') asValue.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1332	aspects at:#methodNameChannel put:(
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1333	(specSelector notNil ifTrue:[specSelector asValue]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1334	ifFalse:[#windowSpec]) asValue
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1335	).
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1336
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1337	painterView := StandardSystemView new.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1338	painterView label:'unnamed canvas'.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1339	painterView extent:300@300.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1340
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1341	painter := UIPainterView in:painterView.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1342	painter layout:(0.0 @ 0.0 corner:1.0 @ 1.0) asLayout.
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1343
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1344	objectList := painter listHolder.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1345	objectList addDependent:self.
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1346
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1347	super openInterface.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1348
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1349	topView := self window.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1350	topView bePartner.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1351	topView label:'Interface Builder'.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1352	topView icon:(Image fromFile:'bitmaps/Builder.xbm' resolution:100).
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1353
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1354	painterView openInGroup:(topView windowGroup).
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1355	painterView bePartner.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1356	painterView application:self.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1357	painterView open.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1358
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1359	painterView application:self.
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	1360	selectionPanel := UISelectionPanel new.
136 42a2a4494281 remove postOpen ca parents: 133 diff changeset	1361	selectionPanel allButOpenInterface:#windowSpec.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1362	selectionPanel window openInGroup:(topView windowGroup).
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1363	selectionPanel window bePartner.
42a2a4494281 remove postOpen ca parents: 133 diff changeset	1364	selectionPanel openWindow.
183 bb0cc63e2cf1 set masterApllication instead of application ca parents: 179 diff changeset	1365	selectionPanel masterApplication:self.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1366	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1367
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1368	openNewWindowCanvas
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1369	"open new
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1370	"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1371	self open.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1372
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1373
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1374	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1375
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1376	openOnClass:aClass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1377	"open up an interface builder
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1378	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1379	self openOnClass:aClass andSelector:#windowSpec
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1380	!
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1381
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1382	openOnClass:aClass andSelector:aSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1383	"open up an interface builder, fetching a spec from someClass
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1384	via some selector
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1385	"
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1386	\|painter\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1387
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1388	aClass isNil ifTrue:[
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1389	self warn:'nil class given (class was probably renamed ?)'.
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1390	].
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1391
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1392	self openInterface.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1393
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1394	aClass notNil ifTrue:[
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1395	painter := self painter.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1396
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1397	self setClass:aClass selector:aSelector.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1398	"/ specClass := aClass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1399	"/ specSuperclass := aClass superclass name.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1400	"/ specSelector := aSelector.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1401	"/
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1402	"/ (aspects at:#classNameChannel) value:specClass.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1403	"/ (aspects at:#superclassNameChannel) value:specSuperclass.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1404	"/ (aspects at:#methodNameChannel) value:specSelector asSymbol.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1405	"/
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1406	"/ painter
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1407	"/ className:aClass name
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1408	"/ superclassName:aClass superclass name
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1409	"/ selector:aSelector.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1410
195 350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1411	(aClass respondsTo:aSelector) ifTrue:[
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1412	painter setupFromSpec:(aClass perform:aSelector).
350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1413	]
157 ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1414	]
ce974dce3dd4 enhanced class & method dialog Claus Gittinger <cg@exept.de> parents: 156 diff changeset	1415
195 350f95af5d9d check before sending selector to class Claus Gittinger <cg@exept.de> parents: 194 diff changeset	1416	"Modified: 1.7.1997 / 19:18:54 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1417	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1418
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1419	!UIPainter methodsFor:'user interaction - dialog'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1420
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1421	checkClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1422	"check for class & superclass"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1423
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1424	\|superclass cls\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1425
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1426	specClass isNil ifTrue:[^ false].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1427
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1428	specClass isBehavior ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1429	cls := Smalltalk at:specClass asSymbol
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1430	] ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1431	cls := specClass
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1432	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1433	cls isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1434	(superclass := Smalltalk at:specSuperclass asSymbol) isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1435	self warn:'no class named ' , specSuperclass , ' exists.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1436	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1437	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1438	(self confirm:'create ' , specClass , ' ?') ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1439	superclass subclass:(specClass asSymbol)
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1440	instanceVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1441	classVariableNames:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1442	poolDictionaries:''
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1443	category:'New-Applications'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1444	^ true.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1445	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1446	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1447	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1448	cls isBehavior ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1449	self warn:'a global named ' , specClass , ' exists, but is no class.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1450	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1451	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1452
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1453	specSuperclass isBehavior ifFalse:[
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1454	specSuperclass isEmpty ifFalse:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1455	superclass := Smalltalk at:specSuperclass asSymbol
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1456	] ifTrue:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1457	specSuperclass := nil.
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1458	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1459	] ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1460	superclass := specSuperclass
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1461	].
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1462
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1463	specSuperclass notNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1464	superclass isNil ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1465	self warn:'no class named ' , specSuperclass , ' exists.'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1466	^ false.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1467	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1468
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1469	(cls isSubclassOf:superclass) ifFalse:[
206 1c3fb15ffd62 checkClassAndSelector ca parents: 197 diff changeset	1470	self information:('a global named ' , specClass , ' exists,\' ,
1c3fb15ffd62 checkClassAndSelector ca parents: 197 diff changeset	1471	'but is not a subclass of ' , superclass name , '.\\' ,
1c3fb15ffd62 checkClassAndSelector ca parents: 197 diff changeset	1472	'Check and try again if that is not what you want.') withCRs.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1473	]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1474	].
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1475
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1476	superclass isNil ifTrue:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1477	cls notNil ifTrue:[
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1478	specSuperclass := cls superclass name
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1479	]
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1480	].
72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1481
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1482	^ true
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1483
179 72eec92090f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 177 diff changeset	1484	"Modified: 25.6.1997 / 13:37:11 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1485	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1486
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1487	defineClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1488	"launch a dialog to define class, superclass and method"
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1489
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1490	\|again tmp\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1491
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1492	[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1493	again := false.
160 622b88baeff6 checkin from browser Claus Gittinger <cg@exept.de> parents: 157 diff changeset	1494
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1495	(tmp := specClass) isNil ifTrue:[tmp := 'NewApplication'].
a9e5b1615761 update menu ca parents: 174 diff changeset	1496	aspects at:#classNameChannel put:tmp asValue.
a9e5b1615761 update menu ca parents: 174 diff changeset	1497
a9e5b1615761 update menu ca parents: 174 diff changeset	1498	(tmp := specSelector) isNil ifTrue:[tmp := 'windowSpec'].
a9e5b1615761 update menu ca parents: 174 diff changeset	1499	aspects at:#methodNameChannel put:tmp asValue.
a9e5b1615761 update menu ca parents: 174 diff changeset	1500
a9e5b1615761 update menu ca parents: 174 diff changeset	1501	(tmp := specSuperclass) isNil ifTrue:[tmp := 'ApplicationModel'].
a9e5b1615761 update menu ca parents: 174 diff changeset	1502	aspects at:#superclassNameChannel put:tmp asValue.
160 622b88baeff6 checkin from browser Claus Gittinger <cg@exept.de> parents: 157 diff changeset	1503
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1504	(self openDialogInterface:#nameAndSelectorSpec) ifTrue:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1505
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1506	specClass := (self aspectFor:#classNameChannel) value.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1507	specSelector := (self aspectFor:#methodNameChannel) value.
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1508	specSelector notNil ifTrue:[specSelector := specSelector asSymbol].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1509	specSuperclass := (self aspectFor:#superclassNameChannel) value.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1510
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1511	(again := self checkClassAndSelector not) ifFalse:[
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1512	self painter className:specClass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1513	superclassName:specSuperclass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1514	selector:specSelector.
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1515	]
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1516	]
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1517
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1518	] doWhile:[again]
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1519
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1520	"Modified: 17.6.1997 / 14:42:02 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1521	! !
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1522
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1523	!UIPainter methodsFor:'user interaction - pullDown'!
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1524
149 e652608690b1 help ... ca parents: 144 diff changeset	1525	doBrowseAppClass
e652608690b1 help ... ca parents: 144 diff changeset	1526	"open a browser on the class"
e652608690b1 help ... ca parents: 144 diff changeset	1527
e652608690b1 help ... ca parents: 144 diff changeset	1528	\|cls\|
e652608690b1 help ... ca parents: 144 diff changeset	1529
e652608690b1 help ... ca parents: 144 diff changeset	1530	specClass isNil ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1531	^ self information:'no class yet'.
e652608690b1 help ... ca parents: 144 diff changeset	1532	].
e652608690b1 help ... ca parents: 144 diff changeset	1533
e652608690b1 help ... ca parents: 144 diff changeset	1534	specClass isBehavior ifFalse:[
e652608690b1 help ... ca parents: 144 diff changeset	1535	cls := Smalltalk at:specClass asSymbol
e652608690b1 help ... ca parents: 144 diff changeset	1536	] ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1537	cls := specClass
e652608690b1 help ... ca parents: 144 diff changeset	1538	].
e652608690b1 help ... ca parents: 144 diff changeset	1539
e652608690b1 help ... ca parents: 144 diff changeset	1540	cls isNil ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1541	^ self information:'no class yet'.
e652608690b1 help ... ca parents: 144 diff changeset	1542	].
e652608690b1 help ... ca parents: 144 diff changeset	1543
e652608690b1 help ... ca parents: 144 diff changeset	1544	SystemBrowser openInClass:cls
e652608690b1 help ... ca parents: 144 diff changeset	1545
e652608690b1 help ... ca parents: 144 diff changeset	1546
e652608690b1 help ... ca parents: 144 diff changeset	1547	!
e652608690b1 help ... ca parents: 144 diff changeset	1548
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1549	doFromClass
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1550	\|className methodName cls sel accepted failed spec s painter\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1551
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1552	objectList painter isModified ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1553	(self confirm:'edit another interface without saving your modifications ?') ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1554	^ self
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1555	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1556	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1557
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1558	className := (specClass ? '') asValue.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1559	methodName := (specSelector ? '') asValue.
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1560	painter := self painter.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1561
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1562	(s := painter className) notNil ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1563	className value:s
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1564	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1565	(s := painter methodName) notNil ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1566	methodName value:s
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1567	].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1568
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1569	failed := false.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1570	[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1571	accepted :=
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1572	(DialogBox new
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1573	addTextLabel:'Classes name:';
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1574	addInputFieldOn:className;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1575	addVerticalSpace;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1576	addTextLabel:'methods name:';
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1577	addInputFieldOn:methodName;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1578	addAbortButton;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1579	addOkButton;
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1580	open
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1581	) accepted.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1582
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1583	accepted ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1584	cls := Smalltalk classNamed:className value.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1585	cls isNil ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1586	failed := true.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1587	self warn:'no such class'.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1588	] ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1589	sel := methodName value asSymbol.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1590	(cls respondsTo:sel ) ifFalse:[
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1591	failed := true.
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1592	self warn:'no such method'
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1593	] ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1594	spec := cls perform:sel.
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1595	spec isArray ifFalse:[
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1596	failed := true.
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1597	self warn:'not a windowSpec method'
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1598	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1599	"/ ok, got it
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1600
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1601	self setClass:cls selector:sel.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1602
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1603	painter setupFromSpec:spec.
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1604
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1605	^ self
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1606	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1607	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1608	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1609	] doWhile:[accepted and:[failed]].
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1610
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1611	"Modified: 24.6.1997 / 18:59:29 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1612	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1613
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1614	doInstallAspects
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1615	\|code\|
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1616
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1617	self hasSpecClassAndSelector ifFalse:[
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1618	self defineClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1619	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1620
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1621	self checkClassAndSelector ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1622	^ self
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1623	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1624
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1625	self painter className:specClass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1626	superclassName:specSuperclass
0b53bd128667 * empty log message * ca parents: 101 diff changeset	1627	selector:specSelector.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1628
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1629	code := self painter generateAspectMethods.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1630	(ReadStream on:code) fileIn.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1631
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1632	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1633
152 2261aa2fa21d help ca parents: 149 diff changeset	1634	doInstallHelp
197 646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	1635	"install help text
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1636	"
197 646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	1637	activeHelpTool notNil ifTrue:[
646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	1638	activeHelpTool installHelpSpecInto:specClass
646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	1639	] ifFalse:[
646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	1640	self information:'no help text defined'
646d24a7ad36 generate help specs moved to UIHelpTool ca parents: 195 diff changeset	1641	]
152 2261aa2fa21d help ca parents: 149 diff changeset	1642	!
2261aa2fa21d help ca parents: 149 diff changeset	1643
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1644	doInstallSpec
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1645	\|code painter\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1646
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1647	self hasSpecClassAndSelector ifFalse:[
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1648	self defineClassAndSelector
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1649	].
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1650
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1651	self checkClassAndSelector ifFalse:[
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1652	^ self
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1653	].
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1654	painter := self painter.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1655
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1656	painter className:specClass
a9e5b1615761 update menu ca parents: 174 diff changeset	1657	superclassName:specSuperclass
a9e5b1615761 update menu ca parents: 174 diff changeset	1658	selector:specSelector.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1659
176 a9e5b1615761 update menu ca parents: 174 diff changeset	1660	code := painter generateWindowSpecMethodSource withCRs.
a9e5b1615761 update menu ca parents: 174 diff changeset	1661	painter resetModification.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1662	(ReadStream on:code) fileIn.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1663
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1664	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1665
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1666	doNew
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1667	objectList painter isModified ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1668	(self confirm:'new interface without saving your modifications ?') ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1669	^ self
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1670	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1671	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1672
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1673	self removeAll
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1674
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1675	"Modified: 17.6.1997 / 12:33:31 / cg"
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1676	!
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1677
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1678	doPickAView
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1679	\|painter view cls spec\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1680
155 575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1681	objectList painter isModified ifTrue:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1682	(self confirm:'pick another interface without saving your modifications ?') ifFalse:[
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1683	^ self
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1684	]
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1685	].
575239b7ad0b confirm pick/new/fromClass if unsaved & modified Claus Gittinger <cg@exept.de> parents: 152 diff changeset	1686
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1687	(view := Screen current viewFromUser) notNil ifTrue:[
174 0e87610c2768 pick a view ca parents: 173 diff changeset	1688	view == Screen current rootView ifFalse:[
0e87610c2768 pick a view ca parents: 173 diff changeset	1689	painter := self painter.
0e87610c2768 pick a view ca parents: 173 diff changeset	1690	spec := UISpecification fromView:view topView.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1691
174 0e87610c2768 pick a view ca parents: 173 diff changeset	1692	"/ ok, got it
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1693
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1694	view application notNil ifTrue:[
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1695	cls := view application class
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1696	] ifFalse:[
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1697	cls := view class
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1698	].
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1699	self setClass:cls selector:nil.
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1700
174 0e87610c2768 pick a view ca parents: 173 diff changeset	1701	painter setupFromSpec:spec.
0e87610c2768 pick a view ca parents: 173 diff changeset	1702	]
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1703	]
177 eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1704
eefd69a52f5b fixed setup of class/selector when picking/fetching via Claus Gittinger <cg@exept.de> parents: 176 diff changeset	1705	"Modified: 24.6.1997 / 19:02:57 / cg"
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1706	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1707
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1708	doRaise
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1709	\|top x\|
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1710
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1711	top := self painter topView.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1712	top realized ifFalse:[
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1713	self painterShown value:true
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1714	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1715	top raise.
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1716
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1717	top := selectionPanel window.
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1718	top realized ifFalse:[
173 a8468f4e83f0 show/hide painter/gallery ca parents: 171 diff changeset	1719	self galleryShown value:true
171 7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1720	].
7a99c53780ef help and close/raise of gallery/painter ca parents: 168 diff changeset	1721	top raise.
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1722	!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1723
149 e652608690b1 help ... ca parents: 144 diff changeset	1724	doStartApplication
e652608690b1 help ... ca parents: 144 diff changeset	1725	\|cls\|
e652608690b1 help ... ca parents: 144 diff changeset	1726
217 354ba46948b4 access MenuEditor for specs ca parents: 206 diff changeset	1727	(specClass isNil or:[specSelector size < 2]) ifTrue:[
149 e652608690b1 help ... ca parents: 144 diff changeset	1728	^ self information:'no class or selector defined'.
e652608690b1 help ... ca parents: 144 diff changeset	1729	].
e652608690b1 help ... ca parents: 144 diff changeset	1730
e652608690b1 help ... ca parents: 144 diff changeset	1731	specClass isBehavior ifFalse:[
e652608690b1 help ... ca parents: 144 diff changeset	1732	cls := Smalltalk at:specClass asSymbol
e652608690b1 help ... ca parents: 144 diff changeset	1733	] ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1734	cls := specClass
e652608690b1 help ... ca parents: 144 diff changeset	1735	].
e652608690b1 help ... ca parents: 144 diff changeset	1736
e652608690b1 help ... ca parents: 144 diff changeset	1737	cls isNil ifTrue:[
e652608690b1 help ... ca parents: 144 diff changeset	1738	^ self information:'class not existant'.
e652608690b1 help ... ca parents: 144 diff changeset	1739	].
e652608690b1 help ... ca parents: 144 diff changeset	1740
e652608690b1 help ... ca parents: 144 diff changeset	1741	(cls respondsTo:specSelector) ifFalse:[
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1742	self halt.
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1743	^ self information:('no method for: #'
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1744	, specSelector , ' in ' , cls name ,
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1745	'\\(did you install the spec ?)') withCRs.
149 e652608690b1 help ... ca parents: 144 diff changeset	1746	].
e652608690b1 help ... ca parents: 144 diff changeset	1747	cls new openInterface:specSelector
161 12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1748
12a70f62f414 checkin from browser Claus Gittinger <cg@exept.de> parents: 160 diff changeset	1749	"Modified: 17.6.1997 / 14:40:21 / cg"
149 e652608690b1 help ... ca parents: 144 diff changeset	1750	!
e652608690b1 help ... ca parents: 144 diff changeset	1751
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1752	doWindowSpec
68 889c3877baf0 layout .... ca parents: 65 diff changeset	1753	\|code code2 v\|
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1754
109 0b53bd128667 * empty log message * ca parents: 101 diff changeset	1755	code := self painter generateWindowSpecMethodSource.
68 889c3877baf0 layout .... ca parents: 65 diff changeset	1756
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1757	v := CodeView open.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1758	v contents:code.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1759	v label:'windowSpec'.
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1760
81 7493e2437af5 checkin from browser ca parents: 77 diff changeset	1761	! !
7493e2437af5 checkin from browser ca parents: 77 diff changeset	1762
60 7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1763	!UIPainter class methodsFor:'documentation'!
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1764
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1765	version
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1766	^ '$Header$'
7542ab7fbbfe * empty log message * Claus Gittinger <cg@exept.de> parents: 59 diff changeset	1767	! !

author	ca
	Thu, 17 Jul 1997 12:02:57 +0200
changeset 217	354ba46948b4
parent 206	1c3fb15ffd62
child 222	dd2688307d90
permissions	-rw-r--r--