equal
deleted
inserted
replaced
425 !UIGalleryView::Canvas methodsFor:'drag & drop'! |
425 !UIGalleryView::Canvas methodsFor:'drag & drop'! |
426 |
426 |
427 startDragFrom:evView |
427 startDragFrom:evView |
428 "start drag at a point |
428 "start drag at a point |
429 " |
429 " |
430 |spec dragObj offset clickPos| |
430 |spec dragObj offset clickPos dragAndDropManager| |
431 |
431 |
432 clickPos := lastClickPoint. |
432 clickPos := lastClickPoint. |
433 clickPos isNil ifTrue:[^ self]. |
433 clickPos isNil ifTrue:[^ self]. |
434 lastClickPoint := nil. |
434 lastClickPoint := nil. |
435 |
435 |
442 |
442 |
443 dragObj := DropSpec for:selection specification:spec. |
443 dragObj := DropSpec for:selection specification:spec. |
444 offset := clickPos - selection origin. |
444 offset := clickPos - selection origin. |
445 ]. |
445 ]. |
446 |
446 |
447 DragAndDropManager startDrag:dragObj from:evView offset:offset. |
447 dragAndDropManager := DragAndDropManager new. |
|
448 dragAndDropManager giveFocusToTargetWidget:false. |
|
449 |
|
450 dragAndDropManager startDrag:dragObj |
|
451 from:self |
|
452 offset:offset |
|
453 atEnd:nil |
|
454 display:nil. |
448 ! ! |
455 ! ! |
449 |
456 |
450 !UIGalleryView::Canvas methodsFor:'event handling'! |
457 !UIGalleryView::Canvas methodsFor:'event handling'! |
451 |
458 |
452 processEvent:anEvent |
459 processEvent:anEvent |