equal
deleted
inserted
replaced
390 (keepLayout not or:[keepPosition]) ifTrue:[ |
390 (keepLayout not or:[keepPosition]) ifTrue:[ |
391 pasteOffset := 0@0. |
391 pasteOffset := 0@0. |
392 |
392 |
393 keepPosition ifTrue:[ |
393 keepPosition ifTrue:[ |
394 pasteOrigin := device translatePoint:0@0 |
394 pasteOrigin := device translatePoint:0@0 |
395 from:self id |
395 fromView:self |
396 to:frame id. |
396 toView:frame. |
397 ] ifFalse:[ |
397 ] ifFalse:[ |
398 aPointOrNil isNil ifTrue:[ |
398 aPointOrNil isNil ifTrue:[ |
399 pasteOrigin := self sensor mousePoint. |
399 pasteOrigin := self sensor mousePoint. |
400 pasteOrigin := device translatePoint:pasteOrigin |
400 pasteOrigin := device translatePoint:pasteOrigin |
401 from:device rootWindowId |
401 fromView:nil |
402 to:frame id. |
402 toView:frame. |
403 ] ifFalse:[ |
403 ] ifFalse:[ |
404 pasteOrigin := device translatePoint:aPointOrNil |
404 pasteOrigin := device translatePoint:aPointOrNil |
405 from:self id |
405 fromView:self |
406 to:frame id. |
406 toView:frame. |
407 ] |
407 ] |
408 ]. |
408 ]. |
409 |
409 |
410 bounds := Rectangle origin:0@0 extent:(frame bounds extent) |
410 bounds := Rectangle origin:0@0 extent:(frame bounds extent) |
411 ]. |
411 ]. |
442 inputView raise. |
442 inputView raise. |
443 self elementChangedSize:frame. |
443 self elementChangedSize:frame. |
444 |
444 |
445 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
445 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
446 ^ newSel |
446 ^ newSel |
|
447 |
|
448 "Modified: / 10.10.2001 / 14:15:12 / cg" |
447 ! |
449 ! |
448 |
450 |
449 pasteWithLayout |
451 pasteWithLayout |
450 "add the objects in the paste-buffer to the object view; don't change the |
452 "add the objects in the paste-buffer to the object view; don't change the |
451 layout |
453 layout |