hg/stx-libtool: OCInspView.st@ec4daf11d3b6 (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
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 647 diff changeset	20	!OrderedCollectionInspectorView class methodsFor:'documentation'!
88 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
510 6543e55fb227 documentation Claus Gittinger <cg@exept.de> parents: 473 diff changeset	39
6543e55fb227 documentation Claus Gittinger <cg@exept.de> parents: 473 diff changeset	40	[author:]
6543e55fb227 documentation Claus Gittinger <cg@exept.de> parents: 473 diff changeset	41	Claus Gittinger
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	42	"
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	43
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	44	! !
a38a2e87687b * empty log message * claus parents: 73 diff changeset	45
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	46	!OrderedCollectionInspectorView methodsFor:'private'!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	47
647 1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	48	defaultLabel
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	49	^ 'contents'
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	50
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	51	"
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	52	(OrderedCollection with:1 with:2 with:3) inspect
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	53	"
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	54
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	55	"Modified: 28.6.1996 / 16:06:24 / cg"
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	56	!
1791ceddf2ef checkin from browser Claus Gittinger <cg@exept.de> parents: 645 diff changeset	57
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	58	fieldList
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	59	"return a list of names for the selectionlist. Leave hasMore as
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	60	true, if a '...' entry should be added."
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	61
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	62	\|aList n\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	63
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	64	n := inspectedObject size.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	65	(n > nShown) ifTrue:[
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	66	n := nShown.
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	67	hasMore := true.
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	68	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	69	aList := OrderedCollection new:n+1.
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	70	hideReceiver ifFalse:[aList add:'self'].
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	71	1 to:n do:[:index \|
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	72	aList add:(index printString)
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	73	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	74	^ aList
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	75
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	76	"Modified: 28.6.1996 / 15:09:24 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	77	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	78
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	79	fieldMenu
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 647 diff changeset	80	"return the menu for the field-list"
5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 647 diff changeset	81
1235 13610578a5d2 resource flag: #menu -> #programMenu Claus Gittinger <cg@exept.de> parents: 1040 diff changeset	82	<resource: #programMenu>
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 647 diff changeset	83
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	84	\|items m\|
18 850295468cac Initial revision claus parents: diff changeset	85
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	86	hasMore ifTrue:[
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	87	items := #(
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	88	('inspect' doInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	89	('basicInspect' doBasicInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	90	('inspect hierarchical' doNewInspect )
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	91	('-')
1743 88f86bfde4a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1742 diff changeset	92	('ref chains' showReferences )
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	93	('-')
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	94	('browse' browse )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	95	('browse class hierarchy' browseClassHierarchy )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	96	('browse full class protocol' browseFullClassProtocol)
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	97	('-')
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	98	('remove' removeIndex )
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	99	('-')
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	100	('show more' showMore )
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	101	).
18 850295468cac Initial revision claus parents: diff changeset	102	] ifFalse:[
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	103	items := #(
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	104	('inspect' doInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	105	('basicInspect' doBasicInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	106	('inspect hierarchical' doNewInspect )
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	107	('-')
1743 88f86bfde4a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1742 diff changeset	108	('ref chains' showReferences )
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	109	('-')
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	110	('browse' browse )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	111	('browse class hierarchy' browseClassHierarchy )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	112	('browse full class protocol' browseFullClassProtocol)
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	113	('-')
ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	114	('remove' removeIndex )
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	115	).
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	116	].
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	117
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	118	monitorProcess isNil ifTrue:[
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	119	items := items , #( ('-') ('start monitor' doStartMonitor)).
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	120	] ifFalse:[
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	121	items := items , #( ('-') ('stop monitor' doStopMonitor)).
18 850295468cac Initial revision claus parents: diff changeset	122	].
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	123
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	124	m := PopUpMenu
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	125	itemList:items
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	126	resources:resources.
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	127
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	128	selectedLine isNil ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	129	m disableAll:#(doInspect doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	130	browse browseClassHierarchy browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	131	doStartMonitor removeIndex)
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	132	] ifFalse:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	133	selectedLine == 1 ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	134	m disable:#removeIndex
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	135	]
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	136	].
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	137
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	138	^ m
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	139
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	140	"Modified: / 21.5.1998 / 13:32:09 / cg"
18 850295468cac Initial revision claus parents: diff changeset	141	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	142
e332d9c71624 * empty log message * claus parents: 59 diff changeset	143	!OrderedCollectionInspectorView methodsFor:'user interaction'!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	144
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	145	doAccept:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	146	\|value\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	147
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	148	value := Compiler evaluate:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	149	receiver:inspectedObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	150	notifying:workspace.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	151
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	152	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	153	selectedLine == 1 ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	154	inspectedObject at:selectedLine - 1 put:value.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	155	inspectedObject changed
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	156	]
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	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	159
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	160	doInspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	161	"user selected inspect-menu entry"
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	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	164	(selectedLine == 1) ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	165	inspectedObject inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	166	] ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	167	(inspectedObject at:selectedLine - 1) inspect
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	]
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	170	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	171
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	172	removeIndex
e332d9c71624 * empty log message * claus parents: 59 diff changeset	173	"remove selected item from the collection"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	174
e332d9c71624 * empty log message * claus parents: 59 diff changeset	175	selectedLine == 1 ifFalse:[
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	176	inspectedObject removeIndex:selectedLine -1.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	177	selectedLine := nil.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	178	inspectedObject changed.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	179	self inspect:inspectedObject. "force list update"
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	180	]
e332d9c71624 * empty log message * claus parents: 59 diff changeset	181	!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	182
e332d9c71624 * empty log message * claus parents: 59 diff changeset	183	valueAtLine:lineNr
e332d9c71624 * empty log message * claus parents: 59 diff changeset	184	"helper - return the value of the selected entry"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	185
e332d9c71624 * empty log message * claus parents: 59 diff changeset	186	\|index\|
e332d9c71624 * empty log message * claus parents: 59 diff changeset	187
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	188	hideReceiver ifFalse:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	189	(lineNr isNil or:[lineNr == 1]) ifTrue:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	190	^ inspectedObject
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	191	].
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	192	index := lineNr - 1. "/ skip self
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	193	] ifTrue:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	194	index := lineNr
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	195	].
e332d9c71624 * empty log message * claus parents: 59 diff changeset	196	^ inspectedObject at:index
e332d9c71624 * empty log message * claus parents: 59 diff changeset	197
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	198	"Modified: 28.6.1996 / 15:53:56 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	199	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	200
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 647 diff changeset	201	!OrderedCollectionInspectorView class methodsFor:'documentation'!
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	202
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	203	version
2085 ec4daf11d3b6 added #copyKey - menu item Claus Gittinger <cg@exept.de> parents: 1743 diff changeset	204	^ '$Header: /cvs/stx/stx/libtool/Attic/OCInspView.st,v 1.24 1999-03-29 15:10:59 cg Exp $'
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	205	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 29 Mar 1999 17:11:21 +0200
changeset 2085	ec4daf11d3b6
parent 1743	88f86bfde4a4
child 2193	3d7b1044e8c8
permissions	-rw-r--r--