--- a/ExternalTopView.st	Fri Jun 21 14:25:19 2013 +0200
+++ b/ExternalTopView.st	Wed Jun 26 00:59:31 2013 +0200
@@ -196,7 +196,7 @@
     |wg oldTopView retryCount deviceErrorOccured|
 
     anSTXWindow borderWidth:0. anSTXWindow forceBorderWidth.
-    self borderWidth:0.        self forceBorderWidth.
+    self borderWidth:0.        "/ self forceBorderWidth.
     self borderColor:Color red.
 
     anSTXWindow createWithAllSubViews.
@@ -205,7 +205,7 @@
     wg := anSTXWindow windowGroup.
     wg notNil ifTrue:[
         windowGroup notNil ifTrue:[
-            windowGroup removeTopView:self.
+            windowGroup removeView:self.
         ].
         wg addTopView:self.
         windowGroup := wg.
@@ -240,7 +240,7 @@
     [
 
         GLXWorkstation deviceErrorSignal handle:[:ex|
-          'DeviceErrorSignal raised in becomeParentOf: ' printNL.
+          'DeviceErrorSignal raised in becomeParentOf: ' infoPrintCR.
            deviceErrorOccured := true.
 "/          (Delay waitForSeconds: 1).
 "/          retryCount := retryCount + 1.
@@ -317,5 +317,6 @@
 !ExternalTopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.18 2012-05-07 12:11:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.19 2013-06-25 22:59:31 cg Exp $'
 ! !
+