--- a/DeviceWorkstation.st	Mon Oct 29 12:49:30 2012 +0100
+++ b/DeviceWorkstation.st	Wed Oct 31 14:36:29 2012 +0100
@@ -1315,6 +1315,10 @@
 
 activeView
     ^ activeView
+
+    "
+     Display activeView
+    "
 !
 
 buttonMotionMask:aMask includesButton:aButton
@@ -8148,11 +8152,11 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.569 2012-10-22 18:07:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.570 2012-10-31 13:36:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.569 2012-10-22 18:07:32 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.570 2012-10-31 13:36:29 cg Exp $'
 ! !
 
 DeviceWorkstation initialize!