[wxCL-cvs] wxcl/src/windows status-bar.lisp,1.3,1.4 frame.lisp,1.5,1.6 defpackage.lisp,1.4,1.5

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

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

Modified Files:
	status-bar.lisp frame.lisp defpackage.lisp 
Log Message:
Fixed several bugs. new constants defined, function definitions fixed.


Index: frame.lisp
===================================================================
RCS file: /cvsroot/wxcl/wxcl/src/windows/frame.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** frame.lisp	20 Oct 2005 07:46:49 -0000	1.5
--- frame.lisp	21 Oct 2005 06:44:58 -0000	1.6
***************
*** 11,14 ****
--- 11,29 ----
  
  (defconstant +default-frame-style+ 536878656)
+ (defconstant +frame-ex-contexthelp+ 4)
+ (defconstant +frame-shaped+ 6)
+ (defconstant +frame-float-on-parent+ 8)
+ (defconstant +frame-tool-window+ 4)
+ 
+ 
+ ;;fix me
+ ;;a new class called wxtopwindow should be created and all these constants
+ ;;should be there, both frame and dialog class should inherit from that class
+ (defconstant +fullscreen-nomenubar+ 1)
+ (defconstant +fullscreen-notoolbar+ 2)
+ (defconstant +fullscreen-nostatusbar+ 4)
+ (defconstant +fullscreen-noborder+ 8)
+ (defconstant +fullscreen-nocaption+ 16)
+ (defconstant +fullscreen-all+ 1)
  
  (defun make-frame (parent id title &key (position +default-position+) (size +default-size+) (style +default-frame-style+))
***************
*** 89,93 ****
  
  
! (defmethod show-full-screen ((obj frame) show &optional (style wxFULLSCREEN_ALL))
    (= 1 (wxFrame_ShowFullScreen (object-pointer obj)
  			       (if show 1 0)
--- 104,108 ----
  
  
! (defmethod show-full-screen ((obj frame) show &optional (style +fullscreen-all+))
    (= 1 (wxFrame_ShowFullScreen (object-pointer obj)
  			       (if show 1 0)

Index: defpackage.lisp
===================================================================
RCS file: /cvsroot/wxcl/wxcl/src/windows/defpackage.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** defpackage.lisp	20 Oct 2005 07:46:49 -0000	1.4
--- defpackage.lisp	21 Oct 2005 06:44:58 -0000	1.5
***************
*** 96,99 ****
--- 96,111 ----
  	   #:adjust-scrollbars
  	   #:set-scroll-rate
+ ;;frame related constants
+       #:+default-frame-style+
+       #:+frame-ex-contexthelp+
+       #:+frame-shaped+
+       #:+frame-float-on-parent+
+       #:+frame-tool-window+
+       #:+fullscreen-nomenubar+
+       #:+fullscreen-notoolbar+
+       #:+fullscreen-nostatusbar+
+       #:+fullscreen-noborder+
+       #:+fullscreen-nocaption+
+       #:+fullscreen-all+
  	   ))
  

Index: status-bar.lisp
===================================================================
RCS file: /cvsroot/wxcl/wxcl/src/windows/status-bar.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** status-bar.lisp	20 Oct 2005 07:46:49 -0000	1.3
--- status-bar.lisp	21 Oct 2005 06:44:58 -0000	1.4
***************
*** 10,15 ****
  (in-package :wxcl-windows)
  
  
! (defun make-status-bar (parent id &key (style wxST_SIZEGRIP))
    (let ((st (make-instance 'status-bar)))
      (setf (slot-value st 'object)
--- 10,18 ----
  (in-package :wxcl-windows)
  
+ (defconstant +sb-normal+ #x0000)
+ (defconstant +sb-flat+ #x0001)
+ (defconstant +sb-raised+ #x0002)
  
! (defun make-status-bar (parent id &key (style +st-sizegrip+))
    (let ((st (make-instance 'status-bar)))
      (setf (slot-value st 'object)