hg/stx-libtool: OrderedCollectionInspectorView.st@c9fdd884d706 (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 )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	91	('-' nil )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	92	('browse' browse )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	93	('browse class hierarchy' browseClassHierarchy )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	94	('browse full class protocol' browseFullClassProtocol)
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	95	('-' nil )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	96	('remove' removeIndex )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	97	('-' nil )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	98	('show more' showMore )
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	99	).
18 850295468cac Initial revision claus parents: diff changeset	100	] ifFalse:[
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	101	items := #(
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	102	('inspect' doInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	103	('basicInspect' doBasicInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	104	('inspect hierarchical' doNewInspect )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	105	('-' nil )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	106	('browse' browse )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	107	('browse class hierarchy' browseClassHierarchy )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	108	('browse full class protocol' browseFullClassProtocol)
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	109	('-' nil )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	110	('remove' inspectOwners )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	111	"/ ('-' )
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	112	"/ ('owners' )
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	113	).
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	114	].
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	monitorProcess isNil ifTrue:[
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	117	items := items , #( ('-' nil) ('start monitor' doStartMonitor)).
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	118	] ifFalse:[
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	119	items := items , #( ('-' nil) ('stop monitor' doStopMonitor)).
18 850295468cac Initial revision claus parents: diff changeset	120	].
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	121
473 5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	122	m := PopUpMenu
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	123	itemList:items
c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	124	resources:resources.
473 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	selectedLine isNil ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	127	m disableAll:#(doInspect doBasicInspect
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	128	browse browseClassHierarchy browseFullClassProtocol
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	129	doStartMonitor removeIndex)
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	selectedLine == 1 ifTrue:[
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	132	m disable:#removeIndex
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	].
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	^ m
5435d56402db added monitor stuff to menu; items reordered Claus Gittinger <cg@exept.de> parents: 200 diff changeset	137
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	138	"Modified: / 21.5.1998 / 13:32:09 / cg"
18 850295468cac Initial revision claus parents: diff changeset	139	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	140
e332d9c71624 * empty log message * claus parents: 59 diff changeset	141	!OrderedCollectionInspectorView methodsFor:'user interaction'!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	142
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	143	doAccept:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	144	\|value\|
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	145
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	146	value := Compiler evaluate:theText
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	147	receiver:inspectedObject
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	148	notifying:workspace.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	149
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	150	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	151	selectedLine == 1 ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	152	inspectedObject at:selectedLine - 1 put:value.
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	153	inspectedObject changed
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	154	]
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	155	].
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	doInspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	159	"user selected inspect-menu entry"
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	160
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	161	selectedLine notNil ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	162	(selectedLine == 1) ifTrue:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	163	inspectedObject inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	164	] ifFalse:[
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	165	(inspectedObject at:selectedLine - 1) inspect
01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	166	].
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
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	170	removeIndex
e332d9c71624 * empty log message * claus parents: 59 diff changeset	171	"remove selected item from the collection"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	172
e332d9c71624 * empty log message * claus parents: 59 diff changeset	173	selectedLine == 1 ifFalse:[
88 a38a2e87687b * empty log message * claus parents: 73 diff changeset	174	inspectedObject removeIndex:selectedLine -1.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	175	selectedLine := nil.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	176	inspectedObject changed.
a38a2e87687b * empty log message * claus parents: 73 diff changeset	177	self inspect:inspectedObject. "force list update"
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	178	]
e332d9c71624 * empty log message * claus parents: 59 diff changeset	179	!
e332d9c71624 * empty log message * claus parents: 59 diff changeset	180
e332d9c71624 * empty log message * claus parents: 59 diff changeset	181	valueAtLine:lineNr
e332d9c71624 * empty log message * claus parents: 59 diff changeset	182	"helper - return the value of the selected entry"
e332d9c71624 * empty log message * claus parents: 59 diff changeset	183
e332d9c71624 * empty log message * claus parents: 59 diff changeset	184	\|index\|
e332d9c71624 * empty log message * claus parents: 59 diff changeset	185
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	186	hideReceiver ifFalse:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	187	(lineNr isNil or:[lineNr == 1]) ifTrue:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	188	^ inspectedObject
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	189	].
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	190	index := lineNr - 1. "/ skip self
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	191	] ifTrue:[
16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	192	index := lineNr
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	193	].
e332d9c71624 * empty log message * claus parents: 59 diff changeset	194	^ inspectedObject at:index
e332d9c71624 * empty log message * claus parents: 59 diff changeset	195
645 16a618dcbb43 allow hiding self Claus Gittinger <cg@exept.de> parents: 618 diff changeset	196	"Modified: 28.6.1996 / 15:53:56 / cg"
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	197	! !
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	198
1040 5835207bcb3e menu resource Claus Gittinger <cg@exept.de> parents: 647 diff changeset	199	!OrderedCollectionInspectorView class methodsFor:'documentation'!
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	200
200 01ce3d3636d5 checkin from browser Claus Gittinger <cg@exept.de> parents: 165 diff changeset	201	version
1666 c9fdd884d706 * empty log message * Claus Gittinger <cg@exept.de> parents: 1235 diff changeset	202	^ '$Header: /cvs/stx/stx/libtool/OrderedCollectionInspectorView.st,v 1.20 1998-05-21 11:32:17 cg Exp $'
73 e332d9c71624 * empty log message * claus parents: 59 diff changeset	203	! !

author	Claus Gittinger <cg@exept.de>
	Thu, 21 May 1998 13:32:17 +0200
changeset 1666	c9fdd884d706
parent 1235	13610578a5d2
child 1739	d98fa6eea4fc
permissions	-rw-r--r--