From pdenno at common-lisp.net  Fri Jul  7 02:04:46 2006
From: pdenno at common-lisp.net (pdenno)
Date: Thu,  6 Jul 2006 22:04:46 -0400 (EDT)
Subject: [cells-gtk-cvs] CVS public_html
Message-ID: <20060707020446.53ED777001@common-lisp.net>

Update of /project/cells-gtk/cvsroot/public_html
In directory clnet:/tmp/cvs-serv10782/public_html

Modified Files:
	index.html 
Log Message:
Describe fix for problem loading .so files with cmucl

--- /project/cells-gtk/cvsroot/public_html/index.html	2006/06/30 15:45:25	1.29
+++ /project/cells-gtk/cvsroot/public_html/index.html	2006/07/07 02:04:46	1.30
@@ -135,12 +135,20 @@
       snapshots of the CVS repository, and contain all the ancillary modules (cells, cffi, etc). 
       Here are a few:
        <ul>
-         <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-06-30.tgz">cells-gtk-2006-06-30.tgz</a> and <a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-06-30.zip">cells-gtk-2006-06-30.zip</a> and 
+         <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-06-30.tgz">
+cells-gtk-2006-06-30.tgz</a> and 
+<a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-06-30.zip">
+cells-gtk-2006-06-30.zip</a>
 	   <ul>
              <li>Uses 2006-06-26 version of CFFI.
 	     <li>Cleaner load with sbcl. (Thanks, Andras Simon.)
 	     <li>Tested with LINUX: LW/Pro, sbcl, clisp; WIN32: clisp.
-             <li>Seems to have problems loading libraries with cmucl (not investigated much).
+             <li>There is a minor problem with cmucl. The fix: edit %load-foreign-library in 
+                 cffi/cffi-cmucl.lisp to return non-nil. That is, Make it look like this:<pre><tt>
+(defun %load-foreign-library (name)
+  "Load the foreign library NAME."
+  (sys::load-object-file name)
+  t) </tt></pre></li>
              <li>I (Peter Denno) had problems with LW/Win32. But others seem ok. -- If this form:<br>
                  <tt>(fli:register-module "libgdk-win32-2.0-0.dll" :connection-style :immediate)</tt><br>
 		 -- returns OK (once you've installed GTK libs) then you should be OK. 



From pdenno at common-lisp.net  Fri Jul  7 17:25:30 2006
From: pdenno at common-lisp.net (pdenno)
Date: Fri,  7 Jul 2006 13:25:30 -0400 (EDT)
Subject: [cells-gtk-cvs] CVS root/gtk-ffi
Message-ID: <20060707172530.6500736003@common-lisp.net>

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory clnet:/tmp/cvs-serv18037/root/gtk-ffi

Modified Files:
	gtk-ffi.lisp 
Log Message:
Use #. merge-pathname *compile-file-pathname* something like Andras was doing previously.

--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp	2006/06/30 15:26:54	1.22
+++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp	2006/07/07 17:25:30	1.23
@@ -110,14 +110,12 @@
 
 #+libcellsgtk
 (cffi:define-foreign-library :cgtk
-  (cffi-features:unix "libcellsgtk.so")
-  (cffi-features:windows "libcellsgtk.dll")
-  (cffi-features:darwin "libcellsgtk.dylib"))
+  (cffi-features:unix #.(merge-pathnames "libcellsgtk.so" *compile-file-pathname*))
+  (cffi-features:windows #.(merge-pathnames "libcellsgtk.dll" *compile-file-pathname*))
+  (cffi-features:darwin #.(merge-pathnames "libcellsgtk.dylib" *compile-file-pathname*)))
 ) ;eval-when
 
 ;;; After doing this, should be able to do (g-thread-init c-null)
-;;; The above define-foreigh-library appears to be useless (doesn't
-;;; work through the symbols) use the names. 
 
 ;;; LW Win32 is hanging on POD's machine only:
 ;;; (fli:register-module "libgdk-win32-2.0-0.dll" :connection-style :immediate)



From pdenno at common-lisp.net  Mon Jul 24 12:08:40 2006
From: pdenno at common-lisp.net (pdenno)
Date: Mon, 24 Jul 2006 08:08:40 -0400 (EDT)
Subject: [cells-gtk-cvs] CVS root/cells-gtk
Message-ID: <20060724120840.BCAAF6A002@common-lisp.net>

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory clnet:/tmp/cvs-serv8697/root/cells-gtk

Modified Files:
	layout.lisp 
Log Message:
Leonid Novikov updates.

--- /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp	2006/02/19 20:11:45	1.8
+++ /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp	2006/07/24 12:08:40	1.9
@@ -242,6 +242,15 @@
     (setf (current-page self) (show-page self)))
   #+clisp (call-next-method))
 
+(def-c-output show-tabs ((self notebook))
+ ??(gtk-notebook-set-show-tabs (id self) new-value))
+
+(def-c-output current-page ((self notebook))
+ ??(when new-value (gtk-notebook-set-current-page (id self) new-value)))
+
+(def-c-output show-border ((self notebook))
+ ??(gtk-notebook-set-show-border (id self) new-value))
+
 (def-widget alignment ()
   ((xalign :accessor xalign :initarg :xalign :initform 0.5)
    (yalign :accessor yalign :initarg :yalign :initform 0.5)



From pdenno at common-lisp.net  Mon Jul 31 17:41:01 2006
From: pdenno at common-lisp.net (pdenno)
Date: Mon, 31 Jul 2006 13:41:01 -0400 (EDT)
Subject: [cells-gtk-cvs] CVS root/cells-gtk
Message-ID: <20060731174101.5C9001D0BB@common-lisp.net>

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory clnet:/tmp/cvs-serv10118/root/cells-gtk

Modified Files:
	menus.lisp 
Log Message:
Update from Leonid Novikov adds current-pos slot in combo-box model.
This allows to set and get current position in flat model.

--- /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp	2006/06/07 16:41:38	1.14
+++ /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp	2006/07/31 17:41:01	1.15
@@ -34,7 +34,8 @@
    (init :accessor init :initarg :init :initform nil)
    (roots :accessor roots :initarg :roots :initform nil)
    (children-fn :accessor children-fn :initarg :children-fn :initform #'(lambda (x) (declare (ignore x)) nil))
-   (tree-model :cell nil :accessor tree-model :initform nil))
+   (tree-model :cell nil :accessor tree-model :initform nil)
+   (current-pos :accessor current-pos :initarg :current-pos :initform (c-in nil)))
   (active)
   (changed)
   :new-tail '-text
@@ -46,7 +47,8 @@
 	(let ((pos (gtk-combo-box-get-active (id self))))
 	  ;;(trc nil "combo-box pos" pos)
 	  (setf (md-value self) (and (not (= pos -1))
-				     (nth pos (items self)))))
+				     (nth pos (items self))))
+	  (setf (current-pos self) pos))
       ;; non-flat tree-model (:roots specified)
       (with-tree-iters (iter)
         (when (gtk-combo-box-get-active-iter (id self) iter)
@@ -57,6 +59,9 @@
 		 (read-from-string
 		  (gtk-tree-model-get-cell (id (tree-model self)) iter 1 :string)))))))))
 
+(def-c-output current-pos ((self combo-box))
+  ??(when new-value (gtk-combo-box-set-active (id self) new-value)))
+
 ;;; When user specifies :roots, he is using a tree-model.
 ;;; POD There is probably no reason he has to use :strings for the "columns"
 (def-c-output roots ((self combo-box))