hg/stx-libbasic3: TraitDefinitionChange.st@194142c6df84 (annotated)

2999 9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	"{ Package: 'stx:libbasic3' }"
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2
3177 194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	3	ClassChange subclass:#TraitDefinitionChange
2999 9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'baseTrait traitComposition category'
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'System-Changes'
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!TraitDefinitionChange class methodsFor:'documentation'!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	documentation
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	"
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	instances represent trait changes.
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	These are not present or supported (currently) in st/x, but may be encountered
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	when reading a monticello package containing traits.
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	Mostly experimental.
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	"
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	! !
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	!TraitDefinitionChange methodsFor:'accessing'!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	baseTrait
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	^ baseTrait
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	baseTrait:something
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	baseTrait := something.
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	category
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	^ category
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	category:something
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	category := something.
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
3177 194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	39	source
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	40	^ String streamContents:[:s \|
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	41	s
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	42	nextPutAll: 'Trait named: ';
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	43	nextPutAll: className; cr;
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	44	nextPutAll: ' uses: '.
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	45	traitComposition isEmptyOrNil ifTrue:[
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	46	s nextPutAll: '{}'.
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	47	] ifFalse:[
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	48	s nextPutAll: traitComposition.
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	49	].
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	50	s
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	51	cr;
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	52	nextPutAll: ' category: '.
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	53	category asString storeOn:s.
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	54	]
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	55	!
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	56
2999 9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	traitComposition
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	^ traitComposition
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	59	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	traitComposition:something
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	62	traitComposition := something.
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	! !
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64
3177 194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	65	!TraitDefinitionChange methodsFor:'printing & storing'!
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	66
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	67	printOn:aStream
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	68	aStream nextPutAll:className; nextPutAll:' {trait definition}'
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	69
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	70	"Modified: / 12-10-2006 / 17:48:28 / cg"
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	71	! !
194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	72
2999 9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	!TraitDefinitionChange class methodsFor:'documentation'!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	75	version
3177 194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	76	^ '$Header: /cvs/stx/stx/libbasic3/TraitDefinitionChange.st,v 1.2 2013-04-02 19:18:40 cg Exp $'
2999 9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	77	!
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	78
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	79	version_CVS
3177 194142c6df84 class: TraitDefinitionChange Claus Gittinger <cg@exept.de> parents: 2999 diff changeset	80	^ '$Header: /cvs/stx/stx/libbasic3/TraitDefinitionChange.st,v 1.2 2013-04-02 19:18:40 cg Exp $'
2999 9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	81	! !
9bae264a5296 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	82

author	Claus Gittinger <cg@exept.de>
	Tue, 02 Apr 2013 21:18:40 +0200
changeset 3177	194142c6df84
parent 2999	9bae264a5296
child 3435	d15ba356cc58
child 3452	281e887a36c9
permissions	-rw-r--r--