/[mcclim]/mcclim/frames.lisp
ViewVC logotype

Diff of /mcclim/frames.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.75 by moore, Thu Oct 23 05:59:14 2003 UTC revision 1.76 by hefner1, Fri Oct 31 19:02:14 2003 UTC
# Line 401  input focus. This is a McCLIM extension. Line 401  input focus. This is a McCLIM extension.
401             'command-line-read-remaining-arguments-for-partial-command)             'command-line-read-remaining-arguments-for-partial-command)
402            (prompt "Command: "))            (prompt "Command: "))
403    (loop    (loop
404      (let ((*standard-input* (frame-standard-input frame))      (let ((*standard-input*  (frame-standard-input frame))
405            (*standard-output* (frame-standard-output frame))            (*standard-output* (frame-standard-output frame))
406            (*query-io* (frame-query-io frame))            (*query-io* (frame-query-io frame))
407            (*pointer-documentation-output* (frame-pointer-documentation-output            (*pointer-documentation-output* (frame-pointer-documentation-output
# Line 417  input focus. This is a McCLIM extension. Line 417  input focus. This is a McCLIM extension.
417            ;; We don't need to turn the cursor on here, as Goatee has its own            ;; We don't need to turn the cursor on here, as Goatee has its own
418            ;; cursor which will appear. In fact, as a sane interface policy,            ;; cursor which will appear. In fact, as a sane interface policy,
419            ;; leave it off by default, and hopefully this doesn't violate the spec.            ;; leave it off by default, and hopefully this doesn't violate the spec.
420            (progn            (progn
421              (setf (cursor-visibility (stream-text-cursor *standard-input*)) nil)              (setf (cursor-visibility (stream-text-cursor *standard-input*)) nil)
422              (when prompt              (when prompt
423                (with-text-style (*standard-input* prompt-style)                (with-text-style (*standard-input* prompt-style)
# Line 430  input focus. This is a McCLIM extension. Line 430  input focus. This is a McCLIM extension.
430                (when command                (when command
431                  (execute-frame-command frame command))                  (execute-frame-command frame command))
432                (fresh-line *standard-input*)))                (fresh-line *standard-input*)))
433          (simple-event-loop)))))          (simple-event-loop)))))
434    
435    
436  (defmethod read-frame-command ((frame application-frame)  (defmethod read-frame-command ((frame application-frame)
# Line 1004  input focus. This is a McCLIM extension. Line 1004  input focus. This is a McCLIM extension.
1004    (declare (ignore input-context stream event))    (declare (ignore input-context stream event))
1005    nil)    nil)
1006    
1007  (defmethod frame-input-context-track-pointer :before  (defun frame-highlight-at-position (frame stream x y &optional (modifier 0)
1008      ((frame standard-application-frame) input-context stream event)                                            (input-context *input-context*))
1009    (flet ((maybe-unhighlight (presentation)    (flet ((maybe-unhighlight (presentation)
1010             (when (and (frame-hilited-presentation frame)             (when (and (frame-hilited-presentation frame)
1011                        (not (eq presentation                        (not (eq presentation
# Line 1016  input focus. This is a McCLIM extension. Line 1016  input focus. This is a McCLIM extension.
1016      (if (output-recording-stream-p stream)      (if (output-recording-stream-p stream)
1017          (let ((presentation (find-innermost-applicable-presentation          (let ((presentation (find-innermost-applicable-presentation
1018                               input-context                               input-context
1019                               stream                               stream
1020                               (device-event-x event)                               x y
                              (device-event-y event)  
1021                               :frame frame                               :frame frame
1022                               :modifier-state (event-modifier-state event))))                               :modifier-state modifier)))
1023            (maybe-unhighlight presentation)            (maybe-unhighlight presentation)
1024            (if presentation            (if presentation
1025                (when (not (eq presentation                (when (not (eq presentation
# Line 1031  input focus. This is a McCLIM extension. Line 1030  input focus. This is a McCLIM extension.
1030                (setf (frame-hilited-presentation frame) nil)))                (setf (frame-hilited-presentation frame) nil)))
1031          (progn          (progn
1032            (maybe-unhighlight nil)            (maybe-unhighlight nil)
1033            (setf (frame-hilited-presentation frame) nil))))            (setf (frame-hilited-presentation frame) nil)))))
1034    
1035    (defmethod frame-input-context-track-pointer :before
1036        ((frame standard-application-frame) input-context
1037         (stream output-recording-stream) event)
1038      (frame-highlight-at-position frame stream
1039                                   (device-event-x event)
1040                                   (device-event-y event)
1041                                   (event-modifier-state event)
1042                                   input-context)
1043    (frame-update-pointer-documentation frame input-context stream event))    (frame-update-pointer-documentation frame input-context stream event))
1044    
1045  (defun simple-event-loop ()  (defun simple-event-loop ()

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5