changed: #pasteSpecifications:into:beforeIndex:keepLayout:keepPosition:at:
authorClaus Gittinger <cg@exept.de>
Wed, 03 Nov 2010 07:44:01 +0100
changeset 2818 6d5a0ea87cb7
parent 2817 4577fb231f6f
child 2819 89d5ee9bc2d0
changed: #pasteSpecifications:into:beforeIndex:keepLayout:keepPosition:at:
UIPainterView.st
--- a/UIPainterView.st	Fri Oct 29 19:10:39 2010 +0200
+++ b/UIPainterView.st	Wed Nov 03 07:44:01 2010 +0100
@@ -528,21 +528,24 @@
     "/ newSel do:[:v| v raise].
     self elementChangedSize:containerToPasteInto.
 
-    "/ because the new-created view will destroy the handles, when it redraws itself,
-    "/ give it a chance to do so, before we return. (bail out after half a second, in case of trouble)
-    count := 0.
-    [ (newSel conform:[:v | v shown]) or:[count > 50] ] whileFalse:[
+    "/ nil wg if embedded in a browser
+    self windowGroup notNil ifTrue:[
+        "/ because the new-created view will destroy the handles, when it redraws itself,
+        "/ give it a chance to do so, before we return. (bail out after half a second, in case of trouble)
+        count := 0.
+        [ (newSel conform:[:v | v shown]) or:[count > 50] ] whileFalse:[
+            self windowGroup repairDamage.
+            Delay waitForSeconds:0.01.
+            count := count+1.
+        ].
+        Delay waitForSeconds:0.01.
         self windowGroup repairDamage.
-        Delay waitForSeconds:0.01.
-        count := count+1.
     ].
-    Delay waitForSeconds:0.01.
-    self windowGroup repairDamage.
 
     newSel size == 1 ifTrue:[newSel := newSel at:1].
     ^ newSel
 
-    "Modified: / 10.10.2001 / 14:15:12 / cg"
+    "Modified: / 03-11-2010 / 07:20:06 / cg"
 !
 
 pasteSpecifications:aSpecificationOrList into:aContainerOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep