--- a/ExternalTopView.st Sat Apr 02 17:07:42 2016 +0200
+++ b/ExternalTopView.st Sat Apr 02 17:07:45 2016 +0200
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libview2' }"
+"{ NameSpace: Smalltalk }"
+
TopView subclass:#ExternalTopView
instanceVariableNames:'windowClosedPollProcess'
classVariableNames:'ErrorPrinting'
@@ -91,7 +93,7 @@
|stillAlive prevErrorPrintingFlag graphicsDevice|
- graphicsDevice := self graphicsDevice.
+ graphicsDevice := device.
prevErrorPrintingFlag := graphicsDevice class errorPrinting.
graphicsDevice class errorPrinting:(ErrorPrinting ? true).
@@ -317,6 +319,6 @@
!ExternalTopView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ExternalTopView.st,v 1.21 2014-02-18 14:38:31 stefan Exp $'
+ ^ '$Header$'
! !