[wxCL-cvs] wxcl/src/menus menu-bar.lisp,1.4,1.5 defpackage.lisp,1.3,1.4

[Surendra S. <efu...@us...>]

Update of /cvsroot/wxcl/wxcl/src/menus
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6249

Modified Files:
	menu-bar.lisp defpackage.lisp 
Log Message:
Exported symbols, and fixed other minor bugs, all the files should now
load using asdf and the example should run.


Index: menu-bar.lisp
===================================================================
RCS file: /cvsroot/wxcl/wxcl/src/menus/menu-bar.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** menu-bar.lisp	21 Oct 2005 06:44:51 -0000	1.4
--- menu-bar.lisp	25 Oct 2005 04:21:57 -0000	1.5
***************
*** 1,6 ****
  (in-package :wxcl-menus)
  
! (defun make-menu-bar (&key (style 0) (menus nil) (title nil))
!   
    (let ((mb (make-wx-instance 'menu-bar (wxMenuBar_Create style))))
      (loop for mn in menus and str in title do
--- 1,5 ----
  (in-package :wxcl-menus)
  
! (defun make-menu-bar (&optional (menus nil) (title nil) (style 0))
    (let ((mb (make-wx-instance 'menu-bar (wxMenuBar_Create style))))
      (loop for mn in menus and str in title do

Index: defpackage.lisp
===================================================================
RCS file: /cvsroot/wxcl/wxcl/src/menus/defpackage.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** defpackage.lisp	20 Oct 2005 07:46:45 -0000	1.3
--- defpackage.lisp	25 Oct 2005 04:21:57 -0000	1.4
***************
*** 43,46 ****
--- 43,47 ----
  	   #:+item-radio
  	   #:+item-submenu
+       #:make-menu-bar
  ))