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

Diff of /mcclim/dialog.lisp

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

revision 1.5 by moore, Sun Jun 29 05:34:18 2003 UTC revision 1.6 by moore, Fri Jul 4 06:38:06 2003 UTC
# Line 313  is called. Used to determine if any edit Line 313  is called. Used to determine if any edit
313                       (setq editing-stream                       (setq editing-stream
314                             (make-instance 'standard-input-editing-stream                             (make-instance 'standard-input-editing-stream
315                                            :stream stream                                            :stream stream
316                                            :cursor-visibility nil))))))                                            :cursor-visibility nil
317                                              :background-ink +grey90+))))))
318      (when editing-stream      (when editing-stream
319        (setf (editing-stream record) editing-stream))        (setf (editing-stream record) editing-stream))
320      record))      record))

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

  ViewVC Help
Powered by ViewVC 1.1.5