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.
care for view being still physically present, when setting cursor back
authorClaus Gittinger <cg@exept.de>
Sat, 07 Feb 1998 16:14:23 +0100
changeset 2051 323362098e21
parent 2050 d1f21c75b5eb
child 2052 61df17fe74ca
care for view being still physically present, when setting cursor back
WGroup.st file | annotate | diff | comparison | revisions
WindowGroup.st file | annotate | diff | comparison | revisions 
--- a/WGroup.st	Sat Feb 07 11:26:34 1998 +0100
+++ b/WGroup.st	Sat Feb 07 16:14:23 1998 +0100
@@ -1651,20 +1651,22 @@
 showCursor:aCursor
     "change the cursor to aCursor in all of my views."
 
-    |c id dev|
+    |c cId vId dev|
 
     c := aCursor.
     self allViewsDo:[:aView |  
-	dev := aView graphicsDevice.
-	dev notNil ifTrue:[
-	    c := c onDevice:dev.
-	    (id := c id) notNil ifTrue:[
-		dev setCursor:id in:aView id.
-	    ]
-	]
+        dev := aView graphicsDevice.
+        dev notNil ifTrue:[
+            c := c onDevice:dev.
+            (cId := c id) notNil ifTrue:[
+               (vId := aView id) notNil ifTrue:[
+                    dev setCursor:cId in:vId.
+                ]
+            ]
+        ]
     ].
 
-    "Modified: 28.3.1997 / 13:49:34 / cg"
+    "Modified: / 7.2.1998 / 13:49:36 / cg"
 !
 
 withCursor:aCursor do:aBlock
@@ -1791,6 +1793,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.128 1998-02-05 19:03:38 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/WGroup.st,v 1.129 1998-02-07 15:14:23 cg Exp $'
 ! !
 WindowGroup initialize!
--- a/WindowGroup.st	Sat Feb 07 11:26:34 1998 +0100
+++ b/WindowGroup.st	Sat Feb 07 16:14:23 1998 +0100
@@ -1651,20 +1651,22 @@
 showCursor:aCursor
     "change the cursor to aCursor in all of my views."
 
-    |c id dev|
+    |c cId vId dev|
 
     c := aCursor.
     self allViewsDo:[:aView |  
-	dev := aView graphicsDevice.
-	dev notNil ifTrue:[
-	    c := c onDevice:dev.
-	    (id := c id) notNil ifTrue:[
-		dev setCursor:id in:aView id.
-	    ]
-	]
+        dev := aView graphicsDevice.
+        dev notNil ifTrue:[
+            c := c onDevice:dev.
+            (cId := c id) notNil ifTrue:[
+               (vId := aView id) notNil ifTrue:[
+                    dev setCursor:cId in:vId.
+                ]
+            ]
+        ]
     ].
 
-    "Modified: 28.3.1997 / 13:49:34 / cg"
+    "Modified: / 7.2.1998 / 13:49:36 / cg"
 !
 
 withCursor:aCursor do:aBlock
@@ -1791,6 +1793,6 @@
 !WindowGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.128 1998-02-05 19:03:38 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowGroup.st,v 1.129 1998-02-07 15:14:23 cg Exp $'
 ! !
 WindowGroup initialize!
hg/stx-libview