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

Diff of /mcclim/menu.lisp

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

revision 1.23 by gilbert, Sun Nov 10 14:44:04 2002 UTC revision 1.24 by moore, Mon Nov 11 01:02:21 2002 UTC
# Line 174  Line 174 
174                       :value-changed-callback                       :value-changed-callback
175                       #'(lambda (gadget val)                       #'(lambda (gadget val)
176                           (declare (ignore gadget val))                           (declare (ignore gadget val))
177                           (funcall value)))                           (cond ((symbolp value)
178                                    (funcall value))
179                                   ((consp value)
180                                    ;; XXX unsupplied arguments aren't handled
181                                    (apply (car value) (cdr value))))))
182          (make-pane-1 manager frame 'menu-button-submenu-pane          (make-pane-1 manager frame 'menu-button-submenu-pane
183                       :label name                       :label name
184                       :client client                       :client client

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5