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

Diff of /mcclim/menu.lisp

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

revision 1.17 by adejneka, Mon Jul 15 13:24:56 2002 UTC revision 1.18 by adejneka, Tue Jul 30 16:41:40 2002 UTC
# Line 192  Line 192 
192                           (declare (ignore val))                           (declare (ignore val))
193                           (throw-highlighted-presentation                           (throw-highlighted-presentation
194                            (make-instance 'standard-presentation                            (make-instance 'standard-presentation
195                                           :object (list value)                                           :object (if (listp value)
196                                                         value
197                                                         (list value))
198                                           :type 'command)                                           :type 'command)
199                            *input-context*                            *input-context*
200                            (make-instance 'pointer-button-press-event                            (make-instance 'pointer-button-press-event

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5