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

Diff of /mcclim/menu.lisp

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

revision 1.30 by moore, Tue May 18 10:47:46 2004 UTC revision 1.31 by moore, Thu May 27 08:46:41 2004 UTC
# Line 186  Line 186 
186          (frame *application-frame*)          (frame *application-frame*)
187          (manager (frame-manager *application-frame*)))          (manager (frame-manager *application-frame*)))
188      (if (eq type :command)      (if (eq type :command)
189          (if (command-enabled (car value) frame)          (if (command-enabled (if (consp value) (car value) value) frame)
190              (make-pane-1 manager frame 'menu-button-leaf-pane              (make-pane-1 manager frame 'menu-button-leaf-pane
191                           :label name                           :label name
192                           :client client                           :client client

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5