Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Thu, 12 May 1994 12:30:43 +0200
changeset 44 e45356abd276
parent 43 1d44cc4da884
child 45 d2d5bc481ebb
*** empty log message ***
XWorkstat.st file | annotate | diff | comparison | revisions
XWorkstation.st file | annotate | diff | comparison | revisions 
--- a/XWorkstat.st	Sat Apr 30 21:32:48 1994 +0200
+++ b/XWorkstat.st	Thu May 12 12:30:43 1994 +0200
@@ -37,7 +37,7 @@
 
 this class provides the interface to X11
 
-$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.14 1994-04-30 19:32:36 claus Exp $
+$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.15 1994-05-12 10:30:43 claus Exp $
 written spring/summer 89 by claus
 '!
 
@@ -809,7 +809,7 @@
     if (_isSmallInteger(w) && _isSmallInteger(h)
      && _isSmallInteger(type) && _isSmallInteger(k)
      && _isSmallInteger(nBytes)
-     && (_qClass(data) == ByteArray)) {
+     && __isByteArray(data)) {
         if (msbFirst == true)
             _msb = 1;
         else
@@ -4286,6 +4286,14 @@
     "return true, if there are still any views of interrest - if not,
      stop dispatch"
 
+"/    idToViewMapping isEmpty ifTrue:[
+"/	dispatching := false.
+"/    ] ifFalse:[
+"/       ((idToViewMapping size == 1) and:[idToViewMapping includesValue:RootView]) ifTrue:[
+"/	   dispatching := false.
+"/	]
+"/    ]
+
     knownViews isEmpty ifTrue:[
         dispatching := false.
         ^ self
--- a/XWorkstation.st	Sat Apr 30 21:32:48 1994 +0200
+++ b/XWorkstation.st	Thu May 12 12:30:43 1994 +0200
@@ -37,7 +37,7 @@
 
 this class provides the interface to X11
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.14 1994-04-30 19:32:36 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.15 1994-05-12 10:30:43 claus Exp $
 written spring/summer 89 by claus
 '!
 
@@ -809,7 +809,7 @@
     if (_isSmallInteger(w) && _isSmallInteger(h)
      && _isSmallInteger(type) && _isSmallInteger(k)
      && _isSmallInteger(nBytes)
-     && (_qClass(data) == ByteArray)) {
+     && __isByteArray(data)) {
         if (msbFirst == true)
             _msb = 1;
         else
@@ -4286,6 +4286,14 @@
     "return true, if there are still any views of interrest - if not,
      stop dispatch"
 
+"/    idToViewMapping isEmpty ifTrue:[
+"/	dispatching := false.
+"/    ] ifFalse:[
+"/       ((idToViewMapping size == 1) and:[idToViewMapping includesValue:RootView]) ifTrue:[
+"/	   dispatching := false.
+"/	]
+"/    ]
+
     knownViews isEmpty ifTrue:[
         dispatching := false.
         ^ self
hg/stx-libview