hg/stx-libbasic3: MethodCategoryChange.st@0feb8bbb287d (annotated)

25 e672a78c4cd3 . claus parents: 15 diff changeset	1	"
e672a78c4cd3 . claus parents: 15 diff changeset	2	COPYRIGHT (c) 1993 by Claus Gittinger
e672a78c4cd3 . claus parents: 15 diff changeset	3	All Rights Reserved
e672a78c4cd3 . claus parents: 15 diff changeset	4
e672a78c4cd3 . claus parents: 15 diff changeset	5	This software is furnished under a license and may be used
e672a78c4cd3 . claus parents: 15 diff changeset	6	only in accordance with the terms of that license and with the
e672a78c4cd3 . claus parents: 15 diff changeset	7	inclusion of the above copyright notice. This software may not
e672a78c4cd3 . claus parents: 15 diff changeset	8	be provided or otherwise made available to, or used by, any
e672a78c4cd3 . claus parents: 15 diff changeset	9	other person. No title to or ownership of the software is
e672a78c4cd3 . claus parents: 15 diff changeset	10	hereby transferred.
e672a78c4cd3 . claus parents: 15 diff changeset	11	"
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	12	"{ Package: 'stx:libbasic3' }"
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 852 diff changeset	13
15 639ae882da27 Initial revision claus parents: diff changeset	14	MethodChange subclass:#MethodCategoryChange
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	15	instanceVariableNames:''
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	16	classVariableNames:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	17	poolDictionaries:''
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	18	category:'System-Changes'
15 639ae882da27 Initial revision claus parents: diff changeset	19	!
639ae882da27 Initial revision claus parents: diff changeset	20
25 e672a78c4cd3 . claus parents: 15 diff changeset	21	!MethodCategoryChange class methodsFor:'documentation'!
e672a78c4cd3 . claus parents: 15 diff changeset	22
e672a78c4cd3 . claus parents: 15 diff changeset	23	copyright
e672a78c4cd3 . claus parents: 15 diff changeset	24	"
e672a78c4cd3 . claus parents: 15 diff changeset	25	COPYRIGHT (c) 1993 by Claus Gittinger
e672a78c4cd3 . claus parents: 15 diff changeset	26	All Rights Reserved
e672a78c4cd3 . claus parents: 15 diff changeset	27
e672a78c4cd3 . claus parents: 15 diff changeset	28	This software is furnished under a license and may be used
e672a78c4cd3 . claus parents: 15 diff changeset	29	only in accordance with the terms of that license and with the
e672a78c4cd3 . claus parents: 15 diff changeset	30	inclusion of the above copyright notice. This software may not
e672a78c4cd3 . claus parents: 15 diff changeset	31	be provided or otherwise made available to, or used by, any
e672a78c4cd3 . claus parents: 15 diff changeset	32	other person. No title to or ownership of the software is
e672a78c4cd3 . claus parents: 15 diff changeset	33	hereby transferred.
e672a78c4cd3 . claus parents: 15 diff changeset	34	"
e672a78c4cd3 . claus parents: 15 diff changeset	35	!
e672a78c4cd3 . claus parents: 15 diff changeset	36
45 0a58b03645a6 . claus parents: 39 diff changeset	37	documentation
0a58b03645a6 . claus parents: 39 diff changeset	38	"
0a58b03645a6 . claus parents: 39 diff changeset	39	instances represent method-category changes (as done in the browser).
0a58b03645a6 . claus parents: 39 diff changeset	40	They are typically held in a ChangeSet.
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	41
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	42	[author:]
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	43	Claus Gittinger
45 0a58b03645a6 . claus parents: 39 diff changeset	44	"
25 e672a78c4cd3 . claus parents: 15 diff changeset	45	! !
e672a78c4cd3 . claus parents: 15 diff changeset	46
15 639ae882da27 Initial revision claus parents: diff changeset	47	!MethodCategoryChange methodsFor:'accessing'!
639ae882da27 Initial revision claus parents: diff changeset	48
639ae882da27 Initial revision claus parents: diff changeset	49	class:cls selector:sel category:cat
1902 20db5f942dbd changed #class:selector:category: Claus Gittinger <cg@exept.de> parents: 1846 diff changeset	50	self className:cls name selector:sel category:cat
15 639ae882da27 Initial revision claus parents: diff changeset	51
1902 20db5f942dbd changed #class:selector:category: Claus Gittinger <cg@exept.de> parents: 1846 diff changeset	52	"Modified: / 12-11-2006 / 15:55:11 / cg"
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	53	!
c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	54
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	55	className:clsName selector:sel category:cat
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	56	className := clsName.
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	57	selector := sel.
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	58	methodCategory := cat
654 edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	59
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	60	"Created: / 16.2.1998 / 14:14:16 / cg"
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	61	!
edeb63d98088 checkin from browser Claus Gittinger <cg@exept.de> parents: 235 diff changeset	62
1052 cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	63	prettyPrintedSource
1846 c0f8e12c9611 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	64	^ self sourceForMethod, Character cr
1052 cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	65	, ' category:' , methodCategory storeString
1846 c0f8e12c9611 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	66
c0f8e12c9611 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	67	"Modified: / 09-10-2006 / 13:59:15 / cg"
1052 cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	68	!
cc84f5e27bb5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1009 diff changeset	69
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	70	source
1846 c0f8e12c9611 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	71	^ self sourceForMethod , ' category:' , methodCategory storeString
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	72
1846 c0f8e12c9611 * empty log message * Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	73	"Modified: / 09-10-2006 / 13:59:10 / cg"
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	74	! !
1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	75
1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	76	!MethodCategoryChange methodsFor:'applying'!
1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	77
1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	78	apply
1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	79	"apply the change"
85 c354e2f81394 checkin from browser Claus Gittinger <cg@exept.de> parents: 68 diff changeset	80
1915 d23534c8ab03 the method does the change-file-update; NOT me Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	81	\|mthd\|
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	82
1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	83	mthd := self changeMethod.
1915 d23534c8ab03 the method does the change-file-update; NOT me Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	84	mthd category:methodCategory asSymbol.
852 1acd7d3ed3fc checkin from browser Claus Gittinger <cg@exept.de> parents: 654 diff changeset	85
1915 d23534c8ab03 the method does the change-file-update; NOT me Claus Gittinger <cg@exept.de> parents: 1902 diff changeset	86	"Modified: / 23-11-2006 / 16:59:09 / cg"
15 639ae882da27 Initial revision claus parents: diff changeset	87	! !
639ae882da27 Initial revision claus parents: diff changeset	88
2131 0feb8bbb287d added: #isMethodCodeChange Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	89	!MethodCategoryChange methodsFor:'testing'!
964 64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 957 diff changeset	90
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 957 diff changeset	91	isMethodCategoryChange
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 957 diff changeset	92	^ true
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 957 diff changeset	93	! !
64282b5e5c48 added #isMEthodCategoryChange Claus Gittinger <cg@exept.de> parents: 957 diff changeset	94
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	95	!MethodCategoryChange class methodsFor:'documentation'!
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	96
3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	97	version
2131 0feb8bbb287d added: #isMethodCodeChange Claus Gittinger <cg@exept.de> parents: 2120 diff changeset	98	^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.19 2009-09-22 17:03:45 cg Exp $'
235 3ebfdc6edab9 documentation Claus Gittinger <cg@exept.de> parents: 85 diff changeset	99	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 22 Sep 2009 19:03:45 +0200
changeset 2131	0feb8bbb287d
parent 2120	45f3b103621d
child 2263	c514b61ac1b2
permissions	-rw-r--r--