equal
deleted
inserted
replaced
12 |
12 |
13 |
13 |
14 |
14 |
15 |
15 |
16 ApplicationModel subclass:#UILayoutTool |
16 ApplicationModel subclass:#UILayoutTool |
17 instanceVariableNames:'modifiedHolder aspects selection layoutView' |
17 instanceVariableNames:'modifiedHolder aspects selection layoutView tabList' |
18 classVariableNames:'' |
18 classVariableNames:'' |
19 poolDictionaries:'' |
19 poolDictionaries:'' |
20 category:'Interface-UIPainter' |
20 category:'Interface-UIPainter' |
21 ! |
21 ! |
22 |
22 |
429 |
429 |
430 (type := UIPainterView layoutType:layoutView) notNil ifTrue:[ |
430 (type := UIPainterView layoutType:layoutView) notNil ifTrue:[ |
431 self class slices findFirst:[:e| |
431 self class slices findFirst:[:e| |
432 e last == type ifTrue:[name := e first. true] |
432 e last == type ifTrue:[name := e first. true] |
433 ]. |
433 ]. |
434 type == #Extent ifTrue:[ |
434 type ~~ #Extent ifTrue:[ list := tabList ] |
435 list := Array with:name |
435 ifFalse:[ list := Array with:name ]. |
436 ] ifFalse:[ |
|
437 list := self class slices collect:[:e| e first ]. |
|
438 list removeLast. |
|
439 ]. |
|
440 ]. |
436 ]. |
441 self noteBookList value:list. |
437 self noteBookList value:list. |
442 self noteBookModel value:name. |
438 self noteBookModel value:name. |
443 self update. |
439 self update. |
444 ! |
440 ! |
617 !UILayoutTool methodsFor:'initialization'! |
613 !UILayoutTool methodsFor:'initialization'! |
618 |
614 |
619 initialize |
615 initialize |
620 "initialize channels |
616 "initialize channels |
621 " |
617 " |
|
618 |slices size| |
|
619 |
622 super initialize. |
620 super initialize. |
623 |
621 |
624 aspects := IdentityDictionary new. |
622 aspects := IdentityDictionary new. |
625 |
623 |
626 #( bottomFraction bottomOffset |
624 #( bottomFraction bottomOffset |
634 holder := ValueHolder new. |
632 holder := ValueHolder new. |
635 holder addDependent:self. |
633 holder addDependent:self. |
636 aspects at:aKey put:holder. |
634 aspects at:aKey put:holder. |
637 ]. |
635 ]. |
638 |
636 |
639 |
637 slices := self class slices. |
|
638 size := slices size - 1. |
|
639 tabList := Array new:size. |
|
640 |
|
641 1 to:size do:[:i| tabList at:i put:((slices at:i) first) ]. |
640 |
642 |
641 |
643 |
642 ! ! |
644 ! ! |
643 |
645 |
644 !UILayoutTool methodsFor:'selection'! |
646 !UILayoutTool methodsFor:'selection'! |