equal
deleted
inserted
replaced
30 " |
30 " |
31 |lF lO rF rO tF tO bF bO type layout newLyt| |
31 |lF lO rF rO tF tO bF bO type layout newLyt| |
32 |
32 |
33 type := self layoutType:aView. |
33 type := self layoutType:aView. |
34 layout := aView geometryLayout. |
34 layout := aView geometryLayout. |
|
35 |
|
36 layout isNil ifTrue:[ |
|
37 type == #Extent ifTrue:[ |
|
38 layout := aView bounds asLayout |
|
39 ] |
|
40 ]. |
35 |
41 |
36 (type isNil or:[layout isNil]) ifTrue:[ |
42 (type isNil or:[layout isNil]) ifTrue:[ |
37 ^ nil |
43 ^ nil |
38 ]. |
44 ]. |
39 |
45 |
86 newLyt rightOffset:(rO + dlta x). |
92 newLyt rightOffset:(rO + dlta x). |
87 newLyt topOffset:(tO + dlta y). |
93 newLyt topOffset:(tO + dlta y). |
88 newLyt bottomOffset:(bO + dlta y). |
94 newLyt bottomOffset:(bO + dlta y). |
89 ]. |
95 ]. |
90 ^ newLyt. |
96 ^ newLyt. |
|
97 |
|
98 "Modified: 28.3.1997 / 19:52:48 / cg" |
91 ! ! |
99 ! ! |
92 |
100 |
93 !UIObjectView class methodsFor:'defaults'! |
101 !UIObjectView class methodsFor:'defaults'! |
94 |
102 |
95 defaultGrid |
103 defaultGrid |