Changeset 7934

Timestamp:

Dec 23, 2007, 4:47:41 PM (13 years ago)

Author:

gz

Message:

Oops. missed a couple in previous checkin

Location:

branches/event-ide/ccl/cocoa-ide/hemlock/src

Files:

• command.lisp (modified) (2 diffs)
• morecoms.lisp (modified) (1 diff)

branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp

@@ -380 +380 @@
   :value nil)
 
-(defcommand "Scroll Window Down" (p &optional (view (current-view)))
+(defcommand "Scroll Window Down" (p)
   "Move down one screenfull.
   With prefix argument scroll down that many lines."
@@ -390 +390 @@
     (set-scroll-position :page-down)))
 
-(defcommand "Scroll Window Up" (p &optional (view (current-view)))
+(defcommand "Scroll Window Up" (p)
   "Move up one screenfull.
   With prefix argument scroll up that many lines."

branches/event-ide/ccl/cocoa-ide/hemlock/src/morecoms.lisp

@@ -419 +419 @@
              (page-offset point p))
             (t (goto-page point p)))
-    (hemlock-ext:scroll-mark-to-top point)))
+    (set-scroll-position :line point)))
 
 (defun goto-page (mark i)