hg/stx-libbasic: InterestConverter.st@c1cd0f1920a4 (annotated)

1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	1	Object subclass:#InterestConverter
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	2	instanceVariableNames:'destination selector aspect'
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	3	classVariableNames:''
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	4	poolDictionaries:''
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	5	category:'Interface-Support-Models'
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	6	!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	7
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	8	!InterestConverter class methodsFor:'documentation'!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	9
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	10	documentation
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	11	"
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	12	instances convert update messages into messages as setup via
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	13	#onChangeSend:to.
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	14	This is a temporary kludge and will be replaced by a more intelligent
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	15	DependencyCollection class in the future.
1291 74d61fd64c4a documentation Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	16
74d61fd64c4a documentation Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	17	[author:]
74d61fd64c4a documentation Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	18	Claus Gittinger
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	19	"
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	21
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	22	examples
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	23	"
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	24	#onChangeSend:to / #retractInterestsIn:
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	25	interested in any change:
1315 85a27a31a690 examples Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	26	[exBegin]
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	27	\|p b\|
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	28
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	29	b := [Transcript showCR:'--> notification: point has changed'].
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	30
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	31	p := Point new.
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	32	p onChangeSend:#value to:b.
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	33	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	34	Transcript showCR:'sending change ...'.
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	35	p changed.
2716 08cf98cf1a53 comment Claus Gittinger <cg@exept.de> parents: 1801 diff changeset	36	Transcript showCR:'retracting ...'.
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	37	p retractInterestsFor:b.
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	38	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	39	Transcript showCR:'sending change ...'.
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	40	p changed.
1315 85a27a31a690 examples Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	41	[exEnd]
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	42
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	43
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	44
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	45	#expressInterestIn:for:sendBack / #retractInterestIn:for:
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	46	interested in a specific change:
1315 85a27a31a690 examples Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	47	[exBegin]
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	48	\|p b\|
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	49
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	50	b := [Transcript showCR:'the point changed'].
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	51
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	52	p := Point new.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	53	Transcript showCR:'interest in #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	54	p expressInterestIn:#foo for:b sendBack:#value.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	55	p x:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	56	Transcript showCR:'now changing #bar'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	57	p changed:#bar.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	58	Transcript cr.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	59
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	60	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	61	Transcript showCR:'now changing #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	62	p changed:#foo.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	63	Transcript cr.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	64
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	65	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	66	Transcript showCR:'no more interest in #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	67	p retractInterestIn:#foo for:b.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	68	Transcript showCR:'now changing #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	69	p changed:#foo.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	70	Transcript cr.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	71
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	72	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	73	Transcript showCR:'interest in #bar now'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	74	p expressInterestIn:#bar for:b sendBack:#value.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	75	Transcript showCR:'now changing #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	76	p changed:#foo.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	77	Transcript showCR:'now changing #bar'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	78	p changed:#bar.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	79	Transcript cr.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	80
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	81	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	82	Transcript showCR:'interest in #foo now'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	83	p expressInterestIn:#foo for:b sendBack:#value.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	84	Transcript showCR:'now changing #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	85	p changed:#foo.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	86	Transcript showCR:'now changing #bar'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	87	p changed:#bar.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	88	Transcript cr.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	89
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	90	Delay waitForSeconds:1.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	91	Transcript showCR:'no more interests'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	92	p retractInterestsFor:b.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	93	Transcript showCR:'now changing #foo'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	94	p changed:#foo.
1422 9a0b792f2953 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 1315 diff changeset	95	Transcript showCR:'now changing #bar'.
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	96	p changed:#bar.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	97	Transcript cr.
1315 85a27a31a690 examples Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	98	[exEnd]
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	99	"
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	100	! !
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	101
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	102	!InterestConverter class methodsFor:'instance creation'!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	103
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	104	destination:anObject selector:aSelector
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	105	"create & return an interestConverter, which sends aSelector
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	106	to anObject when a change notification arrives"
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	107
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	108	^ self basicNew destination:anObject selector:aSelector
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	109
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	110	"Modified: 21.5.1997 / 11:59:08 / cg"
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	111	!
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	112
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	113	destination:anObject selector:aSelector aspect:aspect
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	114	"create & return an interestConverter, which sends aSelector
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	115	to anObject when a change notification for aspect arrives"
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	116
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	117	^ self basicNew destination:anObject selector:aSelector aspect:aspect
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	118
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	119	"Modified: 21.5.1997 / 11:59:26 / cg"
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	120	! !
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	121
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	122	!InterestConverter methodsFor:'accessing'!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	123
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	124	aspect
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	125	"return my aspect (if any)"
c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	126
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	127	^ aspect
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	128
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	129	"Created: 8.3.1996 / 23:00:37 / cg"
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	130	"Modified: 21.5.1997 / 11:59:43 / cg"
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	131	!
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	132
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	133	destination
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	134	^ destination
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	135
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	136	"Created: 7.3.1996 / 10:57:01 / cg"
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	137	!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	138
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	139	destination:dest selector:sel
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	140	destination := dest.
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	141	selector := sel
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	142
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	143	"Created: 7.3.1996 / 10:49:13 / cg"
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	144	!
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	145
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	146	destination:dest selector:sel aspect:a
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	147	destination := dest.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	148	selector := sel.
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	149	aspect := a
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	150
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	151	"Created: 8.3.1996 / 22:42:03 / cg"
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	152	! !
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	153
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	154	!InterestConverter methodsFor:'change & update'!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	155
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	156	update:something with:aParameter from:someObject
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	157	(aspect isNil or:[aspect == something]) ifTrue:[
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	158	destination perform:selector
e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	159	]
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	160
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	161	"Created: 7.3.1996 / 10:14:30 / cg"
1098 e8543399e2a0 support aspect-specific interests Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	162	"Modified: 8.3.1996 / 22:41:53 / cg"
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	163	! !
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	164
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	165	!InterestConverter class methodsFor:'documentation'!
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	166
e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	167	version
2717 c1cd0f1920a4 comments Claus Gittinger <cg@exept.de> parents: 2716 diff changeset	168	^ '$Header: /cvs/stx/stx/libbasic/InterestConverter.st,v 1.8 1997-06-24 17:26:24 cg Exp $'
1074 e20967eee4bd renamed Claus Gittinger <cg@exept.de> parents: diff changeset	169	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 24 Jun 1997 19:26:24 +0200
changeset 2717	c1cd0f1920a4
parent 2716	08cf98cf1a53
child 5272	1dad283c5256
permissions	-rw-r--r--