hg/stx-libtool2: MenuEditor.st@1586e7da66bc (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
507 1586e7da66bc updates default info label after making new tz parents: 499 diff changeset	1392	specClass isNil ifTrue: [^'No menu class defined'].
1586e7da66bc updates default info label after making new tz parents: 499 diff changeset	1393	^specClass printString, ' >> ', self treeView selectorName
492 b169fdb23f5f with spaces looks better tz parents: 489 diff changeset	1394
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1395	! !
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	1396
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1397	!MenuEditor methodsFor:'aspects'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1398
6ce84c1270a6 intitial checkin ca parents: diff changeset	1399	aspectFor:aKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1400	"returns aspect for a key or nil"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1401
578a7aaed19e totally revised version tz parents: 406 diff changeset	1402	^aspects at: aKey ifAbsent: [super aspectFor:aKey]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1403
6ce84c1270a6 intitial checkin ca parents: diff changeset	1404
6ce84c1270a6 intitial checkin ca parents: diff changeset	1405	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1406
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1407	enabledStepIn
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1408	"returns whether user can put selected item in next submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1409
578a7aaed19e totally revised version tz parents: 406 diff changeset	1410	^builder booleanValueAspectFor: #enabledStepIn
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1411	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1412
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1413	enabledStepOut
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1414	"returns whether user can put selected item out of current parent submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1415
578a7aaed19e totally revised version tz parents: 406 diff changeset	1416	^builder booleanValueAspectFor: #enabledStepOut
578a7aaed19e totally revised version tz parents: 406 diff changeset	1417
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1418	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1419
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1420	enabledStepOver
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1421	"returns whether user can shift selected item up or down"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1422
578a7aaed19e totally revised version tz parents: 406 diff changeset	1423	^builder booleanValueAspectFor:#enabledStepOver
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1424	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1425
220 8f0065e7a83d update ca parents: 218 diff changeset	1426	hasAnySingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1427
578a7aaed19e totally revised version tz parents: 406 diff changeset	1428	^builder booleanValueAspectFor: #hasAnySingleSelection
220 8f0065e7a83d update ca parents: 218 diff changeset	1429	!
8f0065e7a83d update ca parents: 218 diff changeset	1430
8f0065e7a83d update ca parents: 218 diff changeset	1431	hasValidSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1432
578a7aaed19e totally revised version tz parents: 406 diff changeset	1433	^builder booleanValueAspectFor: #hasValidSelection
220 8f0065e7a83d update ca parents: 218 diff changeset	1434	!
8f0065e7a83d update ca parents: 218 diff changeset	1435
8f0065e7a83d update ca parents: 218 diff changeset	1436	hasValidSingleSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1437
578a7aaed19e totally revised version tz parents: 406 diff changeset	1438	^builder booleanValueAspectFor: #hasValidSingleSelection
220 8f0065e7a83d update ca parents: 218 diff changeset	1439	!
8f0065e7a83d update ca parents: 218 diff changeset	1440
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1441	noteBookView
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1442
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1443	\|noteBook helpTool\|
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1444
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1445	(noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1446	noteBook := View new.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1447	helpTool := UIHelpTool new.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1448
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1449	helpTool masterApplication:self.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1450	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	1451	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	1452
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1453	helpCanvas client:helpTool.
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1454	helpTool masterApplication:self.
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1455	helpTool modifiedHolder: self valueOfEnablingCommitButtons.
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1456
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1457	builder aspectAt:#noteBookView put:noteBook.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1458	].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1459	^ noteBook
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1460	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1461
6ce84c1270a6 intitial checkin ca parents: diff changeset	1462	tabList
6ce84c1270a6 intitial checkin ca parents: diff changeset	1463
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1464	\|holder\|
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1465	(holder := builder bindingAt:#tabList) isNil ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1466	builder aspectAt:#tabList put:(holder := #('Properties') asValue).
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1467	].
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1468	^ holder
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1469
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1470
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1471	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1472
6ce84c1270a6 intitial checkin ca parents: diff changeset	1473	tabModel
6ce84c1270a6 intitial checkin ca parents: diff changeset	1474
6ce84c1270a6 intitial checkin ca parents: diff changeset	1475	\|holder\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	1476	(holder := builder bindingAt:#tabModel) isNil ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1477	holder := AspectAdaptor new subject:self; forAspect:#tabSelection.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1478	builder aspectAt:#tabModel put:holder.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1479	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1480	^ holder
6ce84c1270a6 intitial checkin ca parents: diff changeset	1481
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1482	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1483
578a7aaed19e totally revised version tz parents: 406 diff changeset	1484	treeView
578a7aaed19e totally revised version tz parents: 406 diff changeset	1485	"returns the tree view representing hierarchically all the menu items"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1486
578a7aaed19e totally revised version tz parents: 406 diff changeset	1487	\|treeView\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1488	(treeView := builder bindingAt:#treeView) isNil ifTrue:[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1489	treeView := TreeView new.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1490	treeView action:[:dummy\|self menuChanged].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1491	builder aspectAt: #treeView put: treeView
578a7aaed19e totally revised version tz parents: 406 diff changeset	1492	].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1493	^treeView
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1494	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1495
6ce84c1270a6 intitial checkin ca parents: diff changeset	1496	!MenuEditor methodsFor:'change & update'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1497
6ce84c1270a6 intitial checkin ca parents: diff changeset	1498	update:something with:aParameter from:changedObject
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1499	"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	1500
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1501	self valueOfEnablingCommitButtons value: true
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1502	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1503
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1504	updateEnabledChannels
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1505	"update enabled channels"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1506
578a7aaed19e totally revised version tz parents: 406 diff changeset	1507	\|node parent next state\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1508
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1509	state := false.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1510
578a7aaed19e totally revised version tz parents: 406 diff changeset	1511	(node := self treeView selectedNode) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1512	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1513	[
220 8f0065e7a83d update ca parents: 218 diff changeset	1514	self hasAnySingleSelection value:true.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1515	(parent := node parent) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1516	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1517	[
220 8f0065e7a83d update ca parents: 218 diff changeset	1518	next := parent childAt:((parent indexOfChild:node) + 1).
8f0065e7a83d update ca parents: 218 diff changeset	1519	self enabledStepIn value:(next notNil and:[next hasChildren]).
8f0065e7a83d update ca parents: 218 diff changeset	1520	self enabledStepOver value:(parent children size > 1).
8f0065e7a83d update ca parents: 218 diff changeset	1521	self enabledStepOut value:(parent parent notNil).
8f0065e7a83d update ca parents: 218 diff changeset	1522	self hasValidSingleSelection value:true.
8f0065e7a83d update ca parents: 218 diff changeset	1523	self hasValidSelection value:true.
8f0065e7a83d update ca parents: 218 diff changeset	1524	^ self
8f0065e7a83d update ca parents: 218 diff changeset	1525	]
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1526	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1527	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1528	[
220 8f0065e7a83d update ca parents: 218 diff changeset	1529	self hasAnySingleSelection value:false.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1530	self treeView numberOfSelections ~~ 0 ifTrue:[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1531	state := (self treeView isInSelection:1) not
220 8f0065e7a83d update ca parents: 218 diff changeset	1532	]
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1533	].
220 8f0065e7a83d update ca parents: 218 diff changeset	1534	self enabledStepOver value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1535	self enabledStepIn value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1536	self enabledStepOut value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1537	self hasValidSingleSelection value:false.
8f0065e7a83d update ca parents: 218 diff changeset	1538	self hasValidSelection value:state.
8f0065e7a83d update ca parents: 218 diff changeset	1539	! !
8f0065e7a83d update ca parents: 218 diff changeset	1540
8f0065e7a83d update ca parents: 218 diff changeset	1541	!MenuEditor methodsFor:'event handling'!
8f0065e7a83d update ca parents: 218 diff changeset	1542
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1543	doesNotUnderstand: aMessage
578a7aaed19e totally revised version tz parents: 406 diff changeset	1544	"detour incoming messages to the tree view"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1545
578a7aaed19e totally revised version tz parents: 406 diff changeset	1546	(self treeView respondsTo: aMessage selector)
578a7aaed19e totally revised version tz parents: 406 diff changeset	1547	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1548	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1549	^aMessage sendTo: self treeView
578a7aaed19e totally revised version tz parents: 406 diff changeset	1550	].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1551	super doesNotUnderstand:aMessage
220 8f0065e7a83d update ca parents: 218 diff changeset	1552
8f0065e7a83d update ca parents: 218 diff changeset	1553
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1554	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1555
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1556	!MenuEditor methodsFor:'private'!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1557
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1558	checkMenuItemModified
578a7aaed19e totally revised version tz parents: 406 diff changeset	1559	"check menu item modification"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1560
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1561	self valueOfEnablingCommitButtons value
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1562	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1563	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1564	((YesNoBox title:'Menu item was modified!!\Save it?\' withCRs)
578a7aaed19e totally revised version tz parents: 406 diff changeset	1565	noText:'No';
578a7aaed19e totally revised version tz parents: 406 diff changeset	1566	yesText:'Yes';
578a7aaed19e totally revised version tz parents: 406 diff changeset	1567	showAtPointer;
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1568	accepted)
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1569	ifFalse:
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1570	[
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1571	self valueOfEnablingCommitButtons value: false.
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1572	isModified := false.
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1573	^true
116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1574	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1575	self accept
578a7aaed19e totally revised version tz parents: 406 diff changeset	1576	].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1577	^true
578a7aaed19e totally revised version tz parents: 406 diff changeset	1578	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1579
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1580	helpKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1581
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1582	\|node\|
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1583	(node := self treeView selectedNode) notNil ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1584	^ node contents activeHelpKey
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1585	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1586	^ nil
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1587	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1588
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1589	helpTool
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1590
578a7aaed19e totally revised version tz parents: 406 diff changeset	1591	^helpCanvas application
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1592	! !
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1593
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1594	!MenuEditor methodsFor:'queries'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1595
270 1a68f7479932 provide access to the menus selector; Claus Gittinger <cg@exept.de> parents: 266 diff changeset	1596	didInstall
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1597	"returns true if the menu was installed"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1598
578a7aaed19e totally revised version tz parents: 406 diff changeset	1599	^didInstall
270 1a68f7479932 provide access to the menus selector; Claus Gittinger <cg@exept.de> parents: 266 diff changeset	1600	!
1a68f7479932 provide access to the menus selector; Claus Gittinger <cg@exept.de> parents: 266 diff changeset	1601
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1602	isHelpToolSelected
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1603	"returns true if current selection is help tool"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1604
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1605	(tabSelection ~~ 0 and:[slices notNil]) ifTrue:[
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1606	^(slices at:tabSelection) first = UIHelpTool label
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1607	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1608	^false
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1609	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1610
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1611	isStandAlone
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1612	"returns true in case of owner of the helptool"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1613
578a7aaed19e totally revised version tz parents: 406 diff changeset	1614	^self masterApplication isNil
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1615	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1616
6ce84c1270a6 intitial checkin ca parents: diff changeset	1617	!MenuEditor methodsFor:'selection'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1618
6ce84c1270a6 intitial checkin ca parents: diff changeset	1619	menuChanged
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1620
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1621	\|node item slc sel old dep\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1622
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1623	aspects do: [:holder\| holder removeDependent:self].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1624	(node := self treeView selectedNode) notNil ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1625	aspects do:[:anAspect\| anAspect value:nil ].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1626	item := node contents.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1627	item toAspects:aspects.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1628
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1629	item isSeparator ifFalse:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1630	node parent isNil ifFalse:[
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1631	node hasChildren ifTrue:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1632	slc := #slicesMenu
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1633	] ifFalse:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1634	item submenuChannel isNil ifTrue:[slc := #slicesItem]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1635	ifFalse:[slc := #slicesLink]
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1636	].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1637	slc := (self class perform:slc) copyWith:#( 'Help' #dummy ).
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1638	] ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1639	slc := self class perform:#slicesRootMenu
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1640	].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1641	] ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1642	slc := self class perform:#slicesSeparatorMenu.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1643	]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1644	].
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1645
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1646	self helpTool helpKey: self helpKey.
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1647	"Next line helps me to preserve myself against unnecessary settings of
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1648	valueOfEnablingCommitButtons to true in the help tool."
d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1649	self valueOfEnablingCommitButtons value: false.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1650
6ce84c1270a6 intitial checkin ca parents: diff changeset	1651	slc ~= slices ifTrue:[
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1652	tabSelection ~~ 0 ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1653	old := (slices at:tabSelection) first
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1654	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1655
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1656	(slices := slc) notNil ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1657	sel := slices collect:[:s\| s first].
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1658	tabSelection := 0.
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1659	self tabList value:sel.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1660
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1661	(old notNil and:[(sel := sel findFirst:[:n\|n = old]) ~~ 0]) ifFalse:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1662	sel := 1
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1663	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1664	self tabModel value:sel
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1665	] ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1666	self tabList value:nil.
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1667	self tabSelection:0.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1668	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	1669	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1670	self updateEnabledChannels.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1671	aspects do: [:holder\| holder addDependent:self].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1672	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1673
6ce84c1270a6 intitial checkin ca parents: diff changeset	1674	tabSelection
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1675
578a7aaed19e totally revised version tz parents: 406 diff changeset	1676	^tabSelection ? 0
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1677	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1678
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1679	tabSelection: aSelection
578a7aaed19e totally revised version tz parents: 406 diff changeset	1680
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1681	\|sel\|
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1682	tabSelection = aSelection ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1683	^ self
6ce84c1270a6 intitial checkin ca parents: diff changeset	1684	].
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1685	(aSelection ~~ 0 and:[slices isNil]) ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1686	^ self
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1687	].
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1688	(tabSelection := aSelection) == 0 ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1689	slices isNil ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1690	specCanvas client:nil.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1691	^ specCanvas raise.
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1692	].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1693	tabSelection == 1 ifTrue:[^ self].
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1694	tabSelection := 1
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1695	].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1696
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1697	self isHelpToolSelected ifTrue:[
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1698	self helpTool helpKey:(self helpKey).
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1699	helpCanvas raise.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1700	] ifFalse:[
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1701	sel := (slices at:tabSelection) last.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1702	aspects do: [:holder\| holder release].
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1703	specCanvas client:self spec:(self class perform:sel) builder:builder.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1704	aspects do: [:holder\| holder addDependent:self].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1705	specCanvas raise.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1706	]
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	1707
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1708	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1709
6ce84c1270a6 intitial checkin ca parents: diff changeset	1710	!MenuEditor methodsFor:'startup / release'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1711
6ce84c1270a6 intitial checkin ca parents: diff changeset	1712	buildFrom:aClass andSelector:aSelector
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1713
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	1714	\|oldClass newClass\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1715
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1716	self valueOfEnablingCommitButtons value: false.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1717	oldClass := self specClass.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1718	self specClass:aClass.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1719	newClass := self specClass.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1720
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1721	(self isStandAlone and:[oldClass ~= newClass]) ifTrue:[
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	1722	self helpTool helpSpecFrom:newClass
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1723	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1724	self treeView buildFrom: newClass andSelector: aSelector.
398 155310ec83aa revised version tz parents: 382 diff changeset	1725
155310ec83aa revised version tz parents: 382 diff changeset	1726	aClass notNil & aSelector notNil
155310ec83aa revised version tz parents: 382 diff changeset	1727	ifTrue:
155310ec83aa revised version tz parents: 382 diff changeset	1728	[
155310ec83aa revised version tz parents: 382 diff changeset	1729	\|className message\|
155310ec83aa revised version tz parents: 382 diff changeset	1730	aClass isClass ifTrue: [className := aClass name].
155310ec83aa revised version tz parents: 382 diff changeset	1731	aClass isString ifTrue: [className := aClass].
155310ec83aa revised version tz parents: 382 diff changeset	1732	message := className, ' ', aSelector.
507 1586e7da66bc updates default info label after making new tz parents: 499 diff changeset	1733	self addToHistory: message -> #loadFromMessage:
398 155310ec83aa revised version tz parents: 382 diff changeset	1734	].
155310ec83aa revised version tz parents: 382 diff changeset	1735
507 1586e7da66bc updates default info label after making new tz parents: 499 diff changeset	1736	self valueOfInfoLabel value: self defaultInfoLabel.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1737	self treeView selection: 2.
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1738	self menuChanged
398 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
155310ec83aa revised version tz parents: 382 diff changeset	1742	checkModified
155310ec83aa revised version tz parents: 382 diff changeset	1743	"check menu modification
155310ec83aa revised version tz parents: 382 diff changeset	1744	"
155310ec83aa revised version tz parents: 382 diff changeset	1745	isModified
155310ec83aa revised version tz parents: 382 diff changeset	1746	ifTrue:
155310ec83aa revised version tz parents: 382 diff changeset	1747	[
155310ec83aa revised version tz parents: 382 diff changeset	1748	((YesNoBox title:'Menu was modified!!')
155310ec83aa revised version tz parents: 382 diff changeset	1749	noText:'Cancel';
155310ec83aa revised version tz parents: 382 diff changeset	1750	yesText:'Waste it and proceed';
155310ec83aa revised version tz parents: 382 diff changeset	1751	showAtPointer;
155310ec83aa revised version tz parents: 382 diff changeset	1752	accepted) ifFalse: [^false].
155310ec83aa revised version tz parents: 382 diff changeset	1753	isModified := false
155310ec83aa revised version tz parents: 382 diff changeset	1754	].
155310ec83aa revised version tz parents: 382 diff changeset	1755	^true
155310ec83aa revised version tz parents: 382 diff changeset	1756
155310ec83aa revised version tz parents: 382 diff changeset	1757
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1758	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1759
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1760	closeRequest
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1761	"close request"
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1762
418 f47e99ae91bc double save requests after close request added tz parents: 416 diff changeset	1763	(self checkMenuItemModified and: [self checkModified]) ifTrue: [super closeRequest]
356 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	!
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1770
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1771	initialize
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1772	"initialize value holders for the menu item properties"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1773
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1774	\|holder\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1775
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1776	super initialize.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1777	aspects := IdentityDictionary new.
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1778	tabSelection := 0.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1779
6ce84c1270a6 intitial checkin ca parents: diff changeset	1780	#(
6ce84c1270a6 intitial checkin ca parents: diff changeset	1781	label
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1782	accessCharacterPos
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	1783	argument
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1784	submenuChannel
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	1785	submenuArgument
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1786	enabled
6ce84c1270a6 intitial checkin ca parents: diff changeset	1787	value
6ce84c1270a6 intitial checkin ca parents: diff changeset	1788	nameKey
6ce84c1270a6 intitial checkin ca parents: diff changeset	1789	indication
398 155310ec83aa revised version tz parents: 382 diff changeset	1790	translateLabel
155310ec83aa revised version tz parents: 382 diff changeset	1791	isButton
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1792	shortcutKey
6ce84c1270a6 intitial checkin ca parents: diff changeset	1793	retriever
6ce84c1270a6 intitial checkin ca parents: diff changeset	1794	iconAndLabel
6ce84c1270a6 intitial checkin ca parents: diff changeset	1795	icon
6ce84c1270a6 intitial checkin ca parents: diff changeset	1796
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1797	) do:[:aKey\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1798	aspects at:aKey put:(holder := ValueHolder new).
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1799	holder addDependent: self
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1800	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1801
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1802	aspects at:#seperatorSelection put:(holder := SelectionInList new).
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1803	holder list: Item separatorList.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	1804	holder addDependent:self.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1805	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1806
398 155310ec83aa revised version tz parents: 382 diff changeset	1807	loadFromMessage: aMessage
155310ec83aa revised version tz parents: 382 diff changeset	1808
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1809	(((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	1810	ifTrue:
398 155310ec83aa revised version tz parents: 382 diff changeset	1811	[
155310ec83aa revised version tz parents: 382 diff changeset	1812	\|readStream aClass aSelector\|
155310ec83aa revised version tz parents: 382 diff changeset	1813	readStream := aMessage readStream.
155310ec83aa revised version tz parents: 382 diff changeset	1814	aClass := Smalltalk at: (readStream upTo: $ ) asSymbol.
155310ec83aa revised version tz parents: 382 diff changeset	1815	aSelector := readStream upToEnd asSymbol.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1816	self buildFrom: aClass andSelector: aSelector
398 155310ec83aa revised version tz parents: 382 diff changeset	1817	]
155310ec83aa revised version tz parents: 382 diff changeset	1818	!
155310ec83aa revised version tz parents: 382 diff changeset	1819
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1820	openModalOnClass:aClass andSelector:aSelector
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1821
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1822	specClass := Association key:aClass value:aSelector.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1823	super openInterfaceModal.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1824
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1825	!
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1826
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1827	openOnClass:aClass andSelector:aSelector
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1828
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1829	specClass := Association key:aClass value:aSelector.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1830	super openInterface.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1831	self buildFrom:aClass andSelector:aSelector.
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1832
209 b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1833	!
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1834
b2fa6f8d4808 postBuildWith:builder ca parents: 199 diff changeset	1835	postBuildWith:builder
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1836	\|cls sel\|
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1837
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1838	didInstall := false.
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1839	isModified := false.
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	1840
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1841	specClass isAssociation ifTrue:[
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1842	cls := specClass key.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1843	sel := specClass value.
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1844
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1845	specClass := nil.
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1846
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1847	(sel isKindOf:Menu) ifTrue:[
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1848	self buildFrom:cls andSelector:nil.
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1849	^self treeView buildFromMenu:sel.
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1850	]
ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	1851
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	1852	].
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1853	self buildFrom:cls andSelector:sel
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
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1856	postOpenWith:aBuilder
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1857
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1858	self isHelpToolSelected
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1859	ifTrue: [helpCanvas raise]
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	1860	ifFalse: [specCanvas raise]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1861	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	1862
6ce84c1270a6 intitial checkin ca parents: diff changeset	1863	!MenuEditor methodsFor:'user interactions'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1864
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1865	accept
578a7aaed19e totally revised version tz parents: 406 diff changeset	1866	"invoked by button 'OK' and by save requests of menu item changes"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1867
578a7aaed19e totally revised version tz parents: 406 diff changeset	1868	\|node\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1869	node := self treeView selectedNode.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1870	node notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1871	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1872	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1873	self isHelpToolSelected
578a7aaed19e totally revised version tz parents: 406 diff changeset	1874	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1875	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1876	self helpTool accept.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1877	node contents activeHelpKey: self helpTool helpKey
578a7aaed19e totally revised version tz parents: 406 diff changeset	1878	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1879	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1880	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1881	self treeView updateNode: (node contents buildFromAspects: aspects)
578a7aaed19e totally revised version tz parents: 406 diff changeset	1882	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1883	].
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1884	self valueOfEnablingCommitButtons value:false.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1885	isModified := true
578a7aaed19e totally revised version tz parents: 406 diff changeset	1886	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1887
578a7aaed19e totally revised version tz parents: 406 diff changeset	1888	cancel
578a7aaed19e totally revised version tz parents: 406 diff changeset	1889	"invoked by button 'Cancel'"
578a7aaed19e totally revised version tz parents: 406 diff changeset	1890
578a7aaed19e totally revised version tz parents: 406 diff changeset	1891	\|node\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	1892	(node := self treeView selectedNode) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1893	ifTrue:
432 d35dccaa804c commit buttons replaced by subSpec in ToolApplicationModel tz parents: 422 diff changeset	1894	[
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1895	self helpTool helpKey:(self helpKey).
578a7aaed19e totally revised version tz parents: 406 diff changeset	1896	aspects do:[:anAspect\| anAspect value:nil].
578a7aaed19e totally revised version tz parents: 406 diff changeset	1897	node contents toAspects:aspects
578a7aaed19e totally revised version tz parents: 406 diff changeset	1898	].
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1899	self valueOfEnablingCommitButtons value: false.
414 116cf2acebe3 before loading of a new menu do fire correct sequence of save requests tz parents: 412 diff changeset	1900	isModified := false
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1901	!
578a7aaed19e totally revised version tz parents: 406 diff changeset	1902
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1903	doBrowseAppClass
6ce84c1270a6 intitial checkin ca parents: diff changeset	1904	"open a browser on the class"
6ce84c1270a6 intitial checkin ca parents: diff changeset	1905
6ce84c1270a6 intitial checkin ca parents: diff changeset	1906	\|cls\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	1907
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1908	(cls := self resolveName: self specClass) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	1909	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1910	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	1911	SystemBrowser openInClass:cls class selector: self treeView selectorName
578a7aaed19e totally revised version tz parents: 406 diff changeset	1912	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	1913	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	1914	[
398 155310ec83aa revised version tz parents: 382 diff changeset	1915	self information:'No valid class defined!!'.
331 aa1663b8c2ab use: ca parents: 326 diff changeset	1916	]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1917	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1918
6ce84c1270a6 intitial checkin ca parents: diff changeset	1919	doDefineClass
6ce84c1270a6 intitial checkin ca parents: diff changeset	1920
6ce84c1270a6 intitial checkin ca parents: diff changeset	1921	aspects at:#classNameChannel put:(self specClass asValue).
6ce84c1270a6 intitial checkin ca parents: diff changeset	1922
6ce84c1270a6 intitial checkin ca parents: diff changeset	1923	(self openDialogInterface:#classDefineSpec) ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1924	self specClass:((aspects at:#classNameChannel) value)
6ce84c1270a6 intitial checkin ca parents: diff changeset	1925	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1926
6ce84c1270a6 intitial checkin ca parents: diff changeset	1927	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1928
381 1d1b1483270c now with image editor support tz parents: 371 diff changeset	1929	doEditImage
1d1b1483270c now with image editor support tz parents: 371 diff changeset	1930
398 155310ec83aa revised version tz parents: 382 diff changeset	1931	\|cls resourceClass resourceSelector imageResourceMessage readStream\|
155310ec83aa revised version tz parents: 382 diff changeset	1932
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1933	cls := self resolveName: self specClass.
398 155310ec83aa revised version tz parents: 382 diff changeset	1934	cls isNil ifTrue:[
155310ec83aa revised version tz parents: 382 diff changeset	1935	^ self information:'No valid class defined!!'.
155310ec83aa revised version tz parents: 382 diff changeset	1936	].
155310ec83aa revised version tz parents: 382 diff changeset	1937	(aspects at:#icon) value size > 0
155310ec83aa revised version tz parents: 382 diff changeset	1938	ifTrue: [resourceSelector := (aspects at:#icon) value]
155310ec83aa revised version tz parents: 382 diff changeset	1939	ifFalse: [resourceSelector := #stxIcon].
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1940	(aspects at:#retriever) value size > 0
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1941	ifTrue: [resourceClass := (aspects at:#retriever) value]
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1942	ifFalse: [resourceClass := cls withAllSuperclasses detect: [:cls\| cls class implements: resourceSelector] ifNone: [cls]].
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1943
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1944	(imageResourceMessage := ImageEditor openModalOnClass: resourceClass andSelector: resourceSelector) notNil
398 155310ec83aa revised version tz parents: 382 diff changeset	1945	ifTrue:
155310ec83aa revised version tz parents: 382 diff changeset	1946	[
416 d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1947	readStream := imageResourceMessage readStream.
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1948	resourceClass := (readStream upTo: $ ) asSymbol.
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1949	resourceSelector := readStream upToEnd asSymbol.
d28e8c5f25f3 image editor startup revised tz parents: 414 diff changeset	1950	resourceClass size > 0 ifTrue: [(aspects at:#retriever) value: resourceClass].
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1951	resourceSelector size > 0 ifTrue: [(aspects at:#icon) value: resourceSelector. self valueOfEnablingCommitButtons value: true]
398 155310ec83aa revised version tz parents: 382 diff changeset	1952	]
381 1d1b1483270c now with image editor support tz parents: 371 diff changeset	1953	!
1d1b1483270c now with image editor support tz parents: 371 diff changeset	1954
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1955	doFromClass
6ce84c1270a6 intitial checkin ca parents: diff changeset	1956
422 f85de4fc2a2c commit buttons moved as subSpec to ToolApplicationModel tz parents: 418 diff changeset	1957	self loadFromInClassesOf: #Object
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1958	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	1959
6ce84c1270a6 intitial checkin ca parents: diff changeset	1960	doInstallSpec
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1961	\|cls selector treeView menu spec mthd category code\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1962
331 aa1663b8c2ab use: ca parents: 326 diff changeset	1963	cls := self resolveName:(self specClass).
aa1663b8c2ab use: ca parents: 326 diff changeset	1964
aa1663b8c2ab use: ca parents: 326 diff changeset	1965	cls isNil ifTrue:[
398 155310ec83aa revised version tz parents: 382 diff changeset	1966	^ self information:'No valid class defined!!'.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1967	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	1968	treeView := self treeView.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1969	selector := treeView selectorName.
578a7aaed19e totally revised version tz parents: 406 diff changeset	1970	menu := treeView asMenu.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1971
6ce84c1270a6 intitial checkin ca parents: diff changeset	1972	menu isNil ifTrue:[
398 155310ec83aa revised version tz parents: 382 diff changeset	1973	^ self information:'No menu defined.'
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	1974	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1975	menu := menu literalArrayEncoding.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1976	spec := WriteStream on:String new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1977	UISpecification prettyPrintSpecArray:menu on:spec indent:5.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1978	spec := spec contents.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1979
6ce84c1270a6 intitial checkin ca parents: diff changeset	1980	"/ if that method already exists, do not overwrite the category
6ce84c1270a6 intitial checkin ca parents: diff changeset	1981
6ce84c1270a6 intitial checkin ca parents: diff changeset	1982	category := 'interface specs'.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1983	(mthd := cls class compiledMethodAt:selector) notNil ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	1984	category := mthd category.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1985	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	1986
6ce84c1270a6 intitial checkin ca parents: diff changeset	1987	code := Character excla asString
6ce84c1270a6 intitial checkin ca parents: diff changeset	1988	, cls name , ' class methodsFor:' , category storeString
6ce84c1270a6 intitial checkin ca parents: diff changeset	1989	, Character excla asString , '\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1990
6ce84c1270a6 intitial checkin ca parents: diff changeset	1991	, selector , '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1992	, ' "this window spec was automatically generated by the ST/X MenuEditor"\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1993	, ' "do not manually edit this - the builder may not be able to\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1994	, ' handle the specification if its corrupted."\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1995	, ' "\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1996	, ' MenuEditor new openOnClass:' , cls name , ' andSelector:#' , selector , '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1997	, ' (Menu new fromLiteralArrayEncoding:(' , cls name , ' ' , selector , ')) startUp\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	1998	, ' "\'.
6ce84c1270a6 intitial checkin ca parents: diff changeset	1999
6ce84c1270a6 intitial checkin ca parents: diff changeset	2000	code := code
6ce84c1270a6 intitial checkin ca parents: diff changeset	2001	, '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2002	, ' <resource: #menu>\\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2003	, ' ^\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2004	, ' ', spec
6ce84c1270a6 intitial checkin ca parents: diff changeset	2005	, '\'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2006	, Character excla asString
6ce84c1270a6 intitial checkin ca parents: diff changeset	2007	, ' '
6ce84c1270a6 intitial checkin ca parents: diff changeset	2008	, Character excla asString
6ce84c1270a6 intitial checkin ca parents: diff changeset	2009	, '\\'.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2010
6ce84c1270a6 intitial checkin ca parents: diff changeset	2011	code := code withCRs.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2012	(ReadStream on:code) fileIn.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2013
455 117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	2014	self isStandAlone ifTrue:[
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	2015	self helpTool installHelpSpecInto:(self specClass)
117dcae8b5e0 no separate save of help keys tz parents: 441 diff changeset	2016	].
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2017	didInstall := true.
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2018	isModified := false.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2019
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2020	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2021
6ce84c1270a6 intitial checkin ca parents: diff changeset	2022	doNew
398 155310ec83aa revised version tz parents: 382 diff changeset	2023
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2024	self buildFrom:nil andSelector: self treeView selectorName
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2025	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2026
6ce84c1270a6 intitial checkin ca parents: diff changeset	2027	doPickAMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2028
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	2029	\|view\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2030
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2031	view := Screen current viewFromUser.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2032
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2033	(view isNil or:[view == Screen current rootView]) ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2034	^ self
6ce84c1270a6 intitial checkin ca parents: diff changeset	2035	].
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	2036	view specClass == MenuPanelSpec ifTrue:[
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2037	^ self treeView buildFromMenu: view asMenu
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2038	].
228 ae3028e45467 can read PullDownMenus ca parents: 227 diff changeset	2039	^ nil
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2040	!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2041
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2042	doStepDown
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2043	"shift selected menu item one step down"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2044
578a7aaed19e totally revised version tz parents: 406 diff changeset	2045	self treeView selectedNodeChangeSequenceOrder:1.
398 155310ec83aa revised version tz parents: 382 diff changeset	2046	isModified := true.
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
155310ec83aa revised version tz parents: 382 diff changeset	2050
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2051	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2052
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2053	doStepIn
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2054	"move selected menu item into next submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2055
578a7aaed19e totally revised version tz parents: 406 diff changeset	2056	self treeView selectedNodeBecomeChildOfNext.
398 155310ec83aa revised version tz parents: 382 diff changeset	2057	isModified := true.
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
155310ec83aa revised version tz parents: 382 diff changeset	2061
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2062
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2063	!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2064
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2065	doStepOut
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2066	"move selected menu item out from parent submenu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2067
578a7aaed19e totally revised version tz parents: 406 diff changeset	2068	self treeView selectedNodeBecomeSisterOfParent.
398 155310ec83aa revised version tz parents: 382 diff changeset	2069	isModified := true.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2070	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2071
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2072	doStepUp
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2073	"shift selected menu item one step up"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2074
578a7aaed19e totally revised version tz parents: 406 diff changeset	2075	self treeView selectedNodeChangeSequenceOrder:-1.
398 155310ec83aa revised version tz parents: 382 diff changeset	2076	isModified := true.
406 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
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2079	loadFromInClassesOf: aSuperclassOrSymbol
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2080
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2081	self loadFromMessage:
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2082	(ResourceSelectionBrowser
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2083	request: 'Load Menu From Class'
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2084	onSuperclass: aSuperclassOrSymbol
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2085	andClass: specClass
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2086	andSelector: nil
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2087	withResourceTypes: #(menu))
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2088	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2089
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2090	!MenuEditor::Item class methodsFor:'constants'!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2091
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2092	separatorList
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2093
578a7aaed19e totally revised version tz parents: 406 diff changeset	2094	^#('blank' 'single line' 'double line')
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2095	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2096
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2097	separatorSlices
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2098	^ #(
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2099	( #blank '' )
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2100	( #single '-' )
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2101	( #double '=' )
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2102	)
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2103	! !
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2104
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2105	!MenuEditor::Item class methodsFor:'documentation'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2106
6ce84c1270a6 intitial checkin ca parents: diff changeset	2107	documentation
6ce84c1270a6 intitial checkin ca parents: diff changeset	2108	"
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2109	implements the contents assigned to a TreeItem. An instance
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2110	is associated with one item and keeps all its information
6ce84c1270a6 intitial checkin ca parents: diff changeset	2111
6ce84c1270a6 intitial checkin ca parents: diff changeset	2112	[see also:]
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2113	TreeItem
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2114	MenuEditor
6ce84c1270a6 intitial checkin ca parents: diff changeset	2115
6ce84c1270a6 intitial checkin ca parents: diff changeset	2116	[author:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2117	Claus Atzkern
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
6ce84c1270a6 intitial checkin ca parents: diff changeset	2123	!MenuEditor::Item methodsFor:'accessing'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2124
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2125	activeHelpKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2126
578a7aaed19e totally revised version tz parents: 406 diff changeset	2127	^activeHelpKey
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2128	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2129
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2130	activeHelpKey:aKey
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2131
287 1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2132	activeHelpKey := aKey
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2133	!
1ecabfd468dc HelpTool is seperated like LayoutTool ca parents: 275 diff changeset	2134
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2135	label
6ce84c1270a6 intitial checkin ca parents: diff changeset	2136	"return the value of the instance variable 'label' (automatically generated)"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2137
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2138	^label
578a7aaed19e totally revised version tz parents: 406 diff changeset	2139	!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2140
6ce84c1270a6 intitial checkin ca parents: diff changeset	2141	label:something
6ce84c1270a6 intitial checkin ca parents: diff changeset	2142	"set the value of the instance variable 'label' (automatically generated)"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2143
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2144	label := something ? '-'
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2145	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2146
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2147	separatorType
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2148	"returns separator type assigned to item or nil"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2149
578a7aaed19e totally revised version tz parents: 406 diff changeset	2150	label size > 1
578a7aaed19e totally revised version tz parents: 406 diff changeset	2151	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2152	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	2153	label size == 0 ifTrue:[^#blank].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2154	label first == $- ifTrue:[^#single].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2155	label first == $= ifTrue:[^#double].
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2156	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2157	^nil
218 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
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2161	submenuChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2162	"return the value of the instance variable 'submenuChannel' (automatically generated)"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2163
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2164	^submenuChannel
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2165	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2166
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2167	submenuChannel:aChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2168	"return the value of the instance variable 'submenuChannel' (automatically generated)"
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2169
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2170	submenuChannel := aChannel
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2171	! !
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2172
6ce84c1270a6 intitial checkin ca parents: diff changeset	2173	!MenuEditor::Item methodsFor:'conversion'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2174
6ce84c1270a6 intitial checkin ca parents: diff changeset	2175	asMenuItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2176	"converts self to a menu item"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2177
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2178	\|item rcv\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2179
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2180	item := MenuItem labeled:label.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2181
398 155310ec83aa revised version tz parents: 382 diff changeset	2182	self isSeparator ifFalse:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2183	item activeHelpKey:activeHelpKey.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2184	item enabled:enabled.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2185	item accessCharacterPosition:accessCharacterPos.
290 1428bab2aa68 an empty selection is now specified by 0 ca parents: 287 diff changeset	2186	item argument:argument.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2187	item submenuChannel:submenuChannel.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2188	item nameKey:nameKey.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2189	item shortcutKeyCharacter:shortcutKey.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2190	item value:value.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2191	item indication:indication.
398 155310ec83aa revised version tz parents: 382 diff changeset	2192	item translateLabel: translateLabel.
155310ec83aa revised version tz parents: 382 diff changeset	2193	item isButton: isButton.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2194
6ce84c1270a6 intitial checkin ca parents: diff changeset	2195	icon notNil ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2196	rcv := ResourceRetriever new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2197	rcv className:retriever.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2198	rcv selector:icon.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2199	iconAndLabel == true ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2200	rcv labelText:label
6ce84c1270a6 intitial checkin ca parents: diff changeset	2201	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2202	item labelImage:rcv
6ce84c1270a6 intitial checkin ca parents: diff changeset	2203	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2204	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2205	^item
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2206	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2207
6ce84c1270a6 intitial checkin ca parents: diff changeset	2208	buildFromAspects:aspects
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2209
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2210	\|name\|
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2211	self isSeparator
578a7aaed19e totally revised version tz parents: 406 diff changeset	2212	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2213	[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2214	name := label.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2215	label := (aspects at:#label) value.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2216
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2217	(label isNil or:[self isSeparator]) ifTrue:[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2218	(aspects at:#label) value:(label := name)
6ce84c1270a6 intitial checkin ca parents: diff changeset	2219	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2220
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2221	enabled := (aspects at:#enabled) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2222	value := (aspects at:#value) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2223	nameKey := (aspects at:#nameKey) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2224	indication := (aspects at:#indication) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2225	shortcutKey := (aspects at:#shortcutKey) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2226	accessCharacterPos := (aspects at:#accessCharacterPos) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2227	argument := (aspects at:#argument) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2228	translateLabel := (aspects at:#translateLabel) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2229	isButton := (aspects at:#isButton) value.
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2230
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2231	argument isString ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2232	argument size > 1 ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2233	(argument at:1) == $# ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2234	argument := (argument copyFrom:2) asSymbol
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	]
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2237	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2238	submenuChannel := (aspects at:#submenuChannel) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2239	retriever := (aspects at:#retriever) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2240	icon := (aspects at:#icon) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2241	iconAndLabel := (aspects at:#iconAndLabel) value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2242	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	2243	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2244	[
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2245	name := (aspects at:#seperatorSelection) selectionIndex.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2246	label := (self class separatorSlices at:name) last.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2247	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2248	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2249
6ce84c1270a6 intitial checkin ca parents: diff changeset	2250	buildFromMenuItem:anItem
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2251
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2252	\|rtv\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2253
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2254	self label:(anItem label).
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2255	activeHelpKey := anItem activeHelpKey.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2256
6ce84c1270a6 intitial checkin ca parents: diff changeset	2257	(enabled := anItem enabled) isSymbol ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2258	enabled := nil
6ce84c1270a6 intitial checkin ca parents: diff changeset	2259	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2260
6ce84c1270a6 intitial checkin ca parents: diff changeset	2261	(value := anItem value) isSymbol ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2262	value := nil.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2263	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2264
6ce84c1270a6 intitial checkin ca parents: diff changeset	2265	(indication := anItem indication) isSymbol ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2266	indication := nil
6ce84c1270a6 intitial checkin ca parents: diff changeset	2267	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2268
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2269	nameKey := anItem nameKey.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2270	shortcutKey := anItem shortcutKeyCharacter.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2271	accessCharacterPos := anItem accessCharacterPosition.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2272	argument := anItem argument.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2273	submenuChannel := anItem submenuChannel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2274	translateLabel := anItem translateLabel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2275	isButton := anItem isButton.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2276
578a7aaed19e totally revised version tz parents: 406 diff changeset	2277	(((rtv := anItem adornment) notNil)
578a7aaed19e totally revised version tz parents: 406 diff changeset	2278	and:[(rtv := rtv labelImage) isKindOf:ResourceRetriever])
578a7aaed19e totally revised version tz parents: 406 diff changeset	2279	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2280	[
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2281	retriever := rtv className.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2282	icon := rtv selector.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2283	(iconAndLabel := rtv labelText notNil) ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2284	label := rtv labelText.
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
6ce84c1270a6 intitial checkin ca parents: diff changeset	2289	toAspects:aspects
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2290
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2291	\|type\|
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2292	(type := self separatorType) notNil
578a7aaed19e totally revised version tz parents: 406 diff changeset	2293	ifTrue:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2294	[
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2295	type := self class separatorSlices findFirst:[:el\| el first == type ].
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2296	(aspects at:#seperatorSelection) selectionIndex:type.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2297	]
578a7aaed19e totally revised version tz parents: 406 diff changeset	2298	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2299	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	2300	(aspects at:#label) value:label.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2301	(aspects at:#enabled) value:enabled.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2302	(aspects at:#value) value:value.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2303	(aspects at:#nameKey) value:nameKey.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2304	(aspects at:#indication) value:indication.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2305	(aspects at:#shortcutKey) value:shortcutKey.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2306	(aspects at:#accessCharacterPos) value:accessCharacterPos.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2307	(aspects at:#translateLabel) value:translateLabel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2308	(aspects at:#isButton) value:isButton.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2309	(aspects at:#submenuChannel) value:submenuChannel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2310	(aspects at:#retriever) value:retriever.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2311	(aspects at:#icon) value:icon.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2312	(aspects at:#iconAndLabel) value:iconAndLabel.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2313	argument isSymbol
578a7aaed19e totally revised version tz parents: 406 diff changeset	2314	ifTrue: [(aspects at:#argument)value:'#', argument]
578a7aaed19e totally revised version tz parents: 406 diff changeset	2315	ifFalse:[(aspects at:#argument)value:argument].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2316	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2317	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2318
6ce84c1270a6 intitial checkin ca parents: diff changeset	2319	!MenuEditor::Item methodsFor:'queries'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2320
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2321	isSeparator
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2322	"returns true if item is a seperator"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2323
578a7aaed19e totally revised version tz parents: 406 diff changeset	2324	^self separatorType notNil
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2325	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2326
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2327	!MenuEditor::TreeView class methodsFor:'defaults'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2328
6ce84c1270a6 intitial checkin ca parents: diff changeset	2329	defaultMenuMessage
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2330	"this message is the default yo be sent to the menuHolder to get a menu"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2331
578a7aaed19e totally revised version tz parents: 406 diff changeset	2332	^#menu
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2333
6ce84c1270a6 intitial checkin ca parents: diff changeset	2334
6ce84c1270a6 intitial checkin ca parents: diff changeset	2335	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2336
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2337	!MenuEditor::TreeView class methodsFor:'documentation'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2338
6ce84c1270a6 intitial checkin ca parents: diff changeset	2339	documentation
6ce84c1270a6 intitial checkin ca parents: diff changeset	2340	"
6ce84c1270a6 intitial checkin ca parents: diff changeset	2341	menu selection list
6ce84c1270a6 intitial checkin ca parents: diff changeset	2342
6ce84c1270a6 intitial checkin ca parents: diff changeset	2343	[see also:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2344	SelectionInTreeView
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2345	SelectionInTree
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2346	TreeItem
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2347
6ce84c1270a6 intitial checkin ca parents: diff changeset	2348	[author:]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2349	Claus Atzkern
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	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2354
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2355	!MenuEditor::TreeView class methodsFor:'initialization'!
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2356
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2357	initialize
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2358
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2359	super initialize.
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2360
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2361	Images := nil
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2362	! !
a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2363
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2364	!MenuEditor::TreeView class methodsFor:'resources'!
398 155310ec83aa revised version tz parents: 382 diff changeset	2365
155310ec83aa revised version tz parents: 382 diff changeset	2366	images
155310ec83aa revised version tz parents: 382 diff changeset	2367	"returns an IdentityDictionary containing a list of images and keys used
155310ec83aa revised version tz parents: 382 diff changeset	2368	"
155310ec83aa revised version tz parents: 382 diff changeset	2369	^ Images ?
155310ec83aa revised version tz parents: 382 diff changeset	2370	(Images := IdentityDictionary new
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2371	at: #menuItemImage put: MenuEditor menuItemImage;
578a7aaed19e totally revised version tz parents: 406 diff changeset	2372	at: #menuSeparatorImage put: MenuEditor menuSeparatorImage;
578a7aaed19e totally revised version tz parents: 406 diff changeset	2373	at: #submenuImage put: MenuEditor submenuImage;
578a7aaed19e totally revised version tz parents: 406 diff changeset	2374	at: #linkSubmenuImage put: MenuEditor linkSubmenuImage;
398 155310ec83aa revised version tz parents: 382 diff changeset	2375	yourself)
155310ec83aa revised version tz parents: 382 diff changeset	2376
155310ec83aa revised version tz parents: 382 diff changeset	2377
155310ec83aa revised version tz parents: 382 diff changeset	2378
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2379	! !
578a7aaed19e totally revised version tz parents: 406 diff changeset	2380
578a7aaed19e totally revised version tz parents: 406 diff changeset	2381	!MenuEditor::TreeView methodsFor:'accessing'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2382
6ce84c1270a6 intitial checkin ca parents: diff changeset	2383	selectorName
6ce84c1270a6 intitial checkin ca parents: diff changeset	2384	^ (listOfNodes first contents label) asSymbol
6ce84c1270a6 intitial checkin ca parents: diff changeset	2385	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2386
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2387	!MenuEditor::TreeView methodsFor:'building'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2388
6ce84c1270a6 intitial checkin ca parents: diff changeset	2389	buildFrom:aClass andSelector:aSelector
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2390
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2391	\|spec cls menu node\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2392
6ce84c1270a6 intitial checkin ca parents: diff changeset	2393	(aClass notNil and:[aSelector notNil]) ifTrue:[
340 1de048872d5e resolveName: ca parents: 331 diff changeset	2394	cls := self application resolveName:aClass.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2395
6ce84c1270a6 intitial checkin ca parents: diff changeset	2396	(cls respondsTo:aSelector) ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2397	spec := cls perform:aSelector
6ce84c1270a6 intitial checkin ca parents: diff changeset	2398	]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2399	].
331 aa1663b8c2ab use: ca parents: 326 diff changeset	2400
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2401	spec isNil ifFalse:[
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2402	(spec isMemberOf:Menu) ifFalse:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2403	menu := Menu new fromLiteralArrayEncoding:spec.
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2404	] ifTrue:[
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2405	menu := spec.
cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2406	].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2407	node := self nodeLabel:(aSelector asString).
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2408	self subMenu:menu parent:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2409	] ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2410	aSelector notNil ifTrue:[cls := aSelector asString]
6ce84c1270a6 intitial checkin ca parents: diff changeset	2411	ifFalse:[cls := 'menu'].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2412
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2413	node := self nodeLabel:cls.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2414	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2415
6ce84c1270a6 intitial checkin ca parents: diff changeset	2416	node hasChildren ifFalse:[
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2417	node add:(self nodeLabel:'undefined')
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2418	].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2419	node expand.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2420	model root:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2421
6ce84c1270a6 intitial checkin ca parents: diff changeset	2422	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2423
6ce84c1270a6 intitial checkin ca parents: diff changeset	2424	buildFromMenu:aMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2425
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2426	\|node\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2427
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2428	node := self nodeLabel:'menu'.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2429	self subMenu:aMenu parent:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2430
6ce84c1270a6 intitial checkin ca parents: diff changeset	2431	node hasChildren ifFalse:[
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2432	node add:(self nodeLabel:'undefined')
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2433	].
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2434	node expand.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2435	model root:node.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2436
6ce84c1270a6 intitial checkin ca parents: diff changeset	2437	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2438
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2439	menuItem:anItem
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2440
249 bfa28b62528c * empty log message * Claus Gittinger <cg@exept.de> parents: 246 diff changeset	2441	\|node\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2442
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2443	node := self nodeLabel: anItem label.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2444	node contents buildFromMenuItem:anItem.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2445	node name: node contents label.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2446	self subMenu: anItem submenu parent:node.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2447	^node.
199 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
6ce84c1270a6 intitial checkin ca parents: diff changeset	2452	subMenu:aMenu parent:aParent
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2453
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2454	\|idx grp\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2455
6ce84c1270a6 intitial checkin ca parents: diff changeset	2456	aMenu isNil ifFalse:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2457	grp := aMenu groupSizes.
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2458	aMenu itemsDo:[:i\| aParent add:(self menuItem:i)].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2459
6ce84c1270a6 intitial checkin ca parents: diff changeset	2460	grp notNil ifTrue:[
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2461	idx := 0.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2462
6ce84c1270a6 intitial checkin ca parents: diff changeset	2463	grp do:[:i\|
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2464	idx := idx + i + 1.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2465	aParent add:(self nodeLabel:nil) beforeIndex:idx.
199 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	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2470
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2471	!MenuEditor::TreeView methodsFor:'conversion'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2472
6ce84c1270a6 intitial checkin ca parents: diff changeset	2473	asMenu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2474	\|menu root\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2475
6ce84c1270a6 intitial checkin ca parents: diff changeset	2476	root := self root.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2477
6ce84c1270a6 intitial checkin ca parents: diff changeset	2478	root hasChildren ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2479	menu := Menu new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2480	root children do:[:aChild\| menu addItem:(self asMenuItem:aChild)].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2481	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2482	^ menu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2483	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2484
6ce84c1270a6 intitial checkin ca parents: diff changeset	2485	asMenuItem:aNode
6ce84c1270a6 intitial checkin ca parents: diff changeset	2486
6ce84c1270a6 intitial checkin ca parents: diff changeset	2487	\|menu item\|
6ce84c1270a6 intitial checkin ca parents: diff changeset	2488
6ce84c1270a6 intitial checkin ca parents: diff changeset	2489	item := aNode contents asMenuItem.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2490
6ce84c1270a6 intitial checkin ca parents: diff changeset	2491	aNode hasChildren ifTrue:[
6ce84c1270a6 intitial checkin ca parents: diff changeset	2492	menu := Menu new.
6ce84c1270a6 intitial checkin ca parents: diff changeset	2493	aNode children do:[:aChild\| menu addItem:(self asMenuItem:aChild)].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2494	item submenu:menu
6ce84c1270a6 intitial checkin ca parents: diff changeset	2495	].
6ce84c1270a6 intitial checkin ca parents: diff changeset	2496	^ item
6ce84c1270a6 intitial checkin ca parents: diff changeset	2497
6ce84c1270a6 intitial checkin ca parents: diff changeset	2498	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2499
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2500	!MenuEditor::TreeView methodsFor:'drawing basics'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2501
6ce84c1270a6 intitial checkin ca parents: diff changeset	2502	drawLabelIndex:anIndex atX:x y:yCenter
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2503	"draw text label assigned to a node at x y( center)"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2504
258 c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2505	\|y x2 type item\|
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2506
6ce84c1270a6 intitial checkin ca parents: diff changeset	2507	item := (listOfNodes at:anIndex) contents.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2508	type := item separatorType.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2509
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2510	type isNil ifTrue:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2511	super drawLabelIndex:anIndex atX:x y:yCenter
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2512	] ifFalse:[
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2513	type == #blank ifFalse:[
258 c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2514	x2 := x + 80.
c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2515
c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2516	self displayLineFromX:x y:yCenter toX:x2 y:yCenter.
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2517
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2518	type == #double ifTrue:[
258 c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2519	y := yCenter + 2.
c6f8c3e2f463 checkin from browser Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2520	self displayLineFromX:x y:y toX:x2 y:y.
218 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
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2526	figureFor:aNode
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2527	"access figure for a node"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2528
578a7aaed19e totally revised version tz parents: 406 diff changeset	2529	aNode hasChildren
578a7aaed19e totally revised version tz parents: 406 diff changeset	2530	ifFalse:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2531	[
578a7aaed19e totally revised version tz parents: 406 diff changeset	2532	\|item\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2533	(item := aNode contents) submenuChannel notNil ifTrue:[^images at: #linkSubmenuImage].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2534	item isSeparator ifTrue:[^images at: #menuSeparatorImage].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2535	^images at: #menuItemImage
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2536	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2537	^images at: #submenuImage
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2538	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2539
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2540	!MenuEditor::TreeView methodsFor:'event handling'!
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2541
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2542	keyPress:key x:x y:y
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2543	"invoked if any key was pressed"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2544
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2545	<resource: #keyboard (#Delete #BackSpace #Cut #Copy #Paste)>
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2546
330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2547	(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	2548
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2549	key == #Copy ifTrue:[^self doCopy].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2550	key == #Paste ifTrue:[^self doPaste].
356 269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2551
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2552	super keyPress:key x:x y:y
356 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	! !
269c117830ba before closing the builder, check for outstanding ca parents: 340 diff changeset	2555
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2556	!MenuEditor::TreeView methodsFor:'initialization'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2557
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2558	fetchImageResources
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2559	"initialize heavily used device resources - to avoid rendering
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2560	images again and again later; returns maximum extent of the images used."
578a7aaed19e totally revised version tz parents: 406 diff changeset	2561
578a7aaed19e totally revised version tz parents: 406 diff changeset	2562	\|defaultExtent imageWidth imageHeight maxWidth maxHeight\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2563
578a7aaed19e totally revised version tz parents: 406 diff changeset	2564	defaultExtent := super fetchImageResources.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2565	maxHeight := defaultExtent y.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2566	maxWidth := defaultExtent x.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2567
578a7aaed19e totally revised version tz parents: 406 diff changeset	2568	images do:
578a7aaed19e totally revised version tz parents: 406 diff changeset	2569	[:anIcon\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2570	(imageWidth := anIcon widthOn:self) > maxWidth ifTrue:[maxWidth := imageWidth].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2571	(imageHeight := anIcon heightOn:self) > maxHeight ifTrue:[maxHeight := imageHeight].
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2572	].
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2573	^maxWidth@maxHeight
275 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	!
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2576
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2577	initialize
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2578
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2579	super initialize.
275 cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2580
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2581	images := IdentityDictionary new.
cdecb5b5d356 set fontHeight dependent on max. image height ca parents: 270 diff changeset	2582
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2583	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	2584	self multipleSelectOk:true.
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2585	self showDirectoryIndicator: true.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2586	self showDirectoryIndicatorForRoot: false.
411 7f21bc19cd51 supports calling submenus with arguments tz parents: 410 diff changeset	2587	self selectConditionBlock: [:i\|self application checkMenuItemModified].
412 330bf61c53b5 select first menu child item after opening tz parents: 411 diff changeset	2588	self validateDoubleClickBlock: [:node\| node ~~ listOfNodes first].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2589	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2590
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2591	!MenuEditor::TreeView methodsFor:'menus'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2592
6ce84c1270a6 intitial checkin ca parents: diff changeset	2593	doCopy
398 155310ec83aa revised version tz parents: 382 diff changeset	2594
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2595	self hasSelection ifTrue:[
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2596	CopyBuffer := OrderedCollection new.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2597	self selectionDo:[:i\| CopyBuffer add:((listOfNodes at:i) copy)]
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2598	]
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2599	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2600
6ce84c1270a6 intitial checkin ca parents: diff changeset	2601	doCreateItem
398 155310ec83aa revised version tz parents: 382 diff changeset	2602
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2603	self addElement:(self nodeLabel:'undefined')
398 155310ec83aa revised version tz parents: 382 diff changeset	2604
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2605	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2606
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2607	doCreateLink
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2608
218 5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2609	\|node item\|
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2610
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2611	node := self nodeLabel:'undefined'.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2612	item := node contents.
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2613	item submenuChannel:#menuDefaultLink.
398 155310ec83aa revised version tz parents: 382 diff changeset	2614	self addElement:node.
155310ec83aa revised version tz parents: 382 diff changeset	2615	self setModified.
218 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	!
5c88856b360f access MenuEditor from any specification; ca parents: 215 diff changeset	2619
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2620	doCreateMenu
398 155310ec83aa revised version tz parents: 382 diff changeset	2621
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2622	\|node\|
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2623	node := self nodeLabel:'undefined'.
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2624	node add:(self nodeLabel:'undefined').
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2625	self addElement:node
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2626	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2627
6ce84c1270a6 intitial checkin ca parents: diff changeset	2628	doCreateSep
398 155310ec83aa revised version tz parents: 382 diff changeset	2629
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2630	self addElement:(self nodeLabel:nil)
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2631	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2632
6ce84c1270a6 intitial checkin ca parents: diff changeset	2633	doCut
398 155310ec83aa revised version tz parents: 382 diff changeset	2634
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2635	self doCopy.
298 cec1f174397e use more functionality provided by base class ca parents: 290 diff changeset	2636	self selectedNodesRemove.
398 155310ec83aa revised version tz parents: 382 diff changeset	2637	self setModified.
155310ec83aa revised version tz parents: 382 diff changeset	2638
155310ec83aa revised version tz parents: 382 diff changeset	2639
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2640	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2641
6ce84c1270a6 intitial checkin ca parents: diff changeset	2642	doPaste
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2643
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2644	(CopyBuffer notNil and:[self selectedNode notNil]) ifTrue:[
71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2645	self addElement:(CopyBuffer collect:[:el\| el copy])
220 8f0065e7a83d update ca parents: 218 diff changeset	2646	].
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2647	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2648
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2649	!MenuEditor::TreeView methodsFor:'private'!
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2650
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2651	addElement:something
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2652	"add something after selection"
578a7aaed19e totally revised version tz parents: 406 diff changeset	2653
398 155310ec83aa revised version tz parents: 382 diff changeset	2654	self selectedNodeAdd:something.
155310ec83aa revised version tz parents: 382 diff changeset	2655	self setModified.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2656	!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2657
213 71b11a173f87 change model; supports multiple selection ca parents: 209 diff changeset	2658	nodeLabel:aLabel
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2659
578a7aaed19e totally revised version tz parents: 406 diff changeset	2660	^TreeItem name:aLabel contents: (MenuEditor::Item new label:aLabel)
398 155310ec83aa revised version tz parents: 382 diff changeset	2661	!
155310ec83aa revised version tz parents: 382 diff changeset	2662
155310ec83aa revised version tz parents: 382 diff changeset	2663	setModified
155310ec83aa revised version tz parents: 382 diff changeset	2664
155310ec83aa revised version tz parents: 382 diff changeset	2665	self topView application isModified: true
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2666	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2667
407 578a7aaed19e totally revised version tz parents: 406 diff changeset	2668	!MenuEditor::TreeView methodsFor:'selection'!
578a7aaed19e totally revised version tz parents: 406 diff changeset	2669
578a7aaed19e totally revised version tz parents: 406 diff changeset	2670	updateNode: aNode
578a7aaed19e totally revised version tz parents: 406 diff changeset	2671
578a7aaed19e totally revised version tz parents: 406 diff changeset	2672	\|name treeItem index\|
578a7aaed19e totally revised version tz parents: 406 diff changeset	2673
578a7aaed19e totally revised version tz parents: 406 diff changeset	2674	name := aNode label.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2675	treeItem := listOfNodes detect: [:n\| n contents = aNode] ifNone: [1].
578a7aaed19e totally revised version tz parents: 406 diff changeset	2676	index := self indexOfNode: treeItem.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2677	treeItem name: name.
578a7aaed19e totally revised version tz parents: 406 diff changeset	2678	self redrawLine: index.
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2679	! !
6ce84c1270a6 intitial checkin ca parents: diff changeset	2680
441 b16598618359 release images after closing tz parents: 432 diff changeset	2681	!MenuEditor::TreeView methodsFor:'startup / release'!
b16598618359 release images after closing tz parents: 432 diff changeset	2682
b16598618359 release images after closing tz parents: 432 diff changeset	2683	destroy
b16598618359 release images after closing tz parents: 432 diff changeset	2684	"destroy images"
b16598618359 release images after closing tz parents: 432 diff changeset	2685
b16598618359 release images after closing tz parents: 432 diff changeset	2686	super destroy.
b16598618359 release images after closing tz parents: 432 diff changeset	2687
b16598618359 release images after closing tz parents: 432 diff changeset	2688	Images := nil
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	! !
b16598618359 release images after closing tz parents: 432 diff changeset	2692
199 6ce84c1270a6 intitial checkin ca parents: diff changeset	2693	!MenuEditor class methodsFor:'documentation'!
6ce84c1270a6 intitial checkin ca parents: diff changeset	2694
6ce84c1270a6 intitial checkin ca parents: diff changeset	2695	version
6ce84c1270a6 intitial checkin ca parents: diff changeset	2696	^ '$Header$'
6ce84c1270a6 intitial checkin ca parents: diff changeset	2697	! !
406 a519e0d547f6 widgets rearranged for different fonts + comfortable menu load support tz parents: 398 diff changeset	2698	MenuEditor initialize!

author	tz
	Wed, 28 Jan 1998 18:32:02 +0100
changeset 507	1586e7da66bc
parent 499	da5c2e271d1a
child 508	968c6aa88ef0
permissions	-rw-r--r--