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

[CVS User rklochkov]

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

Modified Files:
	gdk-cffi.asd keys.lisp package.lisp pango.lisp 
Log Message:
GtkScrolledWindow is 100% binded



--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/gdk-cffi.asd	2011/09/11 15:48:21	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/gdk-cffi.asd	2011/09/15 10:28:20	1.6
@@ -22,7 +22,7 @@
    (:file rectangle :depends-on (loadlib generics))
    (:file screen :depends-on (loadlib generics))
    (:file window :depends-on (loadlib generics))
-   (:file pango :depends-on (loadlib generics
+   (:file pango :depends-on (loadlib generics))
    (:file keys :depends-on (package window pango))
    (:file threads :depends-on (package))
    (:file event :depends-on (loadlib generics window))
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/keys.lisp	2011/09/11 15:48:21	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/keys.lisp	2011/09/15 10:28:20	1.5
@@ -39,7 +39,7 @@
 
 (defgdkfuns keymap
   (lookup-key :uint (key keymap-key))
-  (:get direction pango:direction)
+  (:get direction pango-cffi:direction)
   (have-bidi-layouts :boolean)
   (:get caps-lock-state :boolean)
   (:get num-lock-state :boolean))
@@ -74,7 +74,7 @@
 
 (defgeneric entries-for-keycode (keymap keycode))
 (defmethod entries-for-keycode ((keymap keymap) keycode)
-    (with-foreign-outs ((keys (garray (struct keymap-key)))
-                        (keyvals (garray :uint))) :if-success
+    (with-foreign-outs ((keys '(garray (struct keymap-key)))
+                        (keyvals '(garray :uint))) :if-success
       (gdk-keymap-get-entries-for-keycode
        keymap keycode keys keyvals *array-length*)))
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/package.lisp	2011/09/11 15:48:21	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/package.lisp	2011/09/15 10:28:20	1.5
@@ -54,6 +54,16 @@
    #:group
    #:level
    #:entries-for-keyval
+   #:entries-for-keycode
+   #:lookup-key
+   #:direction
+
+   #:keyval-name
+   #:keyval-from-name
+   #:keyval-to-unicode
+   #:unicode-to-keyval
+   #:keyval-to-upper
+   #:keyval-to-lower
 
    #:gatom
    ))
--- /project/gtk-cffi/cvsroot/gtk-cffi/gdk/pango.lisp	2011/09/11 15:48:21	1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gdk/pango.lisp	2011/09/15 10:28:20	1.2
@@ -63,4 +63,4 @@
   :word :char :word-char)
 
 (defcenum direction
-  :ltr :rtl :ttb-ltr :ttb-ltr :weak-ltr :weak-rtl :neutral)
+  :ltr :rtl :ttb-ltr :ttb-rtl :weak-ltr :weak-rtl :neutral)