SubCanvas.st
changeset 5766 dd7d8ff38b2b
parent 5315 06a51abce443
child 5767 83334680fcf7
equal deleted inserted replaced
5765:57796607f252 5766:dd7d8ff38b2b
   446             "/ self halt.
   446             "/ self halt.
   447         ].
   447         ].
   448 
   448 
   449         self realized ifTrue:[
   449         self realized ifTrue:[
   450             "/ cg: I think we should call
   450             "/ cg: I think we should call
   451             "/ clientView recursiveRealizeAllSubViews.
   451             "/      clientView recursiveRealizeAllSubViews.
   452             "/ instead of: 
   452             "/ instead of: 
       
   453             "/ but check this heavily bevore changing!!    
   453             clientView realizeAllSubViews.
   454             clientView realizeAllSubViews.
   454 
   455 
   455             clientViewIsScrolled ifTrue:[
   456             clientViewIsScrolled ifTrue:[
   456                 scrolledView repositionScrolledView.
   457                 scrolledView repositionScrolledView.
   457                 scrolledView resizeScrolledView
   458                 scrolledView resizeScrolledView
   458             ].
   459             ].
       
   460             "/ mhm - it is opened freshly
       
   461             "/ if not called here, we'd loose this message 
       
   462             "/ (my appSubView sends this when it gets realized)   
       
   463             client postOpenAsSubcanvasWith:builder
   459         ].
   464         ].
   460     ]
   465     ]
   461 
   466 
   462     "Modified: / 30.1.2000 / 21:36:40 / cg"
   467     "Modified: / 30-01-2000 / 21:36:40 / cg"
       
   468     "Modified (comment): / 22-05-2018 / 18:45:58 / Claus Gittinger"
   463 !
   469 !
   464 
   470 
   465 releaseAllComponents
   471 releaseAllComponents
   466     clientView notNil ifTrue:[
   472     clientView notNil ifTrue:[
   467         clientView destroySubViews.
   473         clientView destroySubViews.