Changeset 628

Timestamp:

Mar 6, 2004, 11:53:09 PM (21 years ago)

Author:

Gary Byers

Message:

Let Cocoa scroll windows.

File:

• trunk/ccl/hemlock/src/cursor.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/cursor.lisp

@@ -326 +326 @@
 ;;; exactly.
 ;;;
-(defun scroll-window (window n)
-  "Scroll Window down N lines, up if negative."
-  (let ((start (window-display-start window))
-        (point (window-point window))
-        (width (window-width window))
-        (height (window-height window)))
-    (cond ((dis-line-offset-guess start n width))
-          ((minusp n)
-           (buffer-start start))
-          (t
-           (buffer-end start)
-           (let ((fraction (- (truncate height 3) height)))
-             (dis-line-offset-guess start fraction width))))
-    (update-window-image window)
-    (let ((iscurrent (eq window *current-window*))
-          (bpoint (buffer-point (window-buffer window))))
-      (when iscurrent (move-mark point bpoint))
-      (unless (%displayed-p point window)
-        (move-mark point start)
-        (dis-line-offset-guess point (truncate (window-height window) 2)
-                               width)
-      (when iscurrent (move-mark bpoint point)))))
-  t)
+