equal
deleted
inserted
replaced
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:[ list := tabList ] |
434 list := tabList. |
435 ifFalse:[ list := Array with:name ]. |
435 |
|
436 type == #Extent ifTrue:[ |
|
437 aView superView specClass isLayoutContainer ifTrue:[ |
|
438 list := Array with:name |
|
439 ] ifFalse:[ |
|
440 list := list copyWith:name |
|
441 ] |
|
442 ] |
436 ]. |
443 ]. |
437 self noteBookList value:list. |
444 self noteBookList value:list. |
438 self noteBookModel value:name. |
445 self noteBookModel value:name. |
439 self update. |
446 self update. |
440 ! |
447 ! |