Changeset 12231


Ignore:
Timestamp:
Jun 8, 2009, 8:11:59 AM (10 years ago)
Author:
gb
Message:

HEMLOCK-EXT:SEND-STRING-TO-LISTENER: use the same mechanism as "evalSelection"
action method.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-listener.lisp

    r12124 r12231  
    500500      (let* ((context (listener-backtrace-context process)))
    501501        (when context
     502          (#/makeKeyAndOrderFront: (#/windowForSheet self) nil)
    502503          (#/showWindow: (backtrace-controller-for-context context) sender))))))
    503504
     
    608609                         :package-name package :pathname path))
    609610
    610 ;;; This is basically used to provide INPUT to the listener process, by
    611 ;;; writing to an fd which is connected to that process's standard
    612 ;;; input.
    613611(defun hemlock-ext:send-string-to-listener (listener-buffer string)
    614   (let* ((process (buffer-process listener-buffer)))
    615     (unless process
    616       (error "No listener process found for ~s" listener-buffer))
    617     (enqueue-listener-input (cocoa-listener-process-input-stream process) string)))
    618 
     612  (let* ((package-name (hi::variable-value 'hemlock::current-package :buffer listener-buffer))
     613         (pathname (hi::buffer-pathname listener-buffer)))
     614    (ui-object-eval-selection *NSApp* (list package-name pathname string))))
    619615
    620616
Note: See TracChangeset for help on using the changeset viewer.