UILayoutTool.st
changeset 296 e542c6fb0de7
parent 293 54d00bdebfa9
child 690 a1033b88a8e8
equal deleted inserted replaced
295:114befd1c369 296:e542c6fb0de7
   683 selection
   683 selection
   684     ^ selection
   684     ^ selection
   685 !
   685 !
   686 
   686 
   687 selection:aSelection
   687 selection:aSelection
   688     |appl slice sel|
   688     |appl slice sel noteBook|
   689 
   689 
   690     aSelection isNumber ifTrue:[
   690     aSelection isNumber ifTrue:[
   691         aSelection ~~ 0 ifTrue:[sel := tabList at:aSelection]
   691         aSelection ~~ 0 ifTrue:[sel := tabList at:aSelection]
   692     ] ifFalse:[
   692     ] ifFalse:[
   693         sel := aSelection
   693         sel := aSelection
   699             appl := Smalltalk classNamed:(self class name asString, '::', appl).
   699             appl := Smalltalk classNamed:(self class name asString, '::', appl).
   700             appl := appl new.
   700             appl := appl new.
   701             appl masterApplication:self.
   701             appl masterApplication:self.
   702             modifiedHolder value:true.
   702             modifiedHolder value:true.
   703         ].
   703         ].
   704         self noteBookView client:appl.
   704         noteBook := self noteBookView.
       
   705         noteBook client:appl.
       
   706 
       
   707         appl notNil ifTrue:[
       
   708             noteBook scrolledView allViewBackground:(noteBook viewBackground).
       
   709         ]
   705     ].
   710     ].
   706     self update
   711     self update
   707 
   712 
   708 ! !
   713 ! !
   709 
   714