hg/stx-libtool2: HierarchicalListEditor.st@7c5fcbde34b8 (annotated)

300 2a35cb573365 intitial checkin ca parents: diff changeset	1	"
2a35cb573365 intitial checkin ca parents: diff changeset	2	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
2a35cb573365 intitial checkin ca parents: diff changeset	3	All Rights Reserved
2a35cb573365 intitial checkin ca parents: diff changeset	4
2a35cb573365 intitial checkin ca parents: diff changeset	5	This software is furnished under a license and may be used
2a35cb573365 intitial checkin ca parents: diff changeset	6	only in accordance with the terms of that license and with the
2a35cb573365 intitial checkin ca parents: diff changeset	7	inclusion of the above copyright notice. This software may not
2a35cb573365 intitial checkin ca parents: diff changeset	8	be provided or otherwise made available to, or used by, any
2a35cb573365 intitial checkin ca parents: diff changeset	9	other person. No title to or ownership of the software is
2a35cb573365 intitial checkin ca parents: diff changeset	10	hereby transferred.
2a35cb573365 intitial checkin ca parents: diff changeset	11	"
2a35cb573365 intitial checkin ca parents: diff changeset	12
2a35cb573365 intitial checkin ca parents: diff changeset	13
2a35cb573365 intitial checkin ca parents: diff changeset	14
2a35cb573365 intitial checkin ca parents: diff changeset	15
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	16	ToolApplicationModel subclass:#HierarchicalListEditor
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	17	instanceVariableNames:'isModified didInstall treeView specClass specSelector'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	18	classVariableNames:'CopyBuffer'
300 2a35cb573365 intitial checkin ca parents: diff changeset	19	poolDictionaries:''
2a35cb573365 intitial checkin ca parents: diff changeset	20	category:'Interface-UIPainter'
2a35cb573365 intitial checkin ca parents: diff changeset	21	!
2a35cb573365 intitial checkin ca parents: diff changeset	22
2a35cb573365 intitial checkin ca parents: diff changeset	23	!HierarchicalListEditor class methodsFor:'documentation'!
2a35cb573365 intitial checkin ca parents: diff changeset	24
2a35cb573365 intitial checkin ca parents: diff changeset	25	copyright
2a35cb573365 intitial checkin ca parents: diff changeset	26	"
2a35cb573365 intitial checkin ca parents: diff changeset	27	COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
2a35cb573365 intitial checkin ca parents: diff changeset	28	All Rights Reserved
2a35cb573365 intitial checkin ca parents: diff changeset	29
2a35cb573365 intitial checkin ca parents: diff changeset	30	This software is furnished under a license and may be used
2a35cb573365 intitial checkin ca parents: diff changeset	31	only in accordance with the terms of that license and with the
2a35cb573365 intitial checkin ca parents: diff changeset	32	inclusion of the above copyright notice. This software may not
2a35cb573365 intitial checkin ca parents: diff changeset	33	be provided or otherwise made available to, or used by, any
2a35cb573365 intitial checkin ca parents: diff changeset	34	other person. No title to or ownership of the software is
2a35cb573365 intitial checkin ca parents: diff changeset	35	hereby transferred.
2a35cb573365 intitial checkin ca parents: diff changeset	36	"
2a35cb573365 intitial checkin ca parents: diff changeset	37
2a35cb573365 intitial checkin ca parents: diff changeset	38
2a35cb573365 intitial checkin ca parents: diff changeset	39
2a35cb573365 intitial checkin ca parents: diff changeset	40	!
2a35cb573365 intitial checkin ca parents: diff changeset	41
2a35cb573365 intitial checkin ca parents: diff changeset	42	documentation
2a35cb573365 intitial checkin ca parents: diff changeset	43	"
2a35cb573365 intitial checkin ca parents: diff changeset	44	HierarchicalListEditor is used by the UIPainter to
2a35cb573365 intitial checkin ca parents: diff changeset	45	create or maintain a hierarchical list.
2a35cb573365 intitial checkin ca parents: diff changeset	46
2a35cb573365 intitial checkin ca parents: diff changeset	47	[start with:]
2a35cb573365 intitial checkin ca parents: diff changeset	48	HierarchicalListEditor open
2a35cb573365 intitial checkin ca parents: diff changeset	49
2a35cb573365 intitial checkin ca parents: diff changeset	50	[see also:]
2a35cb573365 intitial checkin ca parents: diff changeset	51	UIPainter
2a35cb573365 intitial checkin ca parents: diff changeset	52
2a35cb573365 intitial checkin ca parents: diff changeset	53	[author:]
546 aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	54	Claus Atzkern, eXept Software AG
300 2a35cb573365 intitial checkin ca parents: diff changeset	55	"
2a35cb573365 intitial checkin ca parents: diff changeset	56
2a35cb573365 intitial checkin ca parents: diff changeset	57
2a35cb573365 intitial checkin ca parents: diff changeset	58
2a35cb573365 intitial checkin ca parents: diff changeset	59	! !
2a35cb573365 intitial checkin ca parents: diff changeset	60
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	61	!HierarchicalListEditor class methodsFor:'help specs'!
f0c726d56ee6 help texts added tz parents: 546 diff changeset	62
f0c726d56ee6 help texts added tz parents: 546 diff changeset	63	helpSpec
f0c726d56ee6 help texts added tz parents: 546 diff changeset	64	"return a dictionary filled with helpKey -> helptext associations.
f0c726d56ee6 help texts added tz parents: 546 diff changeset	65	These are used by the activeHelp tool."
f0c726d56ee6 help texts added tz parents: 546 diff changeset	66
f0c726d56ee6 help texts added tz parents: 546 diff changeset	67	"
f0c726d56ee6 help texts added tz parents: 546 diff changeset	68	UIHelpTool openOnClass:HierarchicalListEditor
f0c726d56ee6 help texts added tz parents: 546 diff changeset	69	"
f0c726d56ee6 help texts added tz parents: 546 diff changeset	70
f0c726d56ee6 help texts added tz parents: 546 diff changeset	71	^ super helpSpec addPairsFrom:#(
f0c726d56ee6 help texts added tz parents: 546 diff changeset	72
f0c726d56ee6 help texts added tz parents: 546 diff changeset	73	#addChild
f0c726d56ee6 help texts added tz parents: 546 diff changeset	74	'Adds a new child item.'
f0c726d56ee6 help texts added tz parents: 546 diff changeset	75
f0c726d56ee6 help texts added tz parents: 546 diff changeset	76	#addSister
f0c726d56ee6 help texts added tz parents: 546 diff changeset	77	'Adds a new sister item.'
f0c726d56ee6 help texts added tz parents: 546 diff changeset	78
f0c726d56ee6 help texts added tz parents: 546 diff changeset	79	#fileNew
f0c726d56ee6 help texts added tz parents: 546 diff changeset	80	'Creates a new hierarchical list.'
f0c726d56ee6 help texts added tz parents: 546 diff changeset	81
552 8597d3786b09 help texts added tz parents: 551 diff changeset	82	#fileReload
8597d3786b09 help texts added tz parents: 551 diff changeset	83	'Reload hierarchical list from current class and selector.'
8597d3786b09 help texts added tz parents: 551 diff changeset	84
8597d3786b09 help texts added tz parents: 551 diff changeset	85	#fileSave
8597d3786b09 help texts added tz parents: 551 diff changeset	86	'Saves current hierarchical list.'
8597d3786b09 help texts added tz parents: 551 diff changeset	87
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	88	)
f0c726d56ee6 help texts added tz parents: 546 diff changeset	89	! !
f0c726d56ee6 help texts added tz parents: 546 diff changeset	90
300 2a35cb573365 intitial checkin ca parents: diff changeset	91	!HierarchicalListEditor class methodsFor:'interface specs'!
2a35cb573365 intitial checkin ca parents: diff changeset	92
2a35cb573365 intitial checkin ca parents: diff changeset	93	classAndMethodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	94	"this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin ca parents: diff changeset	95
2a35cb573365 intitial checkin ca parents: diff changeset	96	"do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	97	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	98
2a35cb573365 intitial checkin ca parents: diff changeset	99	"
2a35cb573365 intitial checkin ca parents: diff changeset	100	UIPainter new openOnClass:HierarchicalListEditor andSelector:#classAndMethodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	101	HierarchicalListEditor new openInterface:#classAndMethodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	102	"
2a35cb573365 intitial checkin ca parents: diff changeset	103
2a35cb573365 intitial checkin ca parents: diff changeset	104	<resource: #canvas>
2a35cb573365 intitial checkin ca parents: diff changeset	105
2a35cb573365 intitial checkin ca parents: diff changeset	106	^
2a35cb573365 intitial checkin ca parents: diff changeset	107
2a35cb573365 intitial checkin ca parents: diff changeset	108	#(#FullSpec
2a35cb573365 intitial checkin ca parents: diff changeset	109	#'window:'
2a35cb573365 intitial checkin ca parents: diff changeset	110	#(#WindowSpec
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	111	#'name:' 'Hierarchical List Editor'
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	112	#'layout:' #(#LayoutFrame 213 0 373 0 513 0 501 0)
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	113	#'label:' 'Hierarchical List Editor'
300 2a35cb573365 intitial checkin ca parents: diff changeset	114	#'min:' #(#Point 10 10)
2a35cb573365 intitial checkin ca parents: diff changeset	115	#'max:' #(#Point 1160 870)
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	116	#'bounds:' #(#Rectangle 213 373 514 502)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	117	#'usePreferredExtent:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	118	)
2a35cb573365 intitial checkin ca parents: diff changeset	119	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	120	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	121	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	122	#(
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	123	#(#FramedBoxSpec
2e77c060bc12 dialog style revised tz parents: 522 diff changeset	124	#'name:' 'framedBox1'
2e77c060bc12 dialog style revised tz parents: 522 diff changeset	125	#'layout:' #(#LayoutFrame 0 0.0 3 0.0 0 1.0 -33 1.0)
2e77c060bc12 dialog style revised tz parents: 522 diff changeset	126	#'label:' 'Class and selector for code'
2e77c060bc12 dialog style revised tz parents: 522 diff changeset	127	#'labelPosition:' #topLeft
300 2a35cb573365 intitial checkin ca parents: diff changeset	128	)
2a35cb573365 intitial checkin ca parents: diff changeset	129	#(#LabelSpec
2a35cb573365 intitial checkin ca parents: diff changeset	130	#'name:' 'classLabel'
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	131	#'layout:' #(#AlignmentOrigin 53 0.11 39 0 1 0.5)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	132	#'label:' 'Class:'
300 2a35cb573365 intitial checkin ca parents: diff changeset	133	#'adjust:' #right
2a35cb573365 intitial checkin ca parents: diff changeset	134	#'resizeForLabel:' true
2a35cb573365 intitial checkin ca parents: diff changeset	135	)
2a35cb573365 intitial checkin ca parents: diff changeset	136	#(#InputFieldSpec
2a35cb573365 intitial checkin ca parents: diff changeset	137	#'name:' 'classField'
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	138	#'layout:' #(#LayoutFrame 57 0.11 27 0 -19 1.0 49 0)
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	139	#'enableChannel:' #canChangeClassName
300 2a35cb573365 intitial checkin ca parents: diff changeset	140	#'tabable:' true
2a35cb573365 intitial checkin ca parents: diff changeset	141	#'model:' #specClassChannel
2a35cb573365 intitial checkin ca parents: diff changeset	142	)
2a35cb573365 intitial checkin ca parents: diff changeset	143	#(#LabelSpec
2a35cb573365 intitial checkin ca parents: diff changeset	144	#'name:' 'methodLabel'
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	145	#'layout:' #(#AlignmentOrigin 53 0.11 64 0 1 0.5)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	146	#'label:' 'Selector:'
300 2a35cb573365 intitial checkin ca parents: diff changeset	147	#'adjust:' #right
2a35cb573365 intitial checkin ca parents: diff changeset	148	#'resizeForLabel:' true
2a35cb573365 intitial checkin ca parents: diff changeset	149	)
2a35cb573365 intitial checkin ca parents: diff changeset	150	#(#InputFieldSpec
2a35cb573365 intitial checkin ca parents: diff changeset	151	#'name:' 'methodField'
529 2e77c060bc12 dialog style revised tz parents: 522 diff changeset	152	#'layout:' #(#LayoutFrame 57 0.11 52 0 -19 1.0 74 0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	153	#'tabable:' true
2a35cb573365 intitial checkin ca parents: diff changeset	154	#'model:' #specSelectorChannel
2a35cb573365 intitial checkin ca parents: diff changeset	155	#'type:' #string
2a35cb573365 intitial checkin ca parents: diff changeset	156	)
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	157	#(#UISubSpecification
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	158	#'name:' 'SubSpecification'
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	159	#'layout:' #(#LayoutFrame 0 0.0 -29 1 0 1.0 -5 1.0)
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	160	#'majorKey:' #ToolApplicationModel
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	161	#'minorKey:' #windowSpecForCommitWithoutChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	162	)
2a35cb573365 intitial checkin ca parents: diff changeset	163	)
2a35cb573365 intitial checkin ca parents: diff changeset	164	)
2a35cb573365 intitial checkin ca parents: diff changeset	165	)
2a35cb573365 intitial checkin ca parents: diff changeset	166	!
2a35cb573365 intitial checkin ca parents: diff changeset	167
2a35cb573365 intitial checkin ca parents: diff changeset	168	windowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	169	"this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin ca parents: diff changeset	170
2a35cb573365 intitial checkin ca parents: diff changeset	171	"do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	172	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	173
2a35cb573365 intitial checkin ca parents: diff changeset	174	"
2a35cb573365 intitial checkin ca parents: diff changeset	175	UIPainter new openOnClass:HierarchicalListEditor andSelector:#windowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	176	HierarchicalListEditor new openInterface:#windowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	177	"
2a35cb573365 intitial checkin ca parents: diff changeset	178	"HierarchicalListEditor open"
2a35cb573365 intitial checkin ca parents: diff changeset	179
2a35cb573365 intitial checkin ca parents: diff changeset	180	<resource: #canvas>
2a35cb573365 intitial checkin ca parents: diff changeset	181
2a35cb573365 intitial checkin ca parents: diff changeset	182	^
2a35cb573365 intitial checkin ca parents: diff changeset	183
2a35cb573365 intitial checkin ca parents: diff changeset	184	#(#FullSpec
2a35cb573365 intitial checkin ca parents: diff changeset	185	#'window:'
2a35cb573365 intitial checkin ca parents: diff changeset	186	#(#WindowSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	187	#'name:' 'Hierarchical List Editor'
566 58b18ffe959c info bar layout changed tz parents: 562 diff changeset	188	#'layout:' #(#LayoutFrame 366 0 355 0 840 0 667 0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	189	#'label:' 'Hierarchical List Editor'
2a35cb573365 intitial checkin ca parents: diff changeset	190	#'min:' #(#Point 10 10)
2a35cb573365 intitial checkin ca parents: diff changeset	191	#'max:' #(#Point 1160 870)
566 58b18ffe959c info bar layout changed tz parents: 562 diff changeset	192	#'bounds:' #(#Rectangle 366 355 841 668)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	193	#'menu:' #menu
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	194	#'usePreferredExtent:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	195	)
2a35cb573365 intitial checkin ca parents: diff changeset	196	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	197	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	198	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	199	#(
2a35cb573365 intitial checkin ca parents: diff changeset	200	#(#MenuPanelSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	201	#'name:' 'menuToolbarView'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	202	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 32 0)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	203	#'menu:' #menuToolbar
300 2a35cb573365 intitial checkin ca parents: diff changeset	204	)
2a35cb573365 intitial checkin ca parents: diff changeset	205	#(#VariableHorizontalPanelSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	206	#'name:' 'variableHorizontalPanel'
566 58b18ffe959c info bar layout changed tz parents: 562 diff changeset	207	#'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	208	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	209	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	210	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	211	#(
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	212	#(#ArbitraryComponentSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	213	#'name:' 'treeView'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	214	#'menu:' #menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	215	#'hasHorizontalScrollBar:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	216	#'hasVerticalScrollBar:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	217	#'miniScrollerHorizontal:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	218	#'miniScrollerVertical:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	219	#'component:' #treeView
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	220	#'hasBorder:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	221	)
2a35cb573365 intitial checkin ca parents: diff changeset	222	#(#ViewSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	223	#'name:' 'specView'
300 2a35cb573365 intitial checkin ca parents: diff changeset	224	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	225	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	226	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	227	#(
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	228	#(#LabelSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	229	#'name:' 'nameLabel'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	230	#'layout:' #(#AlignmentOrigin 107 0 25 0 1 0.5)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	231	#'label:' 'Name:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	232	#'resizeForLabel:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	233	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	234	#(#InputFieldSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	235	#'name:' 'nameInputField'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	236	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
469 28bcb1982ef9 tabs added tz parents: 443 diff changeset	237	#'tabable:' true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	238	#'model:' #itemName
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	239	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	240	#(#LabelSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	241	#'name:' 'valueLabel'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	242	#'layout:' #(#AlignmentOrigin 107 0 51 0 1 0.5)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	243	#'label:' 'Value:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	244	#'resizeForLabel:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	245	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	246	#(#InputFieldSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	247	#'name:' 'valueInputField'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	248	#'layout:' #(#LayoutFrame 110 0 41 0 -5 1.0 63 0)
469 28bcb1982ef9 tabs added tz parents: 443 diff changeset	249	#'tabable:' true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	250	#'model:' #itemValue
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	251	#'type:' #symbolOrNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	252	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	253	#(#UISubSpecification
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	254	#'name:' 'SubSpecification'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	255	#'layout:' #(#LayoutFrame 2 0.0 -26 1.0 -2 1.0 -2 1.0)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	256	#'majorKey:' #ToolApplicationModel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	257	#'minorKey:' #windowSpecForCommit
300 2a35cb573365 intitial checkin ca parents: diff changeset	258	)
2a35cb573365 intitial checkin ca parents: diff changeset	259	)
2a35cb573365 intitial checkin ca parents: diff changeset	260	)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	261	#'level:' -1
300 2a35cb573365 intitial checkin ca parents: diff changeset	262	)
2a35cb573365 intitial checkin ca parents: diff changeset	263	)
2a35cb573365 intitial checkin ca parents: diff changeset	264	)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	265	#'handles:' #(#Any 0.368421 1.0)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	266	)
484 ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	267	#(#UISubSpecification
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	268	#'name:' 'infoBarSubSpec'
566 58b18ffe959c info bar layout changed tz parents: 562 diff changeset	269	#'layout:' #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
484 ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	270	#'majorKey:' #ToolApplicationModel
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	271	#'minorKey:' #windowSpecForInfoBar
300 2a35cb573365 intitial checkin ca parents: diff changeset	272	)
2a35cb573365 intitial checkin ca parents: diff changeset	273	)
2a35cb573365 intitial checkin ca parents: diff changeset	274	)
2a35cb573365 intitial checkin ca parents: diff changeset	275	)
2a35cb573365 intitial checkin ca parents: diff changeset	276	! !
2a35cb573365 intitial checkin ca parents: diff changeset	277
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	278	!HierarchicalListEditor class methodsFor:'menu specs'!
249e94fdeb94 looks for modified tz parents: 489 diff changeset	279
249e94fdeb94 looks for modified tz parents: 489 diff changeset	280	menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	281	"this window spec was automatically generated by the ST/X MenuEditor"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	282
249e94fdeb94 looks for modified tz parents: 489 diff changeset	283	"do not manually edit this - the builder may not be able to
249e94fdeb94 looks for modified tz parents: 489 diff changeset	284	handle the specification if its corrupted."
249e94fdeb94 looks for modified tz parents: 489 diff changeset	285
249e94fdeb94 looks for modified tz parents: 489 diff changeset	286	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	287	MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	288	(Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menu)) startUp
249e94fdeb94 looks for modified tz parents: 489 diff changeset	289	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	290
249e94fdeb94 looks for modified tz parents: 489 diff changeset	291	<resource: #menu>
249e94fdeb94 looks for modified tz parents: 489 diff changeset	292
249e94fdeb94 looks for modified tz parents: 489 diff changeset	293	^
249e94fdeb94 looks for modified tz parents: 489 diff changeset	294
249e94fdeb94 looks for modified tz parents: 489 diff changeset	295	#(#Menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	296
249e94fdeb94 looks for modified tz parents: 489 diff changeset	297	#(
249e94fdeb94 looks for modified tz parents: 489 diff changeset	298	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	299	#'label:' 'About'
546 aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	300	#'labelImage:' #(#ResourceRetriever nil #menuIcon)
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	301	#'submenuChannel:' #menuAbout
249e94fdeb94 looks for modified tz parents: 489 diff changeset	302	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	303	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	304	#'label:' 'File'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	305	#'submenu:'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	306	#(#Menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	307
249e94fdeb94 looks for modified tz parents: 489 diff changeset	308	#(
249e94fdeb94 looks for modified tz parents: 489 diff changeset	309	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	310	#'label:' 'New'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	311	#'value:' #doNew
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	312	#'activeHelpKey:' #fileNew
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	313	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	314	#(#MenuItem
522 06bef91cb861 menu rearranged tz parents: 506 diff changeset	315	#'label:' '-'
06bef91cb861 menu rearranged tz parents: 506 diff changeset	316	)
06bef91cb861 menu rearranged tz parents: 506 diff changeset	317	#(#MenuItem
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	318	#'label:' 'Reload'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	319	#'value:' #doReload
552 8597d3786b09 help texts added tz parents: 551 diff changeset	320	#'activeHelpKey:' #fileReload
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	321	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	322	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	323	#'label:' '-'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	324	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	325	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	326	#'label:' 'Save'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	327	#'value:' #doInstall
552 8597d3786b09 help texts added tz parents: 551 diff changeset	328	#'activeHelpKey:' #fileSave
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	329	#'enabled:' #hasValidClass
249e94fdeb94 looks for modified tz parents: 489 diff changeset	330	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	331	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	332	#'label:' '-'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	333	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	334	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	335	#'label:' 'Define Class And Selector...'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	336	#'value:' #doDefineClass
552 8597d3786b09 help texts added tz parents: 551 diff changeset	337	#'activeHelpKey:' #fileDefineClassAndSelector
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	338	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	339	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	340	#'label:' '-'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	341	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	342	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	343	#'label:' 'Exit'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	344	#'value:' #closeRequest
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	345	#'activeHelpKey:' #fileExit
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	346	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	347	) nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	348	nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	349	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	350	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	351	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	352	#'label:' 'Edit'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	353	#'submenuChannel:' #menuEdit
249e94fdeb94 looks for modified tz parents: 489 diff changeset	354	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	355	#(#MenuItem
522 06bef91cb861 menu rearranged tz parents: 506 diff changeset	356	#'label:' 'Add'
06bef91cb861 menu rearranged tz parents: 506 diff changeset	357	#'submenu:'
06bef91cb861 menu rearranged tz parents: 506 diff changeset	358	#(#Menu
06bef91cb861 menu rearranged tz parents: 506 diff changeset	359
06bef91cb861 menu rearranged tz parents: 506 diff changeset	360	#(
06bef91cb861 menu rearranged tz parents: 506 diff changeset	361	#(#MenuItem
06bef91cb861 menu rearranged tz parents: 506 diff changeset	362	#'label:' 'Child'
06bef91cb861 menu rearranged tz parents: 506 diff changeset	363	#'value:' #doCreateChild
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	364	#'activeHelpKey:' #addChild
522 06bef91cb861 menu rearranged tz parents: 506 diff changeset	365	#'enabled:' #canCreateChildChannel
06bef91cb861 menu rearranged tz parents: 506 diff changeset	366	#'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createChildIcon 'Child')
06bef91cb861 menu rearranged tz parents: 506 diff changeset	367	)
06bef91cb861 menu rearranged tz parents: 506 diff changeset	368	#(#MenuItem
06bef91cb861 menu rearranged tz parents: 506 diff changeset	369	#'label:' 'Sister'
06bef91cb861 menu rearranged tz parents: 506 diff changeset	370	#'value:' #doCreateSister
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	371	#'activeHelpKey:' #addSister
522 06bef91cb861 menu rearranged tz parents: 506 diff changeset	372	#'enabled:' #canCreateSisterChannel
06bef91cb861 menu rearranged tz parents: 506 diff changeset	373	#'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #createSisterIcon 'Sister')
06bef91cb861 menu rearranged tz parents: 506 diff changeset	374	)
06bef91cb861 menu rearranged tz parents: 506 diff changeset	375	) nil
06bef91cb861 menu rearranged tz parents: 506 diff changeset	376	nil
06bef91cb861 menu rearranged tz parents: 506 diff changeset	377	)
06bef91cb861 menu rearranged tz parents: 506 diff changeset	378	)
06bef91cb861 menu rearranged tz parents: 506 diff changeset	379	#(#MenuItem
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	380	#'label:' 'Browse'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	381	#'enabled:' #hasValidClass
249e94fdeb94 looks for modified tz parents: 489 diff changeset	382	#'submenu:'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	383	#(#Menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	384
249e94fdeb94 looks for modified tz parents: 489 diff changeset	385	#(
249e94fdeb94 looks for modified tz parents: 489 diff changeset	386	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	387	#'label:' 'Class'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	388	#'value:' #'doBrowse:'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	389	#'argument:' #class
249e94fdeb94 looks for modified tz parents: 489 diff changeset	390	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	391	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	392	#'label:' 'Method'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	393	#'value:' #'doBrowse:'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	394	#'enabled:' #hasValidMethodSelector
249e94fdeb94 looks for modified tz parents: 489 diff changeset	395	#'argument:' #method
249e94fdeb94 looks for modified tz parents: 489 diff changeset	396	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	397	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	398	#'label:' 'Specification'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	399	#'value:' #'doBrowse:'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	400	#'enabled:' #hasValidSpecSelector
249e94fdeb94 looks for modified tz parents: 489 diff changeset	401	#'argument:' #spec
249e94fdeb94 looks for modified tz parents: 489 diff changeset	402	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	403	) nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	404	nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	405	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	406	)
546 aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	407	#(#MenuItem
aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	408	#'label:' 'Help'
aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	409	#'startGroup:' #right
aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	410	#'submenuChannel:' #menuHelp
aac3f3c9383f help menu item aligned to the right tz parents: 529 diff changeset	411	)
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	412	) nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	413	nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	414	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	415	!
249e94fdeb94 looks for modified tz parents: 489 diff changeset	416
249e94fdeb94 looks for modified tz parents: 489 diff changeset	417	menuEdit
249e94fdeb94 looks for modified tz parents: 489 diff changeset	418	"this window spec was automatically generated by the ST/X MenuEditor"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	419
249e94fdeb94 looks for modified tz parents: 489 diff changeset	420	"do not manually edit this - the builder may not be able to
249e94fdeb94 looks for modified tz parents: 489 diff changeset	421	handle the specification if its corrupted."
249e94fdeb94 looks for modified tz parents: 489 diff changeset	422
249e94fdeb94 looks for modified tz parents: 489 diff changeset	423	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	424	MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuEdit
249e94fdeb94 looks for modified tz parents: 489 diff changeset	425	(Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuEdit)) startUp
249e94fdeb94 looks for modified tz parents: 489 diff changeset	426	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	427
249e94fdeb94 looks for modified tz parents: 489 diff changeset	428	<resource: #menu>
249e94fdeb94 looks for modified tz parents: 489 diff changeset	429
249e94fdeb94 looks for modified tz parents: 489 diff changeset	430	^
249e94fdeb94 looks for modified tz parents: 489 diff changeset	431
249e94fdeb94 looks for modified tz parents: 489 diff changeset	432	#(#Menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	433
249e94fdeb94 looks for modified tz parents: 489 diff changeset	434	#(
249e94fdeb94 looks for modified tz parents: 489 diff changeset	435	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	436	#'label:' 'Cut'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	437	#'value:' #doCut
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	438	#'activeHelpKey:' #editCut
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	439	#'enabled:' #canCut
249e94fdeb94 looks for modified tz parents: 489 diff changeset	440	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	441	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	442	#'label:' 'Copy'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	443	#'value:' #doCopy
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	444	#'activeHelpKey:' #editCopy
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	445	#'enabled:' #canCopy
249e94fdeb94 looks for modified tz parents: 489 diff changeset	446	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	447	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	448	#'label:' 'Paste'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	449	#'value:' #doPaste
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	450	#'activeHelpKey:' #editPaste
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	451	#'enabled:' #canPaste
249e94fdeb94 looks for modified tz parents: 489 diff changeset	452	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	453	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	454	#'label:' '-'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	455	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	456	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	457	#'label:' 'Move Up'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	458	#'value:' #doStepUp
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	459	#'activeHelpKey:' #editMoveUp
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	460	#'enabled:' #canStepOverChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	461	#'labelImage:' #(#ResourceRetriever #ToolApplicationModel #upIcon 'Move Up')
249e94fdeb94 looks for modified tz parents: 489 diff changeset	462	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	463	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	464	#'label:' 'Move Down'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	465	#'value:' #doStepDown
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	466	#'activeHelpKey:' #editMoveDown
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	467	#'enabled:' #canStepOverChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	468	#'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downIcon 'Move Down')
249e94fdeb94 looks for modified tz parents: 489 diff changeset	469	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	470	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	471	#'label:' 'Move In'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	472	#'value:' #doStepIn
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	473	#'activeHelpKey:' #editMoveIn
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	474	#'enabled:' #canStepInChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	475	#'labelImage:' #(#ResourceRetriever #ToolApplicationModel #downRightIcon 'Move In')
249e94fdeb94 looks for modified tz parents: 489 diff changeset	476	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	477	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	478	#'label:' 'Move Out'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	479	#'value:' #doStepOut
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	480	#'activeHelpKey:' #editMoveOut
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	481	#'enabled:' #canStepOutChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	482	#'labelImage:' #(#ResourceRetriever #ToolApplicationModel #leftDownIcon 'Move Out')
249e94fdeb94 looks for modified tz parents: 489 diff changeset	483	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	484	) nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	485	nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	486	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	487	!
249e94fdeb94 looks for modified tz parents: 489 diff changeset	488
249e94fdeb94 looks for modified tz parents: 489 diff changeset	489	menuToolbar
249e94fdeb94 looks for modified tz parents: 489 diff changeset	490	"this window spec was automatically generated by the ST/X MenuEditor"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	491
249e94fdeb94 looks for modified tz parents: 489 diff changeset	492	"do not manually edit this - the builder may not be able to
249e94fdeb94 looks for modified tz parents: 489 diff changeset	493	handle the specification if its corrupted."
249e94fdeb94 looks for modified tz parents: 489 diff changeset	494
249e94fdeb94 looks for modified tz parents: 489 diff changeset	495	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	496	MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuToolbar
249e94fdeb94 looks for modified tz parents: 489 diff changeset	497	(Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuToolbar)) startUp
249e94fdeb94 looks for modified tz parents: 489 diff changeset	498	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	499
249e94fdeb94 looks for modified tz parents: 489 diff changeset	500	<resource: #menu>
249e94fdeb94 looks for modified tz parents: 489 diff changeset	501
249e94fdeb94 looks for modified tz parents: 489 diff changeset	502	^
249e94fdeb94 looks for modified tz parents: 489 diff changeset	503
249e94fdeb94 looks for modified tz parents: 489 diff changeset	504	#(#Menu
249e94fdeb94 looks for modified tz parents: 489 diff changeset	505
249e94fdeb94 looks for modified tz parents: 489 diff changeset	506	#(
249e94fdeb94 looks for modified tz parents: 489 diff changeset	507	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	508	#'label:' 'New'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	509	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	510	#'value:' #doNew
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	511	#'activeHelpKey:' #fileNew
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	512	#'labelImage:' #(#ResourceRetriever nil #newIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	513	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	514	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	515	#'label:' 'Save'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	516	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	517	#'value:' #doInstall
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	518	#'activeHelpKey:' #fileSave
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	519	#'enabled:' #hasValidClass
249e94fdeb94 looks for modified tz parents: 489 diff changeset	520	#'labelImage:' #(#ResourceRetriever nil #saveIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	521	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	522	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	523	#'label:' ''
249e94fdeb94 looks for modified tz parents: 489 diff changeset	524	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	525	#(#MenuItem
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	526	#'label:' 'Add Child'
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	527	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	528	#'value:' #doCreateChild
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	529	#'activeHelpKey:' #addChild
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	530	#'enabled:' #canCreateChildChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	531	#'labelImage:' #(#ResourceRetriever nil #createChildIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	532	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	533	#(#MenuItem
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	534	#'label:' 'Add Sister'
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	535	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	536	#'value:' #doCreateSister
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	537	#'activeHelpKey:' #addSister
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	538	#'enabled:' #canCreateSisterChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	539	#'labelImage:' #(#ResourceRetriever nil #createSisterIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	540	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	541	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	542	#'label:' ''
249e94fdeb94 looks for modified tz parents: 489 diff changeset	543	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	544	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	545	#'label:' 'Move Up'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	546	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	547	#'value:' #doStepUp
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	548	#'activeHelpKey:' #editMoveUp
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	549	#'enabled:' #canStepOverChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	550	#'labelImage:' #(#ResourceRetriever nil #upIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	551	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	552	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	553	#'label:' 'Move Down'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	554	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	555	#'value:' #doStepDown
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	556	#'activeHelpKey:' #editMoveDown
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	557	#'enabled:' #canStepOverChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	558	#'labelImage:' #(#ResourceRetriever nil #downIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	559	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	560	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	561	#'label:' 'Move In'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	562	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	563	#'value:' #doStepIn
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	564	#'activeHelpKey:' #editMoveIn
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	565	#'enabled:' #canStepInChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	566	#'labelImage:' #(#ResourceRetriever nil #downRightIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	567	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	568	#(#MenuItem
249e94fdeb94 looks for modified tz parents: 489 diff changeset	569	#'label:' 'Move Out'
249e94fdeb94 looks for modified tz parents: 489 diff changeset	570	#'isButton:' true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	571	#'value:' #doStepOut
551 f0c726d56ee6 help texts added tz parents: 546 diff changeset	572	#'activeHelpKey:' #editMoveOut
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	573	#'enabled:' #canStepOutChannel
249e94fdeb94 looks for modified tz parents: 489 diff changeset	574	#'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	575	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	576	) nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	577	nil
249e94fdeb94 looks for modified tz parents: 489 diff changeset	578	)
249e94fdeb94 looks for modified tz parents: 489 diff changeset	579	! !
249e94fdeb94 looks for modified tz parents: 489 diff changeset	580
300 2a35cb573365 intitial checkin ca parents: diff changeset	581	!HierarchicalListEditor class methodsFor:'printing'!
2a35cb573365 intitial checkin ca parents: diff changeset	582
2a35cb573365 intitial checkin ca parents: diff changeset	583	prettyPrintArray:anArray on:aStream indent:anIndent
2a35cb573365 intitial checkin ca parents: diff changeset	584	"print a literal array in a nice format
2a35cb573365 intitial checkin ca parents: diff changeset	585	"
2a35cb573365 intitial checkin ca parents: diff changeset	586	\|arg sol\|
2a35cb573365 intitial checkin ca parents: diff changeset	587
2a35cb573365 intitial checkin ca parents: diff changeset	588	sol := aStream position.
2a35cb573365 intitial checkin ca parents: diff changeset	589	aStream spaces:anIndent.
2a35cb573365 intitial checkin ca parents: diff changeset	590	aStream nextPutAll:'#('.
2a35cb573365 intitial checkin ca parents: diff changeset	591
2a35cb573365 intitial checkin ca parents: diff changeset	592	anArray first isSymbol ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	593	arg := anArray first.
2a35cb573365 intitial checkin ca parents: diff changeset	594	aStream nextPut:$#.
2a35cb573365 intitial checkin ca parents: diff changeset	595	aStream nextPutAll:anArray first.
2a35cb573365 intitial checkin ca parents: diff changeset	596	aStream cr.
2a35cb573365 intitial checkin ca parents: diff changeset	597	anArray size == 2 ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	598	self prettyPrintArray:(anArray last)
2a35cb573365 intitial checkin ca parents: diff changeset	599	on:aStream
2a35cb573365 intitial checkin ca parents: diff changeset	600	indent:(anIndent + 4).
2a35cb573365 intitial checkin ca parents: diff changeset	601	].
2a35cb573365 intitial checkin ca parents: diff changeset	602	aStream spaces:anIndent.
2a35cb573365 intitial checkin ca parents: diff changeset	603	aStream nextPut:$).
2a35cb573365 intitial checkin ca parents: diff changeset	604	^ self
2a35cb573365 intitial checkin ca parents: diff changeset	605	].
2a35cb573365 intitial checkin ca parents: diff changeset	606
2a35cb573365 intitial checkin ca parents: diff changeset	607	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	608	aStream nextPutAll:(anArray at:1).
2a35cb573365 intitial checkin ca parents: diff changeset	609	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	610	arg := anArray at:2 ifAbsent:nil.
2a35cb573365 intitial checkin ca parents: diff changeset	611
2a35cb573365 intitial checkin ca parents: diff changeset	612	arg isString ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	613	aStream spaces:((50 - (aStream position - sol)) max:4).
2a35cb573365 intitial checkin ca parents: diff changeset	614
2a35cb573365 intitial checkin ca parents: diff changeset	615	arg isSymbol ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	616	aStream nextPut:$#.
2a35cb573365 intitial checkin ca parents: diff changeset	617	].
2a35cb573365 intitial checkin ca parents: diff changeset	618	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	619	aStream nextPutAll:arg.
2a35cb573365 intitial checkin ca parents: diff changeset	620	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	621	arg := anArray at:3 ifAbsent:nil.
2a35cb573365 intitial checkin ca parents: diff changeset	622	].
2a35cb573365 intitial checkin ca parents: diff changeset	623	arg isArray ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	624	aStream nextPutAll:' #('.
2a35cb573365 intitial checkin ca parents: diff changeset	625	aStream cr.
2a35cb573365 intitial checkin ca parents: diff changeset	626	arg do:[:e\|self prettyPrintArray:e on:aStream indent:(anIndent + 4)].
2a35cb573365 intitial checkin ca parents: diff changeset	627	aStream spaces:anIndent.
2a35cb573365 intitial checkin ca parents: diff changeset	628	aStream nextPut:$).
2a35cb573365 intitial checkin ca parents: diff changeset	629	].
2a35cb573365 intitial checkin ca parents: diff changeset	630	aStream nextPut:$).
2a35cb573365 intitial checkin ca parents: diff changeset	631	aStream cr.
2a35cb573365 intitial checkin ca parents: diff changeset	632	! !
2a35cb573365 intitial checkin ca parents: diff changeset	633
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	634	!HierarchicalListEditor class methodsFor:'resources'!
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	635
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	636	createChildIcon
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	637	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	638	"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	639	ImageEditor openOnClass:self andSelector:#createChildIcon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	640	"
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	641
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	642	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	643
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	644	^Icon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	645	constantNamed:#'HierarchicalListEditor createChildIcon'
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	646	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A?????8@A<3L308@A33L33H@A30L33H@A33L33H@A<3L008@A?????8@C*****(@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8'); yourself); yourself]!
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	647
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	648	createSisterIcon
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	649	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	650	"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	651	ImageEditor openOnClass:self andSelector:#createSisterIcon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	652	"
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	653
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	654	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	655
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	656	^Icon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	657	constantNamed:#'HierarchicalListEditor createSisterIcon'
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	658	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@AUUUUP@@A????2@@A????2 @A????0@@A?????8@A?????8@A?????8@A<L<O?8@A3<3??8@A<<<<C8@A?L?O?8@A0<0??8@A?????8@A0LCC?8@A<<?L?8@A<<CC?8@A<<?L?8@A<<CL?8@A?????8@C*****(@@@@@@@@@'); colorMap:(((Array new:4) at:1 put:((Color black)); at:2 put:((Color white)); at:3 put:((Color grey:49.9962)); at:4 put:((Color grey:66.9978)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?>@_??@_?? _??0_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8_??8'); yourself); yourself]! !
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	659
300 2a35cb573365 intitial checkin ca parents: diff changeset	660	!HierarchicalListEditor methodsFor:'accessing'!
2a35cb573365 intitial checkin ca parents: diff changeset	661
2a35cb573365 intitial checkin ca parents: diff changeset	662	didInstall
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	663	"returns true if spec was installed by operator"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	664
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	665	^didInstall ? false
300 2a35cb573365 intitial checkin ca parents: diff changeset	666	!
2a35cb573365 intitial checkin ca parents: diff changeset	667
2a35cb573365 intitial checkin ca parents: diff changeset	668	selectorName
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	669	"returns current spec. selector"
300 2a35cb573365 intitial checkin ca parents: diff changeset	670
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	671	^specSelector
300 2a35cb573365 intitial checkin ca parents: diff changeset	672	! !
2a35cb573365 intitial checkin ca parents: diff changeset	673
2a35cb573365 intitial checkin ca parents: diff changeset	674	!HierarchicalListEditor methodsFor:'aspects'!
2a35cb573365 intitial checkin ca parents: diff changeset	675
2a35cb573365 intitial checkin ca parents: diff changeset	676	canCreateChildChannel
2a35cb573365 intitial checkin ca parents: diff changeset	677	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	678
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	679	^builder booleanValueAspectFor:#canCreateChildChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	680
2a35cb573365 intitial checkin ca parents: diff changeset	681	!
2a35cb573365 intitial checkin ca parents: diff changeset	682
2a35cb573365 intitial checkin ca parents: diff changeset	683	canCreateSisterChannel
2a35cb573365 intitial checkin ca parents: diff changeset	684	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	685
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	686	^builder booleanValueAspectFor:#canCreateSisterChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	687
2a35cb573365 intitial checkin ca parents: diff changeset	688	!
2a35cb573365 intitial checkin ca parents: diff changeset	689
2a35cb573365 intitial checkin ca parents: diff changeset	690	canStepInChannel
2a35cb573365 intitial checkin ca parents: diff changeset	691	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	692
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	693	^builder booleanValueAspectFor:#canStepInChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	694
2a35cb573365 intitial checkin ca parents: diff changeset	695	!
2a35cb573365 intitial checkin ca parents: diff changeset	696
2a35cb573365 intitial checkin ca parents: diff changeset	697	canStepOutChannel
2a35cb573365 intitial checkin ca parents: diff changeset	698	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	699
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	700	^builder booleanValueAspectFor:#canStepOutChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	701
2a35cb573365 intitial checkin ca parents: diff changeset	702	!
2a35cb573365 intitial checkin ca parents: diff changeset	703
2a35cb573365 intitial checkin ca parents: diff changeset	704	canStepOverChannel
2a35cb573365 intitial checkin ca parents: diff changeset	705	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	706
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	707	^builder booleanValueAspectFor:#canStepOverChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	708
2a35cb573365 intitial checkin ca parents: diff changeset	709	!
2a35cb573365 intitial checkin ca parents: diff changeset	710
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	711	hasValidClass
249e94fdeb94 looks for modified tz parents: 489 diff changeset	712	"automatically generated by UIPainter ..."
249e94fdeb94 looks for modified tz parents: 489 diff changeset	713
249e94fdeb94 looks for modified tz parents: 489 diff changeset	714	^builder booleanValueAspectFor:#hasValidClass
249e94fdeb94 looks for modified tz parents: 489 diff changeset	715
249e94fdeb94 looks for modified tz parents: 489 diff changeset	716	!
249e94fdeb94 looks for modified tz parents: 489 diff changeset	717
300 2a35cb573365 intitial checkin ca parents: diff changeset	718	itemName
2a35cb573365 intitial checkin ca parents: diff changeset	719	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	720
2a35cb573365 intitial checkin ca parents: diff changeset	721	\|holder\|
2a35cb573365 intitial checkin ca parents: diff changeset	722
2a35cb573365 intitial checkin ca parents: diff changeset	723	(holder := builder bindingAt:#itemName) isNil ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	724	builder aspectAt:#itemName put:(holder := ValueHolder new).
2a35cb573365 intitial checkin ca parents: diff changeset	725	holder addDependent:self.
2a35cb573365 intitial checkin ca parents: diff changeset	726	].
2a35cb573365 intitial checkin ca parents: diff changeset	727	^ holder
2a35cb573365 intitial checkin ca parents: diff changeset	728	!
2a35cb573365 intitial checkin ca parents: diff changeset	729
2a35cb573365 intitial checkin ca parents: diff changeset	730	itemValue
2a35cb573365 intitial checkin ca parents: diff changeset	731	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	732
2a35cb573365 intitial checkin ca parents: diff changeset	733	\|holder\|
2a35cb573365 intitial checkin ca parents: diff changeset	734
2a35cb573365 intitial checkin ca parents: diff changeset	735	(holder := builder bindingAt:#itemValue) isNil ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	736	builder aspectAt:#itemValue put:(holder := ValueHolder new).
2a35cb573365 intitial checkin ca parents: diff changeset	737	holder addDependent:self.
2a35cb573365 intitial checkin ca parents: diff changeset	738	].
2a35cb573365 intitial checkin ca parents: diff changeset	739	^ holder
2a35cb573365 intitial checkin ca parents: diff changeset	740	!
2a35cb573365 intitial checkin ca parents: diff changeset	741
2a35cb573365 intitial checkin ca parents: diff changeset	742	treeView
2a35cb573365 intitial checkin ca parents: diff changeset	743	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	744
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	745	^treeView
300 2a35cb573365 intitial checkin ca parents: diff changeset	746	! !
2a35cb573365 intitial checkin ca parents: diff changeset	747
2a35cb573365 intitial checkin ca parents: diff changeset	748	!HierarchicalListEditor methodsFor:'change & update'!
2a35cb573365 intitial checkin ca parents: diff changeset	749
2a35cb573365 intitial checkin ca parents: diff changeset	750	update:something with:aParameter from:someObject
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	751	"one of my models changed"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	752
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	753	self valueOfEnablingCommitButtons value: true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	754	! !
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	755
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	756	!HierarchicalListEditor methodsFor:'private'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	757
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	758	checkMenuItemModified
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	759	"check item modification"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	760
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	761	self valueOfEnablingCommitButtons value
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	762	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	763	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	764	((YesNoBox title:'Item was modified!!\Save it?\' withCRs)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	765	noText:'No';
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	766	yesText:'Yes';
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	767	showAtPointer;
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	768	accepted) ifFalse: [self valueOfEnablingCommitButtons value: false. ^true].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	769	self accept
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	770	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	771	^true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	772	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	773
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	774	checkModified
249e94fdeb94 looks for modified tz parents: 489 diff changeset	775	"check menu modification
249e94fdeb94 looks for modified tz parents: 489 diff changeset	776	"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	777	isModified
249e94fdeb94 looks for modified tz parents: 489 diff changeset	778	ifTrue:
249e94fdeb94 looks for modified tz parents: 489 diff changeset	779	[
249e94fdeb94 looks for modified tz parents: 489 diff changeset	780	((YesNoBox title:'Hierarchical list was modified!!')
249e94fdeb94 looks for modified tz parents: 489 diff changeset	781	noText:'Cancel';
249e94fdeb94 looks for modified tz parents: 489 diff changeset	782	yesText:'Waste it and proceed';
249e94fdeb94 looks for modified tz parents: 489 diff changeset	783	showAtPointer;
249e94fdeb94 looks for modified tz parents: 489 diff changeset	784	accepted) ifFalse: [^false].
249e94fdeb94 looks for modified tz parents: 489 diff changeset	785	isModified := false
249e94fdeb94 looks for modified tz parents: 489 diff changeset	786	].
249e94fdeb94 looks for modified tz parents: 489 diff changeset	787	^true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	788	!
249e94fdeb94 looks for modified tz parents: 489 diff changeset	789
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	790	newItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	791	"creates and returns a new default item"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	792
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	793	^TreeItem name: 'Item' contents: nil
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	794	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	795
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	796	updateChannels
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	797	"update channels"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	798
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	799	\|node parent chnStepIn chnStepOut chnStepOvr chnChild chnSister\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	800
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	801	chnStepIn := chnStepOut := chnStepOvr := chnChild := chnSister := false.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	802
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	803	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	804	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	805	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	806	(builder componentAt: #specView) beVisible.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	807	chnChild := true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	808	(parent := node parent) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	809	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	810	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	811	chnSister := true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	812	chnStepOvr := parent numberOfChildren > 1.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	813	chnStepOut := parent parent notNil.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	814	chnStepIn := node ~~ parent lastChild
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	815	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	816	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	817	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	818	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	819	(builder componentAt: #specView) beInvisible
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	820	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	821	self canCreateChildChannel value:chnChild.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	822	self canCreateSisterChannel value:chnSister.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	823	self canStepOverChannel value:chnStepOvr.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	824	self canStepOutChannel value:chnStepOut.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	825	self canStepInChannel value:chnStepIn.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	826
249e94fdeb94 looks for modified tz parents: 489 diff changeset	827
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	828	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	829
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	830	updateInputFields
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	831	"reload item value into input fields"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	832
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	833	\|node\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	834
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	835	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	836	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	837	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	838	self itemName value:node name.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	839	self itemValue value:node contents
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	840	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	841	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	842	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	843	self itemName value:''.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	844	self itemValue value:nil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	845	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	846	self valueOfEnablingCommitButtons value: false
300 2a35cb573365 intitial checkin ca parents: diff changeset	847	! !
2a35cb573365 intitial checkin ca parents: diff changeset	848
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	849	!HierarchicalListEditor methodsFor:'queries'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	850
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	851	canChangeClassName
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	852	"returns true if current class could be changed which is dependent on
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	853	the mode: standalone or started by UIPainter"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	854
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	855	^masterApplication isNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	856	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	857
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	858	canCopy
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	859	"returns true if any selection exists"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	860
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	861	^treeView selection notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	862	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	863
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	864	canCut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	865	"returns true if any selection exists and not includes
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	866	the anchor (first element into list)."
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	867
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	868	treeView selection notNil ifTrue:[^(treeView isInSelection:1) not].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	869	^false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	870	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	871
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	872	canPaste
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	873	"returns true if something to be paste exists and a
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	874	single selection exists"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	875
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	876	^CopyBuffer notNil and:[treeView selectedNode notNil]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	877	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	878
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	879	hasValidMethodSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	880	"returns true if the class and the instance selector defined
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	881	allready exists."
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	882
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	883	(specSelector notNil and:[self hasValidClass])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	884	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	885	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	886	^(specClass compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	887	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	888	^false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	889	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	890
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	891	hasValidSpecSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	892	"returns true if the class and the class selector defined
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	893	allready exists."
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	894
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	895	(specSelector notNil and:[self hasValidClass])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	896	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	897	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	898	^(specClass class compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	899	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	900	^false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	901	! !
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	902
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	903	!HierarchicalListEditor methodsFor:'startup / release'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	904
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	905	buildFrom:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	906	"rebuild window from a class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	907
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	908	\|sel anchor\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	909
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	910	specClass := self resolveName:aClass.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	911	specSelector := nil.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	912
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	913	aSelector size ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	914	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	915	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	916	sel := aSelector asString withoutSeparators.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	917	sel size ~~ 0 ifTrue:[specSelector := sel asSymbol]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	918	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	919	treeView selection:nil.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	920
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	921	(specSelector notNil and:[specClass notNil])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	922	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	923	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	924	(specClass respondsTo:specSelector)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	925	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	926	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	927	anchor := specClass perform:specSelector.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	928	anchor isArray ifTrue:[anchor := anchor decodeAsLiteralArray]
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	929	].
249e94fdeb94 looks for modified tz parents: 489 diff changeset	930	self hasValidClass value: true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	931	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	932	anchor notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	933	ifTrue: [anchor expand. treeView root:anchor]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	934	ifFalse:[self doNew]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	935	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	936
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	937	closeRequest
249e94fdeb94 looks for modified tz parents: 489 diff changeset	938	"close request"
249e94fdeb94 looks for modified tz parents: 489 diff changeset	939
249e94fdeb94 looks for modified tz parents: 489 diff changeset	940	(self checkMenuItemModified and: [self checkModified]) ifTrue: [super closeRequest]
249e94fdeb94 looks for modified tz parents: 489 diff changeset	941
249e94fdeb94 looks for modified tz parents: 489 diff changeset	942
249e94fdeb94 looks for modified tz parents: 489 diff changeset	943	!
249e94fdeb94 looks for modified tz parents: 489 diff changeset	944
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	945	initialize
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	946	"setup default values"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	947
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	948	super initialize.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	949
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	950	treeView := SelectionInTreeView new.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	951	treeView multipleSelectOk: true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	952	treeView showDirectoryIndicator: true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	953	treeView showDirectoryIndicatorForRoot: false.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	954	treeView action:[:aNr\| self updateChannels. self updateInputFields].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	955	treeView selectConditionBlock: [:i\|self checkMenuItemModified].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	956	treeView validateDoubleClickBlock: [:node\| node ~~ treeView model list first].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	957	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	958
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	959	openModalOnClass:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	960	"open modal on class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	961
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	962	specClass := Association key:aClass value:aSelector.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	963	super openInterfaceModal.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	964
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	965
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	966	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	967
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	968	openOnClass:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	969	"open on class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	970
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	971	specClass := Association key:aClass value:aSelector.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	972	super openInterface.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	973
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	974	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	975
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	976	postBuildWith:builder
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	977	"setup view"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	978
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	979	\|cls sel\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	980
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	981	specClass isAssociation ifTrue:[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	982	cls := specClass key.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	983	sel := specClass value.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	984	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	985	self buildFrom:cls andSelector:sel.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	986
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	987	isModified := false
249e94fdeb94 looks for modified tz parents: 489 diff changeset	988
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	989	! !
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	990
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	991	!HierarchicalListEditor methodsFor:'user actions'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	992
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	993	accept
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	994	"invoked by button 'OK'"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	995
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	996	\|node index\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	997
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	998	(index := treeView selectedIndex) ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	999	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1000	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1001	node := treeView nodeAtIndex:index.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1002	node name: self itemName value.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1003	node contents: self itemValue value.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1004	treeView redrawLine:index.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1005	].
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1006	isModified := true.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1007	self valueOfEnablingCommitButtons value: false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1008	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1009
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1010	cancel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1011	"invoked by button 'Cancel'"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1012
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1013	self updateInputFields.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1014
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1015	isModified := false.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1016	self valueOfEnablingCommitButtons value: false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1017	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1018
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1019	doBrowse:what
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1020	"open a system browser"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1021
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1022	\|cls sel\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1023
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1024	(cls := specClass) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1025	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1026	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1027	what == #class
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1028	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1029	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1030	(sel := specSelector) isNil ifTrue:[^self].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1031	what == #spec ifTrue:[cls := cls class]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1032	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1033	SystemBrowser openInClass:cls selector:sel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1034	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1035	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1036
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1037	doCopy
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1038	"copy current selected nodes into copy buffer"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1039
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1040	CopyBuffer := OrderedCollection new.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1041	treeView selectedNodesDo:[:aNode\| CopyBuffer add: aNode copy]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1042
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1043	!
300 2a35cb573365 intitial checkin ca parents: diff changeset	1044
2a35cb573365 intitial checkin ca parents: diff changeset	1045	doCreateChild
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1046	"create a child within selected parent"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1047
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1048	\|node newItem\|
300 2a35cb573365 intitial checkin ca parents: diff changeset	1049
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1050	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1051	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1052	[
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1053	treeView model add: (newItem := self newItem) afterIndex: node children size below:node.
5b5d08815af4 some revisions tz parents: 552 diff changeset	1054	newItem name: 'Child ', (self getDepthAndSistersNumberOfNode: newItem onParentNode: node).
300 2a35cb573365 intitial checkin ca parents: diff changeset	1055	treeView selectedNodeExpand:true.
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1056	treeView selectNode: newItem.
300 2a35cb573365 intitial checkin ca parents: diff changeset	1057	self updateChannels.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1058	isModified := true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1059	]
300 2a35cb573365 intitial checkin ca parents: diff changeset	1060	!
2a35cb573365 intitial checkin ca parents: diff changeset	1061
2a35cb573365 intitial checkin ca parents: diff changeset	1062	doCreateSister
2a35cb573365 intitial checkin ca parents: diff changeset	1063	"create a sister next to selected item
2a35cb573365 intitial checkin ca parents: diff changeset	1064	"
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1065	\|node newItem\|
300 2a35cb573365 intitial checkin ca parents: diff changeset	1066
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1067	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1068	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1069	[
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1070	newItem := self newItem.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1071	node parent notNil
562 f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1072	ifTrue: [treeView model add: newItem after:node]
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1073	ifFalse:[treeView model add: newItem beforeIndex:1 below:node].
562 f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1074
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1075	newItem name: 'Child ', (self getDepthAndSistersNumberOfNode: newItem onParentNode: node parent).
5b5d08815af4 some revisions tz parents: 552 diff changeset	1076	treeView selectNode: newItem.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1077	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1078	isModified := true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1079	]
300 2a35cb573365 intitial checkin ca parents: diff changeset	1080	!
2a35cb573365 intitial checkin ca parents: diff changeset	1081
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1082	doCut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1083	"cut current selected nodes"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1084
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1085	\|selection\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1086	treeView hasSelection
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1087	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1088	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1089	self doCopy.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1090	selection := treeView selection asSortedCollection.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1091	treeView selectedNodesRemove.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1092	treeView selection: selection first - 1.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1093	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1094	isModified := true
300 2a35cb573365 intitial checkin ca parents: diff changeset	1095	]
2a35cb573365 intitial checkin ca parents: diff changeset	1096	!
2a35cb573365 intitial checkin ca parents: diff changeset	1097
2a35cb573365 intitial checkin ca parents: diff changeset	1098	doDefineClass
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1099	"define class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1100
300 2a35cb573365 intitial checkin ca parents: diff changeset	1101	\|sel cls bindings accepted\|
2a35cb573365 intitial checkin ca parents: diff changeset	1102
2a35cb573365 intitial checkin ca parents: diff changeset	1103	accepted := true.
2a35cb573365 intitial checkin ca parents: diff changeset	1104	bindings := IdentityDictionary new.
2a35cb573365 intitial checkin ca parents: diff changeset	1105
2a35cb573365 intitial checkin ca parents: diff changeset	1106	specClass notNil ifTrue:[cls := specClass name asString]
2a35cb573365 intitial checkin ca parents: diff changeset	1107	ifFalse:[cls := ''].
2a35cb573365 intitial checkin ca parents: diff changeset	1108
2a35cb573365 intitial checkin ca parents: diff changeset	1109	specSelector notNil ifTrue:[sel := specSelector asString]
2a35cb573365 intitial checkin ca parents: diff changeset	1110	ifFalse:[sel := ''].
2a35cb573365 intitial checkin ca parents: diff changeset	1111
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1112	bindings at:#specSelectorChannel put: sel asValue.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1113	bindings at:#specClassChannel put: cls asValue.
300 2a35cb573365 intitial checkin ca parents: diff changeset	1114
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1115	[accepted]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1116	whileTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1117	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1118	(accepted := self openDialogInterface:#classAndMethodSpec withBindings:bindings)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1119	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1120	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1121	(cls := self resolveName:(bindings at:#specClassChannel) value) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1122	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1123	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1124	(sel := (bindings at:#specSelectorChannel) value withoutSeparators) size ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1125	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1126	[
300 2a35cb573365 intitial checkin ca parents: diff changeset	1127	specClass := cls.
2a35cb573365 intitial checkin ca parents: diff changeset	1128	specSelector := sel asSymbol.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1129	self hasValidClass value: true.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1130	isModified := true.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1131	^self
300 2a35cb573365 intitial checkin ca parents: diff changeset	1132	]
2a35cb573365 intitial checkin ca parents: diff changeset	1133	]
2a35cb573365 intitial checkin ca parents: diff changeset	1134	]
2a35cb573365 intitial checkin ca parents: diff changeset	1135	]
2a35cb573365 intitial checkin ca parents: diff changeset	1136
2a35cb573365 intitial checkin ca parents: diff changeset	1137	!
2a35cb573365 intitial checkin ca parents: diff changeset	1138
2a35cb573365 intitial checkin ca parents: diff changeset	1139	doInstall
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1140	"install code"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1141
300 2a35cb573365 intitial checkin ca parents: diff changeset	1142	\|code spec category mthd stream\|
2a35cb573365 intitial checkin ca parents: diff changeset	1143
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1144	(specClass notNil and:[specSelector notNil])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1145	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1146	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1147	^self information:'No valid class and method defined!!'
300 2a35cb573365 intitial checkin ca parents: diff changeset	1148	].
2a35cb573365 intitial checkin ca parents: diff changeset	1149
2a35cb573365 intitial checkin ca parents: diff changeset	1150	spec := (treeView nodeAtIndex:1) literalArrayEncoding.
2a35cb573365 intitial checkin ca parents: diff changeset	1151	stream := WriteStream on:String new.
2a35cb573365 intitial checkin ca parents: diff changeset	1152	self class prettyPrintArray:spec on:stream indent:4.
2a35cb573365 intitial checkin ca parents: diff changeset	1153	spec := stream contents.
2a35cb573365 intitial checkin ca parents: diff changeset	1154	category := 'interface specs'.
2a35cb573365 intitial checkin ca parents: diff changeset	1155	didInstall := true.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1156	isModified := false.
300 2a35cb573365 intitial checkin ca parents: diff changeset	1157
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1158	(mthd := specClass class compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1159	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1160	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1161	category := mthd category
300 2a35cb573365 intitial checkin ca parents: diff changeset	1162	].
2a35cb573365 intitial checkin ca parents: diff changeset	1163
2a35cb573365 intitial checkin ca parents: diff changeset	1164	code := Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1165	, specClass name , ' class methodsFor:' , category storeString
2a35cb573365 intitial checkin ca parents: diff changeset	1166	, Character excla asString , '\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1167
2a35cb573365 intitial checkin ca parents: diff changeset	1168	, specSelector , '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1169	, ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1170	, ' "do not manually edit this - the builder may not be able to\'
2a35cb573365 intitial checkin ca parents: diff changeset	1171	, ' handle the specification if its corrupted."\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1172	, ' "\'
2a35cb573365 intitial checkin ca parents: diff changeset	1173	, ' HierarchicalListEditor new openOnClass:' , specClass name , ' andSelector:#' , specSelector , '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1174	, ' "\'.
2a35cb573365 intitial checkin ca parents: diff changeset	1175
2a35cb573365 intitial checkin ca parents: diff changeset	1176	code := code
2a35cb573365 intitial checkin ca parents: diff changeset	1177	, '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1178	, ' <resource: #hierarchicalList>\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1179	, ' ^\'
2a35cb573365 intitial checkin ca parents: diff changeset	1180	, spec
2a35cb573365 intitial checkin ca parents: diff changeset	1181	, ' decodeAsLiteralArray\'
2a35cb573365 intitial checkin ca parents: diff changeset	1182	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1183	, ' '
2a35cb573365 intitial checkin ca parents: diff changeset	1184	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1185	, '\\'.
2a35cb573365 intitial checkin ca parents: diff changeset	1186
2a35cb573365 intitial checkin ca parents: diff changeset	1187	code := code withCRs.
2a35cb573365 intitial checkin ca parents: diff changeset	1188	(ReadStream on:code) fileIn.
2a35cb573365 intitial checkin ca parents: diff changeset	1189
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1190	(specClass compiledMethodAt:specSelector) isNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1191	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1192	[
300 2a35cb573365 intitial checkin ca parents: diff changeset	1193	category := 'aspects'.
2a35cb573365 intitial checkin ca parents: diff changeset	1194
2a35cb573365 intitial checkin ca parents: diff changeset	1195	code := Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1196	, specClass name , ' methodsFor:' , category storeString
2a35cb573365 intitial checkin ca parents: diff changeset	1197	, Character excla asString , '\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1198
2a35cb573365 intitial checkin ca parents: diff changeset	1199	, specSelector , '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1200	, ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
306 e5e33576c3ad change install routine; ca parents: 300 diff changeset	1201	, ' ^ self class ', specSelector
300 2a35cb573365 intitial checkin ca parents: diff changeset	1202	, '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1203	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1204	, ' '
2a35cb573365 intitial checkin ca parents: diff changeset	1205	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1206	, '\\'.
2a35cb573365 intitial checkin ca parents: diff changeset	1207
2a35cb573365 intitial checkin ca parents: diff changeset	1208	code := code withCRs.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1209	(ReadStream on:code) fileIn
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1210	]
300 2a35cb573365 intitial checkin ca parents: diff changeset	1211
2a35cb573365 intitial checkin ca parents: diff changeset	1212
2a35cb573365 intitial checkin ca parents: diff changeset	1213	!
2a35cb573365 intitial checkin ca parents: diff changeset	1214
2a35cb573365 intitial checkin ca parents: diff changeset	1215	doNew
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1216	"remove all items; restart"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1217
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1218	treeView root:(TreeItem name:'Root' contents:#anchor).
5b5d08815af4 some revisions tz parents: 552 diff changeset	1219	treeView selection:1.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1220	isModified := true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1221
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1222
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1223
300 2a35cb573365 intitial checkin ca parents: diff changeset	1224
2a35cb573365 intitial checkin ca parents: diff changeset	1225	!
2a35cb573365 intitial checkin ca parents: diff changeset	1226
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1227	doPaste
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1228	"paste after current selected item"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1229
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1230	treeView selectedNodeAdd:CopyBuffer.
559 33365ca6eb1d select items after pasting tz parents: 558 diff changeset	1231	CopyBuffer isCollection ifFalse: [treeView selectNode: CopyBuffer] ifTrue: [treeView selection: (CopyBuffer collect: [:node\| treeView indexOfNode: node])].
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1232	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1233	isModified := true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1234
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1235	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1236
300 2a35cb573365 intitial checkin ca parents: diff changeset	1237	doReload
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1238	"reload spec from current class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1239
300 2a35cb573365 intitial checkin ca parents: diff changeset	1240	self buildFrom:specClass andSelector:specSelector
2a35cb573365 intitial checkin ca parents: diff changeset	1241
2a35cb573365 intitial checkin ca parents: diff changeset	1242	!
2a35cb573365 intitial checkin ca parents: diff changeset	1243
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1244	doStepDown
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1245	"move selected item after next item"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1246
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1247	treeView selectedNodeChangeSequenceOrder:1.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1248	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1249	isModified := true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1250
300 2a35cb573365 intitial checkin ca parents: diff changeset	1251	!
2a35cb573365 intitial checkin ca parents: diff changeset	1252
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1253	doStepIn
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1254	"lets become the selected item a child of its next sister"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1255
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1256	treeView selectedNodeBecomeChildOfNext.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1257	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1258	isModified := true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1259
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1260
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1261
300 2a35cb573365 intitial checkin ca parents: diff changeset	1262	!
2a35cb573365 intitial checkin ca parents: diff changeset	1263
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1264	doStepOut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1265	"let selected node become a sister of its current parent"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1266
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1267	treeView selectedNodeBecomeSisterOfParent.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1268	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1269	isModified := true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1270
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1271
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1272
300 2a35cb573365 intitial checkin ca parents: diff changeset	1273	!
2a35cb573365 intitial checkin ca parents: diff changeset	1274
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1275	doStepUp
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1276	"move selected item before previous item"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1277
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1278	treeView selectedNodeChangeSequenceOrder:-1.
506 249e94fdeb94 looks for modified tz parents: 489 diff changeset	1279	self updateChannels.
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1280	isModified := true
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1281
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1282
249e94fdeb94 looks for modified tz parents: 489 diff changeset	1283
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1284	!
5b5d08815af4 some revisions tz parents: 552 diff changeset	1285
5b5d08815af4 some revisions tz parents: 552 diff changeset	1286	getDepthAndSistersNumberOfNode: aNode onParentNode: aParentNode
5b5d08815af4 some revisions tz parents: 552 diff changeset	1287	"return depth of selected node"
5b5d08815af4 some revisions tz parents: 552 diff changeset	1288
562 f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1289	\|parent childNode depthAndSistersNumbers str\|
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1290
562 f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1291	depthAndSistersNumbers := OrderedCollection new.
558 5b5d08815af4 some revisions tz parents: 552 diff changeset	1292	childNode := aNode.
5b5d08815af4 some revisions tz parents: 552 diff changeset	1293	parent := aParentNode.
562 f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1294	[parent notNil]
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1295	whileTrue:
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1296	[
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1297	depthAndSistersNumbers add: (parent children indexOf: childNode).
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1298	childNode := parent.
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1299	parent := parent parent.
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1300	].
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1301	depthAndSistersNumbers removeFirst; addFirst: aParentNode children size.
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1302	str := ''.
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1303	depthAndSistersNumbers reverseDo: [:n\| str := str, n printString, '.'].
f16b2ca2be5b numeration error fixed tz parents: 559 diff changeset	1304	^str copyFrom: 1 to: str size - 1
300 2a35cb573365 intitial checkin ca parents: diff changeset	1305	! !
2a35cb573365 intitial checkin ca parents: diff changeset	1306
2a35cb573365 intitial checkin ca parents: diff changeset	1307	!HierarchicalListEditor class methodsFor:'documentation'!
2a35cb573365 intitial checkin ca parents: diff changeset	1308
2a35cb573365 intitial checkin ca parents: diff changeset	1309	version
2a35cb573365 intitial checkin ca parents: diff changeset	1310	^ '$Header$'
2a35cb573365 intitial checkin ca parents: diff changeset	1311	! !

author	tz
	Tue, 03 Feb 1998 23:41:20 +0100
changeset 575	7c5fcbde34b8
parent 566	58b18ffe959c
child 581	399646a86258
permissions	-rw-r--r--