equal
deleted
inserted
replaced
424 ! |
424 ! |
425 |
425 |
426 layoutView:aView |
426 layoutView:aView |
427 "change current edited view |
427 "change current edited view |
428 " |
428 " |
|
429 self layoutView:aView type:nil |
|
430 ! |
|
431 |
|
432 layoutView:aView type:aTypeOrNil |
|
433 "change current edited view |
|
434 " |
429 |type name list| |
435 |type name list| |
430 |
436 |
431 layoutView := aView. |
437 layoutView := aView. |
432 |
438 |
433 (type := UIPainterView layoutType:layoutView) notNil ifTrue:[ |
439 aTypeOrNil notNil ifTrue:[ |
434 self class slices findFirst:[:e| |
440 self class slices findFirst:[:e| |
435 e last == type ifTrue:[name := e first. true] |
441 e last == aTypeOrNil ifTrue:[name := e first. true] |
436 ]. |
442 ]. |
437 list := tabList. |
443 list := Array with:name |
438 |
444 ] ifFalse:[ |
439 type == #Extent ifTrue:[ |
445 (type := UIPainterView layoutType:layoutView) notNil ifTrue:[ |
440 aView superView specClass isLayoutContainer ifTrue:[ |
446 self class slices findFirst:[:e| |
441 list := Array with:name |
447 e last == type ifTrue:[name := e first. true] |
442 ] ifFalse:[ |
448 ]. |
443 list := list copyWith:name |
449 list := tabList. |
|
450 |
|
451 type == #Extent ifTrue:[ |
|
452 aView superView specClass isLayoutContainer ifTrue:[ |
|
453 list := Array with:name |
|
454 ] ifFalse:[ |
|
455 list := list copyWith:name |
|
456 ] |
444 ] |
457 ] |
445 ] |
458 ] |
446 ]. |
459 ]. |
447 self noteBookList value:list. |
460 self noteBookList value:list. |
448 self noteBookModel value:name. |
461 self noteBookModel value:name. |