Changeset main,39

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.

Location:

main

Files:

• flat-menu.lisp (modified) (1 diff)
• grid/display.lisp (modified) (3 diffs)

main/flat-menu.lisp

@@ -55 +55 @@
   (redraw-selected menu nil))
 
-(defun bound (a b c)
-  (min (max a b) c))
-
 (defmethod (setf selected) :around (i (menu menu))
-  (call-next-method (bound 0 i (1- (length (slot-value menu 'entries)))) menu))
+  (call-next-method (bound i 0 (1- (length (slot-value menu 'entries)))) menu))
 
 (defmethod (setf selected) :after (i (menu menu))

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))