DeviceWorkstation.st
changeset 1484 fa9c2604f2ac
parent 1483 fe145cc26d57
child 1493 b162273f59f9
--- a/DeviceWorkstation.st	Sat Mar 22 15:52:58 1997 +0100
+++ b/DeviceWorkstation.st	Sat Mar 22 17:20:32 1997 +0100
@@ -4936,15 +4936,21 @@
     ].
 
     idToTableIndexMapping notNil ifTrue:[
-	idx := idToTableIndexMapping at:aWindowID ifAbsent:nil.
-	idx notNil ifTrue:[
+        idx := idToTableIndexMapping at:aWindowID ifAbsent:nil.
+        idx notNil ifTrue:[
             v := knownViews at:idx.
-            (v notNil and:[v ~~ 0]) ifTrue:[^ v].
-	]
+            (v notNil and:[v ~~ 0]) ifTrue:[
+                lastView := v.
+                lastId := aWindowID.
+                ^ v
+            ].
+        ]
     ].
 
     index := knownIds indexOf:aWindowID.
-    index == 0 ifTrue:[^ nil].
+    index == 0 ifTrue:[
+        ^ nil
+    ].
 
     v := knownViews at:index.
     v == 0 ifTrue:[
@@ -4958,7 +4964,7 @@
 
     ^ v
 
-    "Modified: 1.3.1997 / 23:49:33 / cg"
+    "Modified: 22.3.1997 / 17:19:59 / cg"
 ! !
 
 !DeviceWorkstation methodsFor:'window stuff'!
@@ -5229,6 +5235,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.192 1997-03-22 14:52:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.193 1997-03-22 16:20:32 cg Exp $'
 ! !
 DeviceWorkstation initialize!