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

Diff of /mcclim/menu.lisp

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

revision 1.1 by cvs, Mon Dec 4 15:00:52 2000 UTC revision 1.2 by cvs, Mon Dec 4 20:32:15 2000 UTC
# Line 218  Line 218 
218    
219  (defmethod initialize-instance :after ((pane menu-bar)  (defmethod initialize-instance :after ((pane menu-bar)
220                                         &rest args                                         &rest args
221                                           &key
222                                         &allow-other-keys)                                         &allow-other-keys)
223    (declare (ignore args))    (declare (ignore args))
224    (setf (slot-value pane 'items) (copy-list (sheet-children pane)))    (setf (slot-value pane 'items) (copy-list (sheet-children pane)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5