hg/stx-libview2: DragAndDropManager.st@626e8241dc76 (annotated)

341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1	Object subclass:#DragAndDropManager
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2	instanceVariableNames:'dragView motionAction releaseAction initialPoint previousPoint
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	3	rememberedDelegate dragBlock lineMode dropAction'
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	classVariableNames:''
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	poolDictionaries:''
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	category:'Interface-Support'
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	9	View subclass:#DemoView
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	10	instanceVariableNames:''
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	11	classVariableNames:''
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	12	poolDictionaries:''
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	13	privateIn:DragAndDropManager
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	14	!
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	15
343 3a611a1f882d * empty log message * Claus Gittinger <cg@exept.de> parents: 342 diff changeset	16	View subclass:#DemoView2
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	17	instanceVariableNames:''
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	18	classVariableNames:''
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	19	poolDictionaries:''
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	20	privateIn:DragAndDropManager
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	21	!
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	22
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	23	View subclass:#DemoView3
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	instanceVariableNames:''
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	classVariableNames:''
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	poolDictionaries:''
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	privateIn:DragAndDropManager
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	!DragAndDropManager class methodsFor:'documentation'!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	history
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	"Created: 26.10.1996 / 15:02:00 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	"Modified: 26.10.1996 / 15:21:42 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	! !
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	38	!DragAndDropManager methodsFor:'dragging - generic'!
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	39
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	40	doGenericDragX:x y:y
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	41	previousPoint notNil ifTrue:[
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	42	self invertGenericAt:previousPoint
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	43	].
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	44	previousPoint := x @ y.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	45	self invertGenericAt:previousPoint
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	46
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	47	"Modified: 26.10.1996 / 15:16:59 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	48	!
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	49
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	50	endGenericDragX:x y:y
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	51	previousPoint notNil ifTrue:[
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	52	self invertGenericAt:previousPoint
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	53	].
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	54	previousPoint := nil.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	55	self uncatchEvents
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	56
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	57	"Created: 26.10.1996 / 15:17:20 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	58	"Modified: 26.10.1996 / 15:22:41 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	59	!
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	60
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	61	invertGenericAt:ip
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	62	\|t offs p rootView\|
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	63
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	64	rootView := dragView device rootView.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	65
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	66	p := ip.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	67
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	68	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	69	get device coordinates
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	70	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	71	(t := dragView transformation) notNil ifTrue:[
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	72	p := t applyTo:p.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	73	].
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	74
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	75	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	76	translate to screen
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	77	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	78	offs := dragView device
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	79	translatePoint:0@0
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	80	from:(dragView id) to:(rootView id).
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	81	p := p + offs.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	82
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	83	rootView clippedByChildren:false.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	84	rootView xoring:[
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	85	rootView lineWidth:0.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	86	dragBlock value:p.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	87	rootView flush
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	88	].
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	89
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	90	"Created: 26.10.1996 / 15:15:26 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	91	"Modified: 26.10.1996 / 15:27:09 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	92	!
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	93
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	94	startGenericDrag:aBlock in:aView at:p atEnd:endBlock
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	95	self catchEventsFrom:aView.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	96	motionAction := #doGenericDragX:y:.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	97	releaseAction := #endGenericDragX:y:.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	98	initialPoint := p.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	99	previousPoint := nil.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	100	dragBlock := aBlock.
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	101	dropAction := endBlock.
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	102
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	103	"Modified: 26.10.1996 / 15:09:26 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	104	"Created: 26.10.1996 / 15:16:13 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	105	! !
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	106
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	107	!DragAndDropManager methodsFor:'dragging - lines'!
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	108
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	109	doLineDragX:x y:y
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	previousPoint notNil ifTrue:[
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	111	self invertLineFrom:initialPoint to:previousPoint
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	112	].
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	previousPoint := x @ y.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114	self invertLineFrom:initialPoint to:previousPoint
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	"Modified: 26.10.1996 / 15:16:59 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	endLineDragX:x y:y
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	previousPoint notNil ifTrue:[
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121	self invertLineFrom:initialPoint to:previousPoint
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	].
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	previousPoint := nil.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	self uncatchEvents
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	"Created: 26.10.1996 / 15:17:20 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127	"Modified: 26.10.1996 / 15:22:41 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	130	invertLineFrom:ip1 to:ip2
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	131	\|t offs p1 p2 rootView a\|
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	132
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	133	rootView := dragView device rootView.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	p1 := ip1.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	136	p2 := ip2.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	137
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	138	"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	get device coordinates
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140	"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	(t := dragView transformation) notNil ifTrue:[
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	142	p1 := t applyTo:p1.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	p2 := t applyTo:p2.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	144	].
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	145
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	146	"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	147	translate to screen
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	148	"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	149	offs := dragView device
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	150	translatePoint:0@0
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	from:(dragView id) to:(rootView id).
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152	p1 := p1 + offs.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	p2 := p2 + offs.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	rootView clippedByChildren:false.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	rootView xoring:[
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	rootView lineWidth:0.
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	158	lineMode == #arrow ifTrue:[
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	159	a := Arrow from:p1 to:p2.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	160	a arrowHeadLength:(rootView device horizontalPixelPerMillimeter * 4) rounded.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	161	a displayFilledOn:rootView.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	162	] ifFalse:[
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	163	rootView displayLineFrom:p1 to:p2.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	164	].
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	165	rootView flush
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	166	].
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	167
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	168	"Created: 26.10.1996 / 15:15:26 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	169	"Modified: 26.10.1996 / 15:27:09 / cg"
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	170	!
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	171
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	172	startArrowDragIn:aView at:p atEnd:aBlock
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	173	self catchEventsFrom:aView.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	174	motionAction := #doLineDragX:y:.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	175	releaseAction := #endLineDragX:y:.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	176	initialPoint := p.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	177	previousPoint := nil.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	178	dragBlock := nil.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	179	lineMode := #arrow.
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	180	dropAction := aBlock.
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	181
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	182	"Modified: 26.10.1996 / 15:09:26 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	183	"Created: 26.10.1996 / 15:16:13 / cg"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	184	!
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	186	startLineDragIn:aView at:p atEnd:aBlock
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187	self catchEventsFrom:aView.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	motionAction := #doLineDragX:y:.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	releaseAction := #endLineDragX:y:.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190	initialPoint := p.
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	191	previousPoint := nil.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	192	dragBlock := nil.
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	193	lineMode := nil.
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	194	dropAction := aBlock.
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196	"Modified: 26.10.1996 / 15:09:26 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	"Created: 26.10.1996 / 15:16:13 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	! !
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	!DragAndDropManager methodsFor:'event catching'!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	buttonMotion:button x:x y:y view:aView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	self perform:motionAction with:x with:y
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	"Created: 26.10.1996 / 15:09:00 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	207
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	buttonRelease:button x:x y:y view:aView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	209	self perform:releaseAction with:x with:y
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	210
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	211	"Created: 26.10.1996 / 15:09:14 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214	handlesButtonMotion:button inView:aView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	"query from event processor: am I interested in button-events ?
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216	yes I am (to activate the clicked-on field)."
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	^ aView == dragView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220	"Created: 26.10.1996 / 15:05:36 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	handlesButtonRelease:button inView:aView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224	"query from event processor: am I interested in button-events ?
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	yes I am (to activate the clicked-on field)."
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	^ aView == dragView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	"Created: 26.10.1996 / 15:05:48 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	! !
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232	!DragAndDropManager methodsFor:'private'!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234	catchEventsFrom:aView
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	235	dragView := aView.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	rememberedDelegate := aView delegate.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	237	aView delegate:self
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	238
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	239	"Created: 26.10.1996 / 15:03:12 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	240	"Modified: 26.10.1996 / 15:21:57 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	241	!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	242
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	243	uncatchEvents
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	244	dragView delegate:rememberedDelegate.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	245	dragView := nil.
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	246
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	247	"Created: 26.10.1996 / 15:22:29 / cg"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	248	! !
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	249
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	250	!DragAndDropManager::DemoView methodsFor:'events'!
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	251
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	252	buttonPress:button x:x y:y
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	253	DragAndDropManager new
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	254	startLineDragIn:self at:(x@y) atEnd:[:v :id :p \| ].
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	255
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	256	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	257	self new open
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	258	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	259	! !
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	260
343 3a611a1f882d * empty log message * Claus Gittinger <cg@exept.de> parents: 342 diff changeset	261	!DragAndDropManager::DemoView2 methodsFor:'events'!
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	262
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	263	buttonPress:button x:x y:y
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	264	DragAndDropManager new
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	265	startGenericDrag:[:p \| device rootView displayString:'hello' at:p]
626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	266	in:self
626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	267	at:(x@y)
626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	268	atEnd:[:v :id :p \| ]
626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	269
342 7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	270
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	271	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	272	self new open
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	273	"
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	274
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	275
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	276	! !
7563cbf04502 added genericDrag & arrowDrag Claus Gittinger <cg@exept.de> parents: 341 diff changeset	277
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	278	!DragAndDropManager::DemoView3 methodsFor:'events'!
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	279
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	280	buttonPress:button x:x y:y
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	281	DragAndDropManager new
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	282	startArrowDragIn:self
626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	283	at:(x@y)
626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	284	atEnd:[:v :id :p \| ]
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	285
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	286	"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	287	self new open
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	288	"
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	289	! !
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	290
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	291	!DragAndDropManager class methodsFor:'documentation'!
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	292
5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	293	version
345 626e8241dc76 checkin from browser Claus Gittinger <cg@exept.de> parents: 343 diff changeset	294	^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.4 1996-10-26 17:06:50 cg Exp $'
341 5afe98e6185b intitial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	295	! !

author	Claus Gittinger <cg@exept.de>
	Sat, 26 Oct 1996 19:06:50 +0200
changeset 345	626e8241dc76
parent 343	3a611a1f882d
child 346	1612c23d9c5d
permissions	-rw-r--r--