Changeset main,83 for main

Timestamp:

01/18/2008 06:49:28 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080118184928-4csk30od8tdj1x9u

Message:

SELECTED-ROW now returns NIL when the index is out-of-bounds (usually no rows).

File:

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

main/simple-table.lisp

@@ -31 +31 @@
 
 (defmethod selected-row ((tbl simple-table))
-  (elt (data tbl) (selected-row (model tbl))))
+  "Returns NIL if no rows are present."
+  (let ((data (data tbl))
+        (idx (selected-row (model tbl))))
+    (handler-case (elt data idx)
+      (t () nil))))
 
 (defmethod scroll-percent ((tbl simple-table))