hg/stx-libtool: ClassInspectorView.st@b8f9c3d05c67 (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	"
2997 928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	12	"{ Package: 'stx:libtool' }"
928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	13
15533 705cf3d2d10a class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 13697 diff changeset	14	"{ NameSpace: Smalltalk }"
705cf3d2d10a class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 13697 diff changeset	15
30 205d53e91c52 Initial revision claus parents: diff changeset	16	InspectorView subclass:#ClassInspectorView
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	17	instanceVariableNames:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	18	classVariableNames:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	19	poolDictionaries:''
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	20	category:'Interface-Inspector'
30 205d53e91c52 Initial revision claus parents: diff changeset	21	!
205d53e91c52 Initial revision claus parents: diff changeset	22
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	23	!ClassInspectorView class methodsFor:'documentation'!
30 205d53e91c52 Initial revision claus parents: diff changeset	24
205d53e91c52 Initial revision claus parents: diff changeset	25	copyright
205d53e91c52 Initial revision claus parents: diff changeset	26	"
205d53e91c52 Initial revision claus parents: diff changeset	27	COPYRIGHT (c) 1994 by Claus Gittinger
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	28	All Rights Reserved
30 205d53e91c52 Initial revision claus parents: diff changeset	29
205d53e91c52 Initial revision claus parents: diff changeset	30	This software is furnished under a license and may be used
205d53e91c52 Initial revision claus parents: diff changeset	31	only in accordance with the terms of that license and with the
205d53e91c52 Initial revision claus parents: diff changeset	32	inclusion of the above copyright notice. This software may not
205d53e91c52 Initial revision claus parents: diff changeset	33	be provided or otherwise made available to, or used by, any
205d53e91c52 Initial revision claus parents: diff changeset	34	other person. No title to or ownership of the software is
205d53e91c52 Initial revision claus parents: diff changeset	35	hereby transferred.
205d53e91c52 Initial revision claus parents: diff changeset	36	"
205d53e91c52 Initial revision claus parents: diff changeset	37
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	38
2997 928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	39	!
928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	40
928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	41	documentation
928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	42	"
928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	43	modified Inspector for Classes; in addition to instance variables,
928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	44	also shows ClassVariables in its left SelectionList.
3200 4889a13402db * empty log message * Claus Gittinger <cg@exept.de> parents: 2997 diff changeset	45
4889a13402db * empty log message * Claus Gittinger <cg@exept.de> parents: 2997 diff changeset	46	Array inspect
4889a13402db * empty log message * Claus Gittinger <cg@exept.de> parents: 2997 diff changeset	47	View inspect
2997 928594257211 Move documentation method to class protocol. Stefan Vogel <sv@exept.de> parents: 2271 diff changeset	48	"
30 205d53e91c52 Initial revision claus parents: diff changeset	49	! !
205d53e91c52 Initial revision claus parents: diff changeset	50
205d53e91c52 Initial revision claus parents: diff changeset	51	!ClassInspectorView methodsFor:'accessing'!
205d53e91c52 Initial revision claus parents: diff changeset	52
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	53	fieldList
30 205d53e91c52 Initial revision claus parents: diff changeset	54	"return a list of names to show in the selectionList"
205d53e91c52 Initial revision claus parents: diff changeset	55
205d53e91c52 Initial revision claus parents: diff changeset	56	\|aList\|
205d53e91c52 Initial revision claus parents: diff changeset	57
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	58	aList := super fieldList.
30 205d53e91c52 Initial revision claus parents: diff changeset	59
205d53e91c52 Initial revision claus parents: diff changeset	60	"/
16548 b8f9c3d05c67 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15533 diff changeset	61	"/ add class variables (always sorted)
30 205d53e91c52 Initial revision claus parents: diff changeset	62	"/
15533 705cf3d2d10a class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 13697 diff changeset	63	inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass \|
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	64	\|varNames\|
30 205d53e91c52 Initial revision claus parents: diff changeset	65
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	66	varNames := aClass classVarNames.
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	67	varNames notEmpty ifTrue:[
16548 b8f9c3d05c67 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15533 diff changeset	68	varNames sort.
12933 497e83e8c65a class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 12447 diff changeset	69	aList add:('--- classvariables from ' , aClass name allBold, ' ---').
2271 0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	70	varNames do:[:classVarName \|
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	71	aList add:classVarName
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	72	]
0cf238543cb1 fixed and improved fieldNameList generation & use. Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	73	]
30 205d53e91c52 Initial revision claus parents: diff changeset	74	].
205d53e91c52 Initial revision claus parents: diff changeset	75	^ aList
12447 a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	76	!
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	77
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	78	valueAtLine:lineNr
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	79	"return a list of names to show in the selectionList"
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	80
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	81	\|list idx0\|
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	82
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	83	list := super fieldList.
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	84	lineNr <= list size ifTrue:[ ^ super valueAtLine:lineNr ].
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	85
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	86	"/
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	87	"/ a class variable
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	88	"/
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	89	idx0 := list size + 1.
15533 705cf3d2d10a class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 13697 diff changeset	90	inspectedObject class withAllSuperclasses reverseDo:[:aClass \|
12447 a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	91	\|varNames varName\|
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	92
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	93	varNames := aClass classVarNames.
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	94	varNames notEmpty ifTrue:[
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	95	(lineNr between:idx0+1 and:(idx0 + 1 + varNames size - 1)) ifTrue:[
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	96	varName := varNames at:lineNr-idx0.
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	97	^ aClass classVarAt:varName.
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	98	].
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	99	idx0 := idx0 + varNames size + 1.
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	100	]
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	101	].
a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	102	^ nil
30 205d53e91c52 Initial revision claus parents: diff changeset	103	! !
205d53e91c52 Initial revision claus parents: diff changeset	104
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	105	!ClassInspectorView class methodsFor:'documentation'!
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	106
257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	107	version
16548 b8f9c3d05c67 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15533 diff changeset	108	^ '$Header$'
2236 257f587ad7dc migrate instvars 'inspectedObject' to 'object' Claus Gittinger <cg@exept.de> parents: 165 diff changeset	109	! !
12447 a35a8b2fe1f5 class: ClassInspectorView Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	110

author	Claus Gittinger <cg@exept.de>
	Wed, 11 May 2016 10:47:51 +0200
changeset 16548	b8f9c3d05c67
parent 15533	705cf3d2d10a
child 16572	ab23beb4bba6
child 16654	769d7d0f32b4
permissions	-rw-r--r--