equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
2 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
487 |
485 |
488 view := self addSpec:eachSpec builder:builder in:containerToPasteInto beforeIndex:beforeIndex. |
486 view := self addSpec:eachSpec builder:builder in:containerToPasteInto beforeIndex:beforeIndex. |
489 beforeIndex notNil ifTrue:[ |
487 beforeIndex notNil ifTrue:[ |
490 beforeIndex := beforeIndex + 1 |
488 beforeIndex := beforeIndex + 1 |
491 ]. |
489 ]. |
|
490 |
|
491 containerToPasteInto isLayoutWrapper ifTrue:[ |
|
492 eachSpec layout:(#extent->view extent) |
|
493 ]. |
|
494 |
492 (keepLayout or:[eachSpec keepUILayout]) ifTrue:[ |
495 (keepLayout or:[eachSpec keepUILayout]) ifTrue:[ |
493 eachSpec layout isAssociation ifTrue:[ |
496 eachSpec layout isAssociation ifTrue:[ |
494 eachSpec layout key == #extent ifTrue:[ |
497 eachSpec layout key == #extent ifTrue:[ |
495 view pixelExtent:eachSpec layout value |
498 view pixelExtent:eachSpec layout value |
496 ] ifFalse:[ |
499 ] ifFalse:[ |
564 |
567 |
565 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
568 newSel size == 1 ifTrue:[newSel := newSel at:1]. |
566 ^ newSel |
569 ^ newSel |
567 |
570 |
568 "Modified: / 16-11-2017 / 23:49:56 / cg" |
571 "Modified: / 16-11-2017 / 23:49:56 / cg" |
|
572 "Modified: / 18-07-2018 / 09:15:44 / Claus Gittinger" |
569 ! |
573 ! |
570 |
574 |
571 pasteSpecifications:aSpecificationOrList into:aContainerOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep |
575 pasteSpecifications:aSpecificationOrList into:aContainerOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep |
572 "add the specs to the object view; returns list of pasted widgets" |
576 "add the specs to the object view; returns list of pasted widgets" |
573 |
577 |