--- a/PseudoV.st	Sun Jun 04 18:38:31 1995 +0200
+++ b/PseudoV.st	Tue Jun 06 06:09:07 1995 +0200
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.37 1995-05-17 12:22:27 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.38 1995-06-06 04:08:08 claus Exp $
 '!
 
 !PseudoView class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.37 1995-05-17 12:22:27 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.38 1995-06-06 04:08:08 claus Exp $
 "
 !
 
@@ -354,7 +354,7 @@
 		device setCursor:id in:drawableId.
 		realized ifTrue:[
 		    "flush, to make cursor immediately visible"
-		    device synchronizeOutput
+		    device flush
 		]
 	    ]
 	]
@@ -581,22 +581,30 @@
     eventMask := aMask
 !
 
-clipByChildren
-    "drawing shall be done into my view only (default)"
+clippedByChildren:aBoolean
+    "turn on/off drawing over children.
+     If on, a superview may draw 'over' its children.
+     If off (the default), drawing is 'under' its children.
+     Only useful for the rootView, to draw over any visible views.
+     (for example, when dragging a rubber-line)"
 
     gcId isNil ifTrue:[
 	self initGC
     ].
-    device setClipByChildren:true in:gcId
+    device setClipByChildren:aBoolean in:gcId
+!
+
+clipByChildren
+    "drawing shall be done into my view only (default)"
+
+    ^ self clippedByChildren:true
 !
 
 noClipByChildren
     "drawing shall also be done into subviews"
 
-    gcId isNil ifTrue:[
-	self initGC
-    ].
-    device setClipByChildren:false in:gcId
+    ^ self clippedByChildren:false 
+
 !
 
 saveUnder:aBoolean
@@ -621,7 +629,7 @@
     ]
 !
 
-preferedVisual
+preferredVisual
     "return a non nil id, if a specific visual is wanted in this view.
      Return nil if we do not care (i.e. the displays default is wanted). 
      This is experimental and may change/vanish - do not use it."
@@ -629,7 +637,7 @@
     ^ nil
 !
 
-preferedDepth
+preferredDepth
     "return a non nil integer, if a specific depth is wanted in this view.
      Return nil if we do not care (i.e. the displays default is wanted).
      This is experimental and may change/vanish - do not use it."
@@ -896,6 +904,10 @@
     ^ true
 !
 
+isXtWidget
+    ^ false
+!
+
 exposeEventPending
     "return true, if an expose event is pending."
 
@@ -913,7 +925,7 @@
      goes directly to the device instead.
      Actually, its a historical leftover"
 
-    device synchronizeOutput.
+    device flush.
     ^ device eventPending:#buttonMotion for:drawableId
 !
 
@@ -923,7 +935,7 @@
      goes directly to the device instead.
      Actually, its a historical leftover"
 
-    device synchronizeOutput.
+    device flush.
     ^ device eventPending:#buttonRelease for:drawableId
 ! !
 
@@ -981,7 +993,7 @@
 	s := s asStringWithCRsFrom:1 to:(s size) compressTabs:false withCR:false
     ].
     (device setTextSelection:s owner:drawableId) ifFalse:[
-	'selection failed' errorPrintNL
+	'PSEUDOVIEW: selection failed' errorPrintNL
     ]
 !
 
@@ -992,7 +1004,7 @@
     Smalltalk at:#LastCopyBuffer put:nil.
     Smalltalk at:#CopyBuffer put:something.
     (device setSelection:something owner:drawableId) ifFalse:[
-	'selection failed' errorPrintNL
+	'PSEUDOVIEW: selection failed' errorPrintNL
     ]
 !