Changeset main,73

Timestamp:

11/28/2007 12:07:56 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071128000756-0ziq5iyweercbr2x

Message:

Remember selection over a data update.

File:

• main/simple-table.lisp (modified) (1 diff)

main/simple-table.lisp

@@ -25 +25 @@
 (defmethod (setf data) :after (d (tbl simple-table))
   (let ((wrapper (make-instance 'hash-per-row-grid-data
-                                :row-tables d :keys (keys tbl))))
-    (setf (wrapped-data (model tbl)) wrapper)))
+                                :row-tables d :keys (keys tbl)))
+        (i (selected-row (model tbl))))
+    (setf (wrapped-data (model tbl)) wrapper
+          (selected-row (model tbl)) i)))
 
 (defmethod selected-row ((tbl simple-table))