equal
deleted
inserted
replaced
289 ! |
289 ! |
290 |
290 |
291 rebuild |
291 rebuild |
292 "rebuild my GUI from the spec." |
292 "rebuild my GUI from the spec." |
293 |
293 |
294 |subSpec subWindowSpec savedView savedBuilder builderClass hasHScroller hasVScroller| |
294 |subSpec subWindowSpec savedView savedBuilder builderClass hasHScroller hasVScroller sameAppAsTopApp| |
295 |
295 |
296 "/ if the superView is not yet created, |
296 "/ if the superView is not yet created, |
297 "/ we MUST delay building... (sigh) |
297 "/ we MUST delay building... (sigh) |
298 superView isNil ifTrue:[ |
298 superView isNil ifTrue:[ |
299 lateBuild := true. |
299 lateBuild := true. |
458 scrolledView resizeScrolledView |
458 scrolledView resizeScrolledView |
459 ]. |
459 ]. |
460 "/ mhm - it is opened freshly |
460 "/ mhm - it is opened freshly |
461 "/ if not called here, we'd loose this message |
461 "/ if not called here, we'd loose this message |
462 "/ (my appSubView sends this when it gets realized) |
462 "/ (my appSubView sends this when it gets realized) |
463 client postOpenAsSubcanvasWith:builder |
463 sameAppAsTopApp := client == builder window topView application. |
|
464 sameAppAsTopApp ifTrue:[ |
|
465 client postOpenAsSubcanvasWith:builder |
|
466 ] ifFalse:[ |
|
467 client postOpenWith:builder |
|
468 ]. |
464 ]. |
469 ]. |
465 ] |
470 ] |
466 |
471 |
467 "Modified: / 30-01-2000 / 21:36:40 / cg" |
472 "Modified: / 30-01-2000 / 21:36:40 / cg" |
468 "Modified (comment): / 22-05-2018 / 18:45:58 / Claus Gittinger" |
473 "Modified: / 22-05-2018 / 18:50:47 / Claus Gittinger" |
469 ! |
474 ! |
470 |
475 |
471 releaseAllComponents |
476 releaseAllComponents |
472 clientView notNil ifTrue:[ |
477 clientView notNil ifTrue:[ |
473 clientView destroySubViews. |
478 clientView destroySubViews. |