hg/stx-libbasic3: MethodChange.st@edeb63d98088 (annotated)

4 7744cd9b1453 * empty log message * claus parents: 0 diff changeset	1	"
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
25 e672a78c4cd3 . claus parents: 10 diff changeset	3	All Rights Reserved
4 7744cd9b1453 * empty log message * claus parents: 0 diff changeset	4
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	5	This software is furnished under a license and may be used
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	6	only in accordance with the terms of that license and with the
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	7	inclusion of the above copyright notice. This software may not
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	8	be provided or otherwise made available to, or used by, any
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	9	other person. No title to or ownership of the software is
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	10	hereby transferred.
7744cd9b1453 * empty log message * claus parents: 0 diff changeset	11	"
0 470788421600 Initial revision claus parents: diff changeset	12
470788421600 Initial revision claus parents: diff changeset	13	ClassChange subclass:#MethodChange
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	14	instanceVariableNames:'selector methodCategory privacy'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	15	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	16	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	17	category:'System-Changes'
0 470788421600 Initial revision claus parents: diff changeset	18	!
470788421600 Initial revision claus parents: diff changeset	19
25 e672a78c4cd3 . claus parents: 10 diff changeset	20	!MethodChange class methodsFor:'documentation'!
e672a78c4cd3 . claus parents: 10 diff changeset	21
e672a78c4cd3 . claus parents: 10 diff changeset	22	copyright
e672a78c4cd3 . claus parents: 10 diff changeset	23	"
e672a78c4cd3 . claus parents: 10 diff changeset	24	COPYRIGHT (c) 1993 by Claus Gittinger
e672a78c4cd3 . claus parents: 10 diff changeset	25	All Rights Reserved
10 676ce0471de4 * empty log message * claus parents: 7 diff changeset	26
25 e672a78c4cd3 . claus parents: 10 diff changeset	27	This software is furnished under a license and may be used
e672a78c4cd3 . claus parents: 10 diff changeset	28	only in accordance with the terms of that license and with the
e672a78c4cd3 . claus parents: 10 diff changeset	29	inclusion of the above copyright notice. This software may not
e672a78c4cd3 . claus parents: 10 diff changeset	30	be provided or otherwise made available to, or used by, any
e672a78c4cd3 . claus parents: 10 diff changeset	31	other person. No title to or ownership of the software is
e672a78c4cd3 . claus parents: 10 diff changeset	32	hereby transferred.
e672a78c4cd3 . claus parents: 10 diff changeset	33	"
e672a78c4cd3 . claus parents: 10 diff changeset	34	!
e672a78c4cd3 . claus parents: 10 diff changeset	35
45 0a58b03645a6 . claus parents: 39 diff changeset	36	documentation
0a58b03645a6 . claus parents: 39 diff changeset	37	"
0a58b03645a6 . claus parents: 39 diff changeset	38	instances represent method-changes (as done in the browser).
0a58b03645a6 . claus parents: 39 diff changeset	39	They are typically held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	40
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	41	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	42	Claus Gittinger
45 0a58b03645a6 . claus parents: 39 diff changeset	43	"
25 e672a78c4cd3 . claus parents: 10 diff changeset	44	! !
10 676ce0471de4 * empty log message * claus parents: 7 diff changeset	45
0 470788421600 Initial revision claus parents: diff changeset	46	!MethodChange class methodsFor:'instance creation'!
470788421600 Initial revision claus parents: diff changeset	47
102 3f85fe87cc58 include category in methodChanges Claus Gittinger <cg@exept.de> parents: 85 diff changeset	48	class:cls selector:sel source:src category:cat
3f85fe87cc58 include category in methodChanges Claus Gittinger <cg@exept.de> parents: 85 diff changeset	49	^ self basicNew class:cls selector:sel source:src category:cat
0 470788421600 Initial revision claus parents: diff changeset	50	! !
470788421600 Initial revision claus parents: diff changeset	51
470788421600 Initial revision claus parents: diff changeset	52	!MethodChange methodsFor:'accessing'!
470788421600 Initial revision claus parents: diff changeset	53
102 3f85fe87cc58 include category in methodChanges Claus Gittinger <cg@exept.de> parents: 85 diff changeset	54	class:cls selector:sel source:src category:cat
0 470788421600 Initial revision claus parents: diff changeset	55	className := cls name.
470788421600 Initial revision claus parents: diff changeset	56	selector := sel.
102 3f85fe87cc58 include category in methodChanges Claus Gittinger <cg@exept.de> parents: 85 diff changeset	57	source := src.
3f85fe87cc58 include category in methodChanges Claus Gittinger <cg@exept.de> parents: 85 diff changeset	58	methodCategory := cat
648 b7e0ef4b3781 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	59	!
b7e0ef4b3781 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	60
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	61	className:clsName selector:sel source:src category:cat
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	62	className := clsName.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	63	selector := sel.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	64	source := src.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	65	methodCategory := cat
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	66
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	67	"Created: / 16.2.1998 / 12:29:49 / cg"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	68	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	69
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	70	className:clsName selector:sel source:src category:cat privacy:priv
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	71	className := clsName.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	72	selector := sel.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	73	source := src.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	74	methodCategory := cat.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	75	privacy := priv.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	76
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	77	"Created: / 16.2.1998 / 12:29:49 / cg"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	78	"Modified: / 16.2.1998 / 14:28:12 / cg"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	79	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	80
652 b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	81	methodCategory
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	82	^ methodCategory
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	83
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	84	"Created: / 7.2.1998 / 19:47:53 / cg"
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	85	!
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	86
648 b7e0ef4b3781 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	87	selector
b7e0ef4b3781 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	88	^ selector
b7e0ef4b3781 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	89
b7e0ef4b3781 * empty log message * Claus Gittinger <cg@exept.de> parents: 235 diff changeset	90	"Created: / 6.2.1998 / 13:29:25 / cg"
0 470788421600 Initial revision claus parents: diff changeset	91	! !
470788421600 Initial revision claus parents: diff changeset	92
470788421600 Initial revision claus parents: diff changeset	93	!MethodChange methodsFor:'printing'!
470788421600 Initial revision claus parents: diff changeset	94
7 1ec2a2047025 * empty log message * claus parents: 4 diff changeset	95	printOn:aStream
1ec2a2047025 * empty log message * claus parents: 4 diff changeset	96	aStream nextPutAll:className;
25 e672a78c4cd3 . claus parents: 10 diff changeset	97	space;
e672a78c4cd3 . claus parents: 10 diff changeset	98	nextPutAll:selector
0 470788421600 Initial revision claus parents: diff changeset	99	! !
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	100
652 b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	101	!MethodChange methodsFor:'queries'!
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	102
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	103	isMethodChange
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	104	^ true
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	105
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	106	"Created: / 7.2.1998 / 19:26:59 / cg"
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	107	! !
b9e4b4465a2c * empty log message * Claus Gittinger <cg@exept.de> parents: 648 diff changeset	108
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	109	!MethodChange class methodsFor:'documentation'!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	110
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	111	version
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 652 diff changeset	112	^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.16 1998-02-16 13:59:56 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 102 diff changeset	113	! !

author	Claus Gittinger <cg@exept.de>
	Mon, 16 Feb 1998 15:00:00 +0100
changeset 654	edeb63d98088
parent 652	b9e4b4465a2c
child 779	d2c59a219cbc
permissions	-rw-r--r--