/[climacs]/climacs/gui.lisp
ViewVC logotype

Diff of /climacs/gui.lisp

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

revision 1.5 by strandh, Wed Dec 22 05:38:05 2004 UTC revision 1.6 by strandh, Wed Dec 22 14:43:18 2004 UTC
# Line 121  Line 121 
121      (loop with gestures = '()      (loop with gestures = '()
122            do (setf *current-gesture* (read-gesture :stream *standard-input*))            do (setf *current-gesture* (read-gesture :stream *standard-input*))
123               (when (or (characterp *current-gesture*)               (when (or (characterp *current-gesture*)
124                         (keyboard-event-character *current-gesture*))                         (and (typep *current-gesture* 'keyboard-event)
125                                (keyboard-event-character *current-gesture*)))
126                 (setf gestures (nconc gestures (list *current-gesture*)))                 (setf gestures (nconc gestures (list *current-gesture*)))
127                 (let ((item (find-gestures gestures 'global-climacs-table)))                 (let ((item (find-gestures gestures 'global-climacs-table)))
128                   (cond ((not item)                   (cond ((not item)
# Line 271  Line 272 
272  (define-command com-find-file ()  (define-command com-find-file ()
273    (let ((filename (handler-case (accept 'completable-pathname    (let ((filename (handler-case (accept 'completable-pathname
274                                          :prompt "Find File")                                          :prompt "Find File")
275                      (simple-parse-error () (error 'file-not-found)))))                      (simple-parse-error () (error 'file-not-found))))
276      (setf (buffer *application-frame*)          (buffer (make-instance 'abbrev-buffer)))
277            (make-instance 'abbrev-buffer      (setf (buffer *application-frame*) buffer)
278               :contents (cons nil      (with-open-file (stream filename :direction :input)
279                               (with-open-file (stream filename :direction :input)        (input-from-stream stream buffer 0))
                                (loop for ch = (read-char stream nil nil)  
                                      while ch  
                                      collect ch)))))  
280      (setf (slot-value *application-frame* 'point)      (setf (slot-value *application-frame* 'point)
281            (make-instance 'standard-right-sticky-mark            (make-instance 'standard-right-sticky-mark :buffer buffer))))
              :buffer (buffer *application-frame*)))))  
282    
283  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
284  ;;;  ;;;

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5