equal
deleted
inserted
replaced
381 dragOffset := DragAndDropManager dragOffsetQuerySignal raise. |
381 dragOffset := DragAndDropManager dragOffsetQuerySignal raise. |
382 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
382 newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset. |
383 |
383 |
384 oldSel isNil ifTrue:[self select:newSel] |
384 oldSel isNil ifTrue:[self select:newSel] |
385 ifFalse:[self select:oldSel] |
385 ifFalse:[self select:oldSel] |
|
386 ! ! |
|
387 |
|
388 !UIPainterView methodsFor:'event handling'! |
|
389 |
|
390 keyPress:key x:x y:y view:aView |
|
391 self keyPress:key x:x y:y |
|
392 |
|
393 |
|
394 ! |
|
395 |
|
396 keyRelease:key x:x y:y view:aView |
|
397 self keyRelease:key x:x y:y |
|
398 |
|
399 |
386 ! ! |
400 ! ! |
387 |
401 |
388 !UIPainterView methodsFor:'generating output'! |
402 !UIPainterView methodsFor:'generating output'! |
389 |
403 |
390 aspectMethods |
404 aspectMethods |
792 treeView setAttributesFromWindowSpec:(spec window). |
806 treeView setAttributesFromWindowSpec:(spec window). |
793 ] |
807 ] |
794 ! |
808 ! |
795 |
809 |
796 treeView:aTreeView |
810 treeView:aTreeView |
797 treeView := aTreeView |
811 treeView := aTreeView. |
|
812 |
|
813 treeView delegate:( |
|
814 KeyboardForwarder toView:self |
|
815 condition:nil |
|
816 filter:[:k|(k isSymbol and:[k ~~ #Return and:[(k startsWith:#Cursor) not]])] |
|
817 ) |
|
818 |
798 ! ! |
819 ! ! |
799 |
820 |
800 !UIPainterView methodsFor:'menus'! |
821 !UIPainterView methodsFor:'menus'! |
801 |
822 |
802 showMiddleButtonMenu |
823 showMiddleButtonMenu |