XWorkstation.st
changeset 2952 b86deefe21c9
parent 2905 be8024bb6815
child 2964 d9b5700dbfda
--- a/XWorkstation.st	Thu Oct 07 12:39:34 1999 +0200
+++ b/XWorkstation.st	Thu Oct 07 12:41:59 1999 +0200
@@ -5160,14 +5160,14 @@
     OBJ rslt = false;
 
     if (ISCONNECTED) {
-	/* ENTER ... LEAVE not needed; XEventsQueued will not block */
-	/* ENTER_XLIB(); */
-	if (XEventsQueued(myDpy, QueuedAlready)) {
-	    rslt = true;
-	}
-	/* LEAVE_XLIB(); */
-    }
-    RETURN ( false );
+        /* ENTER ... LEAVE not needed; XEventsQueued will not block */
+        /* ENTER_XLIB(); */
+        if (XEventsQueued(myDpy, QueuedAlready)) {
+            rslt = true;
+        }
+        /* LEAVE_XLIB(); */
+    }
+    RETURN ( rslt );
 %}
 !
 
@@ -10186,6 +10186,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.327 1999-09-15 06:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.328 1999-10-07 10:41:59 cg Exp $'
 ! !
 XWorkstation initialize!