Changeset main,39 for main/grid/display.lisp

Timestamp:

11/08/2007 05:57:54 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071108055754-sphaa0ww9903cndr

Message:

Use the BOUND and BOUNDF from DSO-UTIL.

File:

• main/grid/display.lisp (modified) (3 diffs)

main/grid/display.lisp

@@ -113 +113 @@
 
 
-(defun bound (a b c)
-  (min (max a b) c))
-
 (defmethod max-row-scroll ((grid grid))
   (with-slots (data header-rows window) grid
@@ -121 +118 @@
 
 (defmethod (setf row-scroll) :around (i (grid grid))
-  (call-next-method (bound 0 i (max-row-scroll grid)) grid))
+  (call-next-method (bound i 0 (max-row-scroll grid)) grid))
 
 (defmethod row-scroll-percent ((grid grid))
@@ -131 +128 @@
 
 (defmethod (setf column-scroll) :around (i (grid grid))
-  (call-next-method (bound 0 i (max-column-scroll grid)) grid))
+  (call-next-method (bound i 0 (max-column-scroll grid)) grid))
 
 (defmethod column-scroll-percent ((grid grid))