[gtk-cffi-cvs] CVS gtk-cffi/gtk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gtk
In directory tiger.common-lisp.net:/tmp/cvs-serv25018/gtk

Modified Files:
	gtk-cffi.asd loadlib.lisp package.lisp text-buffer.lisp 
	tree-model.lisp 
Removed Files:
	addons.lisp lisp-model.lisp 
Log Message:
Moved addons to gtk-cffi-ext



--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/gtk-cffi.asd	2011/10/23 08:39:53	1.9
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/gtk-cffi.asd	2011/12/31 17:20:56	1.10
@@ -446,15 +446,6 @@
   :components
   ((:file :image)))
 
-(defsystem gtk-cffi-lisp-model
-  :description "Interface to GTK/Glib via CFFI"
-  :author "Roman Klochkov <kalimehtar at mail.ru>"
-  :version "0.1"
-  :license "GPL"
-  :depends-on (gtk-cffi-tree-model)
-  :components
-  ((:file lisp-model)))
-
 (defsystem gtk-cffi-addons
   :description "Useful bits for GTK"
   :author "Roman Klochkov <kalimehtar at mail.ru>"
@@ -494,6 +485,5 @@
                gtk-cffi-notebook
                gtk-cffi-image
                gtk-cffi-text-view
-               gtk-cffi-addons
-               gtk-cffi-lisp-model))
+               gtk-cffi-addons))
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/loadlib.lisp	2011/08/26 17:16:14	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/loadlib.lisp	2011/12/31 17:20:56	1.3
@@ -17,11 +17,12 @@
 ;;    (t value)))
 
 
-(define-foreign-library :gtk
-  (:unix "libgtk-3.so.0") ;libgtk-x11-2.0.so")
-  (:windows "libgtk-win32-3-0.dll"))
-
-(load-foreign-library :gtk)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (define-foreign-library :gtk
+    (:unix "libgtk-3.so.0") ;libgtk-x11-2.0.so")
+    (:windows "libgtk-win32-3-0.dll"))
+  
+  (load-foreign-library :gtk))
 
 
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2011/10/23 08:39:53	1.9
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2011/12/31 17:20:56	1.10
@@ -365,7 +365,7 @@
    #:text-iter-editable
    #:can-insert
    #:starts-word
-   #:end-word
+   #:ends-word
    #:inside-word
    #:starts-line
    #:starts-sentence
@@ -602,11 +602,6 @@
 
    #:image
 
-   #:lisp-model
-   #:implementation
-   #:lisp-model-array
-   #:larray
-
    #:expander
    ))
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-buffer.lisp	2011/10/23 08:39:53	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-buffer.lisp	2011/12/31 17:20:56	1.4
@@ -70,7 +70,7 @@
   ((text-iter-editable . editable) :boolean (default-setting :boolean))
   (can-insert :boolean (default-editability :boolean))
   (starts-word :boolean)
-  (end-word :boolean)
+  (ends-word :boolean)
   (inside-word :boolean)
   (starts-line :boolean)
   (starts-sentence :boolean)
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/tree-model.lisp	2011/09/21 12:03:47	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/tree-model.lisp	2011/12/31 17:20:56	1.6
@@ -138,6 +138,7 @@
   (model pobject) (iter pobject))
 
 (defmethod iter->path ((tree-model tree-model) (tree-iter tree-iter))
+  (warn "Dangerous method: don't forget to use free")
   (gtk-tree-model-get-path tree-model tree-iter))
 
 (defcfun "gtk_tree_model_get_string_from_iter" :string