hg/stx-libbasic3: WrappedMethod.st@3638d229ce41 (annotated)

9 f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	1	"
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	2	COPYRIGHT (c) 1994 by Claus Gittinger
14 530bf06f9c78 * empty log message * claus parents: 10 diff changeset	3	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	4
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	5	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	6	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	7	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	8	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	9	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	10	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	11	"
8 3fba2acf0eeb Initial revision claus parents: diff changeset	12
3fba2acf0eeb Initial revision claus parents: diff changeset	13	Method subclass:#WrappedMethod
210 3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	14	instanceVariableNames:''
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	15	classVariableNames:''
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	16	poolDictionaries:''
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	17	category:'Kernel-Methods'
8 3fba2acf0eeb Initial revision claus parents: diff changeset	18	!
3fba2acf0eeb Initial revision claus parents: diff changeset	19
9 f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	20	!WrappedMethod class methodsFor:'documentation'!
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	21
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	22	copyright
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	23	"
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	24	COPYRIGHT (c) 1994 by Claus Gittinger
14 530bf06f9c78 * empty log message * claus parents: 10 diff changeset	25	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	26
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	27	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	28	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	29	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	30	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	31	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	32	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	33	"
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	34	!
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	35
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	36	documentation
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	37	"
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	38	support for MessageTracer
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	39	"
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	40	! !
f5b6ab00bdf6 * empty log message * claus parents: 8 diff changeset	41
210 3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	42	!WrappedMethod methodsFor:'accessing'!
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	43
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	44	basicLiterals
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	45	"return my literals"
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	46
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	47	^ literals
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	48	!
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	49
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	50	literals
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	51	"return the wrapped methods literals"
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	52
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	53	^ self originalMethod literals
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	54	!
8 3fba2acf0eeb Initial revision claus parents: diff changeset	55
210 3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	56	methodArgAndVarNames
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	57	"return the names of the args and locals of the wrapped method."
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	58
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	59	^ self originalMethod methodArgAndVarNames
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	60	!
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	61
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	62	methodVarNames
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	63	"return the names of the locals of the wrapped method."
14 530bf06f9c78 * empty log message * claus parents: 10 diff changeset	64
210 3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	65	^ self originalMethod methodVarNames
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	66	!
8 3fba2acf0eeb Initial revision claus parents: diff changeset	67
210 3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	68	numberOfMethodVars
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	69	"return the number of locals in the wrapped method."
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	70
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	71	^ self originalMethod numberOfMethodVars
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	72	!
8 3fba2acf0eeb Initial revision claus parents: diff changeset	73
3fba2acf0eeb Initial revision claus parents: diff changeset	74	originalMethod
14 530bf06f9c78 * empty log message * claus parents: 10 diff changeset	75	"return the method the receiver is wrapping"
8 3fba2acf0eeb Initial revision claus parents: diff changeset	76
3fba2acf0eeb Initial revision claus parents: diff changeset	77	"a kludge: it must be in the literal array somewhere"
3fba2acf0eeb Initial revision claus parents: diff changeset	78	literals do:[:aLiteral \|
19 fefae4fd19a1 * empty log message * claus parents: 16 diff changeset	79	aLiteral isMethod ifTrue:[
14 530bf06f9c78 * empty log message * claus parents: 10 diff changeset	80	^ aLiteral
530bf06f9c78 * empty log message * claus parents: 10 diff changeset	81	]
8 3fba2acf0eeb Initial revision claus parents: diff changeset	82	].
3fba2acf0eeb Initial revision claus parents: diff changeset	83	^ nil
3fba2acf0eeb Initial revision claus parents: diff changeset	84	!
3fba2acf0eeb Initial revision claus parents: diff changeset	85
3fba2acf0eeb Initial revision claus parents: diff changeset	86	source
3fba2acf0eeb Initial revision claus parents: diff changeset	87	"return the wrapped methods source"
3fba2acf0eeb Initial revision claus parents: diff changeset	88
3fba2acf0eeb Initial revision claus parents: diff changeset	89	^ self originalMethod source
3fba2acf0eeb Initial revision claus parents: diff changeset	90	! !
3fba2acf0eeb Initial revision claus parents: diff changeset	91
210 3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	92	!WrappedMethod methodsFor:'queries'!
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	93
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	94	isWrapped
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	95	"return true, if the receiver is a wrapped method.
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	96	True is returned here, since the receiver is always a wrapped one"
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	97
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	98	^ true
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	99	! !
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	100
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	101	!WrappedMethod class methodsFor:'documentation'!
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	102
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	103	version
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	104	^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.10 1996-04-16 09:29:06 cg Exp $'
3638d229ce41 subclasses of fixed classes are still possible Claus Gittinger <cg@exept.de> parents: 68 diff changeset	105	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 16 Apr 1996 11:29:06 +0200
changeset 210	3638d229ce41
parent 68	5f7ac0b5c903
child 234	6350e3b2223c
permissions	-rw-r--r--