hg/stx-libbasic3: ChangeSet.st@5f7ac0b5c903 (annotated)

3 263f814933d4 * empty log message * claus parents: 0 diff changeset	1	"
263f814933d4 * empty log message * claus parents: 0 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	3	All Rights Reserved
3 263f814933d4 * empty log message * claus parents: 0 diff changeset	4
263f814933d4 * empty log message * claus parents: 0 diff changeset	5	This software is furnished under a license and may be used
263f814933d4 * empty log message * claus parents: 0 diff changeset	6	only in accordance with the terms of that license and with the
263f814933d4 * empty log message * claus parents: 0 diff changeset	7	inclusion of the above copyright notice. This software may not
263f814933d4 * empty log message * claus parents: 0 diff changeset	8	be provided or otherwise made available to, or used by, any
263f814933d4 * empty log message * claus parents: 0 diff changeset	9	other person. No title to or ownership of the software is
263f814933d4 * empty log message * claus parents: 0 diff changeset	10	hereby transferred.
263f814933d4 * 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	OrderedCollection subclass:#ChangeSet
470788421600 Initial revision claus parents: diff changeset	14	instanceVariableNames:''
470788421600 Initial revision claus parents: diff changeset	15	classVariableNames:''
470788421600 Initial revision claus parents: diff changeset	16	poolDictionaries:''
470788421600 Initial revision claus parents: diff changeset	17	category:'System-Changes'
470788421600 Initial revision claus parents: diff changeset	18	!
470788421600 Initial revision claus parents: diff changeset	19
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	20	!ChangeSet class methodsFor:'documentation'!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	21
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	22	copyright
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	23	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	24	COPYRIGHT (c) 1993 by Claus Gittinger
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	25	All Rights Reserved
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	26
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	27	This software is furnished under a license and may be used
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	28	only in accordance with the terms of that license and with the
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	29	inclusion of the above copyright notice. This software may not
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	30	be provided or otherwise made available to, or used by, any
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	31	other person. No title to or ownership of the software is
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	32	hereby transferred.
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	33	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	34	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	35
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	36	version
68 5f7ac0b5c903 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 44 diff changeset	37	^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.12 1995-11-11 15:20:26 cg Exp $'
9 f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	38	!
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	39
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	40	documentation
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	41	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	42	used in the changes management to keep track of changes
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	43	"
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	44	! !
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	45
f5b6ab00bdf6 * empty log message * claus parents: 3 diff changeset	46
27 d24c4aec6d07 . claus parents: 16 diff changeset	47	!ChangeSet class methodsFor:'queries'!
d24c4aec6d07 . claus parents: 16 diff changeset	48
d24c4aec6d07 . claus parents: 16 diff changeset	49	current
d24c4aec6d07 . claus parents: 16 diff changeset	50	"ST-80 compatibility: return the current changeSet"
d24c4aec6d07 . claus parents: 16 diff changeset	51
d24c4aec6d07 . claus parents: 16 diff changeset	52	\|p\|
d24c4aec6d07 . claus parents: 16 diff changeset	53
d24c4aec6d07 . claus parents: 16 diff changeset	54	(Project notNil and:[(p := Project current) notNil]) ifTrue:[
d24c4aec6d07 . claus parents: 16 diff changeset	55	^ p changeSet
d24c4aec6d07 . claus parents: 16 diff changeset	56	]
d24c4aec6d07 . claus parents: 16 diff changeset	57
d24c4aec6d07 . claus parents: 16 diff changeset	58	"
d24c4aec6d07 . claus parents: 16 diff changeset	59	ChangeSet current
d24c4aec6d07 . claus parents: 16 diff changeset	60	"
d24c4aec6d07 . claus parents: 16 diff changeset	61	! !
d24c4aec6d07 . claus parents: 16 diff changeset	62
28 e5df3a5a892f . claus parents: 27 diff changeset	63	!ChangeSet methodsFor:'misc'!
e5df3a5a892f . claus parents: 27 diff changeset	64
e5df3a5a892f . claus parents: 27 diff changeset	65	addPatch:nameOfPatch
e5df3a5a892f . claus parents: 27 diff changeset	66	"ignored for now - allows fileIn of ST-80 patch stuff .."
e5df3a5a892f . claus parents: 27 diff changeset	67
e5df3a5a892f . claus parents: 27 diff changeset	68	^ self
e5df3a5a892f . claus parents: 27 diff changeset	69	! !
e5df3a5a892f . claus parents: 27 diff changeset	70
0 470788421600 Initial revision claus parents: diff changeset	71	!ChangeSet methodsFor:'change management'!
470788421600 Initial revision claus parents: diff changeset	72
470788421600 Initial revision claus parents: diff changeset	73	addMethodChange:aMethod in:aClass
470788421600 Initial revision claus parents: diff changeset	74	\|newChange\|
470788421600 Initial revision claus parents: diff changeset	75
470788421600 Initial revision claus parents: diff changeset	76	newChange := MethodChange class:aClass
27 d24c4aec6d07 . claus parents: 16 diff changeset	77	selector:(aClass selectorAtMethod:aMethod)
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	78	source:aMethod source.
0 470788421600 Initial revision claus parents: diff changeset	79	self add:newChange
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	80	!
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	81
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	82	addMethodCategoryChange:aMethod category:newCategory in:aClass
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	83	\|newChange\|
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	84
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	85	newChange := MethodCategoryChange class:aClass
27 d24c4aec6d07 . claus parents: 16 diff changeset	86	selector:(aClass selectorAtMethod:aMethod)
16 fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	87	category:newCategory.
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	88	self add:newChange
fcbfbba03d49 * empty log message * claus parents: 10 diff changeset	89
44 27caba2cee6b . claus parents: 39 diff changeset	90	!
27caba2cee6b . claus parents: 39 diff changeset	91
27caba2cee6b . claus parents: 39 diff changeset	92	addMethodPrivacyChange:aMethod in:aClass
27caba2cee6b . claus parents: 39 diff changeset	93	\|newChange\|
27caba2cee6b . claus parents: 39 diff changeset	94
27caba2cee6b . claus parents: 39 diff changeset	95	newChange := MethodPrivacyChange class:aClass
27caba2cee6b . claus parents: 39 diff changeset	96	selector:(aClass selectorAtMethod:aMethod)
27caba2cee6b . claus parents: 39 diff changeset	97	privacy:aMethod privacy.
27caba2cee6b . claus parents: 39 diff changeset	98	self add:newChange
27caba2cee6b . claus parents: 39 diff changeset	99
27caba2cee6b . claus parents: 39 diff changeset	100	"Modified: 27.8.1995 / 22:55:22 / claus"
0 470788421600 Initial revision claus parents: diff changeset	101	! !
470788421600 Initial revision claus parents: diff changeset	102

author	Claus Gittinger <cg@exept.de>
	Sat, 11 Nov 1995 16:20:50 +0100
changeset 68	5f7ac0b5c903
parent 44	27caba2cee6b
child 85	c354e2f81394
permissions	-rw-r--r--