From d.albuschat at gmail.com  Mon Jul  9 17:20:44 2007
From: d.albuschat at gmail.com (Daniel Albuschat)
Date: Mon, 9 Jul 2007 19:20:44 +0200
Subject: [cells-gtk-devel] problem with setting up cells-gtk (on debian)
Message-ID: <1557ec740707091020h4921e04ay2a1bedc91aa436d3@mail.gmail.com>

Hello,

I tried to install cells-gtk on debian, and strictly followed the instructions.
Here are the exact steps:
I downloaded cells-gtk-2006-06-30.tgz to
/pub/packages/tar/cells-gtk-2006-06-30.tgz
and unpacked it, so the extracted directory is
/pub/packages/tar/cells-gtk-2006-06-30

I cd'd to that dir, started emacs, executed slime, and executed
(load "load"). I then noticed that I need to specify the correct path in
load.lisp, as stated in INSTALL.TXT. I did that, did a second (load "load")
and it went on to install cells-gtk. Half way thru it told me about not
finding some libgobject*.so. I then apt-get installed the necessary
libraries for gtk (mostly libgtk2.0-dev), changed into the root/gtk-ffi dir
and did a 'make'. After copying the resulting libcellsgtk.so to ~/lib (which is
in my LD_LIBRARY_PATH) I changed back into the install-rootdir, opened
up emacs and slime, and ran (load "load") again.
It compiled smoothly, and stated me to test itself with (test-gtk:gtk-demo)

Running (test-gtk:gtk-demo) yields this result:

FUNCALL: undefined function NIL
   [Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION]

Restarts:
  0: [USE-VALUE] You may input a value to be used instead of (FDEFINITION 'NIL).
  1: [RETRY] Retry
  2: [STORE-VALUE] You may input a new value for (FDEFINITION 'NIL).
  3: [ABORT-REQUEST] Abort handling SLIME request.
  4: [CLOSE-CONNECTION] Close SLIME connection
  5: [ABORT] ABORT

Backtrace:
  0: #<COMPILED-FUNCTION SYSTEM::CHECK-VALUE>
  1: #<COMPILED-FUNCTION GTK-FFI::G_THREAD_INIT>
  2: #<COMPILED-FUNCTION GTK-FFI:G-THREAD-INIT>
  3: #<COMPILED-FUNCTION CELLS-GTK:START-APP>
  4: #<COMPILED-FUNCTION TEST-GTK:GTK-DEMO>
  5: #<SYSTEM-FUNCTION EVAL>
  6: #<COMPILED-FUNCTION SWANK::EVAL-REGION>
  7: #<COMPILED-FUNCTION SWANK::LISTENER-EVAL-1>
  8: #<COMPILED-FUNCTION #:|324 326 (DEFINTERFACE
CALL-WITH-SYNTAX-HOOKS (FN) ...)-34-3-1|>
  9: #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS>
 10: #<COMPILED-FUNCTION SWANK::CALL-WITH-BUFFER-SYNTAX>
 11: #<COMPILED-FUNCTION SWANK:LISTENER-EVAL>
 12: #<SYSTEM-FUNCTION EVAL>
 13: #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1-4>
 14: #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1>
 15: #<COMPILED-FUNCTION #:|567 572 (DEFINTERFACE
CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-58-3-1|>
 16: #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK>
 17: #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS>
 18: #<COMPILED-FUNCTION SWANK::READ-FROM-EMACS>
 19: #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST-1>
 --more--

This looks like some shared-object could not be loaded, imho.
I don't understand what is going wrong exactly -- can you help me debug
this issue further?

Kind regards,

   Daniel Albuschat

-- 
eat(this); // delicious suicide


From peter.hildebrandt at gmail.com  Mon Jul  9 17:42:30 2007
From: peter.hildebrandt at gmail.com (Peter Hildebrandt)
Date: Mon, 09 Jul 2007 10:42:30 -0700
Subject: [cells-gtk-devel] problem with setting up cells-gtk (on debian)
In-Reply-To: <1557ec740707091020h4921e04ay2a1bedc91aa436d3@mail.gmail.com>
References: <1557ec740707091020h4921e04ay2a1bedc91aa436d3@mail.gmail.com>
Message-ID: <op.tu7ks4pdx6i8pv@almond.icsi.berkeley.edu>


Hi Daniel,

I remember similar issues when installing cells-gtk on my lab machine.   
After reading in the gtk+ docs for a while I realized that the reason was  
simply that my gtk was too old and thus did not provide all funcs which  
test-gtk needs.

Hence, which version of gtk comes with your debian?  Compare this to the  
current version on http://www.gtk.org/ - 2.10.13.

You do not have to upgrade your distro if this is the reason -- I just  
downloaded gtk+ and its dependencies from their website and built it from  
source in my $home.  After adding the respective paths, (lib and include)  
to the corresponding variables, it worked fine.

HTH,
Peter


On Mon, 09 Jul 2007 10:20:44 -0700, Daniel Albuschat  
<d.albuschat at gmail.com> wrote:

> Hello,
>
> I tried to install cells-gtk on debian, and strictly followed the  
> instructions.
> Here are the exact steps:
> I downloaded cells-gtk-2006-06-30.tgz to
> /pub/packages/tar/cells-gtk-2006-06-30.tgz
> and unpacked it, so the extracted directory is
> /pub/packages/tar/cells-gtk-2006-06-30
>
> I cd'd to that dir, started emacs, executed slime, and executed
> (load "load"). I then noticed that I need to specify the correct path in
> load.lisp, as stated in INSTALL.TXT. I did that, did a second (load  
> "load")
> and it went on to install cells-gtk. Half way thru it told me about not
> finding some libgobject*.so. I then apt-get installed the necessary
> libraries for gtk (mostly libgtk2.0-dev), changed into the root/gtk-ffi  
> dir
> and did a 'make'. After copying the resulting libcellsgtk.so to ~/lib  
> (which is
> in my LD_LIBRARY_PATH) I changed back into the install-rootdir, opened
> up emacs and slime, and ran (load "load") again.
> It compiled smoothly, and stated me to test itself with  
> (test-gtk:gtk-demo)
>
> Running (test-gtk:gtk-demo) yields this result:
>
> FUNCALL: undefined function NIL
>    [Condition of type SYSTEM::SIMPLE-UNDEFINED-FUNCTION]
>
> Restarts:
>   0: [USE-VALUE] You may input a value to be used instead of  
> (FDEFINITION 'NIL).
>   1: [RETRY] Retry
>   2: [STORE-VALUE] You may input a new value for (FDEFINITION 'NIL).
>   3: [ABORT-REQUEST] Abort handling SLIME request.
>   4: [CLOSE-CONNECTION] Close SLIME connection
>   5: [ABORT] ABORT
>
> Backtrace:
>   0: #<COMPILED-FUNCTION SYSTEM::CHECK-VALUE>
>   1: #<COMPILED-FUNCTION GTK-FFI::G_THREAD_INIT>
>   2: #<COMPILED-FUNCTION GTK-FFI:G-THREAD-INIT>
>   3: #<COMPILED-FUNCTION CELLS-GTK:START-APP>
>   4: #<COMPILED-FUNCTION TEST-GTK:GTK-DEMO>
>   5: #<SYSTEM-FUNCTION EVAL>
>   6: #<COMPILED-FUNCTION SWANK::EVAL-REGION>
>   7: #<COMPILED-FUNCTION SWANK::LISTENER-EVAL-1>
>   8: #<COMPILED-FUNCTION #:|324 326 (DEFINTERFACE
> CALL-WITH-SYNTAX-HOOKS (FN) ...)-34-3-1|>
>   9: #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS>
>  10: #<COMPILED-FUNCTION SWANK::CALL-WITH-BUFFER-SYNTAX>
>  11: #<COMPILED-FUNCTION SWANK:LISTENER-EVAL>
>  12: #<SYSTEM-FUNCTION EVAL>
>  13: #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1-4>
>  14: #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS-1>
>  15: #<COMPILED-FUNCTION #:|567 572 (DEFINTERFACE
> CALL-WITH-DEBUGGER-HOOK (HOOK FUN) ...)-58-3-1|>
>  16: #<COMPILED-FUNCTION SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK>
>  17: #<COMPILED-FUNCTION SWANK::EVAL-FOR-EMACS>
>  18: #<COMPILED-FUNCTION SWANK::READ-FROM-EMACS>
>  19: #<COMPILED-FUNCTION SWANK::HANDLE-REQUEST-1>
>  --more--
>
> This looks like some shared-object could not be loaded, imho.
> I don't understand what is going wrong exactly -- can you help me debug
> this issue further?
>
> Kind regards,
>
>    Daniel Albuschat
>




From akopa.gmane.poster at gmail.com  Tue Jul 10 04:04:40 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Mon, 09 Jul 2007 23:04:40 -0500
Subject: [cells-gtk-devel] gtk-tutorial and border-width
Message-ID: <pan.2007.07.10.04.04.39.765898@gmail.com>


Is it possible to set the border width on a window as is done in:
http://gtk.org/tutorial/c39.html, Section 3.1.  I notice it is a property
of a GTKContainer, but cells-gtk doesn't wrap that class.


Thanks,

Matt
-- 
"You do not really understand something unless you
 can explain it to your grandmother." - Albert Einstein.




From akopa.gmane.poster at gmail.com  Tue Jul 10 05:43:46 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Tue, 10 Jul 2007 00:43:46 -0500
Subject: [cells-gtk-devel] more tutorial
Message-ID: <pan.2007.07.10.05.43.46.365734@gmail.com>

What's an idomatic way to express
    /* This will cause the window to be destroyed by calling
     * gtk_widget_destroy(window) when "clicked".  Again, the destroy
     * signal could come from here, or the window manager. */
    g_signal_connect_swapped (G_OBJECT (button), "clicked",
			      G_CALLBACK (gtk_widget_destroy),
                              G_OBJECT (window));
in a class like:
(defmodel hello-world (gtk-app)
  ()
  (:default-initargs
    :kids (list (mk-button :label "Hello World"
                           :on-clicked (callback (widget event data)
                                         (format t "Hello World!"))))))

I could signal in the existing callback, but that seems kind of klunky.

Matt

-- 
"You do not really understand something unless you
 can explain it to your grandmother." - Albert Einstein.




From akopa.gmane.poster at gmail.com  Tue Jul 10 04:50:03 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Mon, 09 Jul 2007 23:50:03 -0500
Subject: [cells-gtk-devel] more tutorial
Message-ID: <pan.2007.07.10.04.50.02.358797@gmail.com>

What's an idomatic way to express
    /* This will cause the window to be destroyed by calling
     * gtk_widget_destroy(window) when "clicked".  Again, the destroy
     * signal could come from here, or the window manager. */
    g_signal_connect_swapped (G_OBJECT (button), "clicked",
			      G_CALLBACK (gtk_widget_destroy),
                              G_OBJECT (window));
in a class like:
(defmodel hello-world (gtk-app)
  ()
  (:default-initargs
    :kids (list (mk-button :label "Hello World"
                           :on-clicked (callback (widget event data)
                                         (format t "Hello World!"))))))

I could signal in the existing callback, but that seems kind of klunky.

Matt

-- 
"You do not really understand something unless you can
 explain it to your grandmother." - Albert Einstein.




From d.albuschat at gmail.com  Tue Jul 10 11:32:48 2007
From: d.albuschat at gmail.com (Daniel Albuschat)
Date: Tue, 10 Jul 2007 13:32:48 +0200
Subject: [cells-gtk-devel] Re: problem with setting up cells-gtk (on debian)
In-Reply-To: <1557ec740707100432x24b24394r207db6d2f560e804@mail.gmail.com>
References: <1557ec740707091020h4921e04ay2a1bedc91aa436d3@mail.gmail.com>
	<op.tu7ks4pdx6i8pv@almond.icsi.berkeley.edu>
	<1557ec740707100432x24b24394r207db6d2f560e804@mail.gmail.com>
Message-ID: <1557ec740707100432v376d8790j7714c6f1bd4b7fd4@mail.gmail.com>

2007/7/9, Peter Hildebrandt <peter.hildebrandt at gmail.com>:

Hi Peter,

thanks for your reply.

> I remember similar issues when installing cells-gtk on my lab machine.
> After reading in the gtk+ docs for a while I realized that the reason was
> simply that my gtk was too old and thus did not provide all funcs which
> test-gtk needs.
>
> Hence, which version of gtk comes with your debian?  Compare this to the
> current version on http://www.gtk.org/ - 2.10.13.

I have 2.10.13 installed on my system.

> You do not have to upgrade your distro if this is the reason -- I just
> downloaded gtk+ and its dependencies from their website and built it from
> source in my $home.  After adding the respective paths, (lib and include)
> to the corresponding variables, it worked fine.

Which are the corresponding variables?
I'm very new to lisp and emacs, so I might not get something obvious here.

Regards,

   Daniel Albuschat

--
eat(this); // delicious suicide


From peter.denno at nist.gov  Tue Jul 10 12:37:14 2007
From: peter.denno at nist.gov (Peter Denno)
Date: Tue, 10 Jul 2007 08:37:14 -0400
Subject: [cells-gtk-devel] gtk-tutorial and border-width
In-Reply-To: <pan.2007.07.10.04.04.39.765898@gmail.com>
References: <pan.2007.07.10.04.04.39.765898@gmail.com>
Message-ID: <200707100837.14959.peter.denno@nist.gov>

On Tuesday 10 July 2007 00:04, Matthew Swank wrote:
> Is it possible to set the border width on a window as is done in:
> http://gtk.org/tutorial/c39.html, Section 3.1.  I notice it is a
> property of a GTKContainer, but cells-gtk doesn't wrap that class.

It probably wouldn't be too hard to write a def-widget for 
GTKContainer and make Box, Notebook, Alignment etc. inherit from it.

-- 
Best regards,
  - Peter


From akopa.gmane.poster at gmail.com  Tue Jul 10 18:29:36 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Tue, 10 Jul 2007 18:29:36 +0000 (UTC)
Subject: [cells-gtk-devel] Re: gtk-tutorial and border-width
References: <pan.2007.07.10.04.04.39.765898@gmail.com>
	<200707100837.14959.peter.denno@nist.gov>
Message-ID: <loom.20070710T202145-159@post.gmane.org>

Peter Denno <peter.denno <at> nist.gov> writes:

> 
> On Tuesday 10 July 2007 00:04, Matthew Swank wrote:
> > Is it possible to set the border width on a window as is done in:
> > http://gtk.org/tutorial/c39.html, Section 3.1.  I notice it is a
> > property of a GTKContainer, but cells-gtk doesn't wrap that class.
> 
> It probably wouldn't be too hard to write a def-widget for 
> GTKContainer and make Box, Notebook, Alignment etc. inherit from it.
> 

I see how to put a skeletal widget def in:
(def-widget container ()
  ()
  (border-width child resize-mode)
  (add check-resize remove set-focus-child))

I also see that gtk-ffi needs to know what methods to call for the props:
(added to (def-gtk-lib-functions :gtk ...) )

  (gtk-container-set-border-width :void
				  ((container :pointer)
				   (width :unsigned-int)))
  (gtk-container-get-border-width :unsigned-int
				  ((container :pointer)))
  ;; mode is actually an enum
  (gtk-container-set-resize-mode :void
				  ((container :pointer)
				   (mode :unsigned-int)))
  (gtk-container-get-resize-mode :unsigned-int
				  ((container :pointer)))

but how do I add proper infrastructure for the signals?

Also the child property is write-only, and the setter is a 
varargs function.  How do I set that up?

Thanks again,

Matt



From akopa.gmane.poster at gmail.com  Wed Jul 11 01:37:14 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Tue, 10 Jul 2007 20:37:14 -0500
Subject: [cells-gtk-devel] container widget
Message-ID: <pan.2007.07.11.01.37.01.535596@gmail.com>

This patch adds preliminary support for the container widget.
Feedback would be welcome.

Matt
-- 
"You do not really understand something unless you can
 explain it to your grandmother." - Albert Einstein.


Index: cells-gtk/buttons.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/buttons.lisp,v
retrieving revision 1.6
diff -u -r1.6 buttons.lisp
--- cells-gtk/buttons.lisp	16 Feb 2006 18:10:10 -0000	1.6
+++ cells-gtk/buttons.lisp	11 Jul 2007 01:27:13 -0000
@@ -18,7 +18,7 @@
 
 (in-package :cgtk)
 
-(def-widget button ()
+(def-widget button (container)
   ((stock :accessor stock :initarg :stock :initform (c-in nil))
    (markup :accessor markup :initarg :markup :initform nil)
    (label :accessor label :initarg :label :initform (c-in nil)))
Index: cells-gtk/layout.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp,v
retrieving revision 1.10
diff -u -r1.10 layout.lisp
--- cells-gtk/layout.lisp	11 Aug 2006 13:07:55 -0000	1.10
+++ cells-gtk/layout.lisp	11 Jul 2007 01:27:14 -0000
@@ -18,7 +18,7 @@
 
 (in-package :cgtk)
 
-(def-widget box ()
+(def-widget box (container)
   ()
   (homogeneous spacing)
   ()
@@ -40,7 +40,7 @@
   () () ()
   :new-args (c? (list (homogeneous self) (spacing self))))
 
-(def-widget table ()
+(def-widget table (container)
   ((elements :accessor elements :initarg :elements :initform (c-in nil))
    (homogeneous :accessor homogeneous :initarg :homogeneous :initform nil)
    (rows-count :accessor rows-count :initarg :rows-count :initform (c? (length (elements self))))
@@ -116,7 +116,7 @@
   #+clisp (call-next-method))
   
 
-(def-widget frame ()
+(def-widget frame (container)
   ((shadow :accessor shadow? :initarg :shadow :initform nil)
    (label :accessor label :initarg :label :initform (c-in nil)))
   (label-widget label-align shadow-type)
@@ -163,7 +163,7 @@
 (def-widget vseparator ()
   () () ())
 
-(def-widget expander ()
+(def-widget expander (container)
   ((label :accessor label :initarg :label :initform (c-in nil)))
   (expanded spacing use-underline use-markup label-widget)
   ()
@@ -179,7 +179,7 @@
     (gtk-container-add (id self) (id kid)))
   #+clisp (call-next-method))
 
-(def-widget scrolled-window ()
+(def-widget scrolled-window (container)
   ()
   (policy placement shadow-type)
   ()
@@ -195,7 +195,7 @@
 	(gtk-scrolled-window-add-with-viewport (id self) (id kid))))
   #+clisp (call-next-method))
 
-(def-widget notebook ()
+(def-widget notebook (container)
   ((tab-labels :accessor tab-labels :initarg :tab-labels :initform (c-in nil))
    (tab-labels-widgets :accessor tab-labels-widgets :initform (c-in nil))
    (show-page :accessor show-page :initarg :show-page :initform (c-in 0))
@@ -251,7 +251,7 @@
 (def-c-output show-border ((self notebook))
  (gtk-notebook-set-show-border (id self) new-value))
 
-(def-widget alignment ()
+(def-widget alignment (container)
   ((xalign :accessor xalign :initarg :xalign :initform 0.5)
    (yalign :accessor yalign :initarg :yalign :initform 0.5)
    (xscale :accessor xscale :initarg :xscale :initform 0)
Index: cells-gtk/menus.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp,v
retrieving revision 1.16
diff -u -r1.16 menus.lisp
--- cells-gtk/menus.lisp	11 Aug 2006 13:07:55 -0000	1.16
+++ cells-gtk/menus.lisp	11 Jul 2007 01:27:14 -0000
@@ -27,7 +27,7 @@
 ;;; ============= Combo-box ============================
 ;;; User should specify exactly one of :items or :roots 
 ;;; If specify :roots, specify :children-fn too.
-(def-widget combo-box ()
+(def-widget combo-box (container)
   ((items :accessor items :initarg :items :initform nil)
    (print-fn :accessor print-fn :initarg :print-fn
      :initform #'(lambda (item) (format nil "~a" item))) ; see below if :roots
@@ -110,7 +110,7 @@
 (def-object tooltips ()
   () () ())
 
-(def-widget toolbar ()
+(def-widget toolbar (container)
   ((orientation :accessor orientation :initarg :orientation :initform (c-in nil))
    (style :accessor style :initarg :style :initform (c-in nil)))
   (show-arrow tooltips)
@@ -141,7 +141,7 @@
 	    (:both-horiz 3)
 	    (t 0)))))
 
-(def-widget tool-item ()
+(def-widget tool-item (container)
   ()
   (homogeneous expand is-important)
   ())
@@ -188,7 +188,7 @@
     (setf (stock-id self) (string-downcase (format nil "gtk-~a" new-value)))))
 
 ;;; ============= Menu ============================	
-(def-widget menu-shell ()
+(def-widget menu-shell (container)
   () () ()
   :padding 0)
 
@@ -206,7 +206,7 @@
   (title)
   ())
 
-(def-widget menu-item ()
+(def-widget menu-item (item)
   ((label :accessor label :initarg :label :initform (c-in nil))
    (label-widget :accessor label-widget :initarg :label-widget :initform nil)
    (accel-label-widget :accessor accel-label-widget :initform (c? (and (label self)
Index: cells-gtk/textview.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp,v
retrieving revision 1.11
diff -u -r1.11 textview.lisp
--- cells-gtk/textview.lisp	19 Feb 2007 17:08:21 -0000	1.11
+++ cells-gtk/textview.lisp	11 Jul 2007 01:27:14 -0000
@@ -35,7 +35,7 @@
     ;; It can even reset it, if you don't like this arrangement.
     (gtk-text-buffer-set-modified buf nil)))
 
-(def-widget text-view ()
+(def-widget text-view (container)
   ((buffer :accessor buffer :initarg :buffer :initform (mk-text-buffer))
    (populate-popup :accessor populate-popup :initarg :populate-popup :initform (c-in nil))
    (depopulate-popup :accessor depopulate-popup :initarg :depopulate-popup :initform (c-in nil))
Index: cells-gtk/tree-view.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp,v
retrieving revision 1.17
diff -u -r1.17 tree-view.lisp
--- cells-gtk/tree-view.lisp	11 Aug 2006 13:09:28 -0000	1.17
+++ cells-gtk/tree-view.lisp	11 Jul 2007 01:27:14 -0000
@@ -37,7 +37,7 @@
 
 (defun fail (&rest args) (declare (ignore args)) nil)
 
-(def-widget tree-view ()
+(def-widget tree-view (container)
   ((columns-def :accessor columns-def :initarg :columns :initform nil)
    (column-types :accessor column-types :initform (c? (mapcar #'first (columns-def self))))
    (column-inits :accessor  column-inits :initform (c? (mapcar #'second (columns-def self))))
Index: cells-gtk/widgets.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/widgets.lisp,v
retrieving revision 1.19
diff -u -r1.19 widgets.lisp
--- cells-gtk/widgets.lisp	7 Jun 2006 16:50:15 -0000	1.19
+++ cells-gtk/widgets.lisp	11 Jul 2007 01:27:15 -0000
@@ -309,7 +309,17 @@
 	  ()
 	  "~a is a bin container, must have only one kid" container))
 
-(def-widget window ()
+(def-widget container ()
+  ()
+  (border-width resize-mode)
+  ())
+
+(def-widget item (container)
+  ()
+  ()
+  ())
+
+(def-widget window (container)
   ((wintype :accessor wintype :initarg wintype :initform 0)
    (title :accessor title :initarg :title
      :initform (c? (string (class-name (class-of self)))))
@@ -368,7 +378,7 @@
     (gtk-container-add (id self) (id kid)))
   #+clisp (call-next-method))
 
-(def-widget event-box ()
+(def-widget event-box (container)
   ((visible-window :accessor visible-window :initarg :visible-window :initform nil))
   (above-child)
   ()
Index: gtk-ffi/gtk-other.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-other.lisp,v
retrieving revision 1.13
diff -u -r1.13 gtk-other.lisp
--- gtk-ffi/gtk-other.lisp	16 Feb 2006 18:06:06 -0000	1.13
+++ gtk-ffi/gtk-other.lisp	11 Jul 2007 01:27:16 -0000
@@ -42,7 +42,16 @@
   (gtk-container-remove :void
 			((container :pointer)
 			 (widget :pointer)))
-
+  (gtk-container-set-border-width :void
+				  ((container :pointer)
+				   (width :unsigned-int)))
+  (gtk-container-get-border-width :unsigned-int
+				  ((container :pointer)))
+  (gtk-container-set-resize-mode :void
+				  ((container :pointer)
+				   (mode :unsigned-int)))
+  (gtk-container-get-resize-mode :unsigned-int
+				  ((container :pointer)))
   ;;box
   (gtk-box-pack-start :void
 		      ((box :pointer)




From peter.denno at nist.gov  Wed Jul 11 11:55:00 2007
From: peter.denno at nist.gov (Peter Denno)
Date: Wed, 11 Jul 2007 07:55:00 -0400
Subject: [cells-gtk-devel] container widget
In-Reply-To: <pan.2007.07.11.01.37.01.535596@gmail.com>
References: <pan.2007.07.11.01.37.01.535596@gmail.com>
Message-ID: <200707110755.00654.peter.denno@nist.gov>

On Tuesday 10 July 2007 21:37, Matthew Swank wrote:
> This patch adds preliminary support for the container widget.
> Feedback would be welcome.

Great! I'll give it a try and commit it to CVS, but perhaps not for a 
few days.

>
> Matt

-- 
Best regards,
  - Peter


From Hit at common-lisp.net  Thu Jul 12 09:08:15 2007
From: Hit at common-lisp.net (Hit at common-lisp.net)
Date: 12 Jul 2007 02:08:15 -0700
Subject: [cells-gtk-devel] Hit-Booster sends thousands of targeted visitors
	to your website at $0 cost to you!
Message-ID: <20070712020814.A5385A7B8B38A167@from.header.has.no.domain>

Let me tell you what Hit-Booster can do for you:

...Hit-Booster will start sending hits to your website instantly 
at $0 cost to you!
...No matter what you are selling or offering -
HIT BOOSTER will pull in hordes of potential customers to your 
website or affiliate website!
...sets this up completely for you on  Auto-Pilot!
...Use it for all of your websites - there is no limit .
...Receive my personal support and email address with your 
purchase so I can help you to succeed!
...your web site will quickly achieve Ultra High Link
Popularity on the Major Search Engines
...you'll get 1000's of Highly Targeted visitors to your
web site or affiliate web site overnight
...many are getting more Customers and Sales than they can handle



For full information please download the attached .html file















Unsubscibe:
Please read the attached .txt file
-------------- next part --------------
A non-text attachment was scrubbed...
Name: hit booster mg.htm
Type: application/octet-stream
Size: 388 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070712/7e458a5e/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: unsubscribe email.txt
Type: application/octet-stream
Size: 25 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070712/7e458a5e/attachment-0001.obj>

From akopa.gmane.poster at gmail.com  Wed Jul 11 23:58:30 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Wed, 11 Jul 2007 18:58:30 -0500
Subject: [cells-gtk-devel] window ignoring resizable?
Message-ID: <pan.2007.07.11.23.58.30.813288@gmail.com>

Given the following simple app:
(defmodel foo (gtk-app) () (:default-initargs :resizable nil))

Does anyone else get a window that is still resizable?

Thanks,

Matt
-- 
"You do not really understand something unless you
 can explain it to your grandmother." - Albert Einstein.




From akopa.gmane.poster at gmail.com  Thu Jul 12 21:28:02 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Thu, 12 Jul 2007 16:28:02 -0500
Subject: [cells-gtk-devel] Re: window ignoring resizable?
References: <pan.2007.07.11.23.58.30.813288@gmail.com>
Message-ID: <pan.2007.07.12.21.28.02.713839@gmail.com>

On Wed, 11 Jul 2007 18:58:30 -0500, Matthew Swank wrote:

> Given the following simple app:
> (defmodel foo (gtk-app) () (:default-initargs :resizable nil))
> 
> Does anyone else get a window that is still resizable?
> 
> Thanks,
> 
> Matt


Here's a patch:
Index: cells-gtk/widgets.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/widgets.lisp,v
retrieving revision 1.19
diff -u -r1.19 widgets.lisp
--- cells-gtk/widgets.lisp	7 Jun 2006 16:50:15 -0000	1.19
+++ cells-gtk/widgets.lisp	12 Jul 2007 21:25:22 -0000
@@ -323,6 +323,9 @@
 ;  :md-name :main-window
   :new-args (c? (list (wintype self))))
 
+(def-c-output resizable ((self window))
+  (gtk-window-set-resizable (id self) new-value))
+
 (def-c-output width ((self window))
   (when new-value
     (gtk-window-set-default-size (id self)




From akopa.gmane.poster at gmail.com  Thu Jul 12 21:36:12 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Thu, 12 Jul 2007 16:36:12 -0500
Subject: [cells-gtk-devel] GtkComboBoxEntry
Message-ID: <pan.2007.07.12.21.36.11.808093@gmail.com>

In case you can't tell, I really like cells-gtk!  I just keep coming
across little things that aren't wrapped.

Here a patch that adds support for combo-box-entries:
Index: cells-gtk/menus.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp,v
retrieving revision 1.16
diff -u -r1.16 menus.lisp
--- cells-gtk/menus.lisp	11 Aug 2006 13:07:55 -0000	1.16
+++ cells-gtk/menus.lisp	12 Jul 2007 21:31:43 -0000
@@ -106,6 +106,12 @@
 	 (progn (gtk-combo-box-set-active (id self) 0)
 		(setf (md-value self) (car (items self)))))))
 
+;;; ============= Combo-box-entry ============================
+(def-widget combo-box-entry ()
+  ()
+  (text-column)
+  ())
+
 ;;; ============= Toolbar/Toolbutton ============================	
 (def-object tooltips ()
   () () ())
Index: gtk-ffi/gtk-other.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-other.lisp,v
retrieving revision 1.13
diff -u -r1.13 gtk-other.lisp
--- gtk-ffi/gtk-other.lisp	16 Feb 2006 18:06:06 -0000	1.13
+++ gtk-ffi/gtk-other.lisp	12 Jul 2007 21:31:44 -0000
@@ -548,6 +548,14 @@
 				 ((combo-box :pointer)
 				  (iter :pointer)))
 
+  ;;combo-box-entry
+  (gtk-combo-box-entry-new :pointer ())
+  (gtk-combo-box-entry-get-text-column :int
+                                       ((combo-box-entry :pointer))) 
+  (gtk-combo-box-entry-set-text-column :void
+                                       ((combo-box-entry :pointer)
+                                        (column :int)))
+
   ;;calendar
   (gtk-calendar-new :pointer ())
   (gtk-calendar-get-date :void




From Blog at common-lisp.net  Fri Jul 13 16:00:53 2007
From: Blog at common-lisp.net (Blog at common-lisp.net)
Date: 13 Jul 2007 09:00:53 -0700
Subject: [cells-gtk-devel] How would you like 2 Million Sites linking to
	your ad ?
Message-ID: <20070713090053.C180DB7E55E35D0B@from.header.has.no.domain>

Discover the power of the Blog Blaster!
Brandnew software revolutionizes the power of online advertising
-never seen before!- BRAND NEW FOR 2007!

How would you like 2 Million Sites linking to your ad ?

Weblog or blog population is exploding around the world, 
resembling the growth of e-mail users in the 1990s.

Post your ads where people read them!

- What if you could place your ad on all these sites ?
Right, that would mean you would have millions of sites 
linking to your ad - and my idea actually works.

I have developed a software that automatically places your ad on 
millions of blogs.

You will receive thousands of targeted hits to your 
website as Blog Blaster places your ad on blogs that 
match your ad's category.

This method has never been released to the public before.
 Very few, if anyone has implemented this




For full details please read the attached .html file



















Unsubscibe:
Please read the attached .txt file
-------------- next part --------------
A non-text attachment was scrubbed...
Name: blog blaster.htm
Type: application/octet-stream
Size: 438 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070713/4fe178c2/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: unsubscribe email.txt
Type: application/octet-stream
Size: 25 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070713/4fe178c2/attachment-0001.obj>

From akopa.gmane.poster at gmail.com  Fri Jul 13 03:03:43 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Thu, 12 Jul 2007 22:03:43 -0500
Subject: [cells-gtk-devel] Re: GtkComboBoxEntry
References: <pan.2007.07.12.21.36.11.808093@gmail.com>
Message-ID: <pan.2007.07.13.03.03.41.916633@gmail.com>

On Thu, 12 Jul 2007 16:36:12 -0500, Matthew Swank wrote:

> In case you can't tell, I really like cells-gtk!  I just keep coming
> across little things that aren't wrapped.
> 
> Here a patch that adds support for combo-box-entries:
> 

Well, the patch could use some help.  combo-box-entry doesn't inherit from
combo-box, and the ffi stuff doesn't include some important constructors. 
That's easy enough to fix, but the entry part of combo-box-entry isn't
terribly useful without auto complete.  I need to learn a little more
cells and gtk to make a useful widget.

Matt 

-- 
"You do not really understand something unless you can
 explain it to your grandmother." - Albert Einstein.




From peter.denno at nist.gov  Fri Jul 13 11:08:01 2007
From: peter.denno at nist.gov (Peter Denno)
Date: Fri, 13 Jul 2007 07:08:01 -0400
Subject: [cells-gtk-devel] Re: GtkComboBoxEntry
In-Reply-To: <pan.2007.07.13.03.03.41.916633@gmail.com>
References: <pan.2007.07.12.21.36.11.808093@gmail.com>
	<pan.2007.07.13.03.03.41.916633@gmail.com>
Message-ID: <200707130708.01659.peter.denno@nist.gov>

On Thursday 12 July 2007 23:03, Matthew Swank wrote:
> On Thu, 12 Jul 2007 16:36:12 -0500, Matthew Swank wrote:
> > In case you can't tell, I really like cells-gtk!  I just keep
> > coming across little things that aren't wrapped.
> >
> > Here a patch that adds support for combo-box-entries:
>
> Well, the patch could use some help.  combo-box-entry doesn't
> inherit from combo-box, and the ffi stuff doesn't include some
> important constructors. That's easy enough to fix, but the entry
> part of combo-box-entry isn't terribly useful without auto
> complete.  I need to learn a little more cells and gtk to make a
> useful widget.

Do you think I should wait, or apply the patch to CVS?

>
> Matt

-- 
Best regards,
  - Peter


From akopa.gmane.poster at gmail.com  Fri Jul 13 14:07:59 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Fri, 13 Jul 2007 09:07:59 -0500
Subject: [cells-gtk-devel] Re: Re: GtkComboBoxEntry
References: <pan.2007.07.12.21.36.11.808093@gmail.com>
	<pan.2007.07.13.03.03.41.916633@gmail.com>
	<200707130708.01659.peter.denno@nist.gov>
Message-ID: <pan.2007.07.13.14.07.59.623372@gmail.com>

On Fri, 13 Jul 2007 07:08:01 -0400, Peter Denno wrote:

> On Thursday 12 July 2007 23:03, Matthew Swank wrote:
>> On Thu, 12 Jul 2007 16:36:12 -0500, Matthew Swank wrote:
>> > In case you can't tell, I really like cells-gtk!  I just keep
>> > coming across little things that aren't wrapped.
>> >
>> > Here a patch that adds support for combo-box-entries:
...
> Do you think I should wait, or apply the patch to CVS?
> 

This is a better starting point:

Index: cells-gtk/menus.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp,v
retrieving revision 1.16
diff -u -r1.16 menus.lisp
--- cells-gtk/menus.lisp	11 Aug 2006 13:07:55 -0000	1.16
+++ cells-gtk/menus.lisp	13 Jul 2007 14:04:48 -0000
@@ -106,6 +106,12 @@
 	 (progn (gtk-combo-box-set-active (id self) 0)
 		(setf (md-value self) (car (items self)))))))
 
+;;; ============= Combo-box-entry ============================
+(def-widget combo-box-entry (combo-box)
+  ()
+  (text-column)
+  ())
+
 ;;; ============= Toolbar/Toolbutton ============================	
 (def-object tooltips ()
   () () ())
Index: gtk-ffi/gtk-other.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-other.lisp,v
retrieving revision 1.13
diff -u -r1.13 gtk-other.lisp
--- gtk-ffi/gtk-other.lisp	16 Feb 2006 18:06:06 -0000	1.13
+++ gtk-ffi/gtk-other.lisp	13 Jul 2007 14:04:49 -0000
@@ -548,6 +548,17 @@
 				 ((combo-box :pointer)
 				  (iter :pointer)))
 
+  ;;combo-box-entry
+  (gtk-combo-box-entry-new :pointer ())
+  (gtk-combo-box-entry-new-text :pointer ())
+  (gtk-combo-box-entry-new-with-model :pointer ((tree-model :pointer)
+                                                (text-column :int)))
+  (gtk-combo-box-entry-get-text-column :int
+                                       ((combo-box-entry :pointer))) 
+  (gtk-combo-box-entry-set-text-column :void
+                                       ((combo-box-entry :pointer)
+                                        (column :int)))
+
   ;;calendar
   (gtk-calendar-new :pointer ())
   (gtk-calendar-get-date :void




From akopa.gmane.poster at gmail.com  Sun Jul 15 07:28:49 2007
From: akopa.gmane.poster at gmail.com (Matthew Swank)
Date: Sun, 15 Jul 2007 02:28:49 -0500
Subject: [cells-gtk-devel] a minor typo patch
Message-ID: <pan.2007.07.15.07.28.44.17993@gmail.com>

Index: cells-gtk/entry.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/entry.lisp,v
retrieving revision 1.4
diff -u -r1.4 entry.lisp
--- cells-gtk/entry.lisp	12 Feb 2005 14:48:19 -0000	1.4
+++ cells-gtk/entry.lisp	15 Jul 2007 07:30:38 -0000
@@ -25,7 +25,7 @@
 
 #+no
 (def-gtk widget entry nil
-         ((auto-update :accessor auto-update :initarg :auto-aupdate :initform nil)
+         ((auto-update :accessor auto-update :initarg :auto-update :initform nil)
           (completion :accessor completion :initarg :completion :initform nil)
           (text :accessor text :initarg :text :initform (c-in nil))
           (init :accessor init :initarg :init :initform nil))




From peter.hildebrandt at gmail.com  Mon Jul 16 19:28:54 2007
From: peter.hildebrandt at gmail.com (Peter Hildebrandt)
Date: Mon, 16 Jul 2007 12:28:54 -0700
Subject: [cells-gtk-devel] Editable cells in a treeview?
Message-ID: <op.tvkoegeyx6i8pv@babyfoot>



I'd like to use the in-place editing for treeview cells like in this  
(python) example:

http://www.php-gtk.eu/code-snippets/gtktreeview-editable-cell-render

Before I start implementing something:  Has somebody already dealt with  
this before?

Thanks,
Peter


From peter.hildebrandt at gmail.com  Mon Jul 16 19:45:54 2007
From: peter.hildebrandt at gmail.com (Peter Hildebrandt)
Date: Mon, 16 Jul 2007 12:45:54 -0700
Subject: [cells-gtk-devel] cells-gtk drawing-area widget
In-Reply-To: <200706121016.22087.peter.denno@nist.gov>
References: <1180889114.23082.9.camel@localhost>
	<op.ttezoks3x6i8pv@almond.icsi.berkeley.edu>
	<1181451402.16143.15.camel@localhost>
	<200706121016.22087.peter.denno@nist.gov>
Message-ID: <op.tvko6sw6x6i8pv@babyfoot>

On Tue, 12 Jun 2007 07:16:21 -0700, Peter Denno <peter.denno at nist.gov>  
wrote:
  I'll check it out soon, and if things work OK, merge it in. I haven't
> worked on this code in at least a year, but I seem to recall having a
> plan to use closures to draw things.  We are intending to switch to
> Cairo???

Just a quick update:  My drawing-area widget based on Tamas Papp's  
cl-cairo2 works well by now.  There is a couple of minor things I'd like  
to fix before publishing the diff.  If you're interested in checking out  
the current version, let me know.

Features include:
- drawing primitives (arcs, lines, rectangles etc.) are CLOS objects in  
their own right and can be manipulated by changing their properties
- currently supported primitives inlclude lines, arcs, rectangles, paths,  
text
- primitives can be easily combined to create more complex structures (as  
an example I included an arrow-primitive, built from a line and a filled  
path)
- primitives have a mouse-over-p property which can be used to create  
hover effects (just set the initform for a primitive's rgb to somthing  
like (c? (if (mouse-over-p self) *red* *black*)))
- primitives are clickable and draggable.  The widget has slots for  
callback functions which can be used to handle these events.
- a set of macros to easily define your own primitives

My todo list includes the following:
- update the code to use the current cl-cairo2 version (currently it is  
built on Tamas' first realease) (medium)
- inlucde methods to export the current state of the widget to svg, ps, or  
png files (easy)
- some internal refactoring (my defprimitive macro does a couple of things  
which deserve existence outside the drawing-area) (easy)

>  Also, ideally, we'd add example code to the test-gtk demo,
> as yet another tab in the notebook.

oh, and of course this one is on the todo list, too.  So far, I  
implemented a petri-net editor based on my widget.  I will use some of  
this code to show how to programmatically and interactively create  
primitives, modify them, drag'n'drop them etc.

Let me know if your're interested in the current state of development.   
Otherwise I will publsih a patch here by the end of the week if everything  
goes well.

Thanks,
Peter


From peter.denno at nist.gov  Mon Jul 16 20:08:58 2007
From: peter.denno at nist.gov (Peter Denno)
Date: Mon, 16 Jul 2007 16:08:58 -0400
Subject: [cells-gtk-devel] cells-gtk drawing-area widget
In-Reply-To: <op.tvko6sw6x6i8pv@babyfoot>
References: <1180889114.23082.9.camel@localhost>
	<200706121016.22087.peter.denno@nist.gov>
	<op.tvko6sw6x6i8pv@babyfoot>
Message-ID: <200707161608.59219.peter.denno@nist.gov>



> Just a quick update:  My drawing-area widget based on Tamas Papp's
> cl-cairo2 works well by now.  There is a couple of minor things I'd
> like to fix before publishing the diff.  If you're interested in
> checking out the current version, let me know.

Cool! (regarding everything you said about it)

Looking forward to the patch. 

I have some stuff from Matthew Swank to commit too. If you guys are 
going to keep this up, I can get you both CVS access.

-- 
Best regards,
  - Peter


From instant at common-lisp.net  Thu Jul 19 12:21:10 2007
From: instant at common-lisp.net (instant at common-lisp.net)
Date: 19 Jul 2007 05:21:10 -0700
Subject: [cells-gtk-devel] Can you afford to lose 300.000 potential
	customers per year!?
Message-ID: <20070719052110.B60F23DF40FB9CEC@from.header.has.no.domain>

Can you afford to lose 300,000 potential customers per year ?

How would You like to divert 1000s of fresh,
new visitors daily to Your web site or affiliate web site from
Google, Yahoo, MSN and others At $0 cost to you...?

Never seen before! Brand new for 2007!

If you don't try this incredible software, you are just plain off 
your rocker.

...iNSTANT BOOSTER diverts 1000s of fresh,
new visitors daily to Your web site or affiliate
web site from Google, Yahoo, MSN and others
at $0 cost to you!

...No matter what you are selling or offering -
INTSANT BOOSTER will pull in hordes of potential customers to 
your website - instantly!

...Automatically Get 1000's of other High Ranking web
sites eagerly linking to your web site no questions
asked.

...your web site will quickly achieve Ultra High Link
Popularity on the Major Search Engines

...you'll get 1000's of Highly Targeted visitors to your
web site or affiliate web site overnight



For full details please read the attached .html file



















Unsubscibe:
Please read the attached .txt file
-------------- next part --------------
A non-text attachment was scrubbed...
Name: instant booster.htm
Type: application/octet-stream
Size: 470 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070719/9f7f8276/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: unsubscribe email.txt
Type: application/octet-stream
Size: 25 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070719/9f7f8276/attachment-0001.obj>

From draggor at gmail.com  Fri Jul 20 21:17:28 2007
From: draggor at gmail.com (Draggor)
Date: Fri, 20 Jul 2007 16:17:28 -0500
Subject: [cells-gtk-devel] Cells-gtk install trouble
Message-ID: <357b81470707201417j6c087a1va6b085a8d84536fb@mail.gmail.com>

I've tried installing cells-gtk, but I get the following error:

;;  Loading file E:\PortableApps\clisp-2.38\cells-gtk-2006-06-30\root\gtk-ffi\gt
k-ffi.fas ...
*** - READ: input stream
       #<INPUT BUFFERED FILE-STREAM CHARACTER
         #P"E:\\PortableApps\\clisp-2.38\\cells-gtk-2006-06-30\\root\\gtk-ffi\\g
tk-ffi.fas"
         @143>
      ends within a token after multiple escape character
The following restarts are available:
RETRY          :R1
Retry performing #<ASDF:LOAD-OP NIL #x19F2DAE9> on #<ASDF:CL-SOURCE-FILE
  "gtk-ffi" #x19F2CF0D>.
ACCEPT         :R2
Continue, treating #<ASDF:LOAD-OP NIL #x19F2DAE9> on #<ASDF:CL-SOURCE-FILE
  "gtk-ffi" #x19F2CF0D> as having been successful.
SKIP           :R3      skip (LET # # ...)
STOP           :R4      stop loading file E:\PortableApps\clisp-2.38\cells-gtk-2
006-06-30\load.lisp
ABORT          :R5      ABORT

I can't send attachments at the moment, so here's the file it's trying
to read, and if you look at the very end, it looks like there's either
stuff left off, a line added, or just parenthesis missing.

gtk-ffi.fas

(|SYSTEM|::|VERSION| '(20050505.))
#0Y |CHARSET|::|UTF-8|
#Y(#:|1 19 (IN-PACKAGE :GTK-FFI)-1|
   #17Y(00 00 00 00 00 00 00 00 00 01 DA 31 E6 0F 01 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) "GTK-FFI"
   |COMMON-LISP|::|*PACKAGE*|)
#Y(#:|21 52 (DEFCONSTANT +C-NULL+ (IF # # ...))-2|
   #46Y(00 00 00 00 00 00 00 00 00 01 DA 8C 4F 1B 2E 01 14 DA 38 01 8D 5E 0B AC
        DA 71 4E 8E 03 04 DA DC 30 03 DA AD 32 84 C5 19 02 DA 31 4E 1B 62)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |GTK-FFI|::|+C-NULL+| |CFFI-SYS|::|NULL-POINTER|
   (|COMMON-LISP|::|DEFCONSTANT| |GTK-FFI|::|+C-NULL+|
    (|COMMON-LISP|::|IF| (|COMMON-LISP|::|BOUNDP| '|GTK-FFI|::|+C-NULL+|)
     (|COMMON-LISP|::|SYMBOL-VALUE| '|GTK-FFI|::|+C-NULL+|)
     (|CFFI-SYS|::|NULL-POINTER|)))
   |SYSTEM|::|CONSTANT-WARNING|)
#Y(#:|54 54 (DEFVAR *GTK-DEBUG* NIL)-3|
   #24Y(00 00 00 00 00 00 00 00 00 01 DA 31 5A DB 8C 4F 04 DB 63 31 52 C6 19
        01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   (|COMMON-LISP|::|SPECIAL| |GTK-FFI|::|*GTK-DEBUG*|)
   |GTK-FFI|::|*GTK-DEBUG*|)
#Y(#:|56 57 (CFFI:DEFCTYPE :GTK-STRING :POINTER ...)-4|
   #26Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD DE 6F 05 E0 64 6E 07 07 2F 08
        19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |CFFI|::|FOREIGN-TYPEDEF| :|NAME| :|GTK-STRING| :|ACTUAL-TYPE| :|POINTER|
   |CFFI|::|PARSE-TYPE| :|TRANSLATE-P| |CLOS|::|MAKE-INSTANCE|
   |CFFI|::|NOTICE-FOREIGN-TYPE|)
#Y(#:|58 58 (CFFI:DEFCTYPE :GTK-BOOLEAN :POINTER ...)-5|
   #26Y(00 00 00 00 00 00 00 00 00 01 DA DB DC DD DE 6F 05 E0 64 6E 07 07 2F 08
        19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |CFFI|::|FOREIGN-TYPEDEF| :|NAME| :|GTK-BOOLEAN| :|ACTUAL-TYPE| :|POINTER|
   |CFFI|::|PARSE-TYPE| :|TRANSLATE-P| |CLOS|::|MAKE-INSTANCE|
   |CFFI|::|NOTICE-FOREIGN-TYPE|)
#Y(#:|60 61 (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN (VALUE #) ...)-6|
   #46Y(00 00 00 00 00 00 00 00 00 01 DA DB 38 01 8F 85 03 DA 2F 02 DA DD DE 63
        DF E0 E1 E2 E3 64 38 02 72 2A E4 6F 0B 7B 02 7B 08 2D 03 0C 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |CFFI|::|TRANSLATE-TO-FOREIGN| |SYSTEM|::|TRACED-DEFINITION|
   |SYSTEM|::|UNTRACE1|
   #Y(#:|60 61 (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN (VALUE #) ...)-6-1|
      #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
      #Y(#:|60 61 (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN (VALUE #) ...)-6-1-1|
         #22Y(00 00 00 00 02 00 00 00 00 03 92 02 06 C6 14 2F 02 19 03 C5 1B
              78)
         (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) 1. 0.
         |CFFI-SYS|::|MAKE-POINTER|)
      (|COMMON-LISP|::|T|))
   :|QUALIFIERS| :|LAMBDA-LIST| (|GTK-FFI|::|VALUE| |COMMON-LISP|::|TYPE|)
   |CLOS|::|SIGNATURE|
   #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
     |COMMON-LISP|::|NIL|)
   :|SPECIALIZERS| :|GTK-BOOLEAN| |CLOS|::|INTERN-EQL-SPECIALIZER|
   |CLOS|::|DO-DEFMETHOD|)
#Y(#:|63 67 (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN (VALUE #) ...)-7|
   #46Y(00 00 00 00 00 00 00 00 00 01 DA DB 38 01 8F 85 03 DA 2F 02 DA DD DE 63
        DF E0 E1 E2 E3 64 38 02 72 2A E4 6F 0B 7B 02 7B 08 2D 03 0C 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |CFFI|::|TRANSLATE-FROM-FOREIGN| |SYSTEM|::|TRACED-DEFINITION|
   |SYSTEM|::|UNTRACE1|
   #Y(#:|63 67 (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN (VALUE #) ...)-7-1|
      #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
      #Y(#:|63 67 (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN (VALUE #) ...)-7-1-1|
         #24Y(00 00 00 00 02 00 00 00 00 03 93 02 08 AE 6F 00 32 92 59 19 03 00
              19 03)
         (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
         |CFFI-SYS|::|POINTER-ADDRESS|)
      (|COMMON-LISP|::|T|))
   :|QUALIFIERS| :|LAMBDA-LIST| (|GTK-FFI|::|VALUE| |COMMON-LISP|::|TYPE|)
   |CLOS|::|SIGNATURE|
   #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
     |COMMON-LISP|::|NIL|)
   :|SPECIALIZERS| :|GTK-BOOLEAN| |CLOS|::|INTERN-EQL-SPECIALIZER|
   |CLOS|::|DO-DEFMETHOD|)
#Y(#:|69 71 (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN (VALUE #) ...)-8|
   #46Y(00 00 00 00 00 00 00 00 00 01 DA DB 38 01 8F 85 03 DA 2F 02 DA DD DE 63
        DF E0 E1 E2 E3 64 38 02 72 2A E4 6F 0B 7B 02 7B 08 2D 03 0C 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |CFFI|::|TRANSLATE-TO-FOREIGN| |SYSTEM|::|TRACED-DEFINITION|
   |SYSTEM|::|UNTRACE1|
   #Y(#:|69 71 (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN (VALUE #) ...)-8-1|
      #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
      #Y(#:|69 71 (DEFMETHOD CFFI:TRANSLATE-TO-FOREIGN (VALUE #) ...)-8-1-1|
         #21Y(00 00 00 00 02 00 00 00 00 03 AE 92 00 02 C5 F8 AC 2F 01 19 04)
         (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|) ""
         |CFFI|::|FOREIGN-STRING-ALLOC|)
      (|COMMON-LISP|::|T|))
   :|QUALIFIERS| :|LAMBDA-LIST| (|GTK-FFI|::|VALUE| |COMMON-LISP|::|TYPE|)
   |CLOS|::|SIGNATURE|
   #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
     |COMMON-LISP|::|NIL|)
   :|SPECIALIZERS| :|GTK-STRING| |CLOS|::|INTERN-EQL-SPECIALIZER|
   |CLOS|::|DO-DEFMETHOD|)
#Y(#:|73 74 (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN (VALUE #) ...)-9|
   #46Y(00 00 00 00 00 00 00 00 00 01 DA DB 38 01 8F 85 03 DA 2F 02 DA DD DE 63
        DF E0 E1 E2 E3 64 38 02 72 2A E4 6F 0B 7B 02 7B 08 2D 03 0C 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |CFFI|::|TRANSLATE-FROM-FOREIGN| |SYSTEM|::|TRACED-DEFINITION|
   |SYSTEM|::|UNTRACE1|
   #Y(#:|73 74 (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN (VALUE #) ...)-9-1|
      #15Y(00 00 00 00 01 00 00 00 00 02 DA C6 5D 19 02)
      (|COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|)
      #Y(#:|73 74 (DEFMETHOD CFFI:TRANSLATE-FROM-FOREIGN (VALUE #) ...)-9-1-1|
         #15Y(00 00 00 00 02 00 00 00 00 03 AE 2F 00 19 03)
         (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
         |CFFI|::|FOREIGN-STRING-TO-LISP|)
      (|COMMON-LISP|::|T|))
   :|QUALIFIERS| :|LAMBDA-LIST| (|GTK-FFI|::|VALUE| |COMMON-LISP|::|TYPE|)
   |CLOS|::|SIGNATURE|
   #(2. 0. |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL| |COMMON-LISP|::|NIL|
     |COMMON-LISP|::|NIL|)
   :|SPECIALIZERS| :|GTK-STRING| |CLOS|::|INTERN-EQL-SPECIALIZER|
   |CLOS|::|DO-DEFMETHOD|)
#Y(#:|76 78 (DEFUN INT-SLOT-INDEXED (OBJ OBJ-TYPE SLOT ...) ...)-10|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C5 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   |GTK-FFI|::|INT-SLOT-INDEXED| |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
   #Y(|GTK-FFI|::|INT-SLOT-INDEXED|
      #28Y(00 00 00 00 04 00 00 00 00 05 B0 B0 B0 6E 03 00 DB DC B0 73 02 37 2D
           03 03 3F 19 05)
      (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
      |CFFI|::|FOREIGN-SLOT-VALUE| |FFI|::|INT| 4. |FFI|::|MEMORY-AS|))
#Y(#:|80 83 (DEFUN (SETF INT-SLOT-INDEXED) (NEW-VALUE OBJ OBJ-TYPE ...) ...)-11|
   #20Y(00 00 00 00 00 00 00 00 00 01 DA 2F 01 DA DC 32 83 C8 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   #.(|SYSTEM|::|GET-SETF-SYMBOL| '|GTK-FFI|::|INT-SLOT-INDEXED|)
   |SYSTEM|::|REMOVE-OLD-DEFINITIONS|
   #Y(#1=(|COMMON-LISP|::|SETF| |GTK-FFI|::|INT-SLOT-INDEXED|)
      #29Y(00 00 00 00 05 00 00 00 00 06 B1 B1 B1 B1 6E 03 00 DB DC B1 73 02 37
           2D 04 03 A2 19 06)
      (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
      |CFFI|::|FOREIGN-SLOT-VALUE| |FFI|::|INT| 4. |FFI|::|WRITE-MEMORY-AS|)
   #1#)
#Y(#:|85 116 (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(CFFI:DEFINE-FOREIGN-LIBRARY :GOBJECT # ...) ...)-12-1-1|
   #17Y(00 00 00 00 00 00 00 00 00 01 DA DB 30 02 3E 19 01)
   (|COMMON-LISP|::|T| |COMMON-LISP|::|T| |COMMON-LISP|::|T|)
   ((|CFFI-FEATURES|::|UNIX| "libgobject-2.0.so")
    (|CFF


From Hit-Booster at common-lisp.net  Mon Jul 23 18:22:42 2007
From: Hit-Booster at common-lisp.net (Hit-Booster at common-lisp.net)
Date: 23 Jul 2007 11:22:42 -0700
Subject: [cells-gtk-devel] How would you like unlimited hits to your website
	15 minutes from now ? 
Message-ID: <20070723112242.04263816D90F9A91@from.header.has.no.domain>

No Matter what you are selling - Hit-Booster will send targeted visitors to 
your website!

Within 15 minutes you will have your own website traffic generator that 
will bring
in an ever increasing amount of hits to your websites! Automatically

This software is perfect for bringing real traffic to your site... even 
if...
it's an affiliate link where you have no control over the website content!

I guarantee that you will be receiving hits to your website 15 minutes from 
now or I will
refund every single dime of your order! Using this brand new marketing 
software increasing
website traffic has never been easier - I never shared this method & 
software with anyone
else before. Each and every day im receiving tons of traffic to my own 
sites using this
software. I have designed this marketing tool to be as easy as 1-2-3 so
anyone can profit from it you will too! Let me tell you that more targeted 
traffic means
more sales - no matter how good your products or websites are - the more 
targeted
visitors you can send to them - the more potential customers you will have!
Use Hit-Booster now and you will be receiving more hits than ever and 
profiting from it
within in a few minutes! 




For Full details please download the attached .html file










Unsubscribe
Please read the attached .txt file

-------------- next part --------------
A non-text attachment was scrubbed...
Name: hitbooster.htm
Type: application/octet-stream
Size: 390 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070723/913c69b9/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Unsubscribe email.txt
Type: application/octet-stream
Size: 25 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070723/913c69b9/attachment-0001.obj>

From draggor at gmail.com  Tue Jul 24 16:15:14 2007
From: draggor at gmail.com (Draggor)
Date: Tue, 24 Jul 2007 11:15:14 -0500
Subject: [cells-gtk-devel] cells-gtk on clisp (win32)
Message-ID: <357b81470707240915w1a05e94vdd455d84ed0f5a72@mail.gmail.com>

I'm trying to get cells-gtk to work on clisp for win32, and here's
what ends up happening.

If I freshly unzip the cells-gtk 2006-02-16 tarball, and then run
clisp and do (load "load"), it will work just fine, and I'll be able
to run the demo.  After that, however, trying to load it produces the
following error:

;;  Loading file E:\PortableApps\clisp-2.38\cells-gtk-2006-02-16\root\gtk-ffi\gt
k-core.fas ...
** - Continuable Error
FFI::FOREIGN-LIBRARY-FUNCTION: no dynamic object named "g_free" in library
      :DEFAULT
If you continue (by typing 'continue'): Skip foreign object creation
The following restarts are also available:
RETRY          :R1
Retry performing #<ASDF:LOAD-OP NIL #x19F28C95> on #<ASDF:CL-SOURCE-FILE
  "gtk-core" #x19F2939D>.
ACCEPT         :R2
Continue, treating #<ASDF:LOAD-OP NIL #x19F28C95> on #<ASDF:CL-SOURCE-FILE
  "gtk-core" #x19F2939D> as having been successful.
SKIP           :R3      skip (LET # # ...)
STOP           :R4      stop loading file E:\PortableApps\clisp-2.38\cells-gtk-2
006-02-16\load.lisp
ABORT          :R5      ABORT


From Feed at common-lisp.net  Wed Jul 25 10:24:43 2007
From: Feed at common-lisp.net (Feed at common-lisp.net)
Date: 25 Jul 2007 03:24:43 -0700
Subject: [cells-gtk-devel] Post your ads where people read them!!!
Message-ID: <20070725032443.C77B89AFA22408B0@from.header.has.no.domain>

An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070725/4bba704b/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: feedblaster.htm
Type: application/octet-stream
Size: 462 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070725/4bba704b/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Unsubscribe email.txt
Type: application/octet-stream
Size: 25 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070725/4bba704b/attachment-0001.obj>

From j-mequin at ti.com  Sat Jul 28 14:38:29 2007
From: j-mequin at ti.com (Jacques Mequin)
Date: Sat, 28 Jul 2007 16:38:29 +0200
Subject: [cells-gtk-devel] clisp 2.41 + cells-gtlk-2006-06-30
Message-ID: <46AB54E5.4030807@ti.com>


This message is just to tell you that I have made the following
configuration working:

    - windows XP
    - clisp 2.41
    - cells-gtk-2006-06-30
    - cffi-070620
    - cells-2.0.tgz

In other words, I have tested the latest releases of each package
(this means that I am ignoring the releases of "cffi" and "cells"
embedded into the "cells-gtk" tarballs by doing an external
"asdf" load on seperatly downloaded "cffi" and "cells" packages

    A) cells_2.0

        put comment on cells_2.0/utils-kt/detritus.lisp

        ;;;#+clisp
        ;;;  (defun slot-definition-name (slot)
        ;;;  (clos::slotdef-name slot))

        since clisp "2.41" knows, like the others,
        "slot-definition-name"

    B) cells-gtk-2006-06-30

        1) edit load.lisp

          (let ((default-path *load-truename*))

          since clisp "2.41" knows, like the others, "*load-truename*"

          ;;(asdf:oos 'asdf:load-op :cells)
          ;;(asdf:oos 'asdf:load-op :cffi)
          ;;(asdf:oos 'asdf:load-op :cffi-uffi-compat)

          in order to use external cells_2.0 and cffi-070620

       2) edit root/gtk-ffi/gtk-ffi.lisp

          (cffi:defctype :gtk-string  :string  ...
          (cffi:defctype :gtk-boolean :boolean ...

          since "cffi" 070620, defines the type ":string"
          and ":boolean"

Regards,
    Jacques




From j-mequin at ti.com  Sat Jul 28 14:51:55 2007
From: j-mequin at ti.com (Jacques Mequin)
Date: Sat, 28 Jul 2007 16:51:55 +0200
Subject: [cells-gtk-devel] clisp 2.41 + cells-gtk-2006-06-30
Message-ID: <46AB580B.8070009@ti.com>


In my previous message, I have forgotten  to mention
the GTK+ release

     ==================================

This message is just to tell you that I have made the following
configuration working:

   - windows XP
   - clisp 2.41
   - gtk+-2.10.13
   - cells-gtk-2006-06-30
   - cffi-070620
   - cells-2.0.tgz

In other words, I have tested the latest releases of each package
(this means that I am ignoring the releases of "cffi" and "cells"
embedded into the "cells-gtk" tarballs by doing an external
"asdf" load on seperatly downloaded "cffi" and "cells" packages

   A) cells_2.0

       put comment on cells_2.0/utils-kt/detritus.lisp

       ;;;#+clisp
       ;;;  (defun slot-definition-name (slot)
       ;;;  (clos::slotdef-name slot))

       since clisp "2.41" knows, like the others,
       "slot-definition-name"

   B) cells-gtk-2006-06-30

       1) edit load.lisp

         (let ((default-path *load-truename*))

         since clisp "2.41" knows, like the others, "*load-truename*"

         ;;(asdf:oos 'asdf:load-op :cells)
         ;;(asdf:oos 'asdf:load-op :cffi)
         ;;(asdf:oos 'asdf:load-op :cffi-uffi-compat)

         in order to use external cells_2.0 and cffi-070620

      2) edit root/gtk-ffi/gtk-ffi.lisp

         (cffi:defctype :gtk-string  :string  ...
         (cffi:defctype :gtk-boolean :boolean ...

         since "cffi" 070620, defines the type ":string"
         and ":boolean"

Regards,
   Jacques





From Hit-Booster at common-lisp.net  Mon Jul 30 08:17:36 2007
From: Hit-Booster at common-lisp.net (Hit-Booster at common-lisp.net)
Date: 30 Jul 2007 01:17:36 -0700
Subject: [cells-gtk-devel] How would you like unlimited hits to your website
	15 minutes from now ? 
Message-ID: <20070729175915.25E4474384@common-lisp.net>

An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070730/bc3fb3e1/attachment.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: hitbooster.htm
Type: application/octet-stream
Size: 390 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070730/bc3fb3e1/attachment.obj>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Unsubscribe email.txt
Type: application/octet-stream
Size: 25 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/cells-gtk-devel/attachments/20070730/bc3fb3e1/attachment-0001.obj>