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

author	tz
	Thu, 29 Jan 1998 19:43:19 +0100
changeset 525	3c59244da8c8
parent 522	06bef91cb861
child 529	2e77c060bc12
permissions	-rw-r--r--