#BUGFIX by cg
class: SubCanvas
changed: #rebuild
postOpenAsSubcanvasWith: vs. postOopenWith:
--- a/SubCanvas.st Tue May 22 18:47:32 2018 +0200
+++ b/SubCanvas.st Tue May 22 18:51:17 2018 +0200
@@ -291,7 +291,7 @@
rebuild
"rebuild my GUI from the spec."
- |subSpec subWindowSpec savedView savedBuilder builderClass hasHScroller hasVScroller|
+ |subSpec subWindowSpec savedView savedBuilder builderClass hasHScroller hasVScroller sameAppAsTopApp|
"/ if the superView is not yet created,
"/ we MUST delay building... (sigh)
@@ -460,12 +460,17 @@
"/ mhm - it is opened freshly
"/ if not called here, we'd loose this message
"/ (my appSubView sends this when it gets realized)
- client postOpenAsSubcanvasWith:builder
+ sameAppAsTopApp := client == builder window topView application.
+ sameAppAsTopApp ifTrue:[
+ client postOpenAsSubcanvasWith:builder
+ ] ifFalse:[
+ client postOpenWith:builder
+ ].
].
]
"Modified: / 30-01-2000 / 21:36:40 / cg"
- "Modified (comment): / 22-05-2018 / 18:45:58 / Claus Gittinger"
+ "Modified: / 22-05-2018 / 18:50:47 / Claus Gittinger"
!
releaseAllComponents