Changeset 678

Timestamp:

Mar 19, 2004, 11:38:17 PM (21 years ago)

Author:

Gary Byers

Message:

Handle key events in echo area.

File:

• trunk/ccl/examples/cocoa-editor.lisp (modified) (5 diffs)

trunk/ccl/examples/cocoa-editor.lisp

@@ -413 +413 @@
         (hemlock-ext::make-key-event c bits)))))
 
-;;; Process a key-down NSEvent in a lisp text view by translating it
-;;; into a Hemlock key event and passing it into the Hemlock command
-;;; interpreter.  The underlying buffer becomes Hemlock's current buffer
-;;; and the containing pane becomes Hemlock's current window when the
-;;; command is processed.  Use the frame's command state object.
-
-(define-objc-method ((:void :key-down event)
-                     hemlock-text-view)
+(defun pass-key-down-event-to-hemlock (self event)
   #+debug
   (#_NSLog #@"Key down event = %@" :address event)
@@ -440 +433 @@
                      (hi::*echo-area-stream*
                       (hemlock-frame-echo-area-stream w))
-                     (hi::*echo-area-window* hi::*current-window*)
+                     (hi::*echo-area-window* (slot-value w 'echo-area-view ))
                      (hi::*echo-area-region*
                       (hi::buffer-region hi::*echo-area-buffer*)))
                 (hi::interpret-key-event key-event info)))))))))
+  
+;;; Process a key-down NSEvent in a lisp text view by translating it
+;;; into a Hemlock key event and passing it into the Hemlock command
+;;; interpreter.  The underlying buffer becomes Hemlock's current buffer
+;;; and the containing pane becomes Hemlock's current window when the
+;;; command is processed.  Use the frame's command state object.
+
+(define-objc-method ((:void :key-down event)
+                     hemlock-text-view)
+  (pass-key-down-event-to-hemlock self event))
 
 ;;; Update the underlying buffer's point.  Should really set the
@@ -692 +695 @@
 
 
+(defmethod hi::activate-hemlock-view ((view text-pane))
+  (let* ((hemlock-frame (send view 'window))
+         (text-view (text-pane-text-view view)))
+    (send hemlock-frame :make-first-responder text-view)))
+
+
 (defclass echo-area-view (ns:ns-text-view)
     ()
   (:metaclass ns:+ns-object))
+
+(defmethod hi::activate-hemlock-view ((view echo-area-view))
+  (let* ((hemlock-frame (send view 'window)))
+    (send hemlock-frame :make-first-responder view)))
 
 ;;; The "document" for an echo-area isn't a real NSDocument.
@@ -704 +717 @@
   (declare (ignore change)))
 
+(define-objc-method ((:void :key-down event)
+                     echo-area-view)
+  (pass-key-down-event-to-hemlock self event))
 
 
@@ -1221 +1237 @@
         (send textview :page-up nil)))))
 
-      
+(defun hi::get-key-event (text-view ignore)
+  (declare (ignore ignore))
+  (let* ((event (send (send text-view 'window)
+                      :next-event-matching-mask #$NSKeyDownMask)))
+    (nsevent-to-key-event event)))
 
 (provide "COCOA-EDITOR")