hg/stx-libtool2: HierarchicalListEditor.st@f356a6636eef (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:]
2a35cb573365 intitial checkin ca parents: diff changeset	54	Claus Atzkern
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
2a35cb573365 intitial checkin ca parents: diff changeset	61	!HierarchicalListEditor class methodsFor:'interface specs'!
2a35cb573365 intitial checkin ca parents: diff changeset	62
2a35cb573365 intitial checkin ca parents: diff changeset	63	classAndMethodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	64	"this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin ca parents: diff changeset	65
2a35cb573365 intitial checkin ca parents: diff changeset	66	"do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	67	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	68
2a35cb573365 intitial checkin ca parents: diff changeset	69	"
2a35cb573365 intitial checkin ca parents: diff changeset	70	UIPainter new openOnClass:HierarchicalListEditor andSelector:#classAndMethodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	71	HierarchicalListEditor new openInterface:#classAndMethodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	72	"
2a35cb573365 intitial checkin ca parents: diff changeset	73
2a35cb573365 intitial checkin ca parents: diff changeset	74	<resource: #canvas>
2a35cb573365 intitial checkin ca parents: diff changeset	75
2a35cb573365 intitial checkin ca parents: diff changeset	76	^
2a35cb573365 intitial checkin ca parents: diff changeset	77
2a35cb573365 intitial checkin ca parents: diff changeset	78	#(#FullSpec
2a35cb573365 intitial checkin ca parents: diff changeset	79	#'window:'
2a35cb573365 intitial checkin ca parents: diff changeset	80	#(#WindowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	81	#'name:' 'Painter'
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	82	#'layout:' #(#LayoutFrame 233 0 430 0 533 0 558 0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	83	#'label:' 'Painter'
2a35cb573365 intitial checkin ca parents: diff changeset	84	#'min:' #(#Point 10 10)
2a35cb573365 intitial checkin ca parents: diff changeset	85	#'max:' #(#Point 1160 870)
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	86	#'bounds:' #(#Rectangle 233 430 534 559)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	87	#'usePreferredExtent:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	88	)
2a35cb573365 intitial checkin ca parents: diff changeset	89	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	90	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	91	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	92	#(
2a35cb573365 intitial checkin ca parents: diff changeset	93	#(#LabelSpec
2a35cb573365 intitial checkin ca parents: diff changeset	94	#'name:' 'boxLabel'
2a35cb573365 intitial checkin ca parents: diff changeset	95	#'layout:' #(#Point 5 10)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	96	#'label:' 'Class and selector for code:'
300 2a35cb573365 intitial checkin ca parents: diff changeset	97	#'adjust:' #left
2a35cb573365 intitial checkin ca parents: diff changeset	98	#'resizeForLabel:' true
2a35cb573365 intitial checkin ca parents: diff changeset	99	)
2a35cb573365 intitial checkin ca parents: diff changeset	100	#(#LabelSpec
2a35cb573365 intitial checkin ca parents: diff changeset	101	#'name:' 'classLabel'
2a35cb573365 intitial checkin ca parents: diff changeset	102	#'layout:' #(#AlignmentOrigin 45 0.11 51 0 1 0.5)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	103	#'label:' 'Class:'
300 2a35cb573365 intitial checkin ca parents: diff changeset	104	#'adjust:' #right
2a35cb573365 intitial checkin ca parents: diff changeset	105	#'resizeForLabel:' true
2a35cb573365 intitial checkin ca parents: diff changeset	106	)
2a35cb573365 intitial checkin ca parents: diff changeset	107	#(#InputFieldSpec
2a35cb573365 intitial checkin ca parents: diff changeset	108	#'name:' 'classField'
2a35cb573365 intitial checkin ca parents: diff changeset	109	#'layout:' #(#LayoutFrame 47 0.11 39 0 -2 1.0 61 0)
2a35cb573365 intitial checkin ca parents: diff changeset	110	#'tabable:' true
2a35cb573365 intitial checkin ca parents: diff changeset	111	#'model:' #specClassChannel
2a35cb573365 intitial checkin ca parents: diff changeset	112	)
2a35cb573365 intitial checkin ca parents: diff changeset	113	#(#LabelSpec
2a35cb573365 intitial checkin ca parents: diff changeset	114	#'name:' 'methodLabel'
2a35cb573365 intitial checkin ca parents: diff changeset	115	#'layout:' #(#AlignmentOrigin 45 0.11 74 0 1 0.5)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	116	#'label:' 'Selector:'
300 2a35cb573365 intitial checkin ca parents: diff changeset	117	#'adjust:' #right
2a35cb573365 intitial checkin ca parents: diff changeset	118	#'resizeForLabel:' true
2a35cb573365 intitial checkin ca parents: diff changeset	119	)
2a35cb573365 intitial checkin ca parents: diff changeset	120	#(#InputFieldSpec
2a35cb573365 intitial checkin ca parents: diff changeset	121	#'name:' 'methodField'
2a35cb573365 intitial checkin ca parents: diff changeset	122	#'layout:' #(#LayoutFrame 47 0.11 64 0 -2 1.0 86 0)
2a35cb573365 intitial checkin ca parents: diff changeset	123	#'tabable:' true
2a35cb573365 intitial checkin ca parents: diff changeset	124	#'model:' #specSelectorChannel
2a35cb573365 intitial checkin ca parents: diff changeset	125	#'type:' #string
2a35cb573365 intitial checkin ca parents: diff changeset	126	)
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	127	#(#UISubSpecification
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	128	#'name:' 'SubSpecification'
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	129	#'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	130	#'majorKey:' #ToolApplicationModel
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	131	#'minorKey:' #windowSpecForCommitWithoutChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	132	)
2a35cb573365 intitial checkin ca parents: diff changeset	133	)
2a35cb573365 intitial checkin ca parents: diff changeset	134	)
2a35cb573365 intitial checkin ca parents: diff changeset	135	)
2a35cb573365 intitial checkin ca parents: diff changeset	136	!
2a35cb573365 intitial checkin ca parents: diff changeset	137
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	138	menu
300 2a35cb573365 intitial checkin ca parents: diff changeset	139	"this window spec was automatically generated by the ST/X MenuEditor"
2a35cb573365 intitial checkin ca parents: diff changeset	140
2a35cb573365 intitial checkin ca parents: diff changeset	141	"do not manually edit this - the builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	142	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	143
2a35cb573365 intitial checkin ca parents: diff changeset	144	"
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	145	MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menu
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	146	(Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menu)) startUp
300 2a35cb573365 intitial checkin ca parents: diff changeset	147	"
2a35cb573365 intitial checkin ca parents: diff changeset	148
2a35cb573365 intitial checkin ca parents: diff changeset	149	<resource: #menu>
2a35cb573365 intitial checkin ca parents: diff changeset	150
2a35cb573365 intitial checkin ca parents: diff changeset	151	^
2a35cb573365 intitial checkin ca parents: diff changeset	152
2a35cb573365 intitial checkin ca parents: diff changeset	153	#(#Menu
2a35cb573365 intitial checkin ca parents: diff changeset	154
2a35cb573365 intitial checkin ca parents: diff changeset	155	#(
2a35cb573365 intitial checkin ca parents: diff changeset	156	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	157	#'label:' 'About'
443 92f5e393873a take icon from superclass tz parents: 433 diff changeset	158	#'labelImage:' #(#ResourceRetriever nil #icon)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	159	#'submenuChannel:' #menuAbout
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	160	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	161	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	162	#'label:' 'File'
300 2a35cb573365 intitial checkin ca parents: diff changeset	163	#'submenu:'
2a35cb573365 intitial checkin ca parents: diff changeset	164	#(#Menu
2a35cb573365 intitial checkin ca parents: diff changeset	165
2a35cb573365 intitial checkin ca parents: diff changeset	166	#(
2a35cb573365 intitial checkin ca parents: diff changeset	167	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	168	#'label:' 'New'
300 2a35cb573365 intitial checkin ca parents: diff changeset	169	#'value:' #doNew
2a35cb573365 intitial checkin ca parents: diff changeset	170	)
2a35cb573365 intitial checkin ca parents: diff changeset	171	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	172	#'label:' 'Reload'
300 2a35cb573365 intitial checkin ca parents: diff changeset	173	#'value:' #doReload
2a35cb573365 intitial checkin ca parents: diff changeset	174	)
2a35cb573365 intitial checkin ca parents: diff changeset	175	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	176	#'label:' '-'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	177	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	178	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	179	#'label:' 'Save'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	180	#'value:' #doInstall
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	181	#'enabled:' #hasValidClass
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	182	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	183	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	184	#'label:' '-'
300 2a35cb573365 intitial checkin ca parents: diff changeset	185	)
2a35cb573365 intitial checkin ca parents: diff changeset	186	#(#MenuItem
433 18af3da84277 some label corrections tz parents: 430 diff changeset	187	#'label:' 'Define Selector...'
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	188	#'value:' #doDefineSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	189	#'enabled:' #hasValidClass
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	190	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	191	#(#MenuItem
433 18af3da84277 some label corrections tz parents: 430 diff changeset	192	#'label:' 'Define Class...'
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	193	#'value:' #doDefineClass
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	194	#'enabled:' #canChangeClassName
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	195	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	196	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	197	#'label:' '-'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	198	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	199	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	200	#'label:' 'Exit'
300 2a35cb573365 intitial checkin ca parents: diff changeset	201	#'value:' #closeRequest
2a35cb573365 intitial checkin ca parents: diff changeset	202	)
2a35cb573365 intitial checkin ca parents: diff changeset	203	) nil
2a35cb573365 intitial checkin ca parents: diff changeset	204	nil
2a35cb573365 intitial checkin ca parents: diff changeset	205	)
2a35cb573365 intitial checkin ca parents: diff changeset	206	)
2a35cb573365 intitial checkin ca parents: diff changeset	207	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	208	#'label:' 'Edit'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	209	#'submenuChannel:' #menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	210	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	211	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	212	#'label:' 'Browse'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	213	#'enabled:' #hasValidClass
300 2a35cb573365 intitial checkin ca parents: diff changeset	214	#'submenu:'
2a35cb573365 intitial checkin ca parents: diff changeset	215	#(#Menu
2a35cb573365 intitial checkin ca parents: diff changeset	216
2a35cb573365 intitial checkin ca parents: diff changeset	217	#(
2a35cb573365 intitial checkin ca parents: diff changeset	218	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	219	#'label:' 'Class'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	220	#'value:' #'doBrowse:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	221	#'argument:' #class
300 2a35cb573365 intitial checkin ca parents: diff changeset	222	)
2a35cb573365 intitial checkin ca parents: diff changeset	223	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	224	#'label:' 'Method'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	225	#'value:' #'doBrowse:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	226	#'enabled:' #hasValidMethodSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	227	#'argument:' #method
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	228	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	229	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	230	#'label:' 'Specification'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	231	#'value:' #'doBrowse:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	232	#'enabled:' #hasValidSpecSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	233	#'argument:' #spec
300 2a35cb573365 intitial checkin ca parents: diff changeset	234	)
2a35cb573365 intitial checkin ca parents: diff changeset	235	) nil
2a35cb573365 intitial checkin ca parents: diff changeset	236	nil
2a35cb573365 intitial checkin ca parents: diff changeset	237	)
2a35cb573365 intitial checkin ca parents: diff changeset	238	)
2a35cb573365 intitial checkin ca parents: diff changeset	239	) nil
2a35cb573365 intitial checkin ca parents: diff changeset	240	nil
2a35cb573365 intitial checkin ca parents: diff changeset	241	)
2a35cb573365 intitial checkin ca parents: diff changeset	242	!
2a35cb573365 intitial checkin ca parents: diff changeset	243
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	244	menuEdit
300 2a35cb573365 intitial checkin ca parents: diff changeset	245	"this window spec was automatically generated by the ST/X MenuEditor"
2a35cb573365 intitial checkin ca parents: diff changeset	246
2a35cb573365 intitial checkin ca parents: diff changeset	247	"do not manually edit this - the builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	248	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	249
2a35cb573365 intitial checkin ca parents: diff changeset	250	"
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	251	MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	252	(Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuEdit)) startUp
300 2a35cb573365 intitial checkin ca parents: diff changeset	253	"
2a35cb573365 intitial checkin ca parents: diff changeset	254
2a35cb573365 intitial checkin ca parents: diff changeset	255	<resource: #menu>
2a35cb573365 intitial checkin ca parents: diff changeset	256
2a35cb573365 intitial checkin ca parents: diff changeset	257	^
2a35cb573365 intitial checkin ca parents: diff changeset	258
2a35cb573365 intitial checkin ca parents: diff changeset	259	#(#Menu
2a35cb573365 intitial checkin ca parents: diff changeset	260
2a35cb573365 intitial checkin ca parents: diff changeset	261	#(
2a35cb573365 intitial checkin ca parents: diff changeset	262	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	263	#'label:' 'Cut'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	264	#'value:' #doCut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	265	#'enabled:' #canCut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	266	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	267	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	268	#'label:' 'Copy'
300 2a35cb573365 intitial checkin ca parents: diff changeset	269	#'value:' #doCopy
2a35cb573365 intitial checkin ca parents: diff changeset	270	#'enabled:' #canCopy
2a35cb573365 intitial checkin ca parents: diff changeset	271	)
2a35cb573365 intitial checkin ca parents: diff changeset	272	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	273	#'label:' 'Paste'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	274	#'value:' #doPaste
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	275	#'enabled:' #canPaste
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	276	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	277	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	278	#'label:' '-'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	279	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	280	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	281	#'label:' 'Create Child'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	282	#'value:' #doCreateChild
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	283	#'enabled:' #canCreateChildChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	284	#'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #iconCreateChild)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	285	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	286	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	287	#'label:' 'Create Sister'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	288	#'value:' #doCreateSister
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	289	#'enabled:' #canCreateSisterChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	290	#'labelImage:' #(#ResourceRetriever #HierarchicalListEditor #iconCreateSister)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	291	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	292	) nil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	293	nil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	294	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	295	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	296
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	297	menuToolbar
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	298	"this window spec was automatically generated by the ST/X MenuEditor"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	299
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	300	"do not manually edit this - the builder may not be able to
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	301	handle the specification if its corrupted."
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	302
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	303	"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	304	MenuEditor new openOnClass:HierarchicalListEditor andSelector:#menuToolbar
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	305	(Menu new fromLiteralArrayEncoding:(HierarchicalListEditor menuToolbar)) startUp
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	306	"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	307
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	308	<resource: #menu>
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	309
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	310	^
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	311
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	312	#(#Menu
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	313
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	314	#(
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	315	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	316	#'label:' 'New'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	317	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	318	#'value:' #doNew
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	319	#'enabled:' #canCreateChildChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	320	#'labelImage:' #(#ResourceRetriever nil #newIcon)
300 2a35cb573365 intitial checkin ca parents: diff changeset	321	)
2a35cb573365 intitial checkin ca parents: diff changeset	322	#(#MenuItem
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	323	#'label:' 'Save'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	324	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	325	#'value:' #doInstall
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	326	#'enabled:' #canCreateChildChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	327	#'labelImage:' #(#ResourceRetriever nil #saveIcon)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	328	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	329	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	330	#'label:' ''
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	331	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	332	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	333	#'label:' 'Create Child'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	334	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	335	#'value:' #doCreateChild
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	336	#'enabled:' #canCreateChildChannel
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	337	#'labelImage:' #(#ResourceRetriever nil #createChildIcon)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	338	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	339	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	340	#'label:' 'Create Sister'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	341	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	342	#'value:' #doCreateSister
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	343	#'enabled:' #canCreateSisterChannel
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	344	#'labelImage:' #(#ResourceRetriever nil #createSisterIcon)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	345	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	346	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	347	#'label:' ''
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	348	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	349	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	350	#'label:' 'Step Up'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	351	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	352	#'value:' #doStepUp
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	353	#'enabled:' #canStepOverChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	354	#'labelImage:' #(#ResourceRetriever nil #upIcon)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	355	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	356	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	357	#'label:' 'Step Down'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	358	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	359	#'value:' #doStepDown
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	360	#'enabled:' #canStepOverChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	361	#'labelImage:' #(#ResourceRetriever nil #downIcon)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	362	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	363	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	364	#'label:' 'Step In'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	365	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	366	#'value:' #doStepIn
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	367	#'enabled:' #canStepInChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	368	#'labelImage:' #(#ResourceRetriever nil #downRightIcon)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	369	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	370	#(#MenuItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	371	#'label:' 'Step Out'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	372	#'isButton:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	373	#'value:' #doStepOut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	374	#'enabled:' #canStepOutChannel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	375	#'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
300 2a35cb573365 intitial checkin ca parents: diff changeset	376	)
2a35cb573365 intitial checkin ca parents: diff changeset	377	) nil
2a35cb573365 intitial checkin ca parents: diff changeset	378	nil
2a35cb573365 intitial checkin ca parents: diff changeset	379	)
2a35cb573365 intitial checkin ca parents: diff changeset	380	!
2a35cb573365 intitial checkin ca parents: diff changeset	381
2a35cb573365 intitial checkin ca parents: diff changeset	382	methodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	383	"this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin ca parents: diff changeset	384
2a35cb573365 intitial checkin ca parents: diff changeset	385	"do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	386	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	387
2a35cb573365 intitial checkin ca parents: diff changeset	388	"
2a35cb573365 intitial checkin ca parents: diff changeset	389	UIPainter new openOnClass:HierarchicalListEditor andSelector:#methodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	390	HierarchicalListEditor new openInterface:#methodSpec
2a35cb573365 intitial checkin ca parents: diff changeset	391	"
2a35cb573365 intitial checkin ca parents: diff changeset	392
2a35cb573365 intitial checkin ca parents: diff changeset	393	<resource: #canvas>
2a35cb573365 intitial checkin ca parents: diff changeset	394
2a35cb573365 intitial checkin ca parents: diff changeset	395	^
2a35cb573365 intitial checkin ca parents: diff changeset	396
2a35cb573365 intitial checkin ca parents: diff changeset	397	#(#FullSpec
2a35cb573365 intitial checkin ca parents: diff changeset	398	#'window:'
2a35cb573365 intitial checkin ca parents: diff changeset	399	#(#WindowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	400	#'name:' 'Painter'
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	401	#'layout:' #(#LayoutFrame 151 0 377 0 431 0 455 0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	402	#'label:' 'Painter'
2a35cb573365 intitial checkin ca parents: diff changeset	403	#'min:' #(#Point 10 10)
2a35cb573365 intitial checkin ca parents: diff changeset	404	#'max:' #(#Point 1160 870)
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	405	#'bounds:' #(#Rectangle 151 377 432 456)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	406	#'usePreferredExtent:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	407	)
2a35cb573365 intitial checkin ca parents: diff changeset	408	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	409	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	410	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	411	#(
2a35cb573365 intitial checkin ca parents: diff changeset	412	#(#LabelSpec
2a35cb573365 intitial checkin ca parents: diff changeset	413	#'name:' 'boxLabel'
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	414	#'layout:' #(#LayoutFrame 0 0.0 3 0 0 1.0 20 0)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	415	#'label:' 'Selector for code:'
300 2a35cb573365 intitial checkin ca parents: diff changeset	416	#'adjust:' #left
2a35cb573365 intitial checkin ca parents: diff changeset	417	#'resizeForLabel:' true
2a35cb573365 intitial checkin ca parents: diff changeset	418	)
2a35cb573365 intitial checkin ca parents: diff changeset	419	#(#InputFieldSpec
2a35cb573365 intitial checkin ca parents: diff changeset	420	#'name:' 'methodField'
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	421	#'layout:' #(#LayoutFrame 0 0.0 22 0 0 1.0 44 0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	422	#'tabable:' true
2a35cb573365 intitial checkin ca parents: diff changeset	423	#'model:' #specSelectorChannel
2a35cb573365 intitial checkin ca parents: diff changeset	424	#'type:' #string
2a35cb573365 intitial checkin ca parents: diff changeset	425	)
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	426	#(#UISubSpecification
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	427	#'name:' 'SubSpecification'
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	428	#'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	429	#'majorKey:' #ToolApplicationModel
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	430	#'minorKey:' #windowSpecForCommitWithoutChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	431	)
2a35cb573365 intitial checkin ca parents: diff changeset	432	)
2a35cb573365 intitial checkin ca parents: diff changeset	433	)
2a35cb573365 intitial checkin ca parents: diff changeset	434	)
2a35cb573365 intitial checkin ca parents: diff changeset	435	!
2a35cb573365 intitial checkin ca parents: diff changeset	436
2a35cb573365 intitial checkin ca parents: diff changeset	437	windowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	438	"this window spec was automatically generated by the ST/X UIPainter"
2a35cb573365 intitial checkin ca parents: diff changeset	439
2a35cb573365 intitial checkin ca parents: diff changeset	440	"do not manually edit this - the painter/builder may not be able to
2a35cb573365 intitial checkin ca parents: diff changeset	441	handle the specification if its corrupted."
2a35cb573365 intitial checkin ca parents: diff changeset	442
2a35cb573365 intitial checkin ca parents: diff changeset	443	"
2a35cb573365 intitial checkin ca parents: diff changeset	444	UIPainter new openOnClass:HierarchicalListEditor andSelector:#windowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	445	HierarchicalListEditor new openInterface:#windowSpec
2a35cb573365 intitial checkin ca parents: diff changeset	446	"
2a35cb573365 intitial checkin ca parents: diff changeset	447	"HierarchicalListEditor open"
2a35cb573365 intitial checkin ca parents: diff changeset	448
2a35cb573365 intitial checkin ca parents: diff changeset	449	<resource: #canvas>
2a35cb573365 intitial checkin ca parents: diff changeset	450
2a35cb573365 intitial checkin ca parents: diff changeset	451	^
2a35cb573365 intitial checkin ca parents: diff changeset	452
2a35cb573365 intitial checkin ca parents: diff changeset	453	#(#FullSpec
2a35cb573365 intitial checkin ca parents: diff changeset	454	#'window:'
2a35cb573365 intitial checkin ca parents: diff changeset	455	#(#WindowSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	456	#'name:' 'Hierarchical List Editor'
484 ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	457	#'layout:' #(#LayoutFrame 148 0 380 0 622 0 692 0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	458	#'label:' 'Hierarchical List Editor'
2a35cb573365 intitial checkin ca parents: diff changeset	459	#'min:' #(#Point 10 10)
2a35cb573365 intitial checkin ca parents: diff changeset	460	#'max:' #(#Point 1160 870)
484 ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	461	#'bounds:' #(#Rectangle 148 380 623 693)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	462	#'menu:' #menu
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	463	#'usePreferredExtent:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	464	)
2a35cb573365 intitial checkin ca parents: diff changeset	465	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	466	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	467	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	468	#(
2a35cb573365 intitial checkin ca parents: diff changeset	469	#(#MenuPanelSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	470	#'name:' 'menuToolbarView'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	471	#'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	472	#'menu:' #menuToolbar
300 2a35cb573365 intitial checkin ca parents: diff changeset	473	)
2a35cb573365 intitial checkin ca parents: diff changeset	474	#(#VariableHorizontalPanelSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	475	#'name:' 'variableHorizontalPanel'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	476	#'layout:' #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -22 1.0)
300 2a35cb573365 intitial checkin ca parents: diff changeset	477	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	478	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	479	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	480	#(
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	481	#(#ArbitraryComponentSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	482	#'name:' 'treeView'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	483	#'menu:' #menuEdit
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	484	#'hasHorizontalScrollBar:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	485	#'hasVerticalScrollBar:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	486	#'miniScrollerHorizontal:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	487	#'miniScrollerVertical:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	488	#'component:' #treeView
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	489	#'hasBorder:' false
300 2a35cb573365 intitial checkin ca parents: diff changeset	490	)
2a35cb573365 intitial checkin ca parents: diff changeset	491	#(#ViewSpec
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	492	#'name:' 'specView'
300 2a35cb573365 intitial checkin ca parents: diff changeset	493	#'component:'
2a35cb573365 intitial checkin ca parents: diff changeset	494	#(#SpecCollection
2a35cb573365 intitial checkin ca parents: diff changeset	495	#'collection:'
2a35cb573365 intitial checkin ca parents: diff changeset	496	#(
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	497	#(#LabelSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	498	#'name:' 'nameLabel'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	499	#'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	500	#'label:' 'Name:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	501	#'resizeForLabel:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	502	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	503	#(#InputFieldSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	504	#'name:' 'nameInputField'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	505	#'layout:' #(#LayoutFrame 110 0 15 0 -5 1.0 37 0)
469 28bcb1982ef9 tabs added tz parents: 443 diff changeset	506	#'tabable:' true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	507	#'model:' #itemName
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	508	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	509	#(#LabelSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	510	#'name:' 'valueLabel'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	511	#'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	512	#'label:' 'Value:'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	513	#'resizeForLabel:' true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	514	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	515	#(#InputFieldSpec
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	516	#'name:' 'valueInputField'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	517	#'layout:' #(#LayoutFrame 110 0 41 0 -5 1.0 63 0)
469 28bcb1982ef9 tabs added tz parents: 443 diff changeset	518	#'tabable:' true
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	519	#'model:' #itemValue
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	520	#'type:' #symbolOrNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	521	)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	522	#(#UISubSpecification
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	523	#'name:' 'SubSpecification'
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	524	#'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	525	#'majorKey:' #ToolApplicationModel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	526	#'minorKey:' #windowSpecForCommit
300 2a35cb573365 intitial checkin ca parents: diff changeset	527	)
2a35cb573365 intitial checkin ca parents: diff changeset	528	)
2a35cb573365 intitial checkin ca parents: diff changeset	529	)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	530	#'level:' -1
300 2a35cb573365 intitial checkin ca parents: diff changeset	531	)
2a35cb573365 intitial checkin ca parents: diff changeset	532	)
2a35cb573365 intitial checkin ca parents: diff changeset	533	)
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	534	#'handles:' #(#Any 0.368421 1.0)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	535	)
484 ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	536	#(#UISubSpecification
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	537	#'name:' 'infoBarSubSpec'
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	538	#'layout:' #(#LayoutFrame 0 0.0 -22 1 0 1.0 0 1.0)
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	539	#'majorKey:' #ToolApplicationModel
ab3d54531432 info bar as subSpec to class ToolApplicationModel moved tz parents: 469 diff changeset	540	#'minorKey:' #windowSpecForInfoBar
300 2a35cb573365 intitial checkin ca parents: diff changeset	541	)
2a35cb573365 intitial checkin ca parents: diff changeset	542	)
2a35cb573365 intitial checkin ca parents: diff changeset	543	)
2a35cb573365 intitial checkin ca parents: diff changeset	544	)
2a35cb573365 intitial checkin ca parents: diff changeset	545	! !
2a35cb573365 intitial checkin ca parents: diff changeset	546
2a35cb573365 intitial checkin ca parents: diff changeset	547	!HierarchicalListEditor class methodsFor:'printing'!
2a35cb573365 intitial checkin ca parents: diff changeset	548
2a35cb573365 intitial checkin ca parents: diff changeset	549	prettyPrintArray:anArray on:aStream indent:anIndent
2a35cb573365 intitial checkin ca parents: diff changeset	550	"print a literal array in a nice format
2a35cb573365 intitial checkin ca parents: diff changeset	551	"
2a35cb573365 intitial checkin ca parents: diff changeset	552	\|arg sol\|
2a35cb573365 intitial checkin ca parents: diff changeset	553
2a35cb573365 intitial checkin ca parents: diff changeset	554	sol := aStream position.
2a35cb573365 intitial checkin ca parents: diff changeset	555	aStream spaces:anIndent.
2a35cb573365 intitial checkin ca parents: diff changeset	556	aStream nextPutAll:'#('.
2a35cb573365 intitial checkin ca parents: diff changeset	557
2a35cb573365 intitial checkin ca parents: diff changeset	558	anArray first isSymbol ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	559	arg := anArray first.
2a35cb573365 intitial checkin ca parents: diff changeset	560	aStream nextPut:$#.
2a35cb573365 intitial checkin ca parents: diff changeset	561	aStream nextPutAll:anArray first.
2a35cb573365 intitial checkin ca parents: diff changeset	562	aStream cr.
2a35cb573365 intitial checkin ca parents: diff changeset	563	anArray size == 2 ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	564	self prettyPrintArray:(anArray last)
2a35cb573365 intitial checkin ca parents: diff changeset	565	on:aStream
2a35cb573365 intitial checkin ca parents: diff changeset	566	indent:(anIndent + 4).
2a35cb573365 intitial checkin ca parents: diff changeset	567	].
2a35cb573365 intitial checkin ca parents: diff changeset	568	aStream spaces:anIndent.
2a35cb573365 intitial checkin ca parents: diff changeset	569	aStream nextPut:$).
2a35cb573365 intitial checkin ca parents: diff changeset	570	^ self
2a35cb573365 intitial checkin ca parents: diff changeset	571	].
2a35cb573365 intitial checkin ca parents: diff changeset	572
2a35cb573365 intitial checkin ca parents: diff changeset	573	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	574	aStream nextPutAll:(anArray at:1).
2a35cb573365 intitial checkin ca parents: diff changeset	575	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	576	arg := anArray at:2 ifAbsent:nil.
2a35cb573365 intitial checkin ca parents: diff changeset	577
2a35cb573365 intitial checkin ca parents: diff changeset	578	arg isString ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	579	aStream spaces:((50 - (aStream position - sol)) max:4).
2a35cb573365 intitial checkin ca parents: diff changeset	580
2a35cb573365 intitial checkin ca parents: diff changeset	581	arg isSymbol ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	582	aStream nextPut:$#.
2a35cb573365 intitial checkin ca parents: diff changeset	583	].
2a35cb573365 intitial checkin ca parents: diff changeset	584	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	585	aStream nextPutAll:arg.
2a35cb573365 intitial checkin ca parents: diff changeset	586	aStream nextPut:$'.
2a35cb573365 intitial checkin ca parents: diff changeset	587	arg := anArray at:3 ifAbsent:nil.
2a35cb573365 intitial checkin ca parents: diff changeset	588	].
2a35cb573365 intitial checkin ca parents: diff changeset	589	arg isArray ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	590	aStream nextPutAll:' #('.
2a35cb573365 intitial checkin ca parents: diff changeset	591	aStream cr.
2a35cb573365 intitial checkin ca parents: diff changeset	592	arg do:[:e\|self prettyPrintArray:e on:aStream indent:(anIndent + 4)].
2a35cb573365 intitial checkin ca parents: diff changeset	593	aStream spaces:anIndent.
2a35cb573365 intitial checkin ca parents: diff changeset	594	aStream nextPut:$).
2a35cb573365 intitial checkin ca parents: diff changeset	595	].
2a35cb573365 intitial checkin ca parents: diff changeset	596	aStream nextPut:$).
2a35cb573365 intitial checkin ca parents: diff changeset	597	aStream cr.
2a35cb573365 intitial checkin ca parents: diff changeset	598	! !
2a35cb573365 intitial checkin ca parents: diff changeset	599
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	600	!HierarchicalListEditor class methodsFor:'resources'!
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	601
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	602	createChildIcon
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	603	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	604	"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	605	ImageEditor openOnClass:self andSelector:#createChildIcon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	606	"
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	607
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	608	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	609
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	610	^Icon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	611	constantNamed:#'HierarchicalListEditor createChildIcon'
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	612	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	613
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	614	createSisterIcon
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	615	"Generated by the Image Editor"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	616	"
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	617	ImageEditor openOnClass:self andSelector:#createSisterIcon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	618	"
430 fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	619
fa18d386b936 commit buttons replaced by subSpec in ToolApplicationModel + new button icons tz parents: 423 diff changeset	620	<resource: #image>
489 d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	621
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	622	^Icon
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	623	constantNamed:#'HierarchicalListEditor createSisterIcon'
d5f942ce5c94 new icon method format applied tz parents: 484 diff changeset	624	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	625
300 2a35cb573365 intitial checkin ca parents: diff changeset	626	!HierarchicalListEditor methodsFor:'accessing'!
2a35cb573365 intitial checkin ca parents: diff changeset	627
2a35cb573365 intitial checkin ca parents: diff changeset	628	didInstall
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	629	"returns true if spec was installed by operator"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	630
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	631	^didInstall ? false
300 2a35cb573365 intitial checkin ca parents: diff changeset	632	!
2a35cb573365 intitial checkin ca parents: diff changeset	633
2a35cb573365 intitial checkin ca parents: diff changeset	634	selectorName
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	635	"returns current spec. selector"
300 2a35cb573365 intitial checkin ca parents: diff changeset	636
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	637	^specSelector
300 2a35cb573365 intitial checkin ca parents: diff changeset	638	! !
2a35cb573365 intitial checkin ca parents: diff changeset	639
2a35cb573365 intitial checkin ca parents: diff changeset	640	!HierarchicalListEditor methodsFor:'aspects'!
2a35cb573365 intitial checkin ca parents: diff changeset	641
2a35cb573365 intitial checkin ca parents: diff changeset	642	canCreateChildChannel
2a35cb573365 intitial checkin ca parents: diff changeset	643	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	644
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	645	^builder booleanValueAspectFor:#canCreateChildChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	646
2a35cb573365 intitial checkin ca parents: diff changeset	647	!
2a35cb573365 intitial checkin ca parents: diff changeset	648
2a35cb573365 intitial checkin ca parents: diff changeset	649	canCreateSisterChannel
2a35cb573365 intitial checkin ca parents: diff changeset	650	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	651
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	652	^builder booleanValueAspectFor:#canCreateSisterChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	653
2a35cb573365 intitial checkin ca parents: diff changeset	654	!
2a35cb573365 intitial checkin ca parents: diff changeset	655
2a35cb573365 intitial checkin ca parents: diff changeset	656	canStepInChannel
2a35cb573365 intitial checkin ca parents: diff changeset	657	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	658
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	659	^builder booleanValueAspectFor:#canStepInChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	660
2a35cb573365 intitial checkin ca parents: diff changeset	661	!
2a35cb573365 intitial checkin ca parents: diff changeset	662
2a35cb573365 intitial checkin ca parents: diff changeset	663	canStepOutChannel
2a35cb573365 intitial checkin ca parents: diff changeset	664	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	665
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	666	^builder booleanValueAspectFor:#canStepOutChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	667
2a35cb573365 intitial checkin ca parents: diff changeset	668	!
2a35cb573365 intitial checkin ca parents: diff changeset	669
2a35cb573365 intitial checkin ca parents: diff changeset	670	canStepOverChannel
2a35cb573365 intitial checkin ca parents: diff changeset	671	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	672
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	673	^builder booleanValueAspectFor:#canStepOverChannel
300 2a35cb573365 intitial checkin ca parents: diff changeset	674
2a35cb573365 intitial checkin ca parents: diff changeset	675	!
2a35cb573365 intitial checkin ca parents: diff changeset	676
2a35cb573365 intitial checkin ca parents: diff changeset	677	itemName
2a35cb573365 intitial checkin ca parents: diff changeset	678	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	679
2a35cb573365 intitial checkin ca parents: diff changeset	680	\|holder\|
2a35cb573365 intitial checkin ca parents: diff changeset	681
2a35cb573365 intitial checkin ca parents: diff changeset	682	(holder := builder bindingAt:#itemName) isNil ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	683	builder aspectAt:#itemName put:(holder := ValueHolder new).
2a35cb573365 intitial checkin ca parents: diff changeset	684	holder addDependent:self.
2a35cb573365 intitial checkin ca parents: diff changeset	685	].
2a35cb573365 intitial checkin ca parents: diff changeset	686	^ holder
2a35cb573365 intitial checkin ca parents: diff changeset	687	!
2a35cb573365 intitial checkin ca parents: diff changeset	688
2a35cb573365 intitial checkin ca parents: diff changeset	689	itemValue
2a35cb573365 intitial checkin ca parents: diff changeset	690	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	691
2a35cb573365 intitial checkin ca parents: diff changeset	692	\|holder\|
2a35cb573365 intitial checkin ca parents: diff changeset	693
2a35cb573365 intitial checkin ca parents: diff changeset	694	(holder := builder bindingAt:#itemValue) isNil ifTrue:[
2a35cb573365 intitial checkin ca parents: diff changeset	695	builder aspectAt:#itemValue put:(holder := ValueHolder new).
2a35cb573365 intitial checkin ca parents: diff changeset	696	holder addDependent:self.
2a35cb573365 intitial checkin ca parents: diff changeset	697	].
2a35cb573365 intitial checkin ca parents: diff changeset	698	^ holder
2a35cb573365 intitial checkin ca parents: diff changeset	699	!
2a35cb573365 intitial checkin ca parents: diff changeset	700
2a35cb573365 intitial checkin ca parents: diff changeset	701	treeView
2a35cb573365 intitial checkin ca parents: diff changeset	702	"automatically generated by UIPainter ..."
2a35cb573365 intitial checkin ca parents: diff changeset	703
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	704	^treeView
300 2a35cb573365 intitial checkin ca parents: diff changeset	705	! !
2a35cb573365 intitial checkin ca parents: diff changeset	706
2a35cb573365 intitial checkin ca parents: diff changeset	707	!HierarchicalListEditor methodsFor:'change & update'!
2a35cb573365 intitial checkin ca parents: diff changeset	708
2a35cb573365 intitial checkin ca parents: diff changeset	709	update:something with:aParameter from:someObject
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	710	"one of my models changed"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	711
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	712	self valueOfEnablingCommitButtons value: true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	713	! !
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	714
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	715	!HierarchicalListEditor methodsFor:'private'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	716
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	717	checkMenuItemModified
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	718	"check item modification"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	719
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	720	self valueOfEnablingCommitButtons value
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	721	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	722	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	723	((YesNoBox title:'Item was modified!!\Save it?\' withCRs)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	724	noText:'No';
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	725	yesText:'Yes';
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	726	showAtPointer;
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	727	accepted) ifFalse: [self valueOfEnablingCommitButtons value: false. ^true].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	728	self accept
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	729	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	730	^true
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	731	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	732
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	733	newItem
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	734	"creates and returns a new default item"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	735
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	736	^TreeItem name: 'Undefined' contents: nil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	737	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	738
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	739	updateChannels
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	740	"update channels"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	741
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	742	\|node parent chnStepIn chnStepOut chnStepOvr chnChild chnSister\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	743
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	744	chnStepIn := chnStepOut := chnStepOvr := chnChild := chnSister := false.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	745
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	746	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	747	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	748	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	749	(builder componentAt: #specView) beVisible.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	750	chnChild := true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	751	(parent := node parent) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	752	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	753	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	754	chnSister := true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	755	chnStepOvr := parent numberOfChildren > 1.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	756	chnStepOut := parent parent notNil.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	757	chnStepIn := node ~~ parent lastChild
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	758	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	759	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	760	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	761	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	762	(builder componentAt: #specView) beInvisible
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	self canCreateChildChannel value:chnChild.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	765	self canCreateSisterChannel value:chnSister.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	766	self canStepOverChannel value:chnStepOvr.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	767	self canStepOutChannel value:chnStepOut.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	768	self canStepInChannel value:chnStepIn
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	769	!
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	updateInputFields
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	772	"reload item value into input fields"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	773
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	774	\|node\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	775
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	776	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	777	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	778	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	779	self itemName value:node name.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	780	self itemValue value:node contents
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	781	]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	782	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	783	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	784	self itemName value:''.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	785	self itemValue value:nil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	786	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	787	self valueOfEnablingCommitButtons value: false
300 2a35cb573365 intitial checkin ca parents: diff changeset	788	! !
2a35cb573365 intitial checkin ca parents: diff changeset	789
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	790	!HierarchicalListEditor methodsFor:'queries'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	791
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	792	canChangeClassName
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	793	"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	794	the mode: standalone or started by UIPainter"
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	^masterApplication isNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	797	!
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	canCopy
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	800	"returns true if any selection exists"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	801
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	802	^treeView selection notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	803	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	804
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	805	canCut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	806	"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	807	the anchor (first element into list)."
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	808
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	809	treeView selection notNil ifTrue:[^(treeView isInSelection:1) not].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	810	^false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	811	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	812
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	813	canPaste
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	814	"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	815	single selection exists"
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	^CopyBuffer notNil and:[treeView selectedNode notNil]
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
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	820	hasValidClass
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	821	"returns true if the class defined allready exists"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	822
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	823	^specClass isBehavior
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	824	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	825
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	826	hasValidMethodSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	827	"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	828	allready exists."
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	(specSelector notNil and:[self hasValidClass])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	831	ifTrue:
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	^(specClass compiledMethodAt:specSelector) notNil
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	^false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	836	!
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	hasValidSpecSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	839	"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	840	allready exists."
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	841
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	842	(specSelector notNil and:[self hasValidClass])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	843	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	844	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	845	^(specClass class compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	846	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	847	^false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	848	! !
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	849
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	850	!HierarchicalListEditor methodsFor:'startup / release'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	851
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	852	buildFrom:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	853	"rebuild window from a class and selector"
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	\|sel anchor\|
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	specClass := self resolveName:aClass.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	858	specSelector := nil.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	859
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	860	aSelector size ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	861	ifTrue:
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	sel := aSelector asString withoutSeparators.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	864	sel size ~~ 0 ifTrue:[specSelector := sel asSymbol]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	865	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	866	treeView selection:nil.
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	(specSelector notNil and:[specClass notNil])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	869	ifTrue:
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	(specClass respondsTo:specSelector)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	872	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	873	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	874	anchor := specClass perform:specSelector.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	875	anchor isArray ifTrue:[anchor := anchor decodeAsLiteralArray]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	876	]
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	anchor notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	879	ifTrue: [anchor expand. treeView root:anchor]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	880	ifFalse:[self doNew]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	881	!
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	initialize
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	884	"setup default values"
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	super initialize.
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	treeView := SelectionInTreeView new.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	889	treeView multipleSelectOk: true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	890	treeView showDirectoryIndicator: true.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	891	treeView showDirectoryIndicatorForRoot: false.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	892	treeView action:[:aNr\| self updateChannels. self updateInputFields].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	893	treeView selectConditionBlock: [:i\|self checkMenuItemModified].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	894	treeView validateDoubleClickBlock: [:node\| node ~~ treeView model list first].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	895	self doNew.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	896	!
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	openModalOnClass:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	899	"open modal on class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	900
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	901	specClass := Association key:aClass value:aSelector.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	902	super openInterfaceModal.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	903
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	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	906
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	907	openOnClass:aClass andSelector:aSelector
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	908	"open on class and selector"
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 := Association key:aClass value:aSelector.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	911	super openInterface.
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	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	914
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	915	postBuildWith:builder
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	916	"setup view"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	917
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	918	\|cls sel\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	919
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	920	specClass isAssociation ifTrue:[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	921	cls := specClass key.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	922	sel := specClass value.
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	self buildFrom:cls andSelector:sel.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	925
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
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	928	!HierarchicalListEditor methodsFor:'user actions'!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	929
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	930	accept
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	931	"invoked by button 'OK'"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	932
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	933	\|node index\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	934
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	935	(index := treeView selectedIndex) ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	936	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	937	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	938	node := treeView nodeAtIndex:index.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	939	node name: self itemName value.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	940	node contents: self itemValue value.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	941	treeView redrawLine:index.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	942	].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	943	self valueOfEnablingCommitButtons value: false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	944	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	945
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	946	cancel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	947	"invoked by button 'Cancel'"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	948
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	949	self updateInputFields.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	950
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	951	self valueOfEnablingCommitButtons value: false
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	952	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	953
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	954	doBrowse:what
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	955	"open a system browser"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	956
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	957	\|cls sel\|
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	(cls := specClass) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	960	ifTrue:
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	what == #class
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	963	ifFalse:
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	(sel := specSelector) isNil ifTrue:[^self].
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	966	what == #spec ifTrue:[cls := cls class]
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	SystemBrowser openInClass:cls selector:sel
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	969	]
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
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	972	doCopy
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	973	"copy current selected nodes into copy buffer"
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	CopyBuffer := OrderedCollection new.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	976	treeView selectedNodesDo:[:aNode\| CopyBuffer add: aNode copy]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	977
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	978	!
300 2a35cb573365 intitial checkin ca parents: diff changeset	979
2a35cb573365 intitial checkin ca parents: diff changeset	980	doCreateChild
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	981	"create a child within selected parent"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	982
300 2a35cb573365 intitial checkin ca parents: diff changeset	983	\|node\|
2a35cb573365 intitial checkin ca parents: diff changeset	984
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	985	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	986	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	987	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	988	treeView model add: self newItem beforeIndex:1 below:node.
300 2a35cb573365 intitial checkin ca parents: diff changeset	989	treeView selectedNodeExpand:true.
2a35cb573365 intitial checkin ca parents: diff changeset	990	self updateChannels.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	991	]
300 2a35cb573365 intitial checkin ca parents: diff changeset	992	!
2a35cb573365 intitial checkin ca parents: diff changeset	993
2a35cb573365 intitial checkin ca parents: diff changeset	994	doCreateSister
2a35cb573365 intitial checkin ca parents: diff changeset	995	"create a sister next to selected item
2a35cb573365 intitial checkin ca parents: diff changeset	996	"
2a35cb573365 intitial checkin ca parents: diff changeset	997	\|node\|
2a35cb573365 intitial checkin ca parents: diff changeset	998
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	999	(node := treeView selectedNode) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1000	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1001	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1002	node parent notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1003	ifTrue: [treeView model add: self newItem after:node]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1004	ifFalse:[treeView model add: self newItem beforeIndex:1 below:node].
300 2a35cb573365 intitial checkin ca parents: diff changeset	1005	self updateChannels
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1006	]
300 2a35cb573365 intitial checkin ca parents: diff changeset	1007	!
2a35cb573365 intitial checkin ca parents: diff changeset	1008
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1009	doCut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1010	"cut current selected nodes"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1011
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1012	\|selection\|
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1013	treeView hasSelection
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1014	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1015	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1016	self doCopy.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1017	selection := treeView selection asSortedCollection.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1018	treeView selectedNodesRemove.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1019	treeView selection: selection first - 1.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1020	self updateChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	1021	]
2a35cb573365 intitial checkin ca parents: diff changeset	1022	!
2a35cb573365 intitial checkin ca parents: diff changeset	1023
2a35cb573365 intitial checkin ca parents: diff changeset	1024	doDefineClass
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1025	"define class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1026
300 2a35cb573365 intitial checkin ca parents: diff changeset	1027	\|sel cls bindings accepted\|
2a35cb573365 intitial checkin ca parents: diff changeset	1028
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1029	masterApplication notNil ifTrue:[^self information:'Only selector can be changed.'].
300 2a35cb573365 intitial checkin ca parents: diff changeset	1030	accepted := true.
2a35cb573365 intitial checkin ca parents: diff changeset	1031	bindings := IdentityDictionary new.
2a35cb573365 intitial checkin ca parents: diff changeset	1032
2a35cb573365 intitial checkin ca parents: diff changeset	1033	specClass notNil ifTrue:[cls := specClass name asString]
2a35cb573365 intitial checkin ca parents: diff changeset	1034	ifFalse:[cls := ''].
2a35cb573365 intitial checkin ca parents: diff changeset	1035
2a35cb573365 intitial checkin ca parents: diff changeset	1036	specSelector notNil ifTrue:[sel := specSelector asString]
2a35cb573365 intitial checkin ca parents: diff changeset	1037	ifFalse:[sel := ''].
2a35cb573365 intitial checkin ca parents: diff changeset	1038
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1039	bindings at:#specSelectorChannel put: sel asValue.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1040	bindings at:#specClassChannel put: cls asValue.
300 2a35cb573365 intitial checkin ca parents: diff changeset	1041
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1042	[accepted]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1043	whileTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1044	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1045	(accepted := self openDialogInterface:#classAndMethodSpec withBindings:bindings)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1046	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1047	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1048	(cls := self resolveName:(bindings at:#specClassChannel) value) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1049	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1050	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1051	(sel := (bindings at:#specSelectorChannel) value withoutSeparators) size ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1052	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1053	[
300 2a35cb573365 intitial checkin ca parents: diff changeset	1054	specClass := cls.
2a35cb573365 intitial checkin ca parents: diff changeset	1055	specSelector := sel asSymbol.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1056	^self
300 2a35cb573365 intitial checkin ca parents: diff changeset	1057	]
2a35cb573365 intitial checkin ca parents: diff changeset	1058	]
2a35cb573365 intitial checkin ca parents: diff changeset	1059	]
2a35cb573365 intitial checkin ca parents: diff changeset	1060	]
2a35cb573365 intitial checkin ca parents: diff changeset	1061
2a35cb573365 intitial checkin ca parents: diff changeset	1062	!
2a35cb573365 intitial checkin ca parents: diff changeset	1063
2a35cb573365 intitial checkin ca parents: diff changeset	1064	doDefineSelector
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1065	"define selector only"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1066
327 0040d47658c6 check - warnings eliminated. Fix in InspectorList.st Claus Gittinger <cg@exept.de> parents: 306 diff changeset	1067	\|sel bindings accepted\|
300 2a35cb573365 intitial checkin ca parents: diff changeset	1068
2a35cb573365 intitial checkin ca parents: diff changeset	1069	accepted := true.
2a35cb573365 intitial checkin ca parents: diff changeset	1070	bindings := IdentityDictionary new.
2a35cb573365 intitial checkin ca parents: diff changeset	1071
2a35cb573365 intitial checkin ca parents: diff changeset	1072	specSelector notNil ifTrue:[sel := specSelector asString]
2a35cb573365 intitial checkin ca parents: diff changeset	1073	ifFalse:[sel := ''].
2a35cb573365 intitial checkin ca parents: diff changeset	1074
2a35cb573365 intitial checkin ca parents: diff changeset	1075	bindings at:#specSelectorChannel put:(sel asValue).
2a35cb573365 intitial checkin ca parents: diff changeset	1076
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1077	[accepted]
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1078	whileTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1079	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1080	(accepted := self openDialogInterface:#methodSpec withBindings:bindings)
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1081	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1082	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1083	(sel := (bindings at:#specSelectorChannel) value withoutSeparators) size ~~ 0
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1084	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1085	[
300 2a35cb573365 intitial checkin ca parents: diff changeset	1086	specSelector := sel asSymbol.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1087	^self
300 2a35cb573365 intitial checkin ca parents: diff changeset	1088	]
2a35cb573365 intitial checkin ca parents: diff changeset	1089	]
2a35cb573365 intitial checkin ca parents: diff changeset	1090	]
2a35cb573365 intitial checkin ca parents: diff changeset	1091
2a35cb573365 intitial checkin ca parents: diff changeset	1092	!
2a35cb573365 intitial checkin ca parents: diff changeset	1093
2a35cb573365 intitial checkin ca parents: diff changeset	1094	doInstall
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1095	"install code"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1096
300 2a35cb573365 intitial checkin ca parents: diff changeset	1097	\|code spec category mthd stream\|
2a35cb573365 intitial checkin ca parents: diff changeset	1098
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1099	(specClass notNil and:[specSelector notNil])
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1100	ifFalse:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1101	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1102	^self information:'No valid class and method defined!!'
300 2a35cb573365 intitial checkin ca parents: diff changeset	1103	].
2a35cb573365 intitial checkin ca parents: diff changeset	1104
2a35cb573365 intitial checkin ca parents: diff changeset	1105	spec := (treeView nodeAtIndex:1) literalArrayEncoding.
2a35cb573365 intitial checkin ca parents: diff changeset	1106	stream := WriteStream on:String new.
2a35cb573365 intitial checkin ca parents: diff changeset	1107	self class prettyPrintArray:spec on:stream indent:4.
2a35cb573365 intitial checkin ca parents: diff changeset	1108	spec := stream contents.
2a35cb573365 intitial checkin ca parents: diff changeset	1109	category := 'interface specs'.
2a35cb573365 intitial checkin ca parents: diff changeset	1110	didInstall := true.
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	(mthd := specClass class compiledMethodAt:specSelector) notNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1113	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1114	[
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1115	category := mthd category
300 2a35cb573365 intitial checkin ca parents: diff changeset	1116	].
2a35cb573365 intitial checkin ca parents: diff changeset	1117
2a35cb573365 intitial checkin ca parents: diff changeset	1118	code := Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1119	, specClass name , ' class methodsFor:' , category storeString
2a35cb573365 intitial checkin ca parents: diff changeset	1120	, Character excla asString , '\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1121
2a35cb573365 intitial checkin ca parents: diff changeset	1122	, specSelector , '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1123	, ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1124	, ' "do not manually edit this - the builder may not be able to\'
2a35cb573365 intitial checkin ca parents: diff changeset	1125	, ' handle the specification if its corrupted."\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1126	, ' "\'
2a35cb573365 intitial checkin ca parents: diff changeset	1127	, ' HierarchicalListEditor new openOnClass:' , specClass name , ' andSelector:#' , specSelector , '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1128	, ' "\'.
2a35cb573365 intitial checkin ca parents: diff changeset	1129
2a35cb573365 intitial checkin ca parents: diff changeset	1130	code := code
2a35cb573365 intitial checkin ca parents: diff changeset	1131	, '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1132	, ' <resource: #hierarchicalList>\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1133	, ' ^\'
2a35cb573365 intitial checkin ca parents: diff changeset	1134	, spec
2a35cb573365 intitial checkin ca parents: diff changeset	1135	, ' decodeAsLiteralArray\'
2a35cb573365 intitial checkin ca parents: diff changeset	1136	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1137	, ' '
2a35cb573365 intitial checkin ca parents: diff changeset	1138	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1139	, '\\'.
2a35cb573365 intitial checkin ca parents: diff changeset	1140
2a35cb573365 intitial checkin ca parents: diff changeset	1141	code := code withCRs.
2a35cb573365 intitial checkin ca parents: diff changeset	1142	(ReadStream on:code) fileIn.
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 compiledMethodAt:specSelector) isNil
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1145	ifTrue:
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1146	[
300 2a35cb573365 intitial checkin ca parents: diff changeset	1147	category := 'aspects'.
2a35cb573365 intitial checkin ca parents: diff changeset	1148
2a35cb573365 intitial checkin ca parents: diff changeset	1149	code := Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1150	, specClass name , ' methodsFor:' , category storeString
2a35cb573365 intitial checkin ca parents: diff changeset	1151	, Character excla asString , '\\'
2a35cb573365 intitial checkin ca parents: diff changeset	1152
2a35cb573365 intitial checkin ca parents: diff changeset	1153	, specSelector , '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1154	, ' "this window spec was automatically generated by the ST/X HierarchicalListEditor"\\'
306 e5e33576c3ad change install routine; ca parents: 300 diff changeset	1155	, ' ^ self class ', specSelector
300 2a35cb573365 intitial checkin ca parents: diff changeset	1156	, '\'
2a35cb573365 intitial checkin ca parents: diff changeset	1157	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1158	, ' '
2a35cb573365 intitial checkin ca parents: diff changeset	1159	, Character excla asString
2a35cb573365 intitial checkin ca parents: diff changeset	1160	, '\\'.
2a35cb573365 intitial checkin ca parents: diff changeset	1161
2a35cb573365 intitial checkin ca parents: diff changeset	1162	code := code withCRs.
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1163	(ReadStream on:code) fileIn
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1164	]
300 2a35cb573365 intitial checkin ca parents: diff changeset	1165
2a35cb573365 intitial checkin ca parents: diff changeset	1166
2a35cb573365 intitial checkin ca parents: diff changeset	1167	!
2a35cb573365 intitial checkin ca parents: diff changeset	1168
2a35cb573365 intitial checkin ca parents: diff changeset	1169	doNew
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1170	"remove all items; restart"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1171
306 e5e33576c3ad change install routine; ca parents: 300 diff changeset	1172	treeView root:(TreeItem name:'Anchor' contents:#anchor).
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1173	treeView selection:0
300 2a35cb573365 intitial checkin ca parents: diff changeset	1174
2a35cb573365 intitial checkin ca parents: diff changeset	1175	!
2a35cb573365 intitial checkin ca parents: diff changeset	1176
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1177	doPaste
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1178	"paste after current selected item"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1179
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1180	treeView selectedNodeAdd:CopyBuffer.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1181	self updateChannels
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1182	!
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1183
300 2a35cb573365 intitial checkin ca parents: diff changeset	1184	doReload
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1185	"reload spec from current class and selector"
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1186
300 2a35cb573365 intitial checkin ca parents: diff changeset	1187	self buildFrom:specClass andSelector:specSelector
2a35cb573365 intitial checkin ca parents: diff changeset	1188
2a35cb573365 intitial checkin ca parents: diff changeset	1189	!
2a35cb573365 intitial checkin ca parents: diff changeset	1190
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1191	doStepDown
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1192	"move selected item after next item"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1193
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1194	treeView selectedNodeChangeSequenceOrder:1.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1195	self updateChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	1196	!
2a35cb573365 intitial checkin ca parents: diff changeset	1197
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1198	doStepIn
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1199	"lets become the selected item a child of its next sister"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1200
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1201	treeView selectedNodeBecomeChildOfNext.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1202	self updateChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	1203	!
2a35cb573365 intitial checkin ca parents: diff changeset	1204
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1205	doStepOut
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1206	"let selected node become a sister of its current parent"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1207
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1208	treeView selectedNodeBecomeSisterOfParent.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1209	self updateChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	1210	!
2a35cb573365 intitial checkin ca parents: diff changeset	1211
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1212	doStepUp
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1213	"move selected item before previous item"
300 2a35cb573365 intitial checkin ca parents: diff changeset	1214
423 ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1215	treeView selectedNodeChangeSequenceOrder:-1.
ea6880a0e024 totally revised version; create icons will be changed next days tz parents: 372 diff changeset	1216	self updateChannels
300 2a35cb573365 intitial checkin ca parents: diff changeset	1217	! !
2a35cb573365 intitial checkin ca parents: diff changeset	1218
2a35cb573365 intitial checkin ca parents: diff changeset	1219	!HierarchicalListEditor class methodsFor:'documentation'!
2a35cb573365 intitial checkin ca parents: diff changeset	1220
2a35cb573365 intitial checkin ca parents: diff changeset	1221	version
2a35cb573365 intitial checkin ca parents: diff changeset	1222	^ '$Header$'
2a35cb573365 intitial checkin ca parents: diff changeset	1223	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 27 Jan 1998 21:29:56 +0100
changeset 495	f356a6636eef
parent 489	d5f942ce5c94
child 506	249e94fdeb94
permissions	-rw-r--r--