Changeset 12739

Timestamp:

Sep 2, 2009, 8:54:17 AM (15 years ago)

Author:

Glen Foy

Message:

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

Location:

trunk/source/contrib/foy

Files:

• list-definitions-cm/history-lists.lisp (modified) (1 diff)
• list-definitions/history-lists.lisp (modified) (2 diffs)
• list-definitions/list-definitions.lisp (modified) (1 diff)

trunk/source/contrib/foy/list-definitions-cm/history-lists.lisp

@@ -557 +557 @@
   (add-top-level-position))
 
-#|
-(defun gui::cocoa-edit-single-definition (name info)
-  (gui::assume-cocoa-thread)
-  (destructuring-bind (indicator . pathname) info
-    (let* ((view (gui::find-or-make-hemlock-view pathname))
-           (buffer (hi::hemlock-view-buffer view)))
-      (hi::handle-hemlock-event view
-                                #'(lambda ()
-                                    (hemlock::find-definition-in-buffer name indicator)))
-      (add-top-level-position buffer))))
-|#
+;;; gui::cocoa-edit-single-definition didn't last long.
+;;; This one's days are numbered:
+(defun hemlock::move-point-leaving-mark (target)
+  (let ((point (hi::current-point-collapsing-selection)))
+    (hemlock::push-new-buffer-mark point)
+    (hi::move-mark point target)
+    (add-top-level-position (hi::current-buffer))
+    point))
 
 

trunk/source/contrib/foy/list-definitions/history-lists.lisp

@@ -5 +5 @@
 ;;;      history-lists.lisp
 ;;;
-;;;      copyright ￜ 2009 Glen Foy
+;;;      copyright (c) 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this file.)
 ;;;
@@ -541 +541 @@
   (add-top-level-position))
 
-#|
-(defun gui::cocoa-edit-single-definition (name info)
-  (gui::assume-cocoa-thread)
-  (destructuring-bind (indicator . pathname) info
-    (let* ((view (gui::find-or-make-hemlock-view pathname))
-           (buffer (hi::hemlock-view-buffer view)))
-      (hi::handle-hemlock-event view
-                                #'(lambda ()
-                                    (hemlock::find-definition-in-buffer name indicator)))
-      (add-top-level-position buffer))))
-|#
+;;; gui::cocoa-edit-single-definition didn't last long.
+;;; This one's days are numbered:
+(defun hemlock::move-point-leaving-mark (target)
+  (let ((point (hi::current-point-collapsing-selection)))
+    (hemlock::push-new-buffer-mark point)
+    (hi::move-mark point target)
+    (add-top-level-position (hi::current-buffer))
+    point))
 
 

trunk/source/contrib/foy/list-definitions/list-definitions.lisp

@@ -5 +5 @@
 ;;;      list-definitions.lisp
 ;;;
-;;;      copyright © 2009 Glen Foy
+;;;      copyright (c) 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this file.)
 ;;;