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

Diff of /mcclim/frames.lisp

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

revision 1.54 by brian, Thu Oct 31 12:58:14 2002 UTC revision 1.55 by gilbert, Sun Nov 10 14:56:09 2002 UTC
# Line 534  FRAME-EXIT condition.")) Line 534  FRAME-EXIT condition."))
534                                        `((clim-internals::make-menu-bar                                        `((clim-internals::make-menu-bar
535                                          ',class-name)))                                          ',class-name)))
536                                       ((consp menu-bar)                                       ((consp menu-bar)
537                                        `((raising (:border-width 2 :background +Gray83+)                                        `((clim-internals::make-menu-bar
                                          (clim-internals::make-menu-bar  
538                                            (make-command-table                                            (make-command-table
539                                             nil                                             nil
540                                             :menu ',menu-bar)))))                                             :menu ',menu-bar))))
541                                       (menu-bar                                       (menu-bar
542                                        `((clim-internals::make-menu-bar                                        `((clim-internals::make-menu-bar
543                                           ',menu-bar)))                                           ',menu-bar)))

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

  ViewVC Help
Powered by ViewVC 1.1.5