hg/stx-libtool2: MenuEditor.st@98b67511b1c0 (annotated)

199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6ce84c1270a6 intitial checkin ca parents: diff changeset	3	All Rights Reserved
6ce84c1270a6 intitial checkin ca parents: diff changeset	4
6ce84c1270a6 intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
6ce84c1270a6 intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
6ce84c1270a6 intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
6ce84c1270a6 intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
6ce84c1270a6 intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
6ce84c1270a6 intitial checkin ca parents: diff changeset	10	hereby transferred.
6ce84c1270a6 intitial checkin ca parents: diff changeset	11	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	12
6ce84c1270a6 intitial checkin ca parents: diff changeset	13
6ce84c1270a6 intitial checkin ca parents: diff changeset	14
398 155310ec83aa revised version tz parents: 382 diff changeset	15	ToolApplicationModel subclass:#MenuEditor
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	16	instanceVariableNames:'isModified specClass specCanvas helpCanvas tabSelection aspects
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	17	slices didInstall'
220 8f0065e7a83d update ca parents: 218 diff changeset	18	classVariableNames:''
8f0065e7a83d update ca parents: 218 diff changeset	19	poolDictionaries:''
8f0065e7a83d update ca parents: 218 diff changeset	20	category:'Interface-UIPainter'
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	21	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	22
6ce84c1270a6 intitial checkin ca parents: diff changeset	23	Object subclass:#Item
220 8f0065e7a83d update ca parents: 218 diff changeset	24	instanceVariableNames:'activeHelpKey enabled label value nameKey indication shortcutKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	25	accessCharacterPos retriever icon iconAndLabel submenuChannel
398 155310ec83aa revised version tz parents: 382 diff changeset	26	argument translateLabel isButton'
220 8f0065e7a83d update ca parents: 218 diff changeset	27	classVariableNames:''
8f0065e7a83d update ca parents: 218 diff changeset	28	poolDictionaries:''
8f0065e7a83d update ca parents: 218 diff changeset	29	privateIn:MenuEditor
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	30	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	31
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	32	SelectionInTreeView subclass:#TreeView
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	33	instanceVariableNames:'images'
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	34	classVariableNames:'CopyBuffer Images'
220 8f0065e7a83d update ca parents: 218 diff changeset	35	poolDictionaries:''
8f0065e7a83d update ca parents: 218 diff changeset	36	privateIn:MenuEditor
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	37	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	38
6ce84c1270a6 intitial checkin ca parents: diff changeset	39	!MenuEditor class methodsFor:'documentation'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	40
6ce84c1270a6 intitial checkin ca parents: diff changeset	41	copyright
6ce84c1270a6 intitial checkin ca parents: diff changeset	42	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	43	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
6ce84c1270a6 intitial checkin ca parents: diff changeset	44	All Rights Reserved
6ce84c1270a6 intitial checkin ca parents: diff changeset	45
6ce84c1270a6 intitial checkin ca parents: diff changeset	46	This software is furnished under a license and may be used
6ce84c1270a6 intitial checkin ca parents: diff changeset	47	only in accordance with the terms of that license and with the
6ce84c1270a6 intitial checkin ca parents: diff changeset	48	inclusion of the above copyright notice. This software may not
6ce84c1270a6 intitial checkin ca parents: diff changeset	49	be provided or otherwise made available to, or used by, any
6ce84c1270a6 intitial checkin ca parents: diff changeset	50	other person. No title to or ownership of the software is
6ce84c1270a6 intitial checkin ca parents: diff changeset	51	hereby transferred.
6ce84c1270a6 intitial checkin ca parents: diff changeset	52	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	53
6ce84c1270a6 intitial checkin ca parents: diff changeset	54
6ce84c1270a6 intitial checkin ca parents: diff changeset	55	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	56
6ce84c1270a6 intitial checkin ca parents: diff changeset	57	documentation
6ce84c1270a6 intitial checkin ca parents: diff changeset	58	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	59	create and modify or inspect popup and pullDown menus of the
6ce84c1270a6 intitial checkin ca parents: diff changeset	60	new style( derives from Menu).
6ce84c1270a6 intitial checkin ca parents: diff changeset	61
6ce84c1270a6 intitial checkin ca parents: diff changeset	62	[start with:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	63	MenuEditor open
6ce84c1270a6 intitial checkin ca parents: diff changeset	64	MenuEditor new openOnClass:MenuEditor andSelector:#menuPullDown
6ce84c1270a6 intitial checkin ca parents: diff changeset	65
6ce84c1270a6 intitial checkin ca parents: diff changeset	66	[see also:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	67	UIPainter
6ce84c1270a6 intitial checkin ca parents: diff changeset	68	UIHelpTool
6ce84c1270a6 intitial checkin ca parents: diff changeset	69	UISpecificationTool
6ce84c1270a6 intitial checkin ca parents: diff changeset	70	SelectionInTreeView
6ce84c1270a6 intitial checkin ca parents: diff changeset	71
6ce84c1270a6 intitial checkin ca parents: diff changeset	72	[author:]
398 155310ec83aa revised version tz parents: 382 diff changeset	73	Claus Atzkern, Thomas Zwick
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	74	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	75
6ce84c1270a6 intitial checkin ca parents: diff changeset	76	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	77
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	78	!MenuEditor class methodsFor:'initialization'!
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	79
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	80	initialize
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	81
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	82	super initialize.
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	83
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	84	TreeView initialize
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	85	! !
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	86
318 31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	87	!MenuEditor class methodsFor:'code generation'!
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	88
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	89	generateCodeFor:aClass menuSelector:aSelector
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	90
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	91	\|code category\|
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	92
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	93	category := self sourceCategory.
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	94
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	95	code := Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	96	, aClass name , ' methodsFor:' , category storeString
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	97	, Character excla asString , '\\'
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	98
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	99	, aSelector , '\'
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	100	, ' "this window spec was automatically generated by the UI Builder"\\'
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	101	, ' ^ self class ', aSelector, '\\'
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	102	, '\'
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	103	, Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	104	, ' '
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	105	, Character excla asString
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	106	, '\\'.
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	107	^ code
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	108
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	109	"
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	110	self generateCodeFor:MenuEditor menuSelector:#menu
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	111	"
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	112	!
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	113
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	114	sourceCategory
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	115	"returns the category where to install the menu
318 31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	116	"
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	117	^ 'accessing menu'
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	118	! !
31a94b71ae1b reuse of generate code for instance method #menu ca parents: 304 diff changeset	119
371 7017eaabd9ed add help text ca parents: 359 diff changeset	120	!MenuEditor class methodsFor:'help specs'!
7017eaabd9ed add help text ca parents: 359 diff changeset	121
7017eaabd9ed add help text ca parents: 359 diff changeset	122	helpSpec
7017eaabd9ed add help text ca parents: 359 diff changeset	123	"return a dictionary filled with helpKey -> helptext associations.
7017eaabd9ed add help text ca parents: 359 diff changeset	124	These are used by the activeHelp tool."
7017eaabd9ed add help text ca parents: 359 diff changeset	125
7017eaabd9ed add help text ca parents: 359 diff changeset	126	"
7017eaabd9ed add help text ca parents: 359 diff changeset	127	UIHelpTool openOnClass:MenuEditor
7017eaabd9ed add help text ca parents: 359 diff changeset	128	"
7017eaabd9ed add help text ca parents: 359 diff changeset	129
7017eaabd9ed add help text ca parents: 359 diff changeset	130	^ super helpSpec addPairsFrom:#(
7017eaabd9ed add help text ca parents: 359 diff changeset	131
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	132	#aboutSTX
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	133	'Open an InfoBox about running ST/X.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	134
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	135	#aboutThisAppliaction
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	136	'Open an InfoBox about release and author.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	137
371 7017eaabd9ed add help text ca parents: 359 diff changeset	138	#accessCharaterPos
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	139	'The index of the access character position into the textual label (optional).'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	140
7017eaabd9ed add help text ca parents: 359 diff changeset	141	#argument
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	142	'An argument passed to the value method, if the value selector is a one- or two-arg selector (i.e. ends with '':''). The argument is passed as a string.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	143
7017eaabd9ed add help text ca parents: 359 diff changeset	144	#enbled
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	145	'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the respective field can be selected, a value of true, or not, a value of false.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	146
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	147	#fileExit
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	148	'Exit current application.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	149
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	150	#helpClassDocumentation
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	151	'Open a HTML-browser with a class documentation for the current application.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	152
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	153	#helpProgrammersGuide
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	154	'Open a HTML-browser with a programmers guide.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	155
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	156	#helpShowHelp
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	157	'Toggle on/off displaying help texts.'
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	158
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	159	#helpTutorial
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	160	'Open a HTML-browser with tutorial for beginners.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	161
7017eaabd9ed add help text ca parents: 359 diff changeset	162	#icon
398 155310ec83aa revised version tz parents: 382 diff changeset	163	'Selector which returns an image to be displayed.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	164
7017eaabd9ed add help text ca parents: 359 diff changeset	165	#iconAndLabel
398 155310ec83aa revised version tz parents: 382 diff changeset	166	'Boolean flag to specify that both image and textual label shall be shown.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	167
7017eaabd9ed add help text ca parents: 359 diff changeset	168	#indication
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	169	'This indication field specifies the name of the aspect (-method or binding) in your application, a value holder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false. The value, true or false, specifies whether the shown indicator is switched on or off.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	170
7017eaabd9ed add help text ca parents: 359 diff changeset	171	#label
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	172	'The label of the item. If the ''retriever/selector'' is set, and returns an image, the image is used as the displayed label. Dependent on the state of the ''Image & Label'' flag, both the image and the label are shown.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	173
7017eaabd9ed add help text ca parents: 359 diff changeset	174	#menuSelector
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	175	'The name of the selector under which the generated menu should be installed and is accessable.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	176
7017eaabd9ed add help text ca parents: 359 diff changeset	177	#nameKey
398 155310ec83aa revised version tz parents: 382 diff changeset	178	'An unique identifier of the item (optional)'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	179
7017eaabd9ed add help text ca parents: 359 diff changeset	180	#retriever
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	181	'The name of the class, which implements the image selector. This selector is specified by ''selector''. If no class is given, the current application should implement the specified image selector.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	182
7017eaabd9ed add help text ca parents: 359 diff changeset	183	#seperatorList
398 155310ec83aa revised version tz parents: 382 diff changeset	184	'The list of valid separators'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	185
7017eaabd9ed add help text ca parents: 359 diff changeset	186	#shortcutKey
398 155310ec83aa revised version tz parents: 382 diff changeset	187	'The key to be pressed, to select the menu item from the keyboard (accelerator key).'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	188
7017eaabd9ed add help text ca parents: 359 diff changeset	189	#submenuChannel
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	190	'A value holder, which provides the submenu (Menu) to be opened if the item is selected. Useful if the items submenu is to be changed dynamically.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	191
7017eaabd9ed add help text ca parents: 359 diff changeset	192	#value
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	193	'An action which can be either a block or a selector. Depending on the number of arguments to the action, the action will be called with the respective arguments. There can either zero, one or two arguments. The first argument to the action is the argument derived from the argument field and the second argument the selected item.'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	194
7017eaabd9ed add help text ca parents: 359 diff changeset	195	)
7017eaabd9ed add help text ca parents: 359 diff changeset	196	! !
7017eaabd9ed add help text ca parents: 359 diff changeset	197
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	198	!MenuEditor class methodsFor:'interface specs'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	199
6ce84c1270a6 intitial checkin ca parents: diff changeset	200	classDefineSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	201	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	202
6ce84c1270a6 intitial checkin ca parents: diff changeset	203	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	204	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	205
6ce84c1270a6 intitial checkin ca parents: diff changeset	206	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	207	UIPainter new openOnClass:MenuEditor andSelector:#classDefineSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	208	MenuEditor new openInterface:#classDefineSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	209	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	210
6ce84c1270a6 intitial checkin ca parents: diff changeset	211	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	212
6ce84c1270a6 intitial checkin ca parents: diff changeset	213	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	214
6ce84c1270a6 intitial checkin ca parents: diff changeset	215	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	216	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	217	#(#WindowSpec
398 155310ec83aa revised version tz parents: 382 diff changeset	218	#'name:' 'MenuEditor'
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	219	#'layout:' #(#LayoutFrame 262 0 426 0 508 0 519 0)
398 155310ec83aa revised version tz parents: 382 diff changeset	220	#'label:' 'MenuEditor'
155310ec83aa revised version tz parents: 382 diff changeset	221	#'min:' #(#Point 10 10)
155310ec83aa revised version tz parents: 382 diff changeset	222	#'max:' #(#Point 1152 900)
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	223	#'bounds:' #(#Rectangle 262 426 509 520)
398 155310ec83aa revised version tz parents: 382 diff changeset	224	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	225	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	226	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	227	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	228	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	229	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	230	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	231	#'name:' 'boxLabel'
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	232	#'layout:' #(#LayoutFrame 2 0.0 4 0 -2 1.0 24 0)
398 155310ec83aa revised version tz parents: 382 diff changeset	233	#'label:' 'Class for menu spec:'
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	234	#'adjust:' #left
6ce84c1270a6 intitial checkin ca parents: diff changeset	235	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	236	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	237	#(#InputFieldSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	238	#'name:' 'classNameField'
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	239	#'layout:' #(#LayoutFrame 2 0.0 27 0 -2 1.0 49 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	240	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	241	#'model:' #classNameChannel
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	242	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	243	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	244	)
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	245	#(#UISubSpecification
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	246	#'name:' 'SubSpecification'
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	247	#'layout:' #(#LayoutFrame 0 0 -29 1 0 1 -5 1)
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	248	#'majorKey:' #ToolApplicationModel
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	249	#'minorKey:' #windowSpecForCommitWithoutChannels
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	250	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	251	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	252	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	253	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	254	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	255
398 155310ec83aa revised version tz parents: 382 diff changeset	256	menu
220 8f0065e7a83d update ca parents: 218 diff changeset	257	"this window spec was automatically generated by the ST/X MenuEditor"
8f0065e7a83d update ca parents: 218 diff changeset	258
8f0065e7a83d update ca parents: 218 diff changeset	259	"do not manually edit this - the builder may not be able to
8f0065e7a83d update ca parents: 218 diff changeset	260	handle the specification if its corrupted."
8f0065e7a83d update ca parents: 218 diff changeset	261
8f0065e7a83d update ca parents: 218 diff changeset	262	"
398 155310ec83aa revised version tz parents: 382 diff changeset	263	MenuEditor new openOnClass:MenuEditor andSelector:#menu
155310ec83aa revised version tz parents: 382 diff changeset	264	(Menu new fromLiteralArrayEncoding:(MenuEditor menu)) startUp
220 8f0065e7a83d update ca parents: 218 diff changeset	265	"
8f0065e7a83d update ca parents: 218 diff changeset	266
8f0065e7a83d update ca parents: 218 diff changeset	267	<resource: #menu>
8f0065e7a83d update ca parents: 218 diff changeset	268
8f0065e7a83d update ca parents: 218 diff changeset	269	^
8f0065e7a83d update ca parents: 218 diff changeset	270
8f0065e7a83d update ca parents: 218 diff changeset	271	#(#Menu
8f0065e7a83d update ca parents: 218 diff changeset	272
8f0065e7a83d update ca parents: 218 diff changeset	273	#(
8f0065e7a83d update ca parents: 218 diff changeset	274	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	275	#'label:' 'About'
155310ec83aa revised version tz parents: 382 diff changeset	276	#'accessCharacterPosition:' 1
155310ec83aa revised version tz parents: 382 diff changeset	277	#'labelImage:' #(#ResourceRetriever nil #icon)
155310ec83aa revised version tz parents: 382 diff changeset	278	#'submenuChannel:' #menuAbout
220 8f0065e7a83d update ca parents: 218 diff changeset	279	)
8f0065e7a83d update ca parents: 218 diff changeset	280	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	281	#'label:' 'File'
155310ec83aa revised version tz parents: 382 diff changeset	282	#'translateLabel:' true
155310ec83aa revised version tz parents: 382 diff changeset	283	#'value:' #file
155310ec83aa revised version tz parents: 382 diff changeset	284	#'submenu:'
155310ec83aa revised version tz parents: 382 diff changeset	285	#(#Menu
155310ec83aa revised version tz parents: 382 diff changeset	286
155310ec83aa revised version tz parents: 382 diff changeset	287	#(
155310ec83aa revised version tz parents: 382 diff changeset	288	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	289	#'label:' 'New'
155310ec83aa revised version tz parents: 382 diff changeset	290	#'value:' #doNew
155310ec83aa revised version tz parents: 382 diff changeset	291	)
155310ec83aa revised version tz parents: 382 diff changeset	292	#(#MenuItem
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	293	#'label:' '-'
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	294	)
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	295	#(#MenuItem
499 da5c2e271d1a load from superclass removed tz parents: 492 diff changeset	296	#'label:' 'Load...'
398 155310ec83aa revised version tz parents: 382 diff changeset	297	#'translateLabel:' true
155310ec83aa revised version tz parents: 382 diff changeset	298	#'value:' #doFromClass
155310ec83aa revised version tz parents: 382 diff changeset	299	#'enabled:' #isStandAlone
155310ec83aa revised version tz parents: 382 diff changeset	300	)
155310ec83aa revised version tz parents: 382 diff changeset	301	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	302	#'label:' '-'
155310ec83aa revised version tz parents: 382 diff changeset	303	)
155310ec83aa revised version tz parents: 382 diff changeset	304	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	305	#'label:' 'Save'
155310ec83aa revised version tz parents: 382 diff changeset	306	#'value:' #doInstallSpec
155310ec83aa revised version tz parents: 382 diff changeset	307	)
155310ec83aa revised version tz parents: 382 diff changeset	308	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	309	#'label:' '-'
155310ec83aa revised version tz parents: 382 diff changeset	310	)
155310ec83aa revised version tz parents: 382 diff changeset	311	#(#MenuItem
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	312	#'label:' 'Pick A Menu'
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	313	#'value:' #doPickAMenu
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	314	#'enabled:' #isStandAlone
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	315	)
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	316	#(#MenuItem
499 da5c2e271d1a load from superclass removed tz parents: 492 diff changeset	317	#'label:' 'Define Menu Class...'
398 155310ec83aa revised version tz parents: 382 diff changeset	318	#'value:' #doDefineClass
155310ec83aa revised version tz parents: 382 diff changeset	319	#'enabled:' #isStandAlone
155310ec83aa revised version tz parents: 382 diff changeset	320	)
155310ec83aa revised version tz parents: 382 diff changeset	321	#(#MenuItem
499 da5c2e271d1a load from superclass removed tz parents: 492 diff changeset	322	#'label:' 'Browse Menu Class'
398 155310ec83aa revised version tz parents: 382 diff changeset	323	#'value:' #doBrowseAppClass
155310ec83aa revised version tz parents: 382 diff changeset	324	)
155310ec83aa revised version tz parents: 382 diff changeset	325	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	326	#'label:' '-'
155310ec83aa revised version tz parents: 382 diff changeset	327	)
155310ec83aa revised version tz parents: 382 diff changeset	328	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	329	#'label:' 'Exit'
155310ec83aa revised version tz parents: 382 diff changeset	330	#'translateLabel:' true
155310ec83aa revised version tz parents: 382 diff changeset	331	#'value:' #closeRequest
155310ec83aa revised version tz parents: 382 diff changeset	332	)
155310ec83aa revised version tz parents: 382 diff changeset	333	) nil
155310ec83aa revised version tz parents: 382 diff changeset	334	nil
220 8f0065e7a83d update ca parents: 218 diff changeset	335	)
8f0065e7a83d update ca parents: 218 diff changeset	336	)
8f0065e7a83d update ca parents: 218 diff changeset	337	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	338	#'label:' 'Edit'
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	339	#'submenuChannel:' #menuEdit
220 8f0065e7a83d update ca parents: 218 diff changeset	340	)
8f0065e7a83d update ca parents: 218 diff changeset	341	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	342	#'label:' 'Test'
155310ec83aa revised version tz parents: 382 diff changeset	343	#'submenuChannel:' #submenuTest
220 8f0065e7a83d update ca parents: 218 diff changeset	344	)
8f0065e7a83d update ca parents: 218 diff changeset	345	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	346	#'label:' 'History'
155310ec83aa revised version tz parents: 382 diff changeset	347	#'submenuChannel:' #menuHistory
220 8f0065e7a83d update ca parents: 218 diff changeset	348	)
8f0065e7a83d update ca parents: 218 diff changeset	349	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	350	#'label:' 'Help'
155310ec83aa revised version tz parents: 382 diff changeset	351	#'submenuChannel:' #menuHelp
220 8f0065e7a83d update ca parents: 218 diff changeset	352	)
8f0065e7a83d update ca parents: 218 diff changeset	353	) nil
8f0065e7a83d update ca parents: 218 diff changeset	354	nil
8f0065e7a83d update ca parents: 218 diff changeset	355	)
8f0065e7a83d update ca parents: 218 diff changeset	356	!
8f0065e7a83d update ca parents: 218 diff changeset	357
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	358	menuDefaultLink
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	359	"this window spec was automatically generated by the ST/X MenuEditor"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	360
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	361	"do not manually edit this - the builder may not be able to
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	362	handle the specification if its corrupted."
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	363
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	364	"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	365	MenuEditor new openOnClass:MenuEditor andSelector:#menuDefaultLink
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	366	(Menu new fromLiteralArrayEncoding:(MenuEditor menuDefaultLink)) startUp
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	367	"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	368
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	369	<resource: #menu>
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	370
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	371	^
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	372
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	373	#(#Menu
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	374
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	375	#(
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	376	#(#MenuItem
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	377	#'label:' '!! derives from application !!'
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	378	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	379	) nil
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	380	nil
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	381	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	382	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	383
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	384	menuEdit
220 8f0065e7a83d update ca parents: 218 diff changeset	385	"this window spec was automatically generated by the ST/X MenuEditor"
8f0065e7a83d update ca parents: 218 diff changeset	386
8f0065e7a83d update ca parents: 218 diff changeset	387	"do not manually edit this - the builder may not be able to
8f0065e7a83d update ca parents: 218 diff changeset	388	handle the specification if its corrupted."
8f0065e7a83d update ca parents: 218 diff changeset	389
8f0065e7a83d update ca parents: 218 diff changeset	390	"
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	391	MenuEditor new openOnClass:MenuEditor andSelector:#menuEdit
578a7aaed19e totally revised version tz parents: 406 diff changeset	392	(Menu new fromLiteralArrayEncoding:(MenuEditor menuEdit)) startUp
220 8f0065e7a83d update ca parents: 218 diff changeset	393	"
8f0065e7a83d update ca parents: 218 diff changeset	394
8f0065e7a83d update ca parents: 218 diff changeset	395	<resource: #menu>
8f0065e7a83d update ca parents: 218 diff changeset	396
8f0065e7a83d update ca parents: 218 diff changeset	397	^
8f0065e7a83d update ca parents: 218 diff changeset	398
8f0065e7a83d update ca parents: 218 diff changeset	399	#(#Menu
8f0065e7a83d update ca parents: 218 diff changeset	400
8f0065e7a83d update ca parents: 218 diff changeset	401	#(
8f0065e7a83d update ca parents: 218 diff changeset	402	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	403	#'label:' 'Cut'
155310ec83aa revised version tz parents: 382 diff changeset	404	#'value:' #doCut
155310ec83aa revised version tz parents: 382 diff changeset	405	#'enabled:' #hasValidSelection
155310ec83aa revised version tz parents: 382 diff changeset	406	#'shortcutKeyCharacter:' #Cut
155310ec83aa revised version tz parents: 382 diff changeset	407	)
155310ec83aa revised version tz parents: 382 diff changeset	408	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	409	#'label:' 'Copy'
220 8f0065e7a83d update ca parents: 218 diff changeset	410	#'value:' #doCopy
8f0065e7a83d update ca parents: 218 diff changeset	411	#'enabled:' #hasValidSelection
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	412	#'shortcutKeyCharacter:' #Copy
220 8f0065e7a83d update ca parents: 218 diff changeset	413	)
8f0065e7a83d update ca parents: 218 diff changeset	414	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	415	#'label:' 'Paste'
220 8f0065e7a83d update ca parents: 218 diff changeset	416	#'value:' #doPaste
8f0065e7a83d update ca parents: 218 diff changeset	417	#'enabled:' #hasAnySingleSelection
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	418	#'shortcutKeyCharacter:' #Paste
220 8f0065e7a83d update ca parents: 218 diff changeset	419	)
8f0065e7a83d update ca parents: 218 diff changeset	420	#(#MenuItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	421	#'label:' '-'
398 155310ec83aa revised version tz parents: 382 diff changeset	422	)
155310ec83aa revised version tz parents: 382 diff changeset	423	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	424	#'label:' 'Create Item'
155310ec83aa revised version tz parents: 382 diff changeset	425	#'value:' #doCreateItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	426	#'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Create Item')
398 155310ec83aa revised version tz parents: 382 diff changeset	427	)
155310ec83aa revised version tz parents: 382 diff changeset	428	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	429	#'label:' 'Create Separator'
155310ec83aa revised version tz parents: 382 diff changeset	430	#'value:' #doCreateSep
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	431	#'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Create Separator')
398 155310ec83aa revised version tz parents: 382 diff changeset	432	)
155310ec83aa revised version tz parents: 382 diff changeset	433	#(#MenuItem
220 8f0065e7a83d update ca parents: 218 diff changeset	434	#'label:' '-'
8f0065e7a83d update ca parents: 218 diff changeset	435	)
8f0065e7a83d update ca parents: 218 diff changeset	436	#(#MenuItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	437	#'label:' 'Create Submenu'
398 155310ec83aa revised version tz parents: 382 diff changeset	438	#'value:' #doCreateMenu
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	439	#'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Create Submenu')
398 155310ec83aa revised version tz parents: 382 diff changeset	440	)
155310ec83aa revised version tz parents: 382 diff changeset	441	#(#MenuItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	442	#'label:' 'Create Submenu Link'
398 155310ec83aa revised version tz parents: 382 diff changeset	443	#'value:' #doCreateLink
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	444	#'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Create Submenu Link')
220 8f0065e7a83d update ca parents: 218 diff changeset	445	)
8f0065e7a83d update ca parents: 218 diff changeset	446	) nil
8f0065e7a83d update ca parents: 218 diff changeset	447	nil
8f0065e7a83d update ca parents: 218 diff changeset	448	)
8f0065e7a83d update ca parents: 218 diff changeset	449	!
8f0065e7a83d update ca parents: 218 diff changeset	450
398 155310ec83aa revised version tz parents: 382 diff changeset	451	menuToolbar
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	452	"this window spec was automatically generated by the ST/X MenuEditor"
6ce84c1270a6 intitial checkin ca parents: diff changeset	453
6ce84c1270a6 intitial checkin ca parents: diff changeset	454	"do not manually edit this - the builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	455	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	456
6ce84c1270a6 intitial checkin ca parents: diff changeset	457	"
398 155310ec83aa revised version tz parents: 382 diff changeset	458	MenuEditor new openOnClass:MenuEditor andSelector:#menuToolbar
155310ec83aa revised version tz parents: 382 diff changeset	459	(Menu new fromLiteralArrayEncoding:(MenuEditor menuToolbar)) startUp
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	460	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	461
6ce84c1270a6 intitial checkin ca parents: diff changeset	462	<resource: #menu>
6ce84c1270a6 intitial checkin ca parents: diff changeset	463
6ce84c1270a6 intitial checkin ca parents: diff changeset	464	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	465
6ce84c1270a6 intitial checkin ca parents: diff changeset	466	#(#Menu
6ce84c1270a6 intitial checkin ca parents: diff changeset	467
6ce84c1270a6 intitial checkin ca parents: diff changeset	468	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	469	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	470	#'label:' 'New'
155310ec83aa revised version tz parents: 382 diff changeset	471	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	472	#'value:' #doNew
155310ec83aa revised version tz parents: 382 diff changeset	473	#'labelImage:' #(#ResourceRetriever nil #newIcon)
155310ec83aa revised version tz parents: 382 diff changeset	474	)
155310ec83aa revised version tz parents: 382 diff changeset	475	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	476	#'label:' 'Load'
155310ec83aa revised version tz parents: 382 diff changeset	477	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	478	#'value:' #doFromClass
155310ec83aa revised version tz parents: 382 diff changeset	479	#'labelImage:' #(#ResourceRetriever nil #loadIcon)
155310ec83aa revised version tz parents: 382 diff changeset	480	)
155310ec83aa revised version tz parents: 382 diff changeset	481	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	482	#'label:' 'Save'
155310ec83aa revised version tz parents: 382 diff changeset	483	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	484	#'value:' #doInstallSpec
155310ec83aa revised version tz parents: 382 diff changeset	485	#'labelImage:' #(#ResourceRetriever nil #saveIcon)
155310ec83aa revised version tz parents: 382 diff changeset	486	)
155310ec83aa revised version tz parents: 382 diff changeset	487	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	488	#'label:' '-'
155310ec83aa revised version tz parents: 382 diff changeset	489	)
155310ec83aa revised version tz parents: 382 diff changeset	490	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	491	#'label:' 'createItem'
155310ec83aa revised version tz parents: 382 diff changeset	492	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	493	#'value:' #doCreateItem
155310ec83aa revised version tz parents: 382 diff changeset	494	#'enabled:' #hasAnySingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	495	#'labelImage:' #(#ResourceRetriever nil #menuItemImage)
398 155310ec83aa revised version tz parents: 382 diff changeset	496	)
155310ec83aa revised version tz parents: 382 diff changeset	497	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	498	#'label:' 'createSeparator'
155310ec83aa revised version tz parents: 382 diff changeset	499	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	500	#'value:' #doCreateSep
155310ec83aa revised version tz parents: 382 diff changeset	501	#'enabled:' #hasAnySingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	502	#'labelImage:' #(#ResourceRetriever nil #menuSeparatorImage)
398 155310ec83aa revised version tz parents: 382 diff changeset	503	)
155310ec83aa revised version tz parents: 382 diff changeset	504	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	505	#'label:' '-'
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	506	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	507	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	508	#'label:' 'createMenu'
155310ec83aa revised version tz parents: 382 diff changeset	509	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	510	#'value:' #doCreateMenu
155310ec83aa revised version tz parents: 382 diff changeset	511	#'enabled:' #hasAnySingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	512	#'labelImage:' #(#ResourceRetriever nil #submenuImage)
398 155310ec83aa revised version tz parents: 382 diff changeset	513	)
155310ec83aa revised version tz parents: 382 diff changeset	514	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	515	#'label:' 'createLink'
155310ec83aa revised version tz parents: 382 diff changeset	516	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	517	#'value:' #doCreateLink
155310ec83aa revised version tz parents: 382 diff changeset	518	#'enabled:' #hasAnySingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	519	#'labelImage:' #(#ResourceRetriever nil #linkSubmenuImage)
398 155310ec83aa revised version tz parents: 382 diff changeset	520	)
155310ec83aa revised version tz parents: 382 diff changeset	521	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	522	#'label:' '-'
243 ae6608b760bf nicer images Claus Gittinger <cg@exept.de> parents: 233 diff changeset	523	)
ae6608b760bf nicer images Claus Gittinger <cg@exept.de> parents: 233 diff changeset	524	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	525	#'label:' 'stepUp'
155310ec83aa revised version tz parents: 382 diff changeset	526	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	527	#'value:' #doStepUp
155310ec83aa revised version tz parents: 382 diff changeset	528	#'enabled:' #enabledStepOver
155310ec83aa revised version tz parents: 382 diff changeset	529	#'labelImage:' #(#ResourceRetriever nil #upIcon)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	530	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	531	#(#MenuItem
398 155310ec83aa revised version tz parents: 382 diff changeset	532	#'label:' 'stepDown'
155310ec83aa revised version tz parents: 382 diff changeset	533	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	534	#'value:' #doStepDown
155310ec83aa revised version tz parents: 382 diff changeset	535	#'enabled:' #enabledStepOver
155310ec83aa revised version tz parents: 382 diff changeset	536	#'labelImage:' #(#ResourceRetriever nil #downIcon)
155310ec83aa revised version tz parents: 382 diff changeset	537	)
155310ec83aa revised version tz parents: 382 diff changeset	538	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	539	#'label:' 'stepIn'
155310ec83aa revised version tz parents: 382 diff changeset	540	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	541	#'value:' #doStepIn
155310ec83aa revised version tz parents: 382 diff changeset	542	#'enabled:' #enabledStepIn
155310ec83aa revised version tz parents: 382 diff changeset	543	#'labelImage:' #(#ResourceRetriever nil #downRightIcon)
155310ec83aa revised version tz parents: 382 diff changeset	544	)
155310ec83aa revised version tz parents: 382 diff changeset	545	#(#MenuItem
155310ec83aa revised version tz parents: 382 diff changeset	546	#'label:' 'stepOut'
155310ec83aa revised version tz parents: 382 diff changeset	547	#'isButton:' true
155310ec83aa revised version tz parents: 382 diff changeset	548	#'value:' #doStepOut
155310ec83aa revised version tz parents: 382 diff changeset	549	#'enabled:' #enabledStepOut
155310ec83aa revised version tz parents: 382 diff changeset	550	#'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	551	)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	552	) nil
6ce84c1270a6 intitial checkin ca parents: diff changeset	553	nil
6ce84c1270a6 intitial checkin ca parents: diff changeset	554	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	555	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	556
6ce84c1270a6 intitial checkin ca parents: diff changeset	557	windowSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	558	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	559
6ce84c1270a6 intitial checkin ca parents: diff changeset	560	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	561	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	562
6ce84c1270a6 intitial checkin ca parents: diff changeset	563	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	564	UIPainter new openOnClass:MenuEditor andSelector:#windowSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	565	MenuEditor new openInterface:#windowSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	566	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	567	"MenuEditor open"
6ce84c1270a6 intitial checkin ca parents: diff changeset	568
6ce84c1270a6 intitial checkin ca parents: diff changeset	569	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	570
6ce84c1270a6 intitial checkin ca parents: diff changeset	571	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	572
6ce84c1270a6 intitial checkin ca parents: diff changeset	573	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	574	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	575	#(#WindowSpec
398 155310ec83aa revised version tz parents: 382 diff changeset	576	#'name:' 'Menu Builder'
485 3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	577	#'layout:' #(#LayoutFrame 221 0 394 0 800 0 777 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	578	#'label:' 'Menu Builder'
398 155310ec83aa revised version tz parents: 382 diff changeset	579	#'min:' #(#Point 10 10)
155310ec83aa revised version tz parents: 382 diff changeset	580	#'max:' #(#Point 1152 900)
485 3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	581	#'bounds:' #(#Rectangle 221 394 801 778)
398 155310ec83aa revised version tz parents: 382 diff changeset	582	#'menu:' #menu
155310ec83aa revised version tz parents: 382 diff changeset	583	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	584	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	585	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	586	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	587	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	588	#(
398 155310ec83aa revised version tz parents: 382 diff changeset	589	#(#MenuPanelSpec
155310ec83aa revised version tz parents: 382 diff changeset	590	#'name:' 'menuToolbarView'
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	591	#'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
398 155310ec83aa revised version tz parents: 382 diff changeset	592	#'menu:' #menuToolbar
155310ec83aa revised version tz parents: 382 diff changeset	593	#'showSeparatingLines:' true
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	594	)
398 155310ec83aa revised version tz parents: 382 diff changeset	595	#(#VariableHorizontalPanelSpec
155310ec83aa revised version tz parents: 382 diff changeset	596	#'name:' 'variableHorizontalPanel1'
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	597	#'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	598	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	599	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	600	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	601	#(
398 155310ec83aa revised version tz parents: 382 diff changeset	602	#(#ArbitraryComponentSpec
155310ec83aa revised version tz parents: 382 diff changeset	603	#'name:' 'painterView'
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	604	#'menu:' #menuEdit
398 155310ec83aa revised version tz parents: 382 diff changeset	605	#'hasHorizontalScrollBar:' true
155310ec83aa revised version tz parents: 382 diff changeset	606	#'hasVerticalScrollBar:' true
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	607	#'component:' #treeView
398 155310ec83aa revised version tz parents: 382 diff changeset	608	#'hasBorder:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	609	)
398 155310ec83aa revised version tz parents: 382 diff changeset	610	#(#ViewSpec
155310ec83aa revised version tz parents: 382 diff changeset	611	#'name:' 'view1'
155310ec83aa revised version tz parents: 382 diff changeset	612	#'component:'
155310ec83aa revised version tz parents: 382 diff changeset	613	#(#SpecCollection
155310ec83aa revised version tz parents: 382 diff changeset	614	#'collection:'
155310ec83aa revised version tz parents: 382 diff changeset	615	#(
155310ec83aa revised version tz parents: 382 diff changeset	616	#(#NoteBookViewSpec
155310ec83aa revised version tz parents: 382 diff changeset	617	#'name:' 'specificationView'
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	618	#'layout:' #(#LayoutFrame 1 0.0 0 0.0 1 1.0 -26 1.0)
398 155310ec83aa revised version tz parents: 382 diff changeset	619	#'tabable:' true
155310ec83aa revised version tz parents: 382 diff changeset	620	#'model:' #tabModel
155310ec83aa revised version tz parents: 382 diff changeset	621	#'menu:' #tabList
155310ec83aa revised version tz parents: 382 diff changeset	622	#'useIndex:' true
155310ec83aa revised version tz parents: 382 diff changeset	623	#'canvas:' #noteBookView
155310ec83aa revised version tz parents: 382 diff changeset	624	)
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	625	#(#UISubSpecification
f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	626	#'name:' 'SubSpecification'
f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	627	#'layout:' #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	628	#'majorKey:' #ToolApplicationModel
f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	629	#'minorKey:' #windowSpecForCommit
398 155310ec83aa revised version tz parents: 382 diff changeset	630	)
155310ec83aa revised version tz parents: 382 diff changeset	631	)
155310ec83aa revised version tz parents: 382 diff changeset	632	)
155310ec83aa revised version tz parents: 382 diff changeset	633	#'level:' -1
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	634	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	635	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	636	)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	637	#'level:' 1
398 155310ec83aa revised version tz parents: 382 diff changeset	638	#'handles:' #(#Any 0.384483 1.0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	639	)
485 3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	640	#(#UISubSpecification
3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	641	#'name:' 'infoBarSubSpec'
3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	642	#'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	643	#'majorKey:' #ToolApplicationModel
3afea2fc1e65 info bar as subSpec to class ToolApplicationModel moved tz parents: 480 diff changeset	644	#'minorKey:' #windowSpecForInfoBar
220 8f0065e7a83d update ca parents: 218 diff changeset	645	)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	646	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	647	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	648	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	649	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	650
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	651	!MenuEditor class methodsFor:'resources'!
578a7aaed19e totally revised version tz parents: 406 diff changeset	652
578a7aaed19e totally revised version tz parents: 406 diff changeset	653	linkSubmenuImage
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	654	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	655	"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	656	ImageEditor openOnClass:self andSelector:#linkSubmenuImage
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	657	"
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	658
578a7aaed19e totally revised version tz parents: 406 diff changeset	659	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	660
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	661	^Icon
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	662	constantNamed:#'MenuEditor linkSubmenuImage'
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	663	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@ADQDQDQDQDQDQH@D"H"H"H"H"H"K0@RH"H"H"H"H"H/@A????????????<@D@@@@@@@@@@@C0@PL3L0DQDQDQD_@A@3L3LBH"H"H"<@DCL3L3@"H"H"K0@PL3L3L0??????@A@@@@L3L@@@@@<@DQDQDCL3@PLAG0@RH"H"@3L0@3@/@AH"H"H L3L3L0<@G?????<CL3L3L@@P@@@@@@@3L3LO@ADQDQDQDP@CLA<@D"H"H"H"H LBK0@RH"H"H"H"@BH/@B????????????<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b'); colorMap:((OrderedCollection new add:(Color black); add:(Color white); add:(Color grey:66.9978); add:(Color red:100.0 green:0.0 blue:0.0); add:(Color red:0.0 green:100.0 blue:0.0); add:(Color red:0.0 green:0.0 blue:100.0); add:(Color red:0.0 green:100.0 blue:100.0); add:(Color red:100.0 green:100.0 blue:0.0); add:(Color red:100.0 green:0.0 blue:100.0); add:(Color red:49.9962 green:0.0 blue:0.0); add:(Color red:0.0 green:49.9962 blue:0.0); add:(Color red:0.0 green:0.0 blue:49.9962); add:(Color red:0.0 green:49.9962 blue:49.9962); add:(Color red:49.9962 green:49.9962 blue:0.0); add:(Color red:49.9962 green:0.0 blue:49.9962); add:(Color grey:49.9962); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	664
578a7aaed19e totally revised version tz parents: 406 diff changeset	665	menuItemImage
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	666	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	667	"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	668	ImageEditor openOnClass:self andSelector:#menuItemImage
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	669	"
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	670
578a7aaed19e totally revised version tz parents: 406 diff changeset	671	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	672
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	673	^Icon
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	674	constantNamed:#'MenuEditor menuItemImage'
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	675	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUUQUUUUUUUPUUUUUUU_UUUUUUUPUUUUUUUP@@@@@@@@EUUUUUVAF****+HF:?+::;@F:.+?;@F:.+::;@F:.+:;@F:.+::;@F****+DK??????A@@@@@@@@UUUUUUUPUUUUUUUXUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUX'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	676
578a7aaed19e totally revised version tz parents: 406 diff changeset	677	menuSeparatorImage
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	678	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	679	"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	680	ImageEditor openOnClass:self andSelector:#menuSeparatorImage
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	681	"
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	682
578a7aaed19e totally revised version tz parents: 406 diff changeset	683	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	684
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	685	^Icon
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	686	constantNamed:#'MenuEditor menuSeparatorImage'
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	687	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'UUUUUUURUUUUUUUPUUUUUUUPUUUUUUUPUUUUUUUP@@@@@@@@EUUUUUV@F***+DF*+CF?????+@F0@@@@[@F%UUUU[HF*+@F***+@K??????N@@@@@@@HUUUUUUUPUUUUUUUPUUUUUUUWUUUUUUUXUUUUUUUPUUUUUUUP'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]!
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	688
578a7aaed19e totally revised version tz parents: 406 diff changeset	689	submenuImage
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	690	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	691	"
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	692	ImageEditor openOnClass:self andSelector:#submenuImage
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	693	"
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	694
578a7aaed19e totally revised version tz parents: 406 diff changeset	695	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	696
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	697	^Icon
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	698	constantNamed:#'MenuEditor submenuImage'
d5f942ce5c94 new icon method format applied tz parents: 485 diff changeset	699	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@EUUUUUV@F***+@F*+@G??????GD@@@@@C@EUUUUUWLF*+@F*+@G??????HD@@@@@C@EUUUUUW@F*+@F*+OG??????@D@@@@@C@EUUUUUW@F*+@F***+@K??????@@@@@@@@@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:66.9978)); at:4 put:((Color grey:49.9962)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a'); yourself); yourself]! !
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	700
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	701	!MenuEditor class methodsFor:'slices'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	702
6ce84c1270a6 intitial checkin ca parents: diff changeset	703	slicesItem
6ce84c1270a6 intitial checkin ca parents: diff changeset	704	^#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	705	(Basics basicsItemSpec)
6ce84c1270a6 intitial checkin ca parents: diff changeset	706	(Details detailsEditSpec)
398 155310ec83aa revised version tz parents: 382 diff changeset	707	(Image imageEditSpec)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	708	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	709
6ce84c1270a6 intitial checkin ca parents: diff changeset	710	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	711
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	712	slicesLink
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	713	^#(
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	714	(Basics basicsLinkSpec)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	715	(Details detailsEditSpec)
398 155310ec83aa revised version tz parents: 382 diff changeset	716	(Image imageEditSpec)
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	717	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	718
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	719	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	720
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	721	slicesMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	722	^#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	723	(Basics basicsMenuSpec)
6ce84c1270a6 intitial checkin ca parents: diff changeset	724	(Details detailsEditSpec)
398 155310ec83aa revised version tz parents: 382 diff changeset	725	(Image imageEditSpec)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	726	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	727
6ce84c1270a6 intitial checkin ca parents: diff changeset	728	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	729
6ce84c1270a6 intitial checkin ca parents: diff changeset	730	slicesRootMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	731	^#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	732	(Basics basicsRootSpec)
6ce84c1270a6 intitial checkin ca parents: diff changeset	733	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	734
6ce84c1270a6 intitial checkin ca parents: diff changeset	735	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	736
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	737	slicesSeparatorMenu
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	738	^#(
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	739	(Basics basicsSeparatorSpec)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	740	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	741
6ce84c1270a6 intitial checkin ca parents: diff changeset	742	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	743
6ce84c1270a6 intitial checkin ca parents: diff changeset	744	!MenuEditor class methodsFor:'specs'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	745
6ce84c1270a6 intitial checkin ca parents: diff changeset	746	basicsItemSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	747	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	748
6ce84c1270a6 intitial checkin ca parents: diff changeset	749	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	750	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	751
6ce84c1270a6 intitial checkin ca parents: diff changeset	752	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	753	UIPainter new openOnClass:MenuEditor andSelector:#basicsItemSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	754	MenuEditor new openInterface:#basicsItemSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	755	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	756
6ce84c1270a6 intitial checkin ca parents: diff changeset	757	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	758
6ce84c1270a6 intitial checkin ca parents: diff changeset	759	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	760
6ce84c1270a6 intitial checkin ca parents: diff changeset	761	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	762	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	763	#(#WindowSpec
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	764	#'name:' 'unnamed canvas'
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	765	#'layout:' #(#LayoutFrame 170 0 315 0 436 0 633 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	766	#'label:' 'unnamed canvas'
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	767	#'min:' #(#Point 10 10)
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	768	#'max:' #(#Point 1160 870)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	769	#'bounds:' #(#Rectangle 170 315 437 634)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	770	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	771	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	772	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	773	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	774	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	775	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	776	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	777	#'name:' 'nameKeyLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	778	#'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	779	#'label:' 'NameKey:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	780	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	781	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	782	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	783	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	784	#'name:' 'nameKeyField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	785	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	786	#'activeHelpKey:' #nameKey
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	787	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	788	#'model:' #nameKey
6ce84c1270a6 intitial checkin ca parents: diff changeset	789	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	790	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	791	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	792	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	793	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	794	#'name:' 'labelLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	795	#'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398 155310ec83aa revised version tz parents: 382 diff changeset	796	#'label:' 'Label:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	797	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	798	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	799	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	800	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	801	#'name:' 'labelField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	802	#'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	803	#'activeHelpKey:' #label
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	804	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	805	#'model:' #label
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	806	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	807	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	808	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	809	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	810	#'name:' 'valueLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	811	#'layout:' #(#AlignmentOrigin 107 0 90 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	812	#'label:' 'Value:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	813	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	814	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	815	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	816	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	817	#'name:' 'valueField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	818	#'layout:' #(#LayoutFrame 110 0 79 0 -5 1.0 101 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	819	#'activeHelpKey:' #value
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	820	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	821	#'model:' #value
6ce84c1270a6 intitial checkin ca parents: diff changeset	822	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	823	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	824	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	825	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	826	#(#LabelSpec
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	827	#'name:' 'argumentLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	828	#'layout:' #(#AlignmentOrigin 107 0 115 0 1 0.5)
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	829	#'label:' 'Argument:'
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	830	#'adjust:' #right
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	831	#'resizeForLabel:' true
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	832	)
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	833	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	834	#'name:' 'argumentField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	835	#'layout:' #(#LayoutFrame 110 0 104 0 -5 1.0 126 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	836	#'activeHelpKey:' #argument
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	837	#'tabable:' true
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	838	#'model:' #argument
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	839	#'type:' #string
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	840	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	841	#'acceptOnTab:' false
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	842	)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	843	#(#LabelSpec
7017eaabd9ed add help text ca parents: 359 diff changeset	844	#'name:' 'indicationLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	845	#'layout:' #(#AlignmentOrigin 107 0 155 0 1 0.5)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	846	#'label:' 'Indication:'
7017eaabd9ed add help text ca parents: 359 diff changeset	847	#'adjust:' #right
7017eaabd9ed add help text ca parents: 359 diff changeset	848	#'resizeForLabel:' true
7017eaabd9ed add help text ca parents: 359 diff changeset	849	)
7017eaabd9ed add help text ca parents: 359 diff changeset	850	#(#InputFieldSpec
7017eaabd9ed add help text ca parents: 359 diff changeset	851	#'name:' 'indicationField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	852	#'layout:' #(#LayoutFrame 110 0 144 0 -5 1.0 166 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	853	#'activeHelpKey:' #indication
7017eaabd9ed add help text ca parents: 359 diff changeset	854	#'tabable:' true
7017eaabd9ed add help text ca parents: 359 diff changeset	855	#'model:' #indication
7017eaabd9ed add help text ca parents: 359 diff changeset	856	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	857	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	858	#'acceptOnTab:' false
371 7017eaabd9ed add help text ca parents: 359 diff changeset	859	)
398 155310ec83aa revised version tz parents: 382 diff changeset	860	#(#CheckBoxSpec
155310ec83aa revised version tz parents: 382 diff changeset	861	#'name:' 'translateLabelCheckBox'
155310ec83aa revised version tz parents: 382 diff changeset	862	#'layout:' #(#Point 20 192)
155310ec83aa revised version tz parents: 382 diff changeset	863	#'activeHelpKey:' #translateLabel
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	864	#'tabable:' true
398 155310ec83aa revised version tz parents: 382 diff changeset	865	#'model:' #translateLabel
155310ec83aa revised version tz parents: 382 diff changeset	866	#'label:' 'Translate Label'
155310ec83aa revised version tz parents: 382 diff changeset	867	)
155310ec83aa revised version tz parents: 382 diff changeset	868	#(#CheckBoxSpec
155310ec83aa revised version tz parents: 382 diff changeset	869	#'name:' 'isButtonCheckBox'
155310ec83aa revised version tz parents: 382 diff changeset	870	#'layout:' #(#Point 20 221)
155310ec83aa revised version tz parents: 382 diff changeset	871	#'activeHelpKey:' #translateLabel
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	872	#'tabable:' true
398 155310ec83aa revised version tz parents: 382 diff changeset	873	#'model:' #isButton
155310ec83aa revised version tz parents: 382 diff changeset	874	#'label:' 'Is Button'
155310ec83aa revised version tz parents: 382 diff changeset	875	)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	876	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	877	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	878	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	879	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	880
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	881	basicsLinkSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	882	"this window spec was automatically generated by the ST/X UIPainter"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	883
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	884	"do not manually edit this - the painter/builder may not be able to
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	885	handle the specification if its corrupted."
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	886
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	887	"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	888	UIPainter new openOnClass:MenuEditor andSelector:#basicsLinkSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	889	MenuEditor new openInterface:#basicsLinkSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	890	"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	891
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	892	<resource: #canvas>
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	893
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	894	^
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	895
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	896	#(#FullSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	897	#'window:'
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	898	#(#WindowSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	899	#'name:' 'unnamed canvas'
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	900	#'layout:' #(#LayoutFrame 374 0 432 0 640 0 750 0)
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	901	#'label:' 'unnamed canvas'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	902	#'min:' #(#Point 10 10)
7017eaabd9ed add help text ca parents: 359 diff changeset	903	#'max:' #(#Point 1280 1024)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	904	#'bounds:' #(#Rectangle 374 432 641 751)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	905	#'usePreferredExtent:' false
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	906	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	907	#'component:'
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	908	#(#SpecCollection
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	909	#'collection:'
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	910	#(
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	911	#(#LabelSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	912	#'name:' 'nameKeyLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	913	#'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	914	#'activeHelpKey:' #nameKey
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	915	#'label:' 'NameKey:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	916	#'adjust:' #right
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	917	#'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	918	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	919	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	920	#'name:' 'nameKeyField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	921	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	922	#'activeHelpKey:' #nameKey
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	923	#'tabable:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	924	#'model:' #nameKey
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	925	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	926	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	927	#'acceptOnTab:' false
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	928	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	929	#(#LabelSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	930	#'name:' 'labelLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	931	#'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398 155310ec83aa revised version tz parents: 382 diff changeset	932	#'label:' 'Label:'
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	933	#'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	934	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	935	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	936	#'name:' 'labelField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	937	#'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	938	#'activeHelpKey:' #label
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	939	#'tabable:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	940	#'model:' #label
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	941	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	942	#'acceptOnTab:' false
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	943	)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	944	#(#LabelSpec
28bcb1982ef9 tabs added tz parents: 455 diff changeset	945	#'name:' 'menuLabel'
28bcb1982ef9 tabs added tz parents: 455 diff changeset	946	#'layout:' #(#AlignmentOrigin 107 0 76 0 1 0.5)
28bcb1982ef9 tabs added tz parents: 455 diff changeset	947	#'label:' 'Menu:'
28bcb1982ef9 tabs added tz parents: 455 diff changeset	948	#'resizeForLabel:' true
28bcb1982ef9 tabs added tz parents: 455 diff changeset	949	)
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	950	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	951	#'name:' 'menuField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	952	#'layout:' #(#LayoutFrame 110 0 65 0 -5 1.0 87 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	953	#'activeHelpKey:' #submenuChannel
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	954	#'tabable:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	955	#'model:' #submenuChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	956	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	957	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	958	#'acceptOnTab:' false
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	959	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	960	#(#LabelSpec
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	961	#'name:' 'ArgumentLabel'
28bcb1982ef9 tabs added tz parents: 455 diff changeset	962	#'layout:' #(#AlignmentOrigin 107 0 100 0 1 0.5)
28bcb1982ef9 tabs added tz parents: 455 diff changeset	963	#'label:' 'Argument:'
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	964	#'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	965	)
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	966	#(#InputFieldSpec
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	967	#'name:' 'argumentField'
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	968	#'layout:' #(#LayoutFrame 110 0 90 0 -5 1.0 112 0)
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	969	#'activeHelpKey:' #submenuChannel
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	970	#'tabable:' true
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	971	#'model:' #submenuArgument
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	972	#'type:' #symbolOrNil
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	973	#'acceptOnReturn:' false
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	974	#'acceptOnTab:' false
7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	975	)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	976	#(#CheckBoxSpec
28bcb1982ef9 tabs added tz parents: 455 diff changeset	977	#'name:' 'translateLabelCheckBox'
28bcb1982ef9 tabs added tz parents: 455 diff changeset	978	#'layout:' #(#Point 20 128)
28bcb1982ef9 tabs added tz parents: 455 diff changeset	979	#'activeHelpKey:' #translateLabel
28bcb1982ef9 tabs added tz parents: 455 diff changeset	980	#'tabable:' true
28bcb1982ef9 tabs added tz parents: 455 diff changeset	981	#'model:' #translateLabel
28bcb1982ef9 tabs added tz parents: 455 diff changeset	982	#'label:' 'Translate Label'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	983	)
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	984	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	985	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	986	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	987	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	988
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	989	basicsMenuSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	990	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	991
6ce84c1270a6 intitial checkin ca parents: diff changeset	992	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	993	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	994
6ce84c1270a6 intitial checkin ca parents: diff changeset	995	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	996	UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	997	MenuEditor new openInterface:#basicsMenuSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	998	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	999
6ce84c1270a6 intitial checkin ca parents: diff changeset	1000	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	1001
6ce84c1270a6 intitial checkin ca parents: diff changeset	1002	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	1003
6ce84c1270a6 intitial checkin ca parents: diff changeset	1004	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1005	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1006	#(#WindowSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1007	#'name:' 'unnamed canvas'
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1008	#'layout:' #(#LayoutFrame 456 0 430 0 722 0 748 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1009	#'label:' 'unnamed canvas'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1010	#'min:' #(#Point 10 10)
7017eaabd9ed add help text ca parents: 359 diff changeset	1011	#'max:' #(#Point 1280 1024)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1012	#'bounds:' #(#Rectangle 456 430 723 749)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1013	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1014	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1015	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1016	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	1017	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1018	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	1019	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1020	#'name:' 'nameKeyLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1021	#'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1022	#'label:' 'NameKey:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1023	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1024	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1025	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1026	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1027	#'name:' 'nameKeyField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1028	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1029	#'activeHelpKey:' #nameKey
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1030	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1031	#'model:' #nameKey
6ce84c1270a6 intitial checkin ca parents: diff changeset	1032	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1033	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1034	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1035	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1036	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1037	#'name:' 'labelLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1038	#'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398 155310ec83aa revised version tz parents: 382 diff changeset	1039	#'label:' 'Label:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1040	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1041	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1042	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1043	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1044	#'name:' 'labelField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1045	#'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1046	#'activeHelpKey:' #label
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1047	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1048	#'model:' #label
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1049	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1050	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1051	)
398 155310ec83aa revised version tz parents: 382 diff changeset	1052	#(#CheckBoxSpec
155310ec83aa revised version tz parents: 382 diff changeset	1053	#'name:' 'translateLabelCheckBox'
155310ec83aa revised version tz parents: 382 diff changeset	1054	#'layout:' #(#Point 20 100)
155310ec83aa revised version tz parents: 382 diff changeset	1055	#'activeHelpKey:' #translateLabel
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1056	#'tabable:' true
398 155310ec83aa revised version tz parents: 382 diff changeset	1057	#'model:' #translateLabel
155310ec83aa revised version tz parents: 382 diff changeset	1058	#'label:' 'Translate Label'
155310ec83aa revised version tz parents: 382 diff changeset	1059	)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1060	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1061	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1062	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1063	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1064
6ce84c1270a6 intitial checkin ca parents: diff changeset	1065	basicsRootSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1066	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1067
6ce84c1270a6 intitial checkin ca parents: diff changeset	1068	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	1069	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	1070
6ce84c1270a6 intitial checkin ca parents: diff changeset	1071	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1072	UIPainter new openOnClass:MenuEditor andSelector:#basicsRootSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1073	MenuEditor new openInterface:#basicsRootSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1074	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1075
6ce84c1270a6 intitial checkin ca parents: diff changeset	1076	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	1077
6ce84c1270a6 intitial checkin ca parents: diff changeset	1078	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	1079
6ce84c1270a6 intitial checkin ca parents: diff changeset	1080	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1081	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1082	#(#WindowSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1083	#'name:' 'unnamed canvas'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1084	#'layout:' #(#LayoutFrame 230 0 231 0 496 0 549 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1085	#'label:' 'unnamed canvas'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1086	#'min:' #(#Point 10 10)
7017eaabd9ed add help text ca parents: 359 diff changeset	1087	#'max:' #(#Point 1280 1024)
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1088	#'bounds:' #(#Rectangle 230 231 497 550)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1089	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1090	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1091	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1092	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	1093	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1094	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	1095	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1096	#'name:' 'selectorLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1097	#'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1098	#'label:' 'Selector:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1099	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1100	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1101	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1102	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1103	#'name:' 'selectorField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1104	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1105	#'activeHelpKey:' #menuSelector
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1106	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1107	#'model:' #label
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1108	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1109	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1110	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1111	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1112	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1113	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1114	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1115
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1116	basicsSeparatorSpec
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1117	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1118
6ce84c1270a6 intitial checkin ca parents: diff changeset	1119	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	1120	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	1121
6ce84c1270a6 intitial checkin ca parents: diff changeset	1122	"
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1123	UIPainter new openOnClass:MenuEditor andSelector:#basicsSeparatorSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1124	MenuEditor new openInterface:#basicsSeparatorSpec
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1125	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1126
6ce84c1270a6 intitial checkin ca parents: diff changeset	1127	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	1128
6ce84c1270a6 intitial checkin ca parents: diff changeset	1129	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	1130
6ce84c1270a6 intitial checkin ca parents: diff changeset	1131	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1132	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1133	#(#WindowSpec
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1134	#'name:' 'unnamed canvas'
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1135	#'layout:' #(#LayoutFrame 359 0 319 0 625 0 637 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1136	#'label:' 'unnamed canvas'
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1137	#'min:' #(#Point 10 10)
1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1138	#'max:' #(#Point 1160 870)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1139	#'bounds:' #(#Rectangle 359 319 626 638)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1140	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1141	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1142	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1143	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	1144	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1145	#(
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1146	#(#LabelSpec
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1147	#'name:' 'separatorLabel'
398 155310ec83aa revised version tz parents: 382 diff changeset	1148	#'layout:' #(#AlignmentOrigin 127 0 26 0 1 0.5)
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1149	#'label:' 'Separator Type:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1150	#'adjust:' #right
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1151	#'resizeForLabel:' true
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1152	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1153	#(#ComboListSpec
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1154	#'name:' 'seperatorList'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1155	#'layout:' #(#LayoutFrame 132 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1156	#'activeHelpKey:' #seperatorList
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1157	#'tabable:' true
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1158	#'model:' #seperatorSelection
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1159	#'useIndex:' true
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1160	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1161	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1162	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1163	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1164	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1165
6ce84c1270a6 intitial checkin ca parents: diff changeset	1166	detailsEditSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1167	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1168
6ce84c1270a6 intitial checkin ca parents: diff changeset	1169	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	1170	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	1171
6ce84c1270a6 intitial checkin ca parents: diff changeset	1172	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1173	UIPainter new openOnClass:MenuEditor andSelector:#detailsEditSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1174	MenuEditor new openInterface:#detailsEditSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1175	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1176
6ce84c1270a6 intitial checkin ca parents: diff changeset	1177	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	1178
6ce84c1270a6 intitial checkin ca parents: diff changeset	1179	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	1180
6ce84c1270a6 intitial checkin ca parents: diff changeset	1181	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1182	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1183	#(#WindowSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1184	#'name:' 'unnamed canvas'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1185	#'layout:' #(#LayoutFrame 237 0 249 0 495 0 536 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1186	#'label:' 'unnamed canvas'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1187	#'min:' #(#Point 10 10)
7017eaabd9ed add help text ca parents: 359 diff changeset	1188	#'max:' #(#Point 1280 1024)
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1189	#'bounds:' #(#Rectangle 237 249 496 537)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1190	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1191	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1192	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1193	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	1194	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1195	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	1196	#(#LabelSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1197	#'name:' 'shortcutKeyLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1198	#'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1199	#'label:' 'Accelerator:'
7017eaabd9ed add help text ca parents: 359 diff changeset	1200	#'adjust:' #right
7017eaabd9ed add help text ca parents: 359 diff changeset	1201	#'resizeForLabel:' true
7017eaabd9ed add help text ca parents: 359 diff changeset	1202	)
7017eaabd9ed add help text ca parents: 359 diff changeset	1203	#(#InputFieldSpec
7017eaabd9ed add help text ca parents: 359 diff changeset	1204	#'name:' 'shortcutKeyField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1205	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1206	#'activeHelpKey:' #shortcutKey
7017eaabd9ed add help text ca parents: 359 diff changeset	1207	#'tabable:' true
7017eaabd9ed add help text ca parents: 359 diff changeset	1208	#'model:' #shortcutKey
7017eaabd9ed add help text ca parents: 359 diff changeset	1209	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1210	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1211	#'acceptOnTab:' false
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1212	)
7017eaabd9ed add help text ca parents: 359 diff changeset	1213	#(#LabelSpec
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1214	#'name:' 'enabledLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1215	#'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1216	#'label:' 'Enabled:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1217	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1218	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1219	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1220	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1221	#'name:' 'enabledField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1222	#'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1223	#'activeHelpKey:' #enbled
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1224	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1225	#'model:' #enabled
6ce84c1270a6 intitial checkin ca parents: diff changeset	1226	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1227	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1228	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1229	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1230	#(#LabelSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1231	#'name:' 'accessCharLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1232	#'layout:' #(#AlignmentOrigin 217 0 90 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1233	#'label:' 'Access Character Position:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1234	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1235	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1236	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1237	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1238	#'name:' 'accessCharField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1239	#'layout:' #(#LayoutFrame 220 0 79 0 -5 1.0 101 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1240	#'activeHelpKey:' #accessCharaterPos
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1241	#'tabable:' true
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1242	#'model:' #accessCharacterPos
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1243	#'type:' #numberOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1244	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1245	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1246	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1247	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1248	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1249	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1250	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1251
398 155310ec83aa revised version tz parents: 382 diff changeset	1252	imageEditSpec
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1253	"this window spec was automatically generated by the ST/X UIPainter"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1254
6ce84c1270a6 intitial checkin ca parents: diff changeset	1255	"do not manually edit this - the painter/builder may not be able to
6ce84c1270a6 intitial checkin ca parents: diff changeset	1256	handle the specification if its corrupted."
6ce84c1270a6 intitial checkin ca parents: diff changeset	1257
6ce84c1270a6 intitial checkin ca parents: diff changeset	1258	"
398 155310ec83aa revised version tz parents: 382 diff changeset	1259	UIPainter new openOnClass:MenuEditor andSelector:#imageEditSpec
155310ec83aa revised version tz parents: 382 diff changeset	1260	MenuEditor new openInterface:#imageEditSpec
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1261	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1262
6ce84c1270a6 intitial checkin ca parents: diff changeset	1263	<resource: #canvas>
6ce84c1270a6 intitial checkin ca parents: diff changeset	1264
6ce84c1270a6 intitial checkin ca parents: diff changeset	1265	^
6ce84c1270a6 intitial checkin ca parents: diff changeset	1266
6ce84c1270a6 intitial checkin ca parents: diff changeset	1267	#(#FullSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1268	#'window:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1269	#(#WindowSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1270	#'name:' 'unnamed canvas'
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1271	#'layout:' #(#LayoutFrame 104 0 316 0 348 0 457 0)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1272	#'label:' 'unnamed canvas'
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1273	#'min:' #(#Point 10 10)
7017eaabd9ed add help text ca parents: 359 diff changeset	1274	#'max:' #(#Point 1280 1024)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1275	#'bounds:' #(#Rectangle 104 316 349 458)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1276	#'usePreferredExtent:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1277	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1278	#'component:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1279	#(#SpecCollection
6ce84c1270a6 intitial checkin ca parents: diff changeset	1280	#'collection:'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1281	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	1282	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1283	#'name:' 'retrieverLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1284	#'layout:' #(#AlignmentOrigin 107 0 26 0 1 0.5)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1285	#'label:' 'Retriever:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1286	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1287	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1288	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1289	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1290	#'name:' 'retrieverField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1291	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1292	#'activeHelpKey:' #retriever
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1293	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1294	#'model:' #retriever
6ce84c1270a6 intitial checkin ca parents: diff changeset	1295	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1296	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1297	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1298	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1299	#(#LabelSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1300	#'name:' 'iconLabel'
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1301	#'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
398 155310ec83aa revised version tz parents: 382 diff changeset	1302	#'label:' 'Selector:'
263 25f080e1217f checkin from browser Claus Gittinger <cg@exept.de> parents: 258 diff changeset	1303	#'adjust:' #right
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1304	#'resizeForLabel:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1305	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1306	#(#InputFieldSpec
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1307	#'name:' 'iconField'
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1308	#'layout:' #(#LayoutFrame 110 0 40 0 -5 1.0 62 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1309	#'activeHelpKey:' #icon
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1310	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1311	#'model:' #icon
6ce84c1270a6 intitial checkin ca parents: diff changeset	1312	#'type:' #symbolOrNil
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1313	#'acceptOnReturn:' false
578a7aaed19e totally revised version tz parents: 406 diff changeset	1314	#'acceptOnTab:' false
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1315	)
469 28bcb1982ef9 tabs added tz parents: 455 diff changeset	1316	#(#ActionButtonSpec
28bcb1982ef9 tabs added tz parents: 455 diff changeset	1317	#'name:' 'imageEditorButton'
28bcb1982ef9 tabs added tz parents: 455 diff changeset	1318	#'layout:' #(#LayoutFrame 110 0 66 0 -5 1 90 0)
28bcb1982ef9 tabs added tz parents: 455 diff changeset	1319	#'label:' 'Image Editor'
28bcb1982ef9 tabs added tz parents: 455 diff changeset	1320	#'tabable:' true
28bcb1982ef9 tabs added tz parents: 455 diff changeset	1321	#'model:' #doEditImage
28bcb1982ef9 tabs added tz parents: 455 diff changeset	1322	)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1323	#(#CheckBoxSpec
6ce84c1270a6 intitial checkin ca parents: diff changeset	1324	#'name:' 'iconAndLabel'
398 155310ec83aa revised version tz parents: 382 diff changeset	1325	#'layout:' #(#LayoutOrigin 20 0 104 0)
371 7017eaabd9ed add help text ca parents: 359 diff changeset	1326	#'activeHelpKey:' #iconAndLabel
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1327	#'tabable:' true
6ce84c1270a6 intitial checkin ca parents: diff changeset	1328	#'model:' #iconAndLabel
398 155310ec83aa revised version tz parents: 382 diff changeset	1329	#'label:' 'Image & Label'
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1330	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1331	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1332	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1333	)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1334	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1335
209 b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1336	!MenuEditor class methodsFor:'startup'!
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1337
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1338	openModalOnClass:aClass andSelector:aSelector
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1339	^ self new openModalOnClass:aClass andSelector:aSelector
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1340
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1341
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1342	!
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1343
209 b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1344	openOnClass:aClass andSelector:aSelector
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1345	^ self new openOnClass:aClass andSelector:aSelector
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1346
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1347
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1348	! !
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1349
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1350	!MenuEditor methodsFor:'accessing'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1351
398 155310ec83aa revised version tz parents: 382 diff changeset	1352	isModified: aBoolean
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1353	"sets menu tree modifications; invoked by the painter."
398 155310ec83aa revised version tz parents: 382 diff changeset	1354
155310ec83aa revised version tz parents: 382 diff changeset	1355	isModified := aBoolean
155310ec83aa revised version tz parents: 382 diff changeset	1356	!
155310ec83aa revised version tz parents: 382 diff changeset	1357
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1358	specClass
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1359
578a7aaed19e totally revised version tz parents: 406 diff changeset	1360	^specClass
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1361	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1362
6ce84c1270a6 intitial checkin ca parents: diff changeset	1363	specClass:aClass
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1364
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1365	aClass isBehavior ifTrue:[specClass := aClass name]
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1366	ifFalse:[specClass := aClass]
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1367	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1368
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1369	submenuTest
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1370	"returns submenu assigned to item test"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1371
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1372	\|menu\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1373
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1374	(menu := self treeView asMenu) allItemsDo:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1375	[:anItem\|
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1376	anItem value:nil.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1377	anItem enabled:true.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1378	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1379	^menu
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1380	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1381
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1382	useHelpDictionary:aDictionary
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1383
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1384	self noteBookView.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1385	self helpTool dictionary:aDictionary
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1386	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1387
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1388	!MenuEditor methodsFor:'active help'!
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1389
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1390	defaultInfoLabel
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1391
492 b169fdb23f5f with spaces looks better tz parents: 489 diff changeset	1392	^(specClass ? 'No class defined') printString, ' >> ', self treeView selectorName
b169fdb23f5f with spaces looks better tz parents: 489 diff changeset	1393
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1394	! !
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1395
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1396	!MenuEditor methodsFor:'aspects'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1397
6ce84c1270a6 intitial checkin ca parents: diff changeset	1398	aspectFor:aKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1399	"returns aspect for a key or nil"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1400
578a7aaed19e totally revised version tz parents: 406 diff changeset	1401	^aspects at: aKey ifAbsent: [super aspectFor:aKey]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1402
6ce84c1270a6 intitial checkin ca parents: diff changeset	1403
6ce84c1270a6 intitial checkin ca parents: diff changeset	1404	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1405
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1406	enabledStepIn
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1407	"returns whether user can put selected item in next submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1408
578a7aaed19e totally revised version tz parents: 406 diff changeset	1409	^builder booleanValueAspectFor: #enabledStepIn
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1410	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1411
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1412	enabledStepOut
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1413	"returns whether user can put selected item out of current parent submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1414
578a7aaed19e totally revised version tz parents: 406 diff changeset	1415	^builder booleanValueAspectFor: #enabledStepOut
578a7aaed19e totally revised version tz parents: 406 diff changeset	1416
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1417	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1418
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1419	enabledStepOver
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1420	"returns whether user can shift selected item up or down"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1421
578a7aaed19e totally revised version tz parents: 406 diff changeset	1422	^builder booleanValueAspectFor:#enabledStepOver
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1423	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1424
220 8f0065e7a83d update ca parents: 218 diff changeset	1425	hasAnySingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1426
578a7aaed19e totally revised version tz parents: 406 diff changeset	1427	^builder booleanValueAspectFor: #hasAnySingleSelection
220 8f0065e7a83d update ca parents: 218 diff changeset	1428	!
8f0065e7a83d update ca parents: 218 diff changeset	1429
8f0065e7a83d update ca parents: 218 diff changeset	1430	hasValidSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1431
578a7aaed19e totally revised version tz parents: 406 diff changeset	1432	^builder booleanValueAspectFor: #hasValidSelection
220 8f0065e7a83d update ca parents: 218 diff changeset	1433	!
8f0065e7a83d update ca parents: 218 diff changeset	1434
8f0065e7a83d update ca parents: 218 diff changeset	1435	hasValidSingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1436
578a7aaed19e totally revised version tz parents: 406 diff changeset	1437	^builder booleanValueAspectFor: #hasValidSingleSelection
220 8f0065e7a83d update ca parents: 218 diff changeset	1438	!
8f0065e7a83d update ca parents: 218 diff changeset	1439
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1440	noteBookView
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1441
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1442	\|noteBook helpTool\|
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1443
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1444	(noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1445	noteBook := View new.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1446	helpTool := UIHelpTool new.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1447
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1448	helpTool masterApplication:self.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1449	helpCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1450	specCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1451
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1452	helpCanvas client:helpTool.
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1453	helpTool masterApplication:self.
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1454	helpTool modifiedHolder: self valueOfEnablingCommitButtons.
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1455
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1456	builder aspectAt:#noteBookView put:noteBook.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1457	].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1458	^ noteBook
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1459	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1460
6ce84c1270a6 intitial checkin ca parents: diff changeset	1461	tabList
6ce84c1270a6 intitial checkin ca parents: diff changeset	1462
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1463	\|holder\|
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1464	(holder := builder bindingAt:#tabList) isNil ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1465	builder aspectAt:#tabList put:(holder := #('Properties') asValue).
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1466	].
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1467	^ holder
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1468
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1469
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1470	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1471
6ce84c1270a6 intitial checkin ca parents: diff changeset	1472	tabModel
6ce84c1270a6 intitial checkin ca parents: diff changeset	1473
6ce84c1270a6 intitial checkin ca parents: diff changeset	1474	\|holder\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	1475	(holder := builder bindingAt:#tabModel) isNil ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1476	holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1477	builder aspectAt:#tabModel put:holder.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1478	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1479	^ holder
6ce84c1270a6 intitial checkin ca parents: diff changeset	1480
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1481	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1482
578a7aaed19e totally revised version tz parents: 406 diff changeset	1483	treeView
578a7aaed19e totally revised version tz parents: 406 diff changeset	1484	"returns the tree view representing hierarchically all the menu items"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1485
578a7aaed19e totally revised version tz parents: 406 diff changeset	1486	\|treeView\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1487	(treeView := builder bindingAt:#treeView) isNil ifTrue:[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1488	treeView := TreeView new.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1489	treeView action:[:dummy\|self menuChanged].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1490	builder aspectAt: #treeView put: treeView
578a7aaed19e totally revised version tz parents: 406 diff changeset	1491	].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1492	^treeView
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1493	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1494
6ce84c1270a6 intitial checkin ca parents: diff changeset	1495	!MenuEditor methodsFor:'change & update'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1496
6ce84c1270a6 intitial checkin ca parents: diff changeset	1497	update:something with:aParameter from:changedObject
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1498	"one of my value holders has changed its value, so let me set the editing menu as modified"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1499
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1500	self valueOfEnablingCommitButtons value: true
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1501	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1502
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1503	updateEnabledChannels
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1504	"update enabled channels"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1505
578a7aaed19e totally revised version tz parents: 406 diff changeset	1506	\|node parent next state\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1507
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1508	state := false.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1509
578a7aaed19e totally revised version tz parents: 406 diff changeset	1510	(node := self treeView selectedNode) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1511	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1512	[
220 8f0065e7a83d update ca parents: 218 diff changeset	1513	self hasAnySingleSelection value:true.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1514	(parent := node parent) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1515	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1516	[
220 8f0065e7a83d update ca parents: 218 diff changeset	1517	next := parent childAt:((parent indexOfChild:node) + 1).
8f0065e7a83d update ca parents: 218 diff changeset	1518	self enabledStepIn value:(next notNil and:[next hasChildren]).
8f0065e7a83d update ca parents: 218 diff changeset	1519	self enabledStepOver value:(parent children size > 1).
8f0065e7a83d update ca parents: 218 diff changeset	1520	self enabledStepOut value:(parent parent notNil).
8f0065e7a83d update ca parents: 218 diff changeset	1521	self hasValidSingleSelection value:true.
8f0065e7a83d update ca parents: 218 diff changeset	1522	self hasValidSelection value:true.
8f0065e7a83d update ca parents: 218 diff changeset	1523	^ self
8f0065e7a83d update ca parents: 218 diff changeset	1524	]
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1525	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1526	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1527	[
220 8f0065e7a83d update ca parents: 218 diff changeset	1528	self hasAnySingleSelection value:false.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1529	self treeView numberOfSelections ~~ 0 ifTrue:[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1530	state := (self treeView isInSelection:1) not
220 8f0065e7a83d update ca parents: 218 diff changeset	1531	]
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1532	].
220 8f0065e7a83d update ca parents: 218 diff changeset	1533	self enabledStepOver value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1534	self enabledStepIn value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1535	self enabledStepOut value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1536	self hasValidSingleSelection value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1537	self hasValidSelection value:state.
8f0065e7a83d update ca parents: 218 diff changeset	1538	! !
8f0065e7a83d update ca parents: 218 diff changeset	1539
8f0065e7a83d update ca parents: 218 diff changeset	1540	!MenuEditor methodsFor:'event handling'!
8f0065e7a83d update ca parents: 218 diff changeset	1541
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1542	doesNotUnderstand: aMessage
578a7aaed19e totally revised version tz parents: 406 diff changeset	1543	"detour incoming messages to the tree view"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1544
578a7aaed19e totally revised version tz parents: 406 diff changeset	1545	(self treeView respondsTo: aMessage selector)
578a7aaed19e totally revised version tz parents: 406 diff changeset	1546	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1547	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1548	^aMessage sendTo: self treeView
578a7aaed19e totally revised version tz parents: 406 diff changeset	1549	].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1550	super doesNotUnderstand:aMessage
220 8f0065e7a83d update ca parents: 218 diff changeset	1551
8f0065e7a83d update ca parents: 218 diff changeset	1552
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1553	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1554
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1555	!MenuEditor methodsFor:'private'!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1556
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1557	checkMenuItemModified
578a7aaed19e totally revised version tz parents: 406 diff changeset	1558	"check menu item modification"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1559
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1560	self valueOfEnablingCommitButtons value
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1561	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1562	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1563	((YesNoBox title:'Menu item was modified!!\Save it?\' withCRs)
578a7aaed19e totally revised version tz parents: 406 diff changeset	1564	noText:'No';
578a7aaed19e totally revised version tz parents: 406 diff changeset	1565	yesText:'Yes';
578a7aaed19e totally revised version tz parents: 406 diff changeset	1566	showAtPointer;
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1567	accepted)
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1568	ifFalse:
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1569	[
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1570	self valueOfEnablingCommitButtons value: false.
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1571	isModified := false.
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1572	^true
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1573	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1574	self accept
578a7aaed19e totally revised version tz parents: 406 diff changeset	1575	].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1576	^true
578a7aaed19e totally revised version tz parents: 406 diff changeset	1577	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1578
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1579	helpKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1580
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1581	\|node\|
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1582	(node := self treeView selectedNode) notNil ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1583	^ node contents activeHelpKey
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1584	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1585	^ nil
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1586	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1587
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1588	helpTool
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1589
578a7aaed19e totally revised version tz parents: 406 diff changeset	1590	^helpCanvas application
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1591	! !
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1592
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1593	!MenuEditor methodsFor:'queries'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1594
270 1a68f7479932 provide access to the menus selector; Claus Gittinger <cg@exept.de> parents: 266 diff changeset	1595	didInstall
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1596	"returns true if the menu was installed"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1597
578a7aaed19e totally revised version tz parents: 406 diff changeset	1598	^didInstall
270 1a68f7479932 provide access to the menus selector; Claus Gittinger <cg@exept.de> parents: 266 diff changeset	1599	!
1a68f7479932 provide access to the menus selector; Claus Gittinger <cg@exept.de> parents: 266 diff changeset	1600
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1601	isHelpToolSelected
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1602	"returns true if current selection is help tool"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1603
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1604	(tabSelection ~~ 0 and:[slices notNil]) ifTrue:[
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1605	^(slices at:tabSelection) first = UIHelpTool label
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1606	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1607	^false
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1608	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1609
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1610	isStandAlone
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1611	"returns true in case of owner of the helptool"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1612
578a7aaed19e totally revised version tz parents: 406 diff changeset	1613	^self masterApplication isNil
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1614	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1615
6ce84c1270a6 intitial checkin ca parents: diff changeset	1616	!MenuEditor methodsFor:'selection'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1617
6ce84c1270a6 intitial checkin ca parents: diff changeset	1618	menuChanged
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1619
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1620	\|node item slc sel old dep\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1621
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1622	aspects do: [:holder\| holder removeDependent:self].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1623	(node := self treeView selectedNode) notNil ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1624	aspects do:[:anAspect\| anAspect value:nil ].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1625	item := node contents.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1626	item toAspects:aspects.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1627
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1628	item isSeparator ifFalse:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1629	node parent isNil ifFalse:[
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1630	node hasChildren ifTrue:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1631	slc := #slicesMenu
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1632	] ifFalse:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1633	item submenuChannel isNil ifTrue:[slc := #slicesItem]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1634	ifFalse:[slc := #slicesLink]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1635	].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1636	slc := (self class perform:slc) copyWith:#( 'Help' #dummy ).
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1637	] ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1638	slc := self class perform:#slicesRootMenu
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1639	].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1640	] ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1641	slc := self class perform:#slicesSeparatorMenu.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1642	]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1643	].
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1644
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1645	self helpTool helpKey: self helpKey.
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1646	"Next line helps me to preserve myself against unnecessary settings of
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1647	valueOfEnablingCommitButtons to true in the help tool."
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1648	self valueOfEnablingCommitButtons value: false.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1649
6ce84c1270a6 intitial checkin ca parents: diff changeset	1650	slc ~= slices ifTrue:[
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1651	tabSelection ~~ 0 ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1652	old := (slices at:tabSelection) first
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1653	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1654
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1655	(slices := slc) notNil ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1656	sel := slices collect:[:s\| s first].
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1657	tabSelection := 0.
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1658	self tabList value:sel.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1659
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1660	(old notNil and:[(sel := sel findFirst:[:n\|n = old]) ~~ 0]) ifFalse:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1661	sel := 1
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1662	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1663	self tabModel value:sel
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1664	] ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1665	self tabList value:nil.
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1666	self tabSelection:0.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1667	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	1668	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1669	self updateEnabledChannels.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1670	aspects do: [:holder\| holder addDependent:self].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1671	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1672
6ce84c1270a6 intitial checkin ca parents: diff changeset	1673	tabSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1674
578a7aaed19e totally revised version tz parents: 406 diff changeset	1675	^tabSelection ? 0
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1676	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1677
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1678	tabSelection: aSelection
578a7aaed19e totally revised version tz parents: 406 diff changeset	1679
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1680	\|sel\|
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1681	tabSelection = aSelection ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1682	^ self
6ce84c1270a6 intitial checkin ca parents: diff changeset	1683	].
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1684	(aSelection ~~ 0 and:[slices isNil]) ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1685	^ self
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1686	].
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1687	(tabSelection := aSelection) == 0 ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1688	slices isNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1689	specCanvas client:nil.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1690	^ specCanvas raise.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1691	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1692	tabSelection == 1 ifTrue:[^ self].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1693	tabSelection := 1
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1694	].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1695
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1696	self isHelpToolSelected ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1697	self helpTool helpKey:(self helpKey).
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1698	helpCanvas raise.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1699	] ifFalse:[
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1700	sel := (slices at:tabSelection) last.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1701	aspects do: [:holder\| holder release].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1702	specCanvas client:self spec:(self class perform:sel) builder:builder.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1703	aspects do: [:holder\| holder addDependent:self].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1704	specCanvas raise.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1705	]
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1706
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1707	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1708
6ce84c1270a6 intitial checkin ca parents: diff changeset	1709	!MenuEditor methodsFor:'startup / release'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1710
6ce84c1270a6 intitial checkin ca parents: diff changeset	1711	buildFrom:aClass andSelector:aSelector
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1712
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	1713	\|oldClass newClass\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1714
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1715	self valueOfEnablingCommitButtons value: false.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1716	oldClass := self specClass.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1717	self specClass:aClass.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1718	newClass := self specClass.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1719
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1720	(self isStandAlone and:[oldClass ~= newClass]) ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1721	self helpTool helpSpecFrom:newClass
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1722	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1723	self treeView buildFrom: newClass andSelector: aSelector.
398 155310ec83aa revised version tz parents: 382 diff changeset	1724
155310ec83aa revised version tz parents: 382 diff changeset	1725	aClass notNil & aSelector notNil
155310ec83aa revised version tz parents: 382 diff changeset	1726	ifTrue:
155310ec83aa revised version tz parents: 382 diff changeset	1727	[
155310ec83aa revised version tz parents: 382 diff changeset	1728	\|className message\|
155310ec83aa revised version tz parents: 382 diff changeset	1729	aClass isClass ifTrue: [className := aClass name].
155310ec83aa revised version tz parents: 382 diff changeset	1730	aClass isString ifTrue: [className := aClass].
155310ec83aa revised version tz parents: 382 diff changeset	1731	message := className, ' ', aSelector.
155310ec83aa revised version tz parents: 382 diff changeset	1732	self addToHistory: message -> #loadFromMessage:.
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1733	self valueOfInfoLabel value: self defaultInfoLabel
398 155310ec83aa revised version tz parents: 382 diff changeset	1734	].
155310ec83aa revised version tz parents: 382 diff changeset	1735
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1736	self treeView selection: 2.
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1737	self menuChanged
398 155310ec83aa revised version tz parents: 382 diff changeset	1738
155310ec83aa revised version tz parents: 382 diff changeset	1739	!
155310ec83aa revised version tz parents: 382 diff changeset	1740
155310ec83aa revised version tz parents: 382 diff changeset	1741	checkModified
155310ec83aa revised version tz parents: 382 diff changeset	1742	"check menu modification
155310ec83aa revised version tz parents: 382 diff changeset	1743	"
155310ec83aa revised version tz parents: 382 diff changeset	1744	isModified
155310ec83aa revised version tz parents: 382 diff changeset	1745	ifTrue:
155310ec83aa revised version tz parents: 382 diff changeset	1746	[
155310ec83aa revised version tz parents: 382 diff changeset	1747	((YesNoBox title:'Menu was modified!!')
155310ec83aa revised version tz parents: 382 diff changeset	1748	noText:'Cancel';
155310ec83aa revised version tz parents: 382 diff changeset	1749	yesText:'Waste it and proceed';
155310ec83aa revised version tz parents: 382 diff changeset	1750	showAtPointer;
155310ec83aa revised version tz parents: 382 diff changeset	1751	accepted) ifFalse: [^false].
155310ec83aa revised version tz parents: 382 diff changeset	1752	isModified := false
155310ec83aa revised version tz parents: 382 diff changeset	1753	].
155310ec83aa revised version tz parents: 382 diff changeset	1754	^true
155310ec83aa revised version tz parents: 382 diff changeset	1755
155310ec83aa revised version tz parents: 382 diff changeset	1756
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1757	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1758
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1759	closeRequest
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1760	"close request"
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1761
418 f47e99ae91bc double save requests after close request added tz parents: 416 diff changeset	1762	(self checkMenuItemModified and: [self checkModified]) ifTrue: [super closeRequest]
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1763
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1764
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1765
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1766
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1767
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1768	!
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1769
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1770	initialize
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1771	"initialize value holders for the menu item properties"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1772
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1773	\|holder\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1774
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1775	super initialize.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1776	aspects := IdentityDictionary new.
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1777	tabSelection := 0.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1778
6ce84c1270a6 intitial checkin ca parents: diff changeset	1779	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	1780	label
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1781	accessCharacterPos
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1782	argument
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1783	submenuChannel
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1784	submenuArgument
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1785	enabled
6ce84c1270a6 intitial checkin ca parents: diff changeset	1786	value
6ce84c1270a6 intitial checkin ca parents: diff changeset	1787	nameKey
6ce84c1270a6 intitial checkin ca parents: diff changeset	1788	indication
398 155310ec83aa revised version tz parents: 382 diff changeset	1789	translateLabel
155310ec83aa revised version tz parents: 382 diff changeset	1790	isButton
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1791	shortcutKey
6ce84c1270a6 intitial checkin ca parents: diff changeset	1792	retriever
6ce84c1270a6 intitial checkin ca parents: diff changeset	1793	iconAndLabel
6ce84c1270a6 intitial checkin ca parents: diff changeset	1794	icon
6ce84c1270a6 intitial checkin ca parents: diff changeset	1795
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1796	) do:[:aKey\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1797	aspects at:aKey put:(holder := ValueHolder new).
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1798	holder addDependent: self
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1799	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1800
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1801	aspects at:#seperatorSelection put:(holder := SelectionInList new).
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1802	holder list: Item separatorList.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1803	holder addDependent:self.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1804	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1805
398 155310ec83aa revised version tz parents: 382 diff changeset	1806	loadFromMessage: aMessage
155310ec83aa revised version tz parents: 382 diff changeset	1807
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1808	(((aMessage size > 0) and: [self checkMenuItemModified]) and: [self checkModified])
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	1809	ifTrue:
398 155310ec83aa revised version tz parents: 382 diff changeset	1810	[
155310ec83aa revised version tz parents: 382 diff changeset	1811	\|readStream aClass aSelector\|
155310ec83aa revised version tz parents: 382 diff changeset	1812	readStream := aMessage readStream.
155310ec83aa revised version tz parents: 382 diff changeset	1813	aClass := Smalltalk at: (readStream upTo: $ ) asSymbol.
155310ec83aa revised version tz parents: 382 diff changeset	1814	aSelector := readStream upToEnd asSymbol.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1815	self buildFrom: aClass andSelector: aSelector
398 155310ec83aa revised version tz parents: 382 diff changeset	1816	]
155310ec83aa revised version tz parents: 382 diff changeset	1817	!
155310ec83aa revised version tz parents: 382 diff changeset	1818
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1819	openModalOnClass:aClass andSelector:aSelector
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1820
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1821	specClass := Association key:aClass value:aSelector.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1822	super openInterfaceModal.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1823
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1824	!
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1825
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1826	openOnClass:aClass andSelector:aSelector
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1827
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1828	specClass := Association key:aClass value:aSelector.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1829	super openInterface.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1830	self buildFrom:aClass andSelector:aSelector.
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1831
209 b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1832	!
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1833
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1834	postBuildWith:builder
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1835	\|cls sel\|
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1836
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1837	didInstall := false.
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1838	isModified := false.
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1839
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1840	specClass isAssociation ifTrue:[
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1841	cls := specClass key.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1842	sel := specClass value.
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1843
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1844	specClass := nil.
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1845
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1846	(sel isKindOf:Menu) ifTrue:[
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1847	self buildFrom:cls andSelector:nil.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1848	^self treeView buildFromMenu:sel.
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1849	]
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1850
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1851	].
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1852	self buildFrom:cls andSelector:sel
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1853	!
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1854
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1855	postOpenWith:aBuilder
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1856
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1857	self isHelpToolSelected
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1858	ifTrue: [helpCanvas raise]
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1859	ifFalse: [specCanvas raise]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1860	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1861
6ce84c1270a6 intitial checkin ca parents: diff changeset	1862	!MenuEditor methodsFor:'user interactions'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1863
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1864	accept
578a7aaed19e totally revised version tz parents: 406 diff changeset	1865	"invoked by button 'OK' and by save requests of menu item changes"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1866
578a7aaed19e totally revised version tz parents: 406 diff changeset	1867	\|node\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1868	node := self treeView selectedNode.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1869	node notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1870	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1871	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1872	self isHelpToolSelected
578a7aaed19e totally revised version tz parents: 406 diff changeset	1873	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1874	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1875	self helpTool accept.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1876	node contents activeHelpKey: self helpTool helpKey
578a7aaed19e totally revised version tz parents: 406 diff changeset	1877	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1878	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1879	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1880	self treeView updateNode: (node contents buildFromAspects: aspects)
578a7aaed19e totally revised version tz parents: 406 diff changeset	1881	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1882	].
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1883	self valueOfEnablingCommitButtons value:false.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1884	isModified := true
578a7aaed19e totally revised version tz parents: 406 diff changeset	1885	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1886
578a7aaed19e totally revised version tz parents: 406 diff changeset	1887	cancel
578a7aaed19e totally revised version tz parents: 406 diff changeset	1888	"invoked by button 'Cancel'"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1889
578a7aaed19e totally revised version tz parents: 406 diff changeset	1890	\|node\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1891	(node := self treeView selectedNode) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1892	ifTrue:
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1893	[
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1894	self helpTool helpKey:(self helpKey).
578a7aaed19e totally revised version tz parents: 406 diff changeset	1895	aspects do:[:anAspect\| anAspect value:nil].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1896	node contents toAspects:aspects
578a7aaed19e totally revised version tz parents: 406 diff changeset	1897	].
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1898	self valueOfEnablingCommitButtons value: false.
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1899	isModified := false
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1900	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1901
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1902	doBrowseAppClass
6ce84c1270a6 intitial checkin ca parents: diff changeset	1903	"open a browser on the class"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1904
6ce84c1270a6 intitial checkin ca parents: diff changeset	1905	\|cls\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	1906
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1907	(cls := self resolveName: self specClass) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1908	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1909	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1910	SystemBrowser openInClass:cls class selector: self treeView selectorName
578a7aaed19e totally revised version tz parents: 406 diff changeset	1911	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1912	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1913	[
398 155310ec83aa revised version tz parents: 382 diff changeset	1914	self information:'No valid class defined!!'.
331 aa1663b8c2ab use: ca parents: 326 diff changeset	1915	]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1916	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1917
6ce84c1270a6 intitial checkin ca parents: diff changeset	1918	doDefineClass
6ce84c1270a6 intitial checkin ca parents: diff changeset	1919
6ce84c1270a6 intitial checkin ca parents: diff changeset	1920	aspects at:#classNameChannel put:(self specClass asValue).
6ce84c1270a6 intitial checkin ca parents: diff changeset	1921
6ce84c1270a6 intitial checkin ca parents: diff changeset	1922	(self openDialogInterface:#classDefineSpec) ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1923	self specClass:((aspects at:#classNameChannel) value)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1924	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1925
6ce84c1270a6 intitial checkin ca parents: diff changeset	1926	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1927
381 1d1b1483270c now with image editor support tz parents: 371 diff changeset	1928	doEditImage
1d1b1483270c now with image editor support tz parents: 371 diff changeset	1929
398 155310ec83aa revised version tz parents: 382 diff changeset	1930	\|cls resourceClass resourceSelector imageResourceMessage readStream\|
155310ec83aa revised version tz parents: 382 diff changeset	1931
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1932	cls := self resolveName: self specClass.
398 155310ec83aa revised version tz parents: 382 diff changeset	1933	cls isNil ifTrue:[
155310ec83aa revised version tz parents: 382 diff changeset	1934	^ self information:'No valid class defined!!'.
155310ec83aa revised version tz parents: 382 diff changeset	1935	].
155310ec83aa revised version tz parents: 382 diff changeset	1936	(aspects at:#icon) value size > 0
155310ec83aa revised version tz parents: 382 diff changeset	1937	ifTrue: [resourceSelector := (aspects at:#icon) value]
155310ec83aa revised version tz parents: 382 diff changeset	1938	ifFalse: [resourceSelector := #stxIcon].
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1939	(aspects at:#retriever) value size > 0
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1940	ifTrue: [resourceClass := (aspects at:#retriever) value]
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1941	ifFalse: [resourceClass := cls withAllSuperclasses detect: [:cls\| cls class implements: resourceSelector] ifNone: [cls]].
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1942
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1943	(imageResourceMessage := ImageEditor openModalOnClass: resourceClass andSelector: resourceSelector) notNil
398 155310ec83aa revised version tz parents: 382 diff changeset	1944	ifTrue:
155310ec83aa revised version tz parents: 382 diff changeset	1945	[
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1946	readStream := imageResourceMessage readStream.
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1947	resourceClass := (readStream upTo: $ ) asSymbol.
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1948	resourceSelector := readStream upToEnd asSymbol.
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1949	resourceClass size > 0 ifTrue: [(aspects at:#retriever) value: resourceClass].
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1950	resourceSelector size > 0 ifTrue: [(aspects at:#icon) value: resourceSelector. self valueOfEnablingCommitButtons value: true]
398 155310ec83aa revised version tz parents: 382 diff changeset	1951	]
381 1d1b1483270c now with image editor support tz parents: 371 diff changeset	1952	!
1d1b1483270c now with image editor support tz parents: 371 diff changeset	1953
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1954	doFromClass
6ce84c1270a6 intitial checkin ca parents: diff changeset	1955
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1956	self loadFromInClassesOf: #Object
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1957	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1958
6ce84c1270a6 intitial checkin ca parents: diff changeset	1959	doInstallSpec
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1960	\|cls selector treeView menu spec mthd category code\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1961
331 aa1663b8c2ab use: ca parents: 326 diff changeset	1962	cls := self resolveName:(self specClass).
aa1663b8c2ab use: ca parents: 326 diff changeset	1963
aa1663b8c2ab use: ca parents: 326 diff changeset	1964	cls isNil ifTrue:[
398 155310ec83aa revised version tz parents: 382 diff changeset	1965	^ self information:'No valid class defined!!'.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1966	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1967	treeView := self treeView.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1968	selector := treeView selectorName.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1969	menu := treeView asMenu.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1970
6ce84c1270a6 intitial checkin ca parents: diff changeset	1971	menu isNil ifTrue:[
398 155310ec83aa revised version tz parents: 382 diff changeset	1972	^ self information:'No menu defined.'
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1973	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1974	menu := menu literalArrayEncoding.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1975	spec := WriteStream on:String new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1976	UISpecification prettyPrintSpecArray:menu on:spec indent:5.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1977	spec := spec contents.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1978
6ce84c1270a6 intitial checkin ca parents: diff changeset	1979	"/ if that method already exists, do not overwrite the category
6ce84c1270a6 intitial checkin ca parents: diff changeset	1980
6ce84c1270a6 intitial checkin ca parents: diff changeset	1981	category := 'interface specs'.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1982	(mthd := cls class compiledMethodAt:selector) notNil ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1983	category := mthd category.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1984	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1985
6ce84c1270a6 intitial checkin ca parents: diff changeset	1986	code := Character excla asString
6ce84c1270a6 intitial checkin ca parents: diff changeset	1987	, cls name , ' class methodsFor:' , category storeString
6ce84c1270a6 intitial checkin ca parents: diff changeset	1988	, Character excla asString , '\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1989
6ce84c1270a6 intitial checkin ca parents: diff changeset	1990	, selector , '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1991	, ' "this window spec was automatically generated by the ST/X MenuEditor"\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1992	, ' "do not manually edit this - the builder may not be able to\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1993	, ' handle the specification if its corrupted."\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1994	, ' "\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1995	, ' MenuEditor new openOnClass:' , cls name , ' andSelector:#' , selector , '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1996	, ' (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , selector , ')) startUp\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1997	, ' "\'.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1998
6ce84c1270a6 intitial checkin ca parents: diff changeset	1999	code := code
6ce84c1270a6 intitial checkin ca parents: diff changeset	2000	, '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2001	, ' <resource: #menu>\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2002	, ' ^\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2003	, ' ', spec
6ce84c1270a6 intitial checkin ca parents: diff changeset	2004	, '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2005	, Character excla asString
6ce84c1270a6 intitial checkin ca parents: diff changeset	2006	, ' '
6ce84c1270a6 intitial checkin ca parents: diff changeset	2007	, Character excla asString
6ce84c1270a6 intitial checkin ca parents: diff changeset	2008	, '\\'.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2009
6ce84c1270a6 intitial checkin ca parents: diff changeset	2010	code := code withCRs.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2011	(ReadStream on:code) fileIn.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2012
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	2013	self isStandAlone ifTrue:[
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	2014	self helpTool installHelpSpecInto:(self specClass)
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	2015	].
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2016	didInstall := true.
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2017	isModified := false.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2018
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2019	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2020
6ce84c1270a6 intitial checkin ca parents: diff changeset	2021	doNew
398 155310ec83aa revised version tz parents: 382 diff changeset	2022
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2023	self buildFrom:nil andSelector: self treeView selectorName
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2024	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2025
6ce84c1270a6 intitial checkin ca parents: diff changeset	2026	doPickAMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2027
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	2028	\|view\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2029
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2030	view := Screen current viewFromUser.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2031
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2032	(view isNil or:[view == Screen current rootView]) ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2033	^ self
6ce84c1270a6 intitial checkin ca parents: diff changeset	2034	].
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	2035	view specClass == MenuPanelSpec ifTrue:[
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2036	^ self treeView buildFromMenu: view asMenu
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2037	].
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	2038	^ nil
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2039	!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2040
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2041	doStepDown
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2042	"shift selected menu item one step down"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2043
578a7aaed19e totally revised version tz parents: 406 diff changeset	2044	self treeView selectedNodeChangeSequenceOrder:1.
398 155310ec83aa revised version tz parents: 382 diff changeset	2045	isModified := true.
155310ec83aa revised version tz parents: 382 diff changeset	2046
155310ec83aa revised version tz parents: 382 diff changeset	2047
155310ec83aa revised version tz parents: 382 diff changeset	2048
155310ec83aa revised version tz parents: 382 diff changeset	2049
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2050	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2051
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2052	doStepIn
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2053	"move selected menu item into next submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2054
578a7aaed19e totally revised version tz parents: 406 diff changeset	2055	self treeView selectedNodeBecomeChildOfNext.
398 155310ec83aa revised version tz parents: 382 diff changeset	2056	isModified := true.
155310ec83aa revised version tz parents: 382 diff changeset	2057
155310ec83aa revised version tz parents: 382 diff changeset	2058
155310ec83aa revised version tz parents: 382 diff changeset	2059
155310ec83aa revised version tz parents: 382 diff changeset	2060
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2061
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2062	!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2063
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2064	doStepOut
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2065	"move selected menu item out from parent submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2066
578a7aaed19e totally revised version tz parents: 406 diff changeset	2067	self treeView selectedNodeBecomeSisterOfParent.
398 155310ec83aa revised version tz parents: 382 diff changeset	2068	isModified := true.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2069	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2070
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2071	doStepUp
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2072	"shift selected menu item one step up"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2073
578a7aaed19e totally revised version tz parents: 406 diff changeset	2074	self treeView selectedNodeChangeSequenceOrder:-1.
398 155310ec83aa revised version tz parents: 382 diff changeset	2075	isModified := true.
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2076	!
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2077
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2078	loadFromInClassesOf: aSuperclassOrSymbol
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2079
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2080	self loadFromMessage:
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2081	(ResourceSelectionBrowser
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2082	request: 'Load Menu From Class'
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2083	onSuperclass: aSuperclassOrSymbol
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2084	andClass: specClass
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2085	andSelector: nil
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2086	withResourceTypes: #(menu))
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2087	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2088
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2089	!MenuEditor::Item class methodsFor:'constants'!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2090
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2091	separatorList
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2092
578a7aaed19e totally revised version tz parents: 406 diff changeset	2093	^#('blank' 'single line' 'double line')
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2094	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2095
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2096	separatorSlices
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2097	^ #(
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2098	( #blank '' )
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2099	( #single '-' )
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2100	( #double '=' )
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2101	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2102	! !
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2103
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2104	!MenuEditor::Item class methodsFor:'documentation'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2105
6ce84c1270a6 intitial checkin ca parents: diff changeset	2106	documentation
6ce84c1270a6 intitial checkin ca parents: diff changeset	2107	"
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2108	implements the contents assigned to a TreeItem. An instance
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2109	is associated with one item and keeps all its information
6ce84c1270a6 intitial checkin ca parents: diff changeset	2110
6ce84c1270a6 intitial checkin ca parents: diff changeset	2111	[see also:]
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2112	TreeItem
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2113	MenuEditor
6ce84c1270a6 intitial checkin ca parents: diff changeset	2114
6ce84c1270a6 intitial checkin ca parents: diff changeset	2115	[author:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2116	Claus Atzkern
6ce84c1270a6 intitial checkin ca parents: diff changeset	2117	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2118
6ce84c1270a6 intitial checkin ca parents: diff changeset	2119
6ce84c1270a6 intitial checkin ca parents: diff changeset	2120	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2121
6ce84c1270a6 intitial checkin ca parents: diff changeset	2122	!MenuEditor::Item methodsFor:'accessing'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2123
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2124	activeHelpKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2125
578a7aaed19e totally revised version tz parents: 406 diff changeset	2126	^activeHelpKey
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2127	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2128
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2129	activeHelpKey:aKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2130
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2131	activeHelpKey := aKey
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2132	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2133
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2134	label
6ce84c1270a6 intitial checkin ca parents: diff changeset	2135	"return the value of the instance variable 'label' (automatically generated)"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2136
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2137	^label
578a7aaed19e totally revised version tz parents: 406 diff changeset	2138	!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2139
6ce84c1270a6 intitial checkin ca parents: diff changeset	2140	label:something
6ce84c1270a6 intitial checkin ca parents: diff changeset	2141	"set the value of the instance variable 'label' (automatically generated)"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2142
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2143	label := something ? '-'
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2144	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2145
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2146	separatorType
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2147	"returns separator type assigned to item or nil"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2148
578a7aaed19e totally revised version tz parents: 406 diff changeset	2149	label size > 1
578a7aaed19e totally revised version tz parents: 406 diff changeset	2150	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2151	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	2152	label size == 0 ifTrue:[^#blank].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2153	label first == $- ifTrue:[^#single].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2154	label first == $= ifTrue:[^#double].
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2155	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2156	^nil
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2157
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2158	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2159
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2160	submenuChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2161	"return the value of the instance variable 'submenuChannel' (automatically generated)"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2162
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2163	^submenuChannel
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2164	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2165
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2166	submenuChannel:aChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2167	"return the value of the instance variable 'submenuChannel' (automatically generated)"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2168
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2169	submenuChannel := aChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2170	! !
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2171
6ce84c1270a6 intitial checkin ca parents: diff changeset	2172	!MenuEditor::Item methodsFor:'conversion'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2173
6ce84c1270a6 intitial checkin ca parents: diff changeset	2174	asMenuItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2175	"converts self to a menu item"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2176
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2177	\|item rcv\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2178
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2179	item := MenuItem labeled:label.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2180
398 155310ec83aa revised version tz parents: 382 diff changeset	2181	self isSeparator ifFalse:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2182	item activeHelpKey:activeHelpKey.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2183	item enabled:enabled.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2184	item accessCharacterPosition:accessCharacterPos.
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	2185	item argument:argument.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2186	item submenuChannel:submenuChannel.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2187	item nameKey:nameKey.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2188	item shortcutKeyCharacter:shortcutKey.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2189	item value:value.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2190	item indication:indication.
398 155310ec83aa revised version tz parents: 382 diff changeset	2191	item translateLabel: translateLabel.
155310ec83aa revised version tz parents: 382 diff changeset	2192	item isButton: isButton.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2193
6ce84c1270a6 intitial checkin ca parents: diff changeset	2194	icon notNil ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2195	rcv := ResourceRetriever new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2196	rcv className:retriever.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2197	rcv selector:icon.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2198	iconAndLabel == true ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2199	rcv labelText:label
6ce84c1270a6 intitial checkin ca parents: diff changeset	2200	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2201	item labelImage:rcv
6ce84c1270a6 intitial checkin ca parents: diff changeset	2202	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2203	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2204	^item
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2205	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2206
6ce84c1270a6 intitial checkin ca parents: diff changeset	2207	buildFromAspects:aspects
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2208
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2209	\|name\|
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2210	self isSeparator
578a7aaed19e totally revised version tz parents: 406 diff changeset	2211	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2212	[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2213	name := label.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2214	label := (aspects at:#label) value.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2215
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2216	(label isNil or:[self isSeparator]) ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2217	(aspects at:#label) value:(label := name)
6ce84c1270a6 intitial checkin ca parents: diff changeset	2218	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2219
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2220	enabled := (aspects at:#enabled) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2221	value := (aspects at:#value) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2222	nameKey := (aspects at:#nameKey) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2223	indication := (aspects at:#indication) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2224	shortcutKey := (aspects at:#shortcutKey) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2225	accessCharacterPos := (aspects at:#accessCharacterPos) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2226	argument := (aspects at:#argument) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2227	translateLabel := (aspects at:#translateLabel) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2228	isButton := (aspects at:#isButton) value.
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2229
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2230	argument isString ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2231	argument size > 1 ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2232	(argument at:1) == $# ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2233	argument := (argument copyFrom:2) asSymbol
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2234	]
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2235	]
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2236	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2237	submenuChannel := (aspects at:#submenuChannel) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2238	retriever := (aspects at:#retriever) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2239	icon := (aspects at:#icon) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2240	iconAndLabel := (aspects at:#iconAndLabel) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2241	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	2242	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2243	[
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2244	name := (aspects at:#seperatorSelection) selectionIndex.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2245	label := (self class separatorSlices at:name) last.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2246	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2247	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2248
6ce84c1270a6 intitial checkin ca parents: diff changeset	2249	buildFromMenuItem:anItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2250
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2251	\|rtv\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2252
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2253	self label:(anItem label).
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2254	activeHelpKey := anItem activeHelpKey.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2255
6ce84c1270a6 intitial checkin ca parents: diff changeset	2256	(enabled := anItem enabled) isSymbol ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2257	enabled := nil
6ce84c1270a6 intitial checkin ca parents: diff changeset	2258	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2259
6ce84c1270a6 intitial checkin ca parents: diff changeset	2260	(value := anItem value) isSymbol ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2261	value := nil.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2262	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2263
6ce84c1270a6 intitial checkin ca parents: diff changeset	2264	(indication := anItem indication) isSymbol ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2265	indication := nil
6ce84c1270a6 intitial checkin ca parents: diff changeset	2266	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2267
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2268	nameKey := anItem nameKey.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2269	shortcutKey := anItem shortcutKeyCharacter.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2270	accessCharacterPos := anItem accessCharacterPosition.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2271	argument := anItem argument.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2272	submenuChannel := anItem submenuChannel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2273	translateLabel := anItem translateLabel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2274	isButton := anItem isButton.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2275
578a7aaed19e totally revised version tz parents: 406 diff changeset	2276	(((rtv := anItem adornment) notNil)
578a7aaed19e totally revised version tz parents: 406 diff changeset	2277	and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever])
578a7aaed19e totally revised version tz parents: 406 diff changeset	2278	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2279	[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2280	retriever := rtv className.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2281	icon := rtv selector.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2282	(iconAndLabel := rtv labelText notNil) ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2283	label := rtv labelText.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2284	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2285	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2286	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2287
6ce84c1270a6 intitial checkin ca parents: diff changeset	2288	toAspects:aspects
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2289
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2290	\|type\|
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2291	(type := self separatorType) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	2292	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2293	[
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2294	type := self class separatorSlices findFirst:[:el\| el first == type ].
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2295	(aspects at:#seperatorSelection) selectionIndex:type.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2296	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	2297	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2298	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	2299	(aspects at:#label) value:label.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2300	(aspects at:#enabled) value:enabled.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2301	(aspects at:#value) value:value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2302	(aspects at:#nameKey) value:nameKey.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2303	(aspects at:#indication) value:indication.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2304	(aspects at:#shortcutKey) value:shortcutKey.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2305	(aspects at:#accessCharacterPos) value:accessCharacterPos.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2306	(aspects at:#translateLabel) value:translateLabel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2307	(aspects at:#isButton) value:isButton.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2308	(aspects at:#submenuChannel) value:submenuChannel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2309	(aspects at:#retriever) value:retriever.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2310	(aspects at:#icon) value:icon.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2311	(aspects at:#iconAndLabel) value:iconAndLabel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2312	argument isSymbol
578a7aaed19e totally revised version tz parents: 406 diff changeset	2313	ifTrue: [(aspects at:#argument)value:'#', argument]
578a7aaed19e totally revised version tz parents: 406 diff changeset	2314	ifFalse:[(aspects at:#argument)value:argument].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2315	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2316	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2317
6ce84c1270a6 intitial checkin ca parents: diff changeset	2318	!MenuEditor::Item methodsFor:'queries'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2319
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2320	isSeparator
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2321	"returns true if item is a seperator"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2322
578a7aaed19e totally revised version tz parents: 406 diff changeset	2323	^self separatorType notNil
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2324	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2325
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2326	!MenuEditor::TreeView class methodsFor:'defaults'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2327
6ce84c1270a6 intitial checkin ca parents: diff changeset	2328	defaultMenuMessage
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2329	"this message is the default yo be sent to the menuHolder to get a menu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2330
578a7aaed19e totally revised version tz parents: 406 diff changeset	2331	^#menu
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2332
6ce84c1270a6 intitial checkin ca parents: diff changeset	2333
6ce84c1270a6 intitial checkin ca parents: diff changeset	2334	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2335
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2336	!MenuEditor::TreeView class methodsFor:'documentation'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2337
6ce84c1270a6 intitial checkin ca parents: diff changeset	2338	documentation
6ce84c1270a6 intitial checkin ca parents: diff changeset	2339	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2340	menu selection list
6ce84c1270a6 intitial checkin ca parents: diff changeset	2341
6ce84c1270a6 intitial checkin ca parents: diff changeset	2342	[see also:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2343	SelectionInTreeView
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2344	SelectionInTree
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2345	TreeItem
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2346
6ce84c1270a6 intitial checkin ca parents: diff changeset	2347	[author:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2348	Claus Atzkern
6ce84c1270a6 intitial checkin ca parents: diff changeset	2349	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2350
6ce84c1270a6 intitial checkin ca parents: diff changeset	2351
6ce84c1270a6 intitial checkin ca parents: diff changeset	2352	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2353
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2354	!MenuEditor::TreeView class methodsFor:'initialization'!
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2355
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2356	initialize
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2357
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2358	super initialize.
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2359
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2360	Images := nil
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2361	! !
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2362
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2363	!MenuEditor::TreeView class methodsFor:'resources'!
398 155310ec83aa revised version tz parents: 382 diff changeset	2364
155310ec83aa revised version tz parents: 382 diff changeset	2365	images
155310ec83aa revised version tz parents: 382 diff changeset	2366	"returns an IdentityDictionary containing a list of images and keys used
155310ec83aa revised version tz parents: 382 diff changeset	2367	"
155310ec83aa revised version tz parents: 382 diff changeset	2368	^ Images ?
155310ec83aa revised version tz parents: 382 diff changeset	2369	(Images := IdentityDictionary new
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2370	at: #menuItemImage put: MenuEditor menuItemImage;
578a7aaed19e totally revised version tz parents: 406 diff changeset	2371	at: #menuSeparatorImage put: MenuEditor menuSeparatorImage;
578a7aaed19e totally revised version tz parents: 406 diff changeset	2372	at: #submenuImage put: MenuEditor submenuImage;
578a7aaed19e totally revised version tz parents: 406 diff changeset	2373	at: #linkSubmenuImage put: MenuEditor linkSubmenuImage;
398 155310ec83aa revised version tz parents: 382 diff changeset	2374	yourself)
155310ec83aa revised version tz parents: 382 diff changeset	2375
155310ec83aa revised version tz parents: 382 diff changeset	2376
155310ec83aa revised version tz parents: 382 diff changeset	2377
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2378	! !
578a7aaed19e totally revised version tz parents: 406 diff changeset	2379
578a7aaed19e totally revised version tz parents: 406 diff changeset	2380	!MenuEditor::TreeView methodsFor:'accessing'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2381
6ce84c1270a6 intitial checkin ca parents: diff changeset	2382	selectorName
6ce84c1270a6 intitial checkin ca parents: diff changeset	2383	^ (listOfNodes first contents label) asSymbol
6ce84c1270a6 intitial checkin ca parents: diff changeset	2384	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2385
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2386	!MenuEditor::TreeView methodsFor:'building'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2387
6ce84c1270a6 intitial checkin ca parents: diff changeset	2388	buildFrom:aClass andSelector:aSelector
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2389
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2390	\|spec cls menu node\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2391
6ce84c1270a6 intitial checkin ca parents: diff changeset	2392	(aClass notNil and:[aSelector notNil]) ifTrue:[
340 1de048872d5e resolveName: ca parents: 331 diff changeset	2393	cls := self application resolveName:aClass.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2394
6ce84c1270a6 intitial checkin ca parents: diff changeset	2395	(cls respondsTo:aSelector) ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2396	spec := cls perform:aSelector
6ce84c1270a6 intitial checkin ca parents: diff changeset	2397	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2398	].
331 aa1663b8c2ab use: ca parents: 326 diff changeset	2399
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2400	spec isNil ifFalse:[
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2401	(spec isMemberOf:Menu) ifFalse:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2402	menu := Menu new fromLiteralArrayEncoding:spec.
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2403	] ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2404	menu := spec.
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2405	].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2406	node := self nodeLabel:(aSelector asString).
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2407	self subMenu:menu parent:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2408	] ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2409	aSelector notNil ifTrue:[cls := aSelector asString]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2410	ifFalse:[cls := 'menu'].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2411
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2412	node := self nodeLabel:cls.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2413	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2414
6ce84c1270a6 intitial checkin ca parents: diff changeset	2415	node hasChildren ifFalse:[
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2416	node add:(self nodeLabel:'undefined')
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2417	].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2418	node expand.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2419	model root:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2420
6ce84c1270a6 intitial checkin ca parents: diff changeset	2421	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2422
6ce84c1270a6 intitial checkin ca parents: diff changeset	2423	buildFromMenu:aMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2424
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2425	\|node\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2426
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2427	node := self nodeLabel:'menu'.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2428	self subMenu:aMenu parent:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2429
6ce84c1270a6 intitial checkin ca parents: diff changeset	2430	node hasChildren ifFalse:[
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2431	node add:(self nodeLabel:'undefined')
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2432	].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2433	node expand.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2434	model root:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2435
6ce84c1270a6 intitial checkin ca parents: diff changeset	2436	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2437
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2438	menuItem:anItem
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2439
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2440	\|node\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2441
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2442	node := self nodeLabel: anItem label.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2443	node contents buildFromMenuItem:anItem.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2444	node name: node contents label.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2445	self subMenu: anItem submenu parent:node.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2446	^node.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2447
6ce84c1270a6 intitial checkin ca parents: diff changeset	2448
6ce84c1270a6 intitial checkin ca parents: diff changeset	2449	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2450
6ce84c1270a6 intitial checkin ca parents: diff changeset	2451	subMenu:aMenu parent:aParent
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2452
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2453	\|idx grp\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2454
6ce84c1270a6 intitial checkin ca parents: diff changeset	2455	aMenu isNil ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2456	grp := aMenu groupSizes.
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2457	aMenu itemsDo:[:i\| aParent add:(self menuItem:i)].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2458
6ce84c1270a6 intitial checkin ca parents: diff changeset	2459	grp notNil ifTrue:[
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2460	idx := 0.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2461
6ce84c1270a6 intitial checkin ca parents: diff changeset	2462	grp do:[:i\|
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2463	idx := idx + i + 1.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2464	aParent add:(self nodeLabel:nil) beforeIndex:idx.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2465	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2466	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2467	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2468	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2469
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2470	!MenuEditor::TreeView methodsFor:'conversion'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2471
6ce84c1270a6 intitial checkin ca parents: diff changeset	2472	asMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2473	\|menu root\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2474
6ce84c1270a6 intitial checkin ca parents: diff changeset	2475	root := self root.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2476
6ce84c1270a6 intitial checkin ca parents: diff changeset	2477	root hasChildren ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2478	menu := Menu new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2479	root children do:[:aChild\| menu addItem:(self asMenuItem:aChild)].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2480	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2481	^ menu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2482	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2483
6ce84c1270a6 intitial checkin ca parents: diff changeset	2484	asMenuItem:aNode
6ce84c1270a6 intitial checkin ca parents: diff changeset	2485
6ce84c1270a6 intitial checkin ca parents: diff changeset	2486	\|menu item\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2487
6ce84c1270a6 intitial checkin ca parents: diff changeset	2488	item := aNode contents asMenuItem.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2489
6ce84c1270a6 intitial checkin ca parents: diff changeset	2490	aNode hasChildren ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2491	menu := Menu new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2492	aNode children do:[:aChild\| menu addItem:(self asMenuItem:aChild)].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2493	item submenu:menu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2494	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2495	^ item
6ce84c1270a6 intitial checkin ca parents: diff changeset	2496
6ce84c1270a6 intitial checkin ca parents: diff changeset	2497	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2498
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2499	!MenuEditor::TreeView methodsFor:'drawing basics'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2500
6ce84c1270a6 intitial checkin ca parents: diff changeset	2501	drawLabelIndex:anIndex atX:x y:yCenter
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2502	"draw text label assigned to a node at x y( center)"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2503
258 c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2504	\|y x2 type item\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2505
6ce84c1270a6 intitial checkin ca parents: diff changeset	2506	item := (listOfNodes at:anIndex) contents.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2507	type := item separatorType.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2508
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2509	type isNil ifTrue:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2510	super drawLabelIndex:anIndex atX:x y:yCenter
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2511	] ifFalse:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2512	type == #blank ifFalse:[
258 c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2513	x2 := x + 80.
c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2514
c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2515	self displayLineFromX:x y:yCenter toX:x2 y:yCenter.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2516
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2517	type == #double ifTrue:[
258 c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2518	y := yCenter + 2.
c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2519	self displayLineFromX:x y:y toX:x2 y:y.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2520	]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2521	]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2522	]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2523	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2524
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2525	figureFor:aNode
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2526	"access figure for a node"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2527
578a7aaed19e totally revised version tz parents: 406 diff changeset	2528	aNode hasChildren
578a7aaed19e totally revised version tz parents: 406 diff changeset	2529	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2530	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	2531	\|item\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2532	(item := aNode contents) submenuChannel notNil ifTrue:[^images at: #linkSubmenuImage].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2533	item isSeparator ifTrue:[^images at: #menuSeparatorImage].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2534	^images at: #menuItemImage
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2535	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2536	^images at: #submenuImage
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2537	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2538
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2539	!MenuEditor::TreeView methodsFor:'event handling'!
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2540
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2541	keyPress:key x:x y:y
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2542	"invoked if any key was pressed"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2543
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2544	<resource: #keyboard (#Delete #BackSpace #Cut #Copy #Paste)>
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2545
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2546	(key == #Cut or:[key == #Delete or:[key == #BackSpace]]) ifTrue: [^self doCut].
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2547
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2548	key == #Copy ifTrue:[^self doCopy].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2549	key == #Paste ifTrue:[^self doPaste].
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2550
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2551	super keyPress:key x:x y:y
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2552
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2553	! !
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2554
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2555	!MenuEditor::TreeView methodsFor:'initialization'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2556
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2557	fetchImageResources
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2558	"initialize heavily used device resources - to avoid rendering
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2559	images again and again later; returns maximum extent of the images used."
578a7aaed19e totally revised version tz parents: 406 diff changeset	2560
578a7aaed19e totally revised version tz parents: 406 diff changeset	2561	\|defaultExtent imageWidth imageHeight maxWidth maxHeight\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2562
578a7aaed19e totally revised version tz parents: 406 diff changeset	2563	defaultExtent := super fetchImageResources.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2564	maxHeight := defaultExtent y.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2565	maxWidth := defaultExtent x.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2566
578a7aaed19e totally revised version tz parents: 406 diff changeset	2567	images do:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2568	[:anIcon\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2569	(imageWidth := anIcon widthOn:self) > maxWidth ifTrue:[maxWidth := imageWidth].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2570	(imageHeight := anIcon heightOn:self) > maxHeight ifTrue:[maxHeight := imageHeight].
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2571	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2572	^maxWidth@maxHeight
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2573
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2574	!
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2575
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2576	initialize
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2577
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2578	super initialize.
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2579
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2580	images := IdentityDictionary new.
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2581
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2582	self class images associationsDo:[:imageAsso\|images at: imageAsso key put:(imageAsso value onDevice:device)].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2583	self multipleSelectOk:true.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2584	self showDirectoryIndicator: true.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2585	self showDirectoryIndicatorForRoot: false.
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	2586	self selectConditionBlock: [:i\|self application checkMenuItemModified].
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2587	self validateDoubleClickBlock: [:node\| node ~~ listOfNodes first].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2588	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2589
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2590	!MenuEditor::TreeView methodsFor:'menus'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2591
6ce84c1270a6 intitial checkin ca parents: diff changeset	2592	doCopy
398 155310ec83aa revised version tz parents: 382 diff changeset	2593
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2594	self hasSelection ifTrue:[
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2595	CopyBuffer := OrderedCollection new.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2596	self selectionDo:[:i\| CopyBuffer add:((listOfNodes at:i) copy)]
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2597	]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2598	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2599
6ce84c1270a6 intitial checkin ca parents: diff changeset	2600	doCreateItem
398 155310ec83aa revised version tz parents: 382 diff changeset	2601
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2602	self addElement:(self nodeLabel:'undefined')
398 155310ec83aa revised version tz parents: 382 diff changeset	2603
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2604	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2605
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2606	doCreateLink
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2607
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2608	\|node item\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2609
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2610	node := self nodeLabel:'undefined'.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2611	item := node contents.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2612	item submenuChannel:#menuDefaultLink.
398 155310ec83aa revised version tz parents: 382 diff changeset	2613	self addElement:node.
155310ec83aa revised version tz parents: 382 diff changeset	2614	self setModified.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2615
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2616
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2617	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2618
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2619	doCreateMenu
398 155310ec83aa revised version tz parents: 382 diff changeset	2620
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2621	\|node\|
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2622	node := self nodeLabel:'undefined'.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2623	node add:(self nodeLabel:'undefined').
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2624	self addElement:node
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2625	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2626
6ce84c1270a6 intitial checkin ca parents: diff changeset	2627	doCreateSep
398 155310ec83aa revised version tz parents: 382 diff changeset	2628
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2629	self addElement:(self nodeLabel:nil)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2630	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2631
6ce84c1270a6 intitial checkin ca parents: diff changeset	2632	doCut
398 155310ec83aa revised version tz parents: 382 diff changeset	2633
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2634	self doCopy.
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2635	self selectedNodesRemove.
398 155310ec83aa revised version tz parents: 382 diff changeset	2636	self setModified.
155310ec83aa revised version tz parents: 382 diff changeset	2637
155310ec83aa revised version tz parents: 382 diff changeset	2638
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2639	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2640
6ce84c1270a6 intitial checkin ca parents: diff changeset	2641	doPaste
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2642
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2643	(CopyBuffer notNil and:[self selectedNode notNil]) ifTrue:[
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2644	self addElement:(CopyBuffer collect:[:el\| el copy])
220 8f0065e7a83d update ca parents: 218 diff changeset	2645	].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2646	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2647
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2648	!MenuEditor::TreeView methodsFor:'private'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2649
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2650	addElement:something
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2651	"add something after selection"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2652
398 155310ec83aa revised version tz parents: 382 diff changeset	2653	self selectedNodeAdd:something.
155310ec83aa revised version tz parents: 382 diff changeset	2654	self setModified.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2655	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2656
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2657	nodeLabel:aLabel
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2658
578a7aaed19e totally revised version tz parents: 406 diff changeset	2659	^TreeItem name:aLabel contents: (MenuEditor::Item new label:aLabel)
398 155310ec83aa revised version tz parents: 382 diff changeset	2660	!
155310ec83aa revised version tz parents: 382 diff changeset	2661
155310ec83aa revised version tz parents: 382 diff changeset	2662	setModified
155310ec83aa revised version tz parents: 382 diff changeset	2663
155310ec83aa revised version tz parents: 382 diff changeset	2664	self topView application isModified: true
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2665	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2666
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2667	!MenuEditor::TreeView methodsFor:'selection'!
578a7aaed19e totally revised version tz parents: 406 diff changeset	2668
578a7aaed19e totally revised version tz parents: 406 diff changeset	2669	updateNode: aNode
578a7aaed19e totally revised version tz parents: 406 diff changeset	2670
578a7aaed19e totally revised version tz parents: 406 diff changeset	2671	\|name treeItem index\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2672
578a7aaed19e totally revised version tz parents: 406 diff changeset	2673	name := aNode label.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2674	treeItem := listOfNodes detect: [:n\| n contents = aNode] ifNone: [1].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2675	index := self indexOfNode: treeItem.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2676	treeItem name: name.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2677	self redrawLine: index.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2678	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2679
441 b16598618359 release images after closing tz parents: 432 diff changeset	2680	!MenuEditor::TreeView methodsFor:'startup / release'!
b16598618359 release images after closing tz parents: 432 diff changeset	2681
b16598618359 release images after closing tz parents: 432 diff changeset	2682	destroy
b16598618359 release images after closing tz parents: 432 diff changeset	2683	"destroy images"
b16598618359 release images after closing tz parents: 432 diff changeset	2684
b16598618359 release images after closing tz parents: 432 diff changeset	2685	super destroy.
b16598618359 release images after closing tz parents: 432 diff changeset	2686
b16598618359 release images after closing tz parents: 432 diff changeset	2687	Images := nil
b16598618359 release images after closing tz parents: 432 diff changeset	2688
b16598618359 release images after closing tz parents: 432 diff changeset	2689
b16598618359 release images after closing tz parents: 432 diff changeset	2690	! !
b16598618359 release images after closing tz parents: 432 diff changeset	2691
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2692	!MenuEditor class methodsFor:'documentation'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2693
6ce84c1270a6 intitial checkin ca parents: diff changeset	2694	version
6ce84c1270a6 intitial checkin ca parents: diff changeset	2695	^ '$Header$'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2696	! !
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2697	MenuEditor initialize!

author	tz
	Wed, 28 Jan 1998 16:12:23 +0100
changeset 503	98b67511b1c0
parent 499	da5c2e271d1a
child 507	1586e7da66bc
permissions	-rw-r--r--