diff -r 4577fb231f6f -r 6d5a0ea87cb7 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