equal
deleted
inserted
replaced
2598 ]. |
2598 ]. |
2599 view := listOfSpecViews at:(tabSelection + 1). |
2599 view := listOfSpecViews at:(tabSelection + 1). |
2600 |
2600 |
2601 view isNil ifTrue:[ |
2601 view isNil ifTrue:[ |
2602 view := View origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
2602 view := View origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
2603 specSelector := (self class slices at:tabSelection) last. |
2603 view client:self spec:(self class slices at:tabSelection) last. |
2604 spec := self class interfaceSpecFor:specSelector. |
|
2605 self builder buildFromSpec:spec in:view. |
|
2606 |
2604 |
2607 noteBook realized ifTrue:[ |
2605 noteBook realized ifTrue:[ |
2608 noteBook realizeAllSubViews |
2606 noteBook realizeAllSubViews |
2609 ]. |
2607 ]. |
2610 listOfSpecViews at:(tabSelection + 1) put:view. |
2608 listOfSpecViews at:(tabSelection + 1) put:view. |