hg/stx-libtool: ClassInspectorView.st@257f587ad7dc (annotated)

30 205d53e91c52 Initial revision claus parents: diff changeset	1	"
205d53e91c52 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	3	All Rights Reserved
30 205d53e91c52 Initial revision claus parents: diff changeset	4
205d53e91c52 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
205d53e91c52 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
205d53e91c52 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
205d53e91c52 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
205d53e91c52 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
205d53e91c52 Initial revision claus parents: diff changeset	10	hereby transferred.
205d53e91c52 Initial revision claus parents: diff changeset	11	"
205d53e91c52 Initial revision claus parents: diff changeset	12
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	13
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	14
30 205d53e91c52 Initial revision claus parents: diff changeset	15	InspectorView subclass:#ClassInspectorView
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	16	instanceVariableNames:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	17	classVariableNames:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	18	poolDictionaries:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	19	category:'Interface-Inspector'
30 205d53e91c52 Initial revision claus parents: diff changeset	20	!
205d53e91c52 Initial revision claus parents: diff changeset	21
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	22	!ClassInspectorView class methodsFor:'documentation'!
30 205d53e91c52 Initial revision claus parents: diff changeset	23
205d53e91c52 Initial revision claus parents: diff changeset	24	copyright
205d53e91c52 Initial revision claus parents: diff changeset	25	"
205d53e91c52 Initial revision claus parents: diff changeset	26	COPYRIGHT (c) 1994 by Claus Gittinger
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	27	All Rights Reserved
30 205d53e91c52 Initial revision claus parents: diff changeset	28
205d53e91c52 Initial revision claus parents: diff changeset	29	This software is furnished under a license and may be used
205d53e91c52 Initial revision claus parents: diff changeset	30	only in accordance with the terms of that license and with the
205d53e91c52 Initial revision claus parents: diff changeset	31	inclusion of the above copyright notice. This software may not
205d53e91c52 Initial revision claus parents: diff changeset	32	be provided or otherwise made available to, or used by, any
205d53e91c52 Initial revision claus parents: diff changeset	33	other person. No title to or ownership of the software is
205d53e91c52 Initial revision claus parents: diff changeset	34	hereby transferred.
205d53e91c52 Initial revision claus parents: diff changeset	35	"
205d53e91c52 Initial revision claus parents: diff changeset	36
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	37
30 205d53e91c52 Initial revision claus parents: diff changeset	38	! !
205d53e91c52 Initial revision claus parents: diff changeset	39
205d53e91c52 Initial revision claus parents: diff changeset	40	!ClassInspectorView methodsFor:'accessing'!
205d53e91c52 Initial revision claus parents: diff changeset	41
205d53e91c52 Initial revision claus parents: diff changeset	42	listOfNames
205d53e91c52 Initial revision claus parents: diff changeset	43	"return a list of names to show in the selectionList"
205d53e91c52 Initial revision claus parents: diff changeset	44
205d53e91c52 Initial revision claus parents: diff changeset	45	\|aList\|
205d53e91c52 Initial revision claus parents: diff changeset	46
205d53e91c52 Initial revision claus parents: diff changeset	47	aList := super listOfNames.
205d53e91c52 Initial revision claus parents: diff changeset	48
205d53e91c52 Initial revision claus parents: diff changeset	49	"/
205d53e91c52 Initial revision claus parents: diff changeset	50	"/ add class variables
205d53e91c52 Initial revision claus parents: diff changeset	51	"/
205d53e91c52 Initial revision claus parents: diff changeset	52	inspectedObject class withAllSuperclasses reverse do:[:aClass \|
51 57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	53	\|varNames\|
30 205d53e91c52 Initial revision claus parents: diff changeset	54
51 57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	55	varNames := aClass classVarNames.
57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	56	varNames notEmpty ifTrue:[
57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	57	aList add:'--- classvariables from ' , aClass name , ' ---'.
57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	58	varNames do:[:classVarName \|
57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	59	aList add:classVarName
57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	60	]
57c1ccc3d7e0 * empty log message * claus parents: 30 diff changeset	61	]
30 205d53e91c52 Initial revision claus parents: diff changeset	62	].
205d53e91c52 Initial revision claus parents: diff changeset	63	^ aList
205d53e91c52 Initial revision claus parents: diff changeset	64	! !
205d53e91c52 Initial revision claus parents: diff changeset	65
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	66	!ClassInspectorView methodsFor:'documentation'!
30 205d53e91c52 Initial revision claus parents: diff changeset	67
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	68	copyright
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	69	"
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	70	COPYRIGHT (c) 1994 by Claus Gittinger
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	71	All Rights Reserved
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	72
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	73	This software is furnished under a license and may be used
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	74	only in accordance with the terms of that license and with the
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	75	inclusion of the above copyright notice. This software may not
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	76	be provided or otherwise made available to, or used by, any
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	77	other person. No title to or ownership of the software is
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	78	hereby transferred.
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	79	"
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	80	!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	81
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	82	documentation
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	83	"
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	84	modified Inspector for Classes; in addition to instance variables,
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	85	also shows ClassVariables in its left SelectionList.
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	86	"
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	87	!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	88
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	89	version
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	90	^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.7 1999-07-07 00:25:16 cg Exp $'
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	91	! !
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	92
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	93	!ClassInspectorView class methodsFor:'documentation'!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	94
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	95	version
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	96	^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.7 1999-07-07 00:25:16 cg Exp $'
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	97
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	98
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	99	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 07 Jul 1999 02:26:33 +0200
changeset 2236	257f587ad7dc
parent 165	df29ee4514c1
child 2271	0cf238543cb1
permissions	-rw-r--r--