equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libtool2' }" |
12 "{ Package: 'stx:libtool2' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 ApplicationModel subclass:#UILayoutTool |
16 ApplicationModel subclass:#UILayoutTool |
15 instanceVariableNames:'modifiedHolder aspects selection currentTool layoutView tabList |
17 instanceVariableNames:'modifiedHolder aspects selection currentTool layoutView tabList |
16 layoutSpec toolsDictionary' |
18 layoutSpec toolsDictionary' |
17 classVariableNames:'' |
19 classVariableNames:'' |
1704 |
1706 |
1705 extent := aView computeExtent. |
1707 extent := aView computeExtent. |
1706 |
1708 |
1707 (self aspectFor:#leftOffset) value:(extent x). |
1709 (self aspectFor:#leftOffset) value:(extent x). |
1708 (self aspectFor:#topOffset) value:(extent y). |
1710 (self aspectFor:#topOffset) value:(extent y). |
1709 |
1711 aSpec notNil ifTrue:[ |
1710 (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth). |
1712 (self aspectFor:#usePreferredWidth) value:(aSpec usePreferredWidth). |
1711 (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight). |
1713 (self aspectFor:#usePreferredHeight) value:(aSpec usePreferredHeight). |
1712 (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth). |
1714 (self aspectFor:#useDynamicPreferredWidth) value:(aSpec useDynamicPreferredWidth). |
1713 (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight). |
1715 (self aspectFor:#useDynamicPreferredHeight) value:(aSpec useDynamicPreferredHeight). |
1714 (self aspectFor:#useDefaultExtent) value:aSpec useDefaultExtent |
1716 (self aspectFor:#useDefaultExtent) value:aSpec useDefaultExtent |
|
1717 ]. |
1715 ! |
1718 ! |
1716 |
1719 |
1717 layout |
1720 layout |
1718 "returns the current extent" |
1721 "returns the current extent" |
1719 |
1722 |