hg/stx-libtool: OrderedCollectionInspectorView.st@5435d56402db (annotated)

88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	1	"
a38a2e87687b * empty log message * claus parents: 73 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
a38a2e87687b * empty log message * claus parents: 73 diff changeset	3	All Rights Reserved
a38a2e87687b * empty log message * claus parents: 73 diff changeset	4
a38a2e87687b * empty log message * claus parents: 73 diff changeset	5	This software is furnished under a license and may be used
a38a2e87687b * empty log message * claus parents: 73 diff changeset	6	only in accordance with the terms of that license and with the
a38a2e87687b * empty log message * claus parents: 73 diff changeset	7	inclusion of the above copyright notice. This software may not
a38a2e87687b * empty log message * claus parents: 73 diff changeset	8	be provided or otherwise made available to, or used by, any
a38a2e87687b * empty log message * claus parents: 73 diff changeset	9	other person. No title to or ownership of the software is
a38a2e87687b * empty log message * claus parents: 73 diff changeset	10	hereby transferred.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	11	"
18 850295468cac Initial revision claus parents: diff changeset	12
850295468cac Initial revision claus parents: diff changeset	13	InspectorView subclass:#OrderedCollectionInspectorView
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	14	instanceVariableNames:''
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	15	classVariableNames:''
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	16	poolDictionaries:''
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	17	category:'Interface-Inspector'
18 850295468cac Initial revision claus parents: diff changeset	18	!
850295468cac Initial revision claus parents: diff changeset	19
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	20	!OrderedCollectionInspectorView class methodsFor:'documentation'!
a38a2e87687b * empty log message * claus parents: 73 diff changeset	21
a38a2e87687b * empty log message * claus parents: 73 diff changeset	22	copyright
a38a2e87687b * empty log message * claus parents: 73 diff changeset	23	"
a38a2e87687b * empty log message * claus parents: 73 diff changeset	24	COPYRIGHT (c) 1993 by Claus Gittinger
a38a2e87687b * empty log message * claus parents: 73 diff changeset	25	All Rights Reserved
a38a2e87687b * empty log message * claus parents: 73 diff changeset	26
a38a2e87687b * empty log message * claus parents: 73 diff changeset	27	This software is furnished under a license and may be used
a38a2e87687b * empty log message * claus parents: 73 diff changeset	28	only in accordance with the terms of that license and with the
a38a2e87687b * empty log message * claus parents: 73 diff changeset	29	inclusion of the above copyright notice. This software may not
a38a2e87687b * empty log message * claus parents: 73 diff changeset	30	be provided or otherwise made available to, or used by, any
a38a2e87687b * empty log message * claus parents: 73 diff changeset	31	other person. No title to or ownership of the software is
a38a2e87687b * empty log message * claus parents: 73 diff changeset	32	hereby transferred.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	33	"
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	34	!
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	35
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	36	documentation
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	37	"
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	38	a modified Inspector for orderedCollections
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	39	"
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	40
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	41	! !
a38a2e87687b * empty log message * claus parents: 73 diff changeset	42
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	43	!OrderedCollectionInspectorView methodsFor:'private'!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	44
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	45	fieldList
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	46	"return a list of names for the selectionlist. Leave hasMore as
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	47	true, if a '...' entry should be added."
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	48
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	49	\|aList n\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	50
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	51	n := inspectedObject size.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	52	(n > nShown) ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	53	n := nShown.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	54	hasMore := true.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	55	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	56	aList := OrderedCollection new:n+1.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	57	aList add:'self'.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	58	1 to:n do:[:index \|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	59	aList add:(index printString)
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	60	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	61	^ aList
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	62	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	63
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	64	fieldMenu
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	65	\|labels selectors m\|
18 850295468cac Initial revision claus parents: diff changeset	66
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	67	hasMore ifTrue:[
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	68	labels := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	69	'inspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	70	'basicInspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	71	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	72	'browse'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	73	'browse class hierarchy'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	74	'browse full class protocol'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	75	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	76	'remove'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	77	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	78	'show more'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	79	).
18 850295468cac Initial revision claus parents: diff changeset	80
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	81	selectors := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	82	doInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	83	doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	84	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	85	browse
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	86	browseClassHierarchy
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	87	browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	88	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	89	removeIndex
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	90	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	91	showMore
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	92	).
18 850295468cac Initial revision claus parents: diff changeset	93	] ifFalse:[
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	94	labels := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	95	'inspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	96	'basicInspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	97	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	98	'browse'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	99	'browse class hierarchy'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	100	'browse full class protocol'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	101	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	102	'remove'
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	103	"/ '-'
e332d9c71624 * empty log message * claus parents: 59 diff changeset	104	"/ 'owners'
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	105	).
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	106
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	107	selectors := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	108	doInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	109	doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	110	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	111	browse
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	112	browseClassHierarchy
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	113	browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	114	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	115	removeIndex
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	116	"/ nil
e332d9c71624 * empty log message * claus parents: 59 diff changeset	117	"/ inspectOwners
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	118	).
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	119
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	120	].
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	121
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	122	monitorProcess isNil ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	123	labels := labels , #('-' 'start monitor').
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	124	selectors := selectors , #(nil #doStartMonitor).
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	125	] ifFalse:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	126	labels := labels , #('-' 'stop monitor').
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	127	selectors := selectors , #(nil #doStopMonitor).
18 850295468cac Initial revision claus parents: diff changeset	128	].
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	129
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	130	m := PopUpMenu
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	131	labels:(resources array:labels)
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	132	selectors:selectors.
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	133
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	134	selectedLine isNil ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	135	m disableAll:#(doInspect doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	136	browse browseClassHierarchy browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	137	doStartMonitor removeIndex)
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	138	] ifFalse:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	139	selectedLine == 1 ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	140	m disable:#removeIndex
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	141	]
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	142	].
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	143
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	144	^ m
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	145
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	146	"Modified: 12.4.1996 / 14:04:40 / cg"
18 850295468cac Initial revision claus parents: diff changeset	147	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	148
e332d9c71624 * empty log message * claus parents: 59 diff changeset	149	!OrderedCollectionInspectorView methodsFor:'user interaction'!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	150
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	151	doAccept:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	152	\|value\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	153
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	154	value := Compiler evaluate:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	155	receiver:inspectedObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	156	notifying:workspace.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	157
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	158	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	159	selectedLine == 1 ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	160	inspectedObject at:selectedLine - 1 put:value.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	161	inspectedObject changed
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	162	]
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	163	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	164	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	165
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	166	doInspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	167	"user selected inspect-menu entry"
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	168
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	169	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	170	(selectedLine == 1) ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	171	inspectedObject inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	172	] ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	173	(inspectedObject at:selectedLine - 1) inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	174	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	175	]
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	176	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	177
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	178	removeIndex
e332d9c71624 * empty log message * claus parents: 59 diff changeset	179	"remove selected item from the collection"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	180
e332d9c71624 * empty log message * claus parents: 59 diff changeset	181	selectedLine == 1 ifFalse:[
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	182	inspectedObject removeIndex:selectedLine -1.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	183	selectedLine := nil.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	184	inspectedObject changed.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	185	self inspect:inspectedObject. "force list update"
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	186	]
e332d9c71624 * empty log message * claus parents: 59 diff changeset	187	!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	188
e332d9c71624 * empty log message * claus parents: 59 diff changeset	189	valueAtLine:lineNr
e332d9c71624 * empty log message * claus parents: 59 diff changeset	190	"helper - return the value of the selected entry"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	191
e332d9c71624 * empty log message * claus parents: 59 diff changeset	192	\|index\|
e332d9c71624 * empty log message * claus parents: 59 diff changeset	193
e332d9c71624 * empty log message * claus parents: 59 diff changeset	194	lineNr == 1 ifTrue:[
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	195	^ inspectedObject
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	196	].
e332d9c71624 * empty log message * claus parents: 59 diff changeset	197	index := lineNr - 1. "/ skip self
e332d9c71624 * empty log message * claus parents: 59 diff changeset	198	^ inspectedObject at:index
e332d9c71624 * empty log message * claus parents: 59 diff changeset	199
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	200	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	201
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	202	!OrderedCollectionInspectorView class methodsFor:'documentation'!
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	203
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	204	version
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	205	^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.13 1996-04-12 16:41:35 cg Exp $'
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	206	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 12 Apr 1996 18:41:35 +0200
changeset 473	5435d56402db
parent 200	01ce3d3636d5
child 510	6543e55fb227
permissions	-rw-r--r--