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

Diff of /climacs/gui.lisp

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

revision 1.8 by strandh, Thu Dec 23 08:00:33 2004 UTC revision 1.9 by strandh, Thu Dec 23 08:03:53 2004 UTC
# Line 289  Line 289 
289                            :prompt "Find File"))                            :prompt "Find File"))
290          (buffer (make-instance 'climacs-buffer)))          (buffer (make-instance 'climacs-buffer)))
291      (setf (buffer (win *application-frame*)) buffer      (setf (buffer (win *application-frame*)) buffer
292            (filename (buffer (win *application-frame*)) filename))            (filename (buffer (win *application-frame*))) filename)
293      (with-open-file (stream filename :direction :input)      (with-open-file (stream filename :direction :input)
294        (input-from-stream stream buffer 0))        (input-from-stream stream buffer 0))
295      (setf (slot-value (win *application-frame*) 'point)      (setf (slot-value (win *application-frame*) 'point)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5