Changeset 7934
- Timestamp:
- Dec 23, 2007, 4:47:41 PM (13 years ago)
- Location:
- branches/event-ide/ccl/cocoa-ide/hemlock/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/event-ide/ccl/cocoa-ide/hemlock/src/command.lisp
r7933 r7934 380 380 :value nil) 381 381 382 (defcommand "Scroll Window Down" (p &optional (view (current-view)))382 (defcommand "Scroll Window Down" (p) 383 383 "Move down one screenfull. 384 384 With prefix argument scroll down that many lines." … … 390 390 (set-scroll-position :page-down))) 391 391 392 (defcommand "Scroll Window Up" (p &optional (view (current-view)))392 (defcommand "Scroll Window Up" (p) 393 393 "Move up one screenfull. 394 394 With prefix argument scroll up that many lines." -
branches/event-ide/ccl/cocoa-ide/hemlock/src/morecoms.lisp
r7913 r7934 419 419 (page-offset point p)) 420 420 (t (goto-page point p))) 421 ( hemlock-ext:scroll-mark-to-toppoint)))421 (set-scroll-position :line point))) 422 422 423 423 (defun goto-page (mark i)
Note: See TracChangeset
for help on using the changeset viewer.