equal
deleted
inserted
replaced
353 ! |
353 ! |
354 |
354 |
355 drop:anObjectOrCollection at:aPoint |
355 drop:anObjectOrCollection at:aPoint |
356 |spec newSel oldSel dragOffset| |
356 |spec newSel oldSel dragOffset| |
357 |
357 |
358 Transcript showCR:aPoint. |
|
359 |
|
360 (oldSel := selection) isCollection ifTrue:[ |
358 (oldSel := selection) isCollection ifTrue:[ |
361 oldSel := selection copy |
359 oldSel := selection copy |
362 ]. |
360 ]. |
363 spec := (anObjectOrCollection at:1) theObject. |
361 spec := (anObjectOrCollection at:1) theObject. |
364 dragOffset := DragAndDropManager dragOffsetQuerySignal raise. |
362 dragOffset := DragAndDropManager dragOffsetQuerySignal raise. |
365 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
363 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
366 |
364 |
367 oldSel isNil ifTrue:[self select:newSel] |
365 oldSel isNil ifTrue:[self select:newSel] |
368 ifFalse:[self select:oldSel] |
366 ifFalse:[self select:oldSel] |
369 |
367 |
370 "Modified: 11.8.1997 / 01:07:09 / cg" |
368 "Modified: 11.8.1997 / 16:41:52 / cg" |
371 ! ! |
369 ! ! |
372 |
370 |
373 !UIPainterView methodsFor:'generating output'! |
371 !UIPainterView methodsFor:'generating output'! |
374 |
372 |
375 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass |
373 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass |