From dlah at common-lisp.net  Mon Feb 27 08:20:35 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:20:35 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk
Message-ID: <20060227082035.6A7304100A@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk
In directory clnet:/tmp/cvs-serv17955

Log Message:


Status:

Vendor Tag:	dlah
Release Tags:	import
		

No conflicts created by this import





From dlah at common-lisp.net  Mon Feb 27 08:22:02 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:22:02 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/src
Message-ID: <20060227082202.31C1D4100D@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/src
In directory clnet:/tmp/cvs-serv18009/src

Log Message:
Directory /project/cl-fltk/cvsroot/cl-fltk/src added to the repository





From dlah at common-lisp.net  Mon Feb 27 08:22:02 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:22:02 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/test
Message-ID: <20060227082202.5F48F4100D@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/test
In directory clnet:/tmp/cvs-serv18009/test

Log Message:
Directory /project/cl-fltk/cvsroot/cl-fltk/test added to the repository





From dlah at common-lisp.net  Mon Feb 27 08:22:02 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:22:02 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/wrapper
Message-ID: <20060227082202.8CDE64100D@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/wrapper
In directory clnet:/tmp/cvs-serv18009/wrapper

Log Message:
Directory /project/cl-fltk/cvsroot/cl-fltk/wrapper added to the repository





From dlah at common-lisp.net  Mon Feb 27 08:22:43 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:22:43 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/wrapper/test
Message-ID: <20060227082243.8C2A04100E@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/wrapper/test
In directory clnet:/tmp/cvs-serv18052/test

Log Message:
Directory /project/cl-fltk/cvsroot/cl-fltk/wrapper/test added to the repository





From dlah at common-lisp.net  Mon Feb 27 08:26:41 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:26:41 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk
Message-ID: <20060227082641.30BD14200A@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk
In directory clnet:/tmp/cvs-serv18184

Added Files:
	Makefile cl-fltk.asd 
Log Message:
Initial import



--- /project/cl-fltk/cvsroot/cl-fltk/Makefile	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/Makefile	2006/02/27 08:26:41	1.1
all:
	make -C wrapper

clean:
	make -C wrapper clean--- /project/cl-fltk/cvsroot/cl-fltk/cl-fltk.asd	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/cl-fltk.asd	2006/02/27 08:26:41	1.1
(defpackage #:cl-fltk-system
  (:use #:cl #:asdf))

(in-package #:cl-fltk-system)

(defsystem cl-fltk
  :description "CFFI Bindings For FLTK "
  :author "Dario Lah  <dlah at linux.hr>"
  :version "0.1.0"
  :licence "BSD"
  :perform (load-op :after (op cl-fltk)
                    (pushnew :cl-fltk cl:*features*))
  :components ((:module src
                        :components
                        ((:file "package")
			 (:file "cl-fltk" :depends-on ("package"))
                         (:file "run" :depends-on ("cl-fltk"))
                         (:file "widget" :depends-on ("cl-fltk"))
                         (:file "group" :depends-on ("widget"))
                         (:file "button" :depends-on ("widget"))
                         (:file "window" :depends-on ("group"))
			 (:file "style" :depends-on ("package"))
			 (:file "color" :depends-on ("package"))
			 (:file "flags" :depends-on ("package"))
			 (:file "progressbar" :depends-on ("widget"))
			 (:file "ask" :depends-on ("package")))))
  :depends-on (:cffi))


From dlah at common-lisp.net  Mon Feb 27 08:26:41 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:26:41 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/src
Message-ID: <20060227082641.957FF4200C@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/src
In directory clnet:/tmp/cvs-serv18184/src

Added Files:
	ask.lisp button.lisp cl-fltk.lisp color.lisp flags.lisp 
	group.lisp package.lisp progressbar.lisp run.lisp style.lisp 
	widget.lisp window.lisp 
Log Message:
Initial import



--- /project/cl-fltk/cvsroot/cl-fltk/src/ask.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/ask.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defun ask (text)
    (cffi:foreign-funcall "fl_ask_ask"
			  :pointer (cffi:foreign-string-alloc text)
			  :int))
--- /project/cl-fltk/cvsroot/cl-fltk/src/button.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/button.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defclass Button (Widget)
  ())

(defun new-button (x y width height text)
  (let ((button-instance (make-instance 'Button )))
    (setf (slot-value button-instance 'foreign-object)
	  (cffi:foreign-funcall "new_button"
				:int x
				:int y
				:int width
				:int height
				:pointer (cffi:foreign-string-alloc text) :pointer))
    button-instance))
--- /project/cl-fltk/cvsroot/cl-fltk/src/cl-fltk.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/cl-fltk.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defclass cl-fltk-object ()
  ((foreign-object :accessor foreign-object)))

(cffi:define-foreign-library libcl-fltk
    (:darwin "wrapper/libcl-fltk.so")
    (:unix "wrapper/libcl-fltk.so"))
(cffi:load-foreign-library 'libcl-fltk)
--- /project/cl-fltk/cvsroot/cl-fltk/src/color.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/color.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defconstant +NO_COLOR+ 0)
(defconstant +GRAY00+ 32)
(defconstant +GRAY05+ 33)
(defconstant +GRAY10+ 34)
(defconstant +GRAY15+ 35)
(defconstant +GRAY20+ 36)
(defconstant +GRAY25+ 37)
(defconstant +GRAY30+ 38)
(defconstant +GRAY33+ 39)
(defconstant +GRAY35+ 40)
(defconstant +GRAY40+ 41)
(defconstant +GRAY45+ 42)
(defconstant +GRAY50+ 43)
(defconstant +GRAY55+ 44)
(defconstant +GRAY60+ 45)
(defconstant +GRAY65+ 46)
(defconstant +GRAY66+ 47)
(defconstant +GRAY70+ 48)
(defconstant +GRAY75+ 49)
(defconstant +GRAY80+ 50)
(defconstant +GRAY85+ 51)
(defconstant +GRAY90+ 53)
(defconstant +GRAY95+ 54)
(defconstant +GRAY99+ 55)
(defconstant +BLACK+ #x38)
(defconstant +RED+ #x58)
(defconstant +GREEN+ #x3F)
(defconstant +YELLOW+ #x5F)
(defconstant +BLUE+ #xD8)
(defconstant +MAGENTA+ #xF8)
(defconstant +CYAN+ #xDF)
(defconstant +WHITE+ #xFF)
(defconstant +WINDOWS_BLUE+ #x88)

;inline Color color(unsigned char r, unsigned char g, unsigned char b) {
;FL_API Color color(const char*);
;FL_API Color lerp(Color c0, Color c1, float f);
;FL_API Color inactive(Color);
;FL_API Color inactive(Color, Flags f);
;FL_API Color contrast(Color fg, Color bg);
;FL_API void split_color(Color c, unsigned char& r, unsigned char& g, unsigned char& b);
;FL_API void set_color_index(Color index, Color);
;FL_API Color get_color_index(Color index);
;FL_API void set_background(Color);
;FL_API Color nearest_index(Color);
--- /project/cl-fltk/cvsroot/cl-fltk/src/flags.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/flags.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defconstant +NO-FLAGS+ 0)
(defconstant +ALIGNCENTER+ 0)
(defconstant +ALIGN-TOP+ 1)
(defconstant +ALIGN-BOTTOM+ 2)
(defconstant +ALIGN-LEFTTOP+ 3)
(defconstant +ALIGN-LEFT+ 4)
(defconstant +ALIGN-TOPLEFT+ 5)
(defconstant +ALIGN-BOTTOMLEFT+ 6)
(defconstant +ALIGN-LEFTBOTTOM+ 7)
(defconstant +ALIGN-RIGHT+ 8)
(defconstant +ALIGN-TOPRIGHT+ 9)
(defconstant +ALIGN-BOTTOMRIGHT+ 10)
(defconstant +ALIGN-RIGHTTOP+ 11)
(defconstant +ALIGN-CENTERLEFT+ 12)
(defconstant +ALIGN-RIGHTBOTTOM+ 15)
(defconstant +ALIGN-INSIDE+ 16)
(defconstant +ALIGN-INSIDE-TOP+ 17)
(defconstant +ALIGN-INSIDE-BOTTOM+ 18)
(defconstant +ALIGN-INSIDE-LEFT+ 20)
(defconstant +ALIGN-INSIDE-TOPLEFT+ 21)
(defconstant +ALIGN-INSIDE-BOTTOMLEFT+ 22)
(defconstant +ALIGN-INSIDE-RIGHT+ 24)
(defconstant +ALIGN-INSIDE-TOPRIGHT+ 25)
(defconstant +ALIGN-INSIDE-BOTTOMRIGHT+ 26)
(defconstant +ALIGN-CLIP+ #x00000040)
(defconstant +ALIGN-WRAP+ #x00000080)
(defconstant +ALIGN-MASK+ #x000000FF)
(defconstant +NOTACTIVE+ #x00000100)
(defconstant +OUTPUT+ #x00000200)
(defconstant +VALUE+ #x00000400)
(defconstant +SELECTED+ #x00000800)
(defconstant +INVISIBLE+ #x00001000)
(defconstant +HIGHLIGHT+ #x00002000)
(defconstant +CHANGED+ #x00004000)
(defconstant +COPIED-LABEL+ #x00008000)
(defconstant +RAW-LABEL+ #x00010000)
(defconstant +LAYOUT-VERTICAL+ #x00020000)
(defconstant +TAB-TO-FOCUS+ #x00040000)
(defconstant +CLICK-TO-FOCUS+ #x00080000)
(defconstant +INACTIVE+ #x00100000)
(defconstant +FOCUSED+ #x00200000)
(defconstant +PUSHED+ #x00400000)
--- /project/cl-fltk/cvsroot/cl-fltk/src/group.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/group.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defclass Group (Widget)
  ())

(defgeneric begin (group))

(defmethod begin ((group Group))
  (cffi:foreign-funcall "fl_group_begin" :pointer (foreign-object group)))

(defgeneric end (group))

(defmethod end ((group Group))
  (cffi:foreign-funcall "fl_group_end" :pointer (foreign-object group)))
--- /project/cl-fltk/cvsroot/cl-fltk/src/package.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/package.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-user)

(defpackage #:cl-fltk
  (:use #:common-lisp)
  (:nicknames fl fltk)
  (:export
   ProgressBar
   +BORDER-BOX+
   +BORDER-FRAME+
   +COURIER+
   +COURIER-BOLD+
   +COURIER-BOLD-ITALIC+
   +COURIER-ITALIC+
   +DIAMOND-DOWN-BOX+
   +DIAMOND-UP-BOX+
   +DOTTED-FRAME+
   +DOWN-BOX+
   +EMBOSSED-BOX+
   +EMBOSSED-LABEL+
   +ENGRAVED-BOX+
   +ENGRAVED-LABEL+
   +FLAT-BOX+
   +HELVETICA+
   +HELVETICA-BOLD+
   +HELVETICA-BOLD-ITALIC+
   +HELVETICA-ITALIC+
   +HIGHLIGHT-DOWN-BOX+
   +HIGHLIGHT-UP-BOX+
   +NO-BOX+
   +NO-LABEL+
   +NORMAL-LABEL+
   +OFLAT-BOX+
   +OSHADOW-BOX+
   +OVAL-BOX+
   +PLASTIC-DOWN-BOX+
   +PLASTIC-UP-BOX+
   +RFLAT-BOX+
   +ROUND-DOWN-BOX+
   +ROUND-UP-BOX+
   +ROUNDED-BOX+
   +RSHADOW-BOX+
   +SCREEN-BOLD-FONT+
   +SCREEN-FONT+
   +SHADOW-BOX+
   +SHADOW-LABEL+
   +SYMBOL-FONT+
   +SYMBOL-LABEL+
   +THIN-DOWN-BOX+
   +THIN-UP-BOX+
   +TIMES+
   +TIMES-BOLD+
   +TIMES-BOLD-ITALIC+
   +TIMES-ITALIC+
   +UP-BOX+
   +ZAPF-DINGBATS+
   ask
   begin
   box
   callback
   end
   foreign-object
   hide
   labelfont
   labelsize
   labeltype
   new-button
   new-widget
   new-window
   show
   new-progressbar
   progressbar-step
   +NO-FLAGS+
   +ALIGN-CENTER+
   +ALIGN-TOP+
   +ALIGN-BOTTOM+
   +ALIGN-LEFTTOP+
   +ALIGN-LEFT+
   +ALIGN-TOPLEFT+
   +ALIGN-BOTTOMLEFT+
   +ALIGN-LEFTBOTTOM+
   +ALIGN-RIGHT+
   +ALIGN-TOPRIGHT+
   +ALIGN-BOTTOMRIGHT+
   +ALIGN-RIGHTTOP+
   +ALIGN-CENTERLEFT+
   +ALIGN-RIGHTBOTTOM+
   +ALIGN-INSIDE+
   +ALIGN-INSIDE-TOP+
   +ALIGN-INSIDE-BOTTOM+
   +ALIGN-INSIDE-LEFT+
   +ALIGN-INSIDE-TOPLEFT+
   +ALIGN-INSIDE-BOTTOMLEFT+
   +ALIGN-INSIDE-RIGHT+
   +ALIGN-INSIDE-TOPRIGHT+
   +ALIGN-INSIDE-BOTTOMRIGHT+
   +ALIGN-CLIP+
   +ALIGN-WRAP+
   +ALIGN-MASK+
   +NOTACTIVE+
   +OUTPUT+
   +VALUE+
   +SELECTED+
   +INVISIBLE+
   +HIGHLIGHT+
   +CHANGED+
   +COPIED-LABEL+
   +RAW-LABEL+
   +LAYOUT-VERTICAL+
   +TAB-TO-FOCUS+
   +CLICK-TO-FOCUS+
   +INACTIVE+
   +FOCUSED+
   +PUSHED+
   +NO-COLOR+
   +GRAY00+
   +GRAY05+
   +GRAY10+
   +GRAY15+
   +GRAY20+
   +GRAY25+
   +GRAY30+
   +GRAY33+
   +GRAY35+
   +GRAY40+
   +GRAY45+
   +GRAY50+
   +GRAY55+
   +GRAY60+
   +GRAY65+
   +GRAY66+
   +GRAY70+
   +GRAY75+
   +GRAY80+
   +GRAY85+
   +GRAY90+
   +GRAY95+
   +GRAY99+
   +BLACK+
   +RED+
   +GREEN+
   +YELLOW+
   +BLUE+
   +MAGENTA+
   +CYAN+
   +WHITE+
   +WINDOWS-BLUE+
   progressbar-position
   add-timeout
   clear-flag
   set-flag
   selection-color
   color
   textcolor
   ))
--- /project/cl-fltk/cvsroot/cl-fltk/src/progressbar.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/progressbar.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defclass ProgressBar (Widget)
  ())

(defun new-progressbar (x y width height lbl)
  (let ((progressbar-instance (make-instance 'ProgressBar )))
    (setf (slot-value progressbar-instance 'foreign-object)
	  (cffi:foreign-funcall "new_progressbar"
				:int x
				:int y
				:int width
				:int height
				:pointer (cffi:foreign-string-alloc lbl) :pointer))
    progressbar-instance))

;;min int max int should be double
(defmethod range ((pb ProgressBar) (min double-float) (max double-float) &optional (step 1.0D0))
  (cffi:foreign-funcall "fl_progressbar_range"
			:pointer (cl-fltk:foreign-object pb)
			:double min
			:double max
			:double step))
;;step is allready used as function name so here is renamed to preogressbar-step
(defmethod progressbar-step ((pb ProgressBar) (step double-float))
  (cffi:foreign-funcall "fl_progressbar_step"
			:pointer (cl-fltk:foreign-object pb)
			:double step))

  ;void fl_progressbar_position(ProgressBar* pb, double pos);
;  double fl_progressbar_get_position(ProgressBar* pb);
(defmethod progressbar-position ((pb ProgressBar) &optional position)
  (if position
      (cffi:foreign-funcall "fl_progressbar_position"
			    :pointer (cl-fltk:foreign-object pb)
			    :double position))
      (cffi:foreign-funcall "fl_progressbar_get_position"
			    :pointer (cl-fltk:foreign-object pb) :double))


;;TODO
  ;double fl_progressbar_get_minimum(ProgressBar* pb);
;  double fl_progressbar_get_maximum(ProgressBar* pb);
 ; void fl_progressbar_minimum(ProgressBar* pb, double nm);
  ;void fl_progressbar_maximum(ProgressBar* pb, double nm);
 ; double fl_progressbar_get_step(ProgressBar* pb);
;  void fl_progressbar_showtext(ProgressBar* pb, bool st);
 ; bool fl_progressbar_get_showtext(ProgressBar* pb);
  ;void fl_progressbar_text_color(ProgressBar* pb, Color col);
;  Color fl_progressbar_get_text_color(ProgressBar* pb);
--- /project/cl-fltk/cvsroot/cl-fltk/src/run.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/run.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(defun run ()
  (cffi:foreign-funcall "fl_run"))

(defun add-timeout (timeout handler v)
  (cffi:foreign-funcall "fl_run_add_timeout"
			:float timeout
			:pointer (cffi:foreign-alloc :pointer :initial-element (cffi:get-callback handler))
			:pointer v))
--- /project/cl-fltk/cvsroot/cl-fltk/src/style.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/style.lisp	2006/02/27 08:26:41	1.1
(in-package #:cl-fltk)

(cffi:defcvar ("__UP_BOX" +UP-BOX+) :pointer)
(cffi:defcvar ("__DOWN_BOX" +DOWN-BOX+) :pointer)
(cffi:defcvar ("__THIN_UP_BOX" +THIN-UP-BOX+) :pointer)
(cffi:defcvar ("__THIN_DOWN_BOX" +THIN-DOWN-BOX+) :pointer)
(cffi:defcvar ("__ENGRAVED_BOX" +ENGRAVED-BOX+) :pointer)
(cffi:defcvar ("__EMBOSSED_BOX" +EMBOSSED-BOX+) :pointer)
(cffi:defcvar ("__BORDER_BOX" +BORDER-BOX+) :pointer)
(cffi:defcvar ("__FLAT_BOX" +FLAT-BOX+) :pointer)
(cffi:defcvar ("__HIGHLIGHT_UP_BOX" +HIGHLIGHT-UP-BOX+) :pointer)
(cffi:defcvar ("__HIGHLIGHT_DOWN_BOX" +HIGHLIGHT-DOWN-BOX+) :pointer)
(cffi:defcvar ("__ROUND_UP_BOX" +ROUND-UP-BOX+) :pointer)
(cffi:defcvar ("__ROUND_DOWN_BOX" +ROUND-DOWN-BOX+) :pointer)
(cffi:defcvar ("__DIAMOND_UP_BOX" +DIAMOND-UP-BOX+) :pointer)
(cffi:defcvar ("__DIAMOND_DOWN_BOX" +DIAMOND-DOWN-BOX+) :pointer)
(cffi:defcvar ("__NO_BOX" +NO-BOX+) :pointer)
(cffi:defcvar ("__SHADOW_BOX" +SHADOW-BOX+) :pointer)
(cffi:defcvar ("__ROUNDED_BOX" +ROUNDED-BOX+) :pointer)
(cffi:defcvar ("__RSHADOW_BOX" +RSHADOW-BOX+) :pointer)
(cffi:defcvar ("__RFLAT_BOX" +RFLAT-BOX+) :pointer)
(cffi:defcvar ("__OVAL_BOX" +OVAL-BOX+) :pointer)
(cffi:defcvar ("__OSHADOW_BOX" +OSHADOW-BOX+) :pointer)
(cffi:defcvar ("__OFLAT_BOX" +OFLAT-BOX+) :pointer)
(cffi:defcvar ("__BORDER_FRAME" +BORDER-FRAME+) :pointer)
(cffi:defcvar ("__DOTTED_FRAME" +DOTTED-FRAME+) :pointer)
(cffi:defcvar ("__PLASTIC_UP_BOX" +PLASTIC_UP-BOX+) :pointer)
(cffi:defcvar ("__PLASTIC_DOWN_BOX" +PLASTIC-DOWN-BOX+) :pointer)

(cffi:defcvar ("__HELVETICA" +HELVETICA+) :pointer)
(cffi:defcvar ("__HELVETICA_BOLD" +HELVETICA-BOLD+) :pointer)
(cffi:defcvar ("__HELVETICA_ITALIC" +HELVETICA-ITALIC+) :pointer)
(cffi:defcvar ("__HELVETICA_BOLD_ITALIC" +HELVETICA-BOLD-ITALIC+) :pointer)
(cffi:defcvar ("__COURIER" +COURIER+) :pointer)
(cffi:defcvar ("__COURIER_BOLD" +COURIER-BOLD+) :pointer)
(cffi:defcvar ("__COURIER_ITALIC" +COURIER-ITALIC+) :pointer)
(cffi:defcvar ("__COURIER_BOLD_ITALIC" +COURIER-BOLD-ITALIC+) :pointer)
(cffi:defcvar ("__TIMES" +TIMES+) :pointer)
(cffi:defcvar ("__TIMES_BOLD" +TIMES-BOLD+) :pointer)
(cffi:defcvar ("__TIMES_ITALIC" +TIMES-ITALIC+) :pointer)
(cffi:defcvar ("__TIMES_BOLD_ITALIC" +TIMES-BOLD-ITALIC+) :pointer)
(cffi:defcvar ("__SYMBOL_FONT" +SYMBOL-FONT+) :pointer)
(cffi:defcvar ("__SCREEN_FONT" +SCREEN-FONT+) :pointer)
(cffi:defcvar ("__SCREEN_BOLD_FONT" +SCREEN-BOLD-FONT+) :pointer)
(cffi:defcvar ("__ZAPF_DINGBATS" +ZAPF-DINGBATS+) :pointer)

(cffi:defcvar ("__NO_LABEL" +NO-LABEL+) :pointer)
(cffi:defcvar ("__NORMAL_LABEL" +NORMAL-LABEL+) :pointer)
(cffi:defcvar ("__SYMBOL_LABEL" +SYMBOL-LABEL+) :pointer)
(cffi:defcvar ("__SHADOW_LABEL" +SHADOW-LABEL+) :pointer)
(cffi:defcvar ("__ENGRAVED_LABEL" +ENGRAVED-LABEL+) :pointer)

[2 lines skipped]
--- /project/cl-fltk/cvsroot/cl-fltk/src/widget.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/widget.lisp	2006/02/27 08:26:41	1.1

[89 lines skipped]
--- /project/cl-fltk/cvsroot/cl-fltk/src/window.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/src/window.lisp	2006/02/27 08:26:41	1.1

[111 lines skipped]


From dlah at common-lisp.net  Mon Feb 27 08:26:41 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:26:41 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/test
Message-ID: <20060227082641.CB6247D000@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/test
In directory clnet:/tmp/cvs-serv18184/test

Added Files:
	button.lisp hello.lisp helloask.lisp progressbar.lisp 
Log Message:
Initial import



--- /project/cl-fltk/cvsroot/cl-fltk/test/button.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/test/button.lisp	2006/02/27 08:26:41	1.1
(require :asdf)
(asdf:operate 'asdf:load-op 'cffi)
(asdf:operate 'asdf:load-op 'cl-fltk)

(defvar window)
(defvar b1)
(defvar b2)
(defvar b3)

(cffi:defcallback beepcb :void ((widget :pointer) (data :pointer))
		  (format t "beep!~%"))

(cffi:defcallback exitcb :void ((widget :pointer) (data :pointer))
		  (quit))

(setf window (fl:new-window 320 65 "bla"))
(fl:begin window)

(setf b1 (fl:new-button 20 20 80 25 "&Beep"))
(fl:callback b1 'beepcb 0)

(setf b2 (fl:new-button 120 20 80 25 "&no op"))

(setf b3 (fl:new-button 220 20 80 25 "E&xit"))
(fl:callback b3 'exitcb 0)

(fl:end window)
(fl:show window)

(fl::run)
(quit)
--- /project/cl-fltk/cvsroot/cl-fltk/test/hello.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/test/hello.lisp	2006/02/27 08:26:41	1.1
(require :asdf)
(asdf:operate 'asdf:load-op 'cffi)
(asdf:operate 'asdf:load-op 'cl-fltk)

(defvar window)
(defvar box)

(setf window (cl-fltk:new-window 300 180 "bla"))
(cl-fltk:begin window)

(setf box (cl-fltk:new-widget 20 40 260 100 "Hello, World!"))

(cl-fltk:box box cl-fltk:+UP-BOX+)
(cl-fltk:labelfont box cl-fltk:+HELVETICA-BOLD-ITALIC+)
(cl-fltk:labelsize box 36.0)
(cl-fltk:labeltype box cl-fltk:+SHADOW-LABEL+)

(cl-fltk:end window)
(cl-fltk:show window)

(cl-fltk::run)
(quit)
--- /project/cl-fltk/cvsroot/cl-fltk/test/helloask.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/test/helloask.lisp	2006/02/27 08:26:41	1.1
(require :asdf)
(asdf:operate 'asdf:load-op 'cffi)
(asdf:operate 'asdf:load-op 'cl-fltk)

(defvar window)
(defvar box)

(cffi:defcallback hello :void ((widget :pointer))
		  (if (= (cl-fltk:ask "Quit app?") 1)
		      (cl-fltk:hide widget)))

(setf window (cl-fltk:new-window 300 180 "bla"))
(cl-fltk:callback window 'hello)
(cl-fltk:begin window)

(setf box (cl-fltk:new-widget 20 40 260 100 "Hello, World!"))

(cl-fltk:box box cl-fltk:+UP-BOX+)
(cl-fltk:labelfont box cl-fltk:+HELVETICA-BOLD-ITALIC+)
(cl-fltk:labelsize box 36.0)
(cl-fltk:labeltype box cl-fltk:+SHADOW-LABEL+)

(cl-fltk:end window)
(cl-fltk:show window)

(cl-fltk::run)
(quit)
--- /project/cl-fltk/cvsroot/cl-fltk/test/progressbar.lisp	2006/02/27 08:26:41	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/test/progressbar.lisp	2006/02/27 08:26:41	1.1
(require :asdf)
(asdf:operate 'asdf:load-op 'cffi)
(asdf:operate 'asdf:load-op 'cl-fltk)

(defvar window)
(defvar pbar)

(cffi:defcallback ptimer :void ((ignored :pointer))
		  (let ((position (fl:progressbar-position pbar)))
		    (if (or (not position)
			     (< position 100))
			(progn
			  (fl:progressbar-step pbar 1.0D0)
			  (fl:add-timeout 0.1 'ptimer (cffi:null-pointer)))
			(fl:hide window))))

(setf window (fl:new-window 400 100 "ProgressBar Demo"))

(fl:begin window)

(setf pbar (fl:new-progressbar 25 25 330 25 "Simple Progress Bar"))

(fl:box pbar fl:+ENGRAVED-BOX+)
(fl:clear-flag pbar fl:+ALIGN-MASK+)
(fl:set-flag pbar fl:+ALIGN-BOTTOM+)
(fl:selection-color pbar fl:+BLUE+)
(fl:color pbar fl:+WHITE+)
(fl:textcolor pbar fl:+RED+)

(fl:end window)

(fl:add-timeout 0.1 'ptimer (cffi:null-pointer))

(fl:show window)

(fl::run)
(quit)


From dlah at common-lisp.net  Mon Feb 27 08:26:42 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:26:42 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/wrapper
Message-ID: <20060227082642.2A19F7D001@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/wrapper
In directory clnet:/tmp/cvs-serv18184/wrapper

Added Files:
	Makefile ask.cc ask.h button.cc button.h cl-fltk.h group.cc 
	group.h progressbar.cc progressbar.h run.cc run.h style.cc 
	style.h widget.cc widget.h window.cc window.h 
Log Message:
Initial import



--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/Makefile	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/Makefile	2006/02/27 08:26:42	1.1
CXX=g++
CXXFLAGS=`fltk-config --cflags` -O2 -Wall -fPIC -I. -D DEBUG

OSTYPE=$(shell uname)

ifeq ($(OSTYPE), Darwin)
#when using fltk-config --ldflags complains about missing file for -lsupc++
LIBS=`fltk-config --libs` -lpthread -framework Carbon -framework ApplicationServices
SHARED=-dynamiclib
else
#linux
LIBS=`fltk-config --ldstaticflags`
SHARED=-shared
endif

AR=ar cr
FLTK_WRAPPER_LIB=libcl-fltk.so
FLTK_WRAPPER_STATIC_LIB=libcl-fltk.a
TEST_LDFLAGS=-L. -lcl-fltk `fltk-config --libs`

SOURCES=\
	run.cc\
	window.cc\
	button.cc\
	group.cc\
	widget.cc\
	style.cc\
	ask.cc\
	progressbar.cc

TESTS=\
	test/hello\
	test/helloask\
	test/progressbar

TEST_OBJS=$(TESTS:=.o)

all: $(FLTK_WRAPPER_LIB) $(FLTK_WRAPPER_STATIC_LIB)
test: $(TESTS) all

include $(SOURCES:.cc=.d)

$(TESTS): $(FLTK_WRAPPER_LIB) $(TEST_OBJS)
	$(CXX) -o $@ $(@:=.o) $(CXXFLAGS) $(LIBS) $(TEST_LDFLAGS)
	fltk-config --post $@

$(FLTK_WRAPPER_LIB): $(SOURCES:.cc=.o)
	$(CXX) $(SHARED) $^ -o $@ $(LIBS) 

$(FLTK_WRAPPER_STATIC_LIB): $(SOURCES:.cc=.o)
	$(AR) $@ $^

clean:
	rm -f *.o *.d cl-fltk.so 
	rm -f $(TESTS) $(TESTS:=.o)

 %.d: %.cc
	$(CXX) -MM $(CXXFLAGS) $< > $@.$$$$; \
	sed 's,\($*\)\.o[ :]*,\1.o $@ : ,g' < $@.$$$$ > $@; \
        rm -f $@.$$$$
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/ask.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/ask.cc	2006/02/27 08:26:42	1.1
#include "ask.h"

int fl_ask_ask(char* message)
{
  debug("%s:%s %s\n", __FILE__, __FUNCTION__, message);
  return ask(message);
}
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/ask.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/ask.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_ASK_H_
#define _CLFLTK_ASK_H_

#include "cl-fltk.h"

#include <fltk/ask.h>

using namespace fltk;

extern "C" int fl_ask_ask(char*);

#endif 
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/button.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/button.cc	2006/02/27 08:26:42	1.1
#include "button.h"

Button* new_button(int x,int y,int w,int h,const char *text)
{
  debug("%s:%s %d, %d, %d, %d, %s\n", __FILE__, __FUNCTION__, x, y, w, h, text);
  return new Button(x, y, w, h, text);
}

--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/button.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/button.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_BUTTON_H_
#define _CLFLTK_BUTTON_H_

#include "cl-fltk.h"

#include <fltk/Button.h>

using namespace fltk;

extern "C" Button* new_button(int x,int y,int w,int h,const char *text);

#endif 
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/cl-fltk.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/cl-fltk.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_H_
#define _CLFLTK_H_

#ifdef DEBUG
#include <stdio.h>
#define debug(...) fprintf(stderr, __VA_ARGS__)
#else
#define debug(...)
#endif

#endif
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/group.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/group.cc	2006/02/27 08:26:42	1.1
#include "group.h"

void fl_group_end(Group *group)
{
  debug("%s:%s %x\n", __FILE__, __FUNCTION__, (unsigned int) group);
  group->end();
}

void fl_group_begin(Group *group)
{
  debug("%s:%s %x\n", __FILE__, __FUNCTION__, (unsigned int) group);
  group->begin();
}
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/group.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/group.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_GROUP_CLASS_H_
#define _CLFLTK_GROUP_CLASS_H_

#include "cl-fltk.h"

#include <FL/Fl_Group.H>

using namespace fltk;

extern "C" void fl_group_end(Group *group);

extern "C" void fl_group_begin(Group *group);

#endif 
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/progressbar.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/progressbar.cc	2006/02/27 08:26:42	1.1
#include "progressbar.h"
#include <stdio.h>

ProgressBar* new_progressbar(int x, int y, int w, int h, const char *lbl = 0)
{
  return  new ProgressBar(x, y, w, h, lbl);
}
 
void fl_progressbar_range(ProgressBar* pb, double min, double max, double step = 1)
{
  pb->range(min, max, step);
}

void fl_progressbar_step(ProgressBar* pb, double step)
{
  pb->step(step);
}

double fl_progressbar_get_minimum(ProgressBar* pb)
{
  return pb->minimum();
}

double fl_progressbar_get_maximum(ProgressBar* pb)
{
  return pb->maximum();
}

void fl_progressbar_minimum(ProgressBar* pb, double nm)
{
  pb->minimum(nm);
}

void fl_progressbar_maximum(ProgressBar* pb, double nm)
{
  pb->maximum(nm);
}

double fl_progressbar_get_position(ProgressBar* pb)
{
  return pb->position();
}

double fl_progressbar_get_step(ProgressBar* pb)
{
  return pb->step();
}

void fl_progressbar_position(ProgressBar* pb, double pos)
{
  pb->position(pos);
}

void fl_progressbar_showtext(ProgressBar* pb, bool st)
{
  pb->showtext(st);
}

bool fl_progressbar_get_showtext(ProgressBar* pb)
{
  return pb->showtext();
}

void fl_progressbar_text_color(ProgressBar* pb, Color col)
{
  pb->text_color(col);
}

Color fl_progressbar_get_text_color(ProgressBar* pb)
{
  return pb->text_color();
}
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/progressbar.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/progressbar.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_PROGRESSBAR_H_
#define _CLFLTK_PROGRESSBAR_H_

#include "fltk/ProgressBar.h"

using namespace fltk;

extern "C" {
  ProgressBar* new_progressbar(int x, int y, int w, int h, const char *lbl);
  void fl_progressbar_range(ProgressBar* pb, double min, double max, double step);
  void fl_progressbar_step(ProgressBar* pb, double step);
  double fl_progressbar_get_minimum(ProgressBar* pb);
  double fl_progressbar_get_maximum(ProgressBar* pb);
  void fl_progressbar_minimum(ProgressBar* pb, double nm);
  void fl_progressbar_maximum(ProgressBar* pb, double nm);
  double fl_progressbar_get_position(ProgressBar* pb);
  double fl_progressbar_get_step(ProgressBar* pb);
  void fl_progressbar_position(ProgressBar* pb, double pos);
  void fl_progressbar_showtext(ProgressBar* pb, bool st);
  bool fl_progressbar_get_showtext(ProgressBar* pb);
  void fl_progressbar_text_color(ProgressBar* pb, Color col);
  Color fl_progressbar_get_text_color(ProgressBar* pb);
}
#endif

--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/run.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/run.cc	2006/02/27 08:26:42	1.1
#include "run.h"

void callback(Widget *w, Callback* c, void* p) 
{
  debug("%s:%s: %x, %x, %x\n", __FILE__, __FUNCTION__, (unsigned int)w, (unsigned int)c, (unsigned int)p);  
  w->callback(c,p);
  }

void fl_run()
{
  debug("%s:%s\n", __FILE__, __FUNCTION__);
  run();
}

void fl_run_add_timeout(float t,TimeoutHandler* th, void* v=0)
{
  debug("%s:%s: %f, %x, %x\n", __FILE__, __FUNCTION__, t, (unsigned int)th, (unsigned int)v);  
  add_timeout(t, *th, v);
}
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/run.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/run.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_FL_H_
#define _CLFLTK_FL_H_

#include "cl-fltk.h"

#include <fltk/run.h>

using namespace fltk;

#include <fltk/Widget.h>

extern "C" {
  void callback(Widget* w, Callback* c, void* p) ;
  void fl_run();
  void fl_run_add_timeout(float t, TimeoutHandler*, void* v);
}

#endif 
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/style.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/style.cc	2006/02/27 08:26:42	1.1
#include "style.h"

Box *__UP_BOX = UP_BOX;
Box *__DOWN_BOX = DOWN_BOX;
Box *__THIN_UP_BOX = THIN_UP_BOX;
Box *__THIN_DOWN_BOX = THIN_DOWN_BOX;
Box *__ENGRAVED_BOX = ENGRAVED_BOX;
Box *__EMBOSSED_BOX = EMBOSSED_BOX;
Box *__BORDER_BOX = BORDER_BOX;
Box *__FLAT_BOX = FLAT_BOX;
Box *__HIGHLIGHT_UP_BOX = HIGHLIGHT_UP_BOX;
Box *__HIGHLIGHT_DOWN_BOX = HIGHLIGHT_DOWN_BOX;
Box *__ROUND_UP_BOX = ROUND_UP_BOX;
Box *__ROUND_DOWN_BOX = ROUND_DOWN_BOX;
Box *__DIAMOND_UP_BOX = DIAMOND_UP_BOX;
Box *__DIAMOND_DOWN_BOX = DIAMOND_DOWN_BOX;
Box *__NO_BOX = NO_BOX;
Box *__SHADOW_BOX = SHADOW_BOX;
Box *__ROUNDED_BOX = ROUNDED_BOX;
Box *__RSHADOW_BOX = RSHADOW_BOX;
Box *__RFLAT_BOX = RFLAT_BOX;
Box *__OVAL_BOX = OVAL_BOX;
Box *__OSHADOW_BOX = OSHADOW_BOX;
Box *__OFLAT_BOX = OFLAT_BOX;
Box *__BORDER_FRAME = BORDER_FRAME;
Box *__DOTTED_FRAME = DOTTED_FRAME;
Box *__PLASTIC_UP_BOX = PLASTIC_UP_BOX;
Box *__PLASTIC_DOWN_BOX = PLASTIC_DOWN_BOX;

Font *__HELVETICA = HELVETICA;
Font *__HELVETICA_BOLD = HELVETICA_BOLD;
Font *__HELVETICA_ITALIC = HELVETICA_ITALIC;
Font *__HELVETICA_BOLD_ITALIC = HELVETICA_BOLD_ITALIC;
Font *__COURIER = COURIER;
Font *__COURIER_BOLD = COURIER_BOLD;
Font *__COURIER_ITALIC = COURIER_ITALIC;
Font *__COURIER_BOLD_ITALIC = COURIER_BOLD_ITALIC;
Font *__TIMES = TIMES;
Font *__TIMES_BOLD = TIMES_BOLD;
Font *__TIMES_ITALIC = TIMES_ITALIC;
Font *__TIMES_BOLD_ITALIC = TIMES_BOLD_ITALIC;
Font *__SYMBOL_FONT = SYMBOL_FONT;
Font *__SCREEN_FONT = SCREEN_FONT;
Font *__SCREEN_BOLD_FONT = SCREEN_BOLD_FONT;
Font *__ZAPF_DINGBATS = ZAPF_DINGBATS;

LabelType *__NO_LABEL = NO_LABEL;
LabelType *__NORMAL_LABEL = NORMAL_LABEL;
LabelType *__SYMBOL_LABEL = SYMBOL_LABEL; // same as NORMAL_LABEL
LabelType *__SHADOW_LABEL = SHADOW_LABEL;
LabelType *__ENGRAVED_LABEL = ENGRAVED_LABEL;
LabelType *__EMBOSSED_LABEL = EMBOSSED_LABEL;
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/style.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/style.h	2006/02/27 08:26:42	1.1
#ifndef _CLFLTK_STYLE_H_
#define _CLFLTK_STYLE_H_

#include "cl-fltk.h"

#include <fltk/Widget.h>

using namespace fltk;

extern "C" Box *__UP_BOX;
extern "C" Box *__UP_BOX;
extern "C" Box *__DOWN_BOX;
extern "C" Box *__THIN_UP_BOX;
extern "C" Box *__THIN_DOWN_BOX;
extern "C" Box *__ENGRAVED_BOX;
extern "C" Box *__EMBOSSED_BOX;
extern "C" Box *__BORDER_BOX;
extern "C" Box *__FLAT_BOX;
extern "C" Box *__HIGHLIGHT_UP_BOX;
extern "C" Box *__HIGHLIGHT_DOWN_BOX;
extern "C" Box *__ROUND_UP_BOX;
extern "C" Box *__ROUND_DOWN_BOX;
extern "C" Box *__DIAMOND_UP_BOX;
extern "C" Box *__DIAMOND_DOWN_BOX;
extern "C" Box *__NO_BOX;
extern "C" Box *__SHADOW_BOX;
extern "C" Box *__ROUNDED_BOX;
extern "C" Box *__RSHADOW_BOX;
extern "C" Box *__RFLAT_BOX;
extern "C" Box *__OVAL_BOX;
extern "C" Box *__OSHADOW_BOX;
extern "C" Box *__OFLAT_BOX;
extern "C" Box *__BORDER_FRAME;
extern "C" Box *__DOTTED_FRAME;
extern "C" Box *__PLASTIC_UP_BOX;
extern "C" Box *__PLASTIC_DOWN_BOX;

extern "C" Font *__HELVETICA;
extern "C" Font *__HELVETICA_BOLD;
extern "C" Font *__HELVETICA_ITALIC;
extern "C" Font *__HELVETICA_BOLD_ITALIC;
extern "C" Font *__COURIER;
extern "C" Font *__COURIER_BOLD;
extern "C" Font *__COURIER_ITALIC;
extern "C" Font *__COURIER_BOLD_ITALIC;
extern "C" Font *__TIMES;
extern "C" Font *__TIMES_BOLD;
extern "C" Font *__TIMES_ITALIC;
extern "C" Font *__TIMES_BOLD_ITALIC;
extern "C" Font *__SYMBOL_FONT;
extern "C" Font *__SCREEN_FONT;
extern "C" Font *__SCREEN_BOLD_FONT;
extern "C" Font *__ZAPF_DINGBATS;

extern "C" LabelType *__NO_LABEL;
extern "C" LabelType *__NORMAL_LABEL;
extern "C" LabelType *__SYMBOL_LABEL;
extern "C" LabelType *__SHADOW_LABEL;
extern "C" LabelType *__ENGRAVED_LABEL;
extern "C" LabelType *__EMBOSSED_LABEL;

#endif
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/widget.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/widget.cc	2006/02/27 08:26:42	1.1
#include "widget.h"

Widget*  new_widget(int x, int y, int width, int height, const char* text)
{
  debug("%s:%s %d, %d,  %d, %d, %s\n", __FILE__, __FUNCTION__, x, y, width, height, text);
  return new Widget(x, y, width, height, text);
}

void fl_widget_box(Widget* widget, Box* box)
{
  debug("%s:%s %x, %x\n", __FILE__, __FUNCTION__, (unsigned int)widget, (unsigned int)box);
  widget->box(box);
}

void fl_widget_labelfont(Widget* widget, Font* labelfont)

[64 lines skipped]
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/widget.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/widget.h	2006/02/27 08:26:42	1.1

[91 lines skipped]
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/window.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/window.cc	2006/02/27 08:26:42	1.1

[104 lines skipped]
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/window.h	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/window.h	2006/02/27 08:26:42	1.1

[118 lines skipped]


From dlah at common-lisp.net  Mon Feb 27 08:26:42 2006
From: dlah at common-lisp.net (dlah)
Date: Mon, 27 Feb 2006 03:26:42 -0500 (EST)
Subject: [Cl-fltk-cvs] CVS cl-fltk/wrapper/test
Message-ID: <20060227082642.774A07E023@common-lisp.net>

Update of /project/cl-fltk/cvsroot/cl-fltk/wrapper/test
In directory clnet:/tmp/cvs-serv18184/wrapper/test

Added Files:
	hello.cc helloask.cc progressbar.cc 
Log Message:
Initial import



--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/test/hello.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/test/hello.cc	2006/02/27 08:26:42	1.1
#include "run.h"
#include "window.h"
#include "group.h"
#include "widget.h"
#include "style.h"

int main(int argc , char **argv)
{
  Window* window;
  Widget* box;

  window = new_window(300,180, "bla");
  fl_group_begin(window);

  box = new_widget(20, 40, 260, 100, "Hello, World!");
  fl_widget_box(box, __UP_BOX);
  fl_widget_labelfont(box, __HELVETICA_BOLD_ITALIC);
  fl_widget_labelsize(box, 36);
  fl_widget_labeltype(box, __SHADOW_LABEL);

  fl_group_end(window);
  fl_window_show(window, argc, argv);

  fl_run();
  return 0;
}
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/test/helloask.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/test/helloask.cc	2006/02/27 08:26:42	1.1
#include "run.h"
#include "window.h"
#include "group.h"
#include "widget.h"
#include "style.h"
#include "ask.h"
#include <stdlib.h>

void hello(Widget *w, void *data)
{
  if(fl_ask_ask("bla"))
    {
      exit(0);
    }
}

int main(int argc , char **argv)
{
  Window* window;
  Widget* box;

  window = new_window(300,180, "bla");
  callback(window, hello, 0);
  fl_group_begin(window);

  box = new_widget(20, 40, 260, 100, "Hello, World!");
  fl_widget_box(box, __UP_BOX);
  fl_widget_labelfont(box, __HELVETICA_BOLD_ITALIC);
  fl_widget_labelsize(box, 36);
  fl_widget_labeltype(box, __SHADOW_LABEL);

  fl_group_end(window);
  fl_window_show(window, argc, argv);

  fl_run();
  return 0;
}
--- /project/cl-fltk/cvsroot/cl-fltk/wrapper/test/progressbar.cc	2006/02/27 08:26:42	NONE
+++ /project/cl-fltk/cvsroot/cl-fltk/wrapper/test/progressbar.cc	2006/02/27 08:26:42	1.1
#include "run.h"
#include "window.h"
#include "group.h"
#include "widget.h"
#include "style.h"
#include "progressbar.h"

Window* w;

static void ptimer(void *o)
{
	ProgressBar *pbar = (ProgressBar *)o;
	if(pbar->position() < 100)
	{
	  pbar->step(1);
		add_timeout(0.1, ptimer, (void *)pbar);
	}
	else
		w->hide();
}

int main(int argc, char **argv) {
  ProgressBar* pbar;
  {
    Window* o = new_window(400, 100);
    o->begin();
    w = o;
    { ProgressBar* o = new_progressbar(25, 25, 330, 25, "Simple Progress Bar");
      pbar = o;
      fl_widget_box(o, ENGRAVED_BOX);
      fl_widget_clear_flag(o, ALIGN_MASK);
      fl_widget_set_flag(o, ALIGN_BOTTOM);
      fl_widget_selection_color(o, BLUE);
      fl_widget_color(o, WHITE);
      fl_widget_textcolor(o, RED);
    }
    o->end();
  }
  add_timeout(0.1, ptimer, (void *)pbar);
  w->show(argc, argv);

  return run();
}