changeset 2530 | 73efe0a84f4b |
parent 2528 | a6df49dfb157 |
child 2535 | 961e4b080571 |
2529:07c7e9ba97ee | 2530:73efe0a84f4b |
---|---|
905 ]. |
905 ]. |
906 |
906 |
907 clickedView := self findObjectAt:aPoint. |
907 clickedView := self findObjectAt:aPoint. |
908 clickedView notNil ifTrue:[ |
908 clickedView notNil ifTrue:[ |
909 (clickedView isComponentOf:selectedView) ifTrue:[ |
909 (clickedView isComponentOf:selectedView) ifTrue:[ |
910 self unselect. |
910 "/ self unselect. |
911 selectedView := nil. |
911 selectedView := nil. |
912 viewOperatedUpon := nil |
912 viewOperatedUpon := nil |
913 ] ifFalse:[ |
913 ] ifFalse:[ |
914 self unselect. |
914 "/ self unselect. |
915 selectedView := nil. |
915 selectedView := nil. |
916 viewOperatedUpon := clickedView |
916 viewOperatedUpon := clickedView |
917 ]. |
917 ]. |
918 ]. |
918 ]. |
919 |
919 |
1837 |
1837 |
1838 heightToPaste notNil ifTrue:[ |
1838 heightToPaste notNil ifTrue:[ |
1839 self transaction:#pasteHeight dimensionDo:[:v| |
1839 self transaction:#pasteHeight dimensionDo:[:v| |
1840 self resize:v bottom:(v computeOrigin + heightToPaste) |
1840 self resize:v bottom:(v computeOrigin + heightToPaste) |
1841 ]. |
1841 ]. |
1842 ^ self. |
|
1843 ]. |
1842 ]. |
1844 |
|
1845 |
|
1846 |
|
1847 |
|
1848 |
|
1849 |
|
1850 |
|
1851 |
|
1852 |
|
1853 |
|
1854 |
|
1855 |
|
1856 |
|
1857 |
|
1858 |
|
1859 |
|
1860 |
|
1861 |
|
1862 |
|
1863 ! |
1843 ! |
1864 |
1844 |
1865 pasteLayout |
1845 pasteLayout |
1866 "paste the layout to all objects in the selection" |
1846 "paste the layout to all objects in the selection" |
1867 |
1847 |