Changeset 12739


Ignore:
Timestamp:
Sep 2, 2009, 3:54:17 PM (10 years ago)
Author:
gfoy
Message:

Redefined hemlock::move-point-leaving-mark. Not good, but what can you do without CLOS.

Location:
trunk/source/contrib/foy
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp

    r12735 r12739  
    557557  (add-top-level-position))
    558558
    559 #|
    560 (defun gui::cocoa-edit-single-definition (name info)
    561   (gui::assume-cocoa-thread)
    562   (destructuring-bind (indicator . pathname) info
    563     (let* ((view (gui::find-or-make-hemlock-view pathname))
    564            (buffer (hi::hemlock-view-buffer view)))
    565       (hi::handle-hemlock-event view
    566                                 #'(lambda ()
    567                                     (hemlock::find-definition-in-buffer name indicator)))
    568       (add-top-level-position buffer))))
    569 |#
     559;;; gui::cocoa-edit-single-definition didn't last long.
     560;;; This one's days are numbered:
     561(defun hemlock::move-point-leaving-mark (target)
     562  (let ((point (hi::current-point-collapsing-selection)))
     563    (hemlock::push-new-buffer-mark point)
     564    (hi::move-mark point target)
     565    (add-top-level-position (hi::current-buffer))
     566    point))
    570567
    571568
  • trunk/source/contrib/foy/list-definitions/history-lists.lisp

    r12722 r12739  
    55;;;      history-lists.lisp
    66;;;
    7 ;;;      copyright ï¿œ 2009 Glen Foy
     7;;;      copyright (c) 2009 Glen Foy
    88;;;      (Permission is granted to Clozure Associates to distribute this file.)
    99;;;
     
    541541  (add-top-level-position))
    542542
    543 #|
    544 (defun gui::cocoa-edit-single-definition (name info)
    545   (gui::assume-cocoa-thread)
    546   (destructuring-bind (indicator . pathname) info
    547     (let* ((view (gui::find-or-make-hemlock-view pathname))
    548            (buffer (hi::hemlock-view-buffer view)))
    549       (hi::handle-hemlock-event view
    550                                 #'(lambda ()
    551                                     (hemlock::find-definition-in-buffer name indicator)))
    552       (add-top-level-position buffer))))
    553 |#
     543;;; gui::cocoa-edit-single-definition didn't last long.
     544;;; This one's days are numbered:
     545(defun hemlock::move-point-leaving-mark (target)
     546  (let ((point (hi::current-point-collapsing-selection)))
     547    (hemlock::push-new-buffer-mark point)
     548    (hi::move-mark point target)
     549    (add-top-level-position (hi::current-buffer))
     550    point))
    554551
    555552
  • trunk/source/contrib/foy/list-definitions/list-definitions.lisp

    r12639 r12739  
    55;;;      list-definitions.lisp
    66;;;
    7 ;;;      copyright © 2009 Glen Foy
     7;;;      copyright (c) 2009 Glen Foy
    88;;;      (Permission is granted to Clozure Associates to distribute this file.)
    99;;;
Note: See TracChangeset for help on using the changeset viewer.