equal
deleted
inserted
replaced
250 "cut the selection into the cut&paste-buffer |
250 "cut the selection into the cut&paste-buffer |
251 and open a transaction |
251 and open a transaction |
252 " |
252 " |
253 |specs coll index oldSelection newSelection treeModel children size nd| |
253 |specs coll index oldSelection newSelection treeModel children size nd| |
254 |
254 |
|
255 treeView askForSelectionChangeAllowed ifFalse:[^ self]. |
|
256 |
255 coll := self minSetOfSuperViews:(self selection). |
257 coll := self minSetOfSuperViews:(self selection). |
256 |
258 |
257 coll notNil ifTrue:[ |
259 coll notNil ifTrue:[ |
258 treeView cvsEventsDisabledDo:[ |
260 treeView cvsEventsDisabledDo:[ |
259 treeModel := treeView model. |
261 treeModel := treeView model. |
362 ! |
364 ! |
363 |
365 |
364 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNil |
366 pasteSpecifications:aSpecificationOrList keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNil |
365 "add the specs to the object view; returns list of pasted components |
367 "add the specs to the object view; returns list of pasted components |
366 " |
368 " |
367 |paste frame pasteOrigin pasteOffset builder newSel bounds| |
369 |paste frame pasteOrigin pasteOffset builder newSel bounds container| |
|
370 |
|
371 treeView askForSelectionChangeAllowed ifFalse:[^ nil]. |
|
372 |
|
373 (self canPasteInto:(self singleSelection)) ifFalse:[ |
|
374 (container := self singleSelection) notNil ifTrue:[ |
|
375 "/ search up parent list for something we can paste into |
|
376 [container notNil and:[(self canPasteInto:container) not]] whileTrue:[ |
|
377 container := container container. |
|
378 ]. |
|
379 self selection:container. |
|
380 ]. |
|
381 ]. |
368 |
382 |
369 (self canPaste:aSpecificationOrList) ifFalse:[ |
383 (self canPaste:aSpecificationOrList) ifFalse:[ |
370 ^ nil |
384 ^ nil |
371 ]. |
385 ]. |
372 |
386 |
376 paste := Array with:aSpecificationOrList |
390 paste := Array with:aSpecificationOrList |
377 ]. |
391 ]. |
378 (frame := self singleSelection) isNil ifTrue:[ |
392 (frame := self singleSelection) isNil ifTrue:[ |
379 frame := self |
393 frame := self |
380 ]. |
394 ]. |
381 self selection:nil. |
395 self setSelection:nil. |
382 |
396 |
383 newSel := OrderedCollection new. |
397 newSel := OrderedCollection new. |
384 builder := UIBuilder new isEditing:true. |
398 builder := UIBuilder new isEditing:true. |
385 |
399 |
386 className notNil ifTrue:[ |
400 className notNil ifTrue:[ |
2291 !UIPainterView class methodsFor:'documentation'! |
2305 !UIPainterView class methodsFor:'documentation'! |
2292 |
2306 |
2293 version |
2307 version |
2294 ^ '$Header$' |
2308 ^ '$Header$' |
2295 ! ! |
2309 ! ! |
|
2310 |
2296 UIPainterView initialize! |
2311 UIPainterView initialize! |