hg/stx-libtool: OrderedCollectionInspectorView.st@16a618dcbb43 (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
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 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
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	48	fieldList
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	49	"return a list of names for the selectionlist. Leave hasMore as
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	50	true, if a '...' entry should be added."
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	51
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	52	\|aList n\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	53
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	54	n := inspectedObject size.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	55	(n > nShown) ifTrue:[
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	56	n := nShown.
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	57	hasMore := true.
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	58	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	59	aList := OrderedCollection new:n+1.
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	60	hideReceiver ifFalse:[aList add:'self'].
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	61	1 to:n do:[:index \|
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	62	aList add:(index printString)
200 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	^ aList
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	65
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	66	"Modified: 28.6.1996 / 15:09:24 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	67	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	68
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	69	fieldMenu
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	70	\|labels selectors m\|
18 850295468cac Initial revision claus parents: diff changeset	71
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	72	hasMore ifTrue:[
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	73	labels := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	74	'inspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	75	'basicInspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	76	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	77	'browse'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	78	'browse class hierarchy'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	79	'browse full class protocol'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	80	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	81	'remove'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	82	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	83	'show more'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	84	).
18 850295468cac Initial revision claus parents: diff changeset	85
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	86	selectors := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	87	doInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	88	doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	89	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	90	browse
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	91	browseClassHierarchy
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	92	browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	93	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	94	removeIndex
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	95	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	96	showMore
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	97	).
18 850295468cac Initial revision claus parents: diff changeset	98	] ifFalse:[
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	99	labels := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	100	'inspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	101	'basicInspect'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	102	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	103	'browse'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	104	'browse class hierarchy'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	105	'browse full class protocol'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	106	'-'
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	107	'remove'
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	108	"/ '-'
e332d9c71624 * empty log message * claus parents: 59 diff changeset	109	"/ 'owners'
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	110	).
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	111
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	112	selectors := #(
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	113	doInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	114	doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	115	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	116	browse
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	117	browseClassHierarchy
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	118	browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	119	nil
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	120	removeIndex
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	121	"/ nil
e332d9c71624 * empty log message * claus parents: 59 diff changeset	122	"/ inspectOwners
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	123	).
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	124
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	125	].
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	126
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	127	monitorProcess isNil ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	128	labels := labels , #('-' 'start monitor').
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	129	selectors := selectors , #(nil #doStartMonitor).
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	130	] ifFalse:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	131	labels := labels , #('-' 'stop monitor').
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	132	selectors := selectors , #(nil #doStopMonitor).
18 850295468cac Initial revision claus parents: diff changeset	133	].
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	134
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	135	m := PopUpMenu
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	136	labels:(resources array:labels)
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	137	selectors:selectors.
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	138
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	139	selectedLine isNil ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	140	m disableAll:#(doInspect doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	141	browse browseClassHierarchy browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	142	doStartMonitor removeIndex)
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	143	] ifFalse:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	144	selectedLine == 1 ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	145	m disable:#removeIndex
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	146	]
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	147	].
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	148
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	149	^ m
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	150
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	151	"Modified: 12.4.1996 / 14:04:40 / cg"
18 850295468cac Initial revision claus parents: diff changeset	152	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	153
e332d9c71624 * empty log message * claus parents: 59 diff changeset	154	!OrderedCollectionInspectorView methodsFor:'user interaction'!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	155
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	156	doAccept:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	157	\|value\|
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	value := Compiler evaluate:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	160	receiver:inspectedObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	161	notifying:workspace.
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 ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	165	inspectedObject at:selectedLine - 1 put:value.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	166	inspectedObject changed
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	167	]
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	doInspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	172	"user selected inspect-menu entry"
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	173
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	174	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	175	(selectedLine == 1) ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	176	inspectedObject inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	177	] ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	178	(inspectedObject at:selectedLine - 1) inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	179	].
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	180	]
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	181	!
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	182
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	183	removeIndex
e332d9c71624 * empty log message * claus parents: 59 diff changeset	184	"remove selected item from the collection"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	185
e332d9c71624 * empty log message * claus parents: 59 diff changeset	186	selectedLine == 1 ifFalse:[
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	187	inspectedObject removeIndex:selectedLine -1.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	188	selectedLine := nil.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	189	inspectedObject changed.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	190	self inspect:inspectedObject. "force list update"
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	191	]
e332d9c71624 * empty log message * claus parents: 59 diff changeset	192	!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	193
e332d9c71624 * empty log message * claus parents: 59 diff changeset	194	valueAtLine:lineNr
e332d9c71624 * empty log message * claus parents: 59 diff changeset	195	"helper - return the value of the selected entry"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	196
e332d9c71624 * empty log message * claus parents: 59 diff changeset	197	\|index\|
e332d9c71624 * empty log message * claus parents: 59 diff changeset	198
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	199	hideReceiver ifFalse:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	200	(lineNr isNil or:[lineNr == 1]) ifTrue:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	201	^ inspectedObject
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	202	].
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	203	index := lineNr - 1. "/ skip self
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	204	] ifTrue:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	205	index := lineNr
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	206	].
e332d9c71624 * empty log message * claus parents: 59 diff changeset	207	^ inspectedObject at:index
e332d9c71624 * empty log message * claus parents: 59 diff changeset	208
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	209	"Modified: 28.6.1996 / 15:53:56 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	210	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	211
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	212	!OrderedCollectionInspectorView class methodsFor:'documentation'!
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	213
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	214	version
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	215	^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.16 1996-06-28 13:54:20 cg Exp $'
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	216	! !

author	Claus Gittinger <cg@exept.de>
	Fri, 28 Jun 1996 15:54:40 +0200
changeset 645	16a618dcbb43
parent 618	06a79d5ab531
child 647	1791ceddf2ef
permissions	-rw-r--r--