--- a/XEmbedContainerView.st	Thu Apr 26 11:14:51 2018 +0200
+++ b/XEmbedContainerView.st	Thu Apr 26 11:16:07 2018 +0200
@@ -423,21 +423,26 @@
 
 mapUnmapAccordingToXEmbedInfo
     |val|
+    val := self graphicsDevice 
+            getProperty:'_XEMBED_INFO'
+            from:self
+            delete:false.
+    val isNil ifTrue:[
+        self map.
+        ^ self
+    ].
 
-    val := self graphicsDevice 
-                getProperty:(self graphicsDevice atomIDOf:'_XEMBED_INFO')
-                from:self drawableId
-                delete:false.
-    val ifNil:
-            [ self map.
-            ^ self ].
-    val key == 0 ifTrue:
-            [^self"Huh. may this happen"].
-    val value second == 1  
-        ifTrue:[ shown ifFalse:[ self map ] ]
-        ifFalse:[ shown ifTrue:[ self unmap ] ].
+    val key == 0 ifTrue:[
+        ^ self "Huh. may this happen?"
+    ].
+    val value second == 1 ifTrue:[
+        shown ifFalse:[self map]
+    ] ifFalse:[
+        shown ifTrue:[self unmap]
+    ].
 
     "Created: / 02-06-2011 / 18:04:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 25-04-2018 / 15:11:45 / stefan"
 ! !
 
 !XEmbedContainerView class methodsFor:'documentation'!