- lambda-gtk-devel@lists.common-lisp.net - mailman3.common-lisp.net

[lambda-gtk-devel] some newbie question
by Sergei Klimov 18 Aug '08

18 Aug '08

Hi, i was wondering if someone can, please, help me with one of the function of lambda-gtk or, even better, with better understanding of lambda-gtk? I am new to this this list, so i am sorry if my question is out of line. I am also pretty new to the whole lisp and gtk thing. i am trying to restrict the user ability to resize the main window, more precisely i want the window to keep constant ratio. From the GTK manual i think it is possible to achieve this by: void gdk_window_set_geometry_hints (GdkWindow *window, GdkGeometry *geometry, GdkWindowHints geom_mask); Maybe this should be a function which starts with gtk_ . The function is there, but i have no idea how to pass two additional parameters to the function, geometry and geom_mask. I've found the following definition: (defalien-type GdkGeometry (struct _GdkGeometry (min_width gint) (min_height gint) (max_width gint) (max_height gint) (base_width gint) (base_height gint) (width_inc gint) (height_inc gint) (min_aspect gdouble) (max_aspect gdouble) (win_gravity GdkGravity))) but this not in the export list, i think. the only relevant functions i could find are the function like this one: (defun gdk::Geometry.min-width (ptr &optional (val nil vp)) .... (if vp (setf (slot v587 'min_width) val) (slot v587 'min_width)))) which i think are used to access the specific fields of the geometry structure. How can create this structure? How do I create any alien variable? Again, i am a newbie. i am sure the answer is trivial, but could not figure this one out. Can you at least point me in the right direction? Or even better toss me some example code? If this is relevant: i run linux, debian, sbcl and lambda-gtk from asdf-install. Thanks in advance. Sergei

1 0

[lambda-gtk-devel] Libraries & cm-gtk...
by Dietrich Bollmann 12 Jan '07

12 Jan '07

Hi, I am not sure if the following observation is helpful - but for any case here it comes... On my system (Debian etch) the extension `.so.0' is used for some libraries - and not the extension `.so' cm-gtk was searching for. Example: ls -la /usr/lib/libgtk-x11-2.0.so ls: /usr/lib/libgtk-x11-2.0.so: No such file or directory ls -la /usr/lib/libgtk-x11-2.0* lrwxrwxrwx 1 root root 26 2006-10-27 23:30 /usr/lib/libgtk-x11-2.0.so.0 -> libgtk-x11-2.0.so.0.800.20 -rw-r--r-- 1 root root 3039524 2006-10-14 06:29 /usr/lib/libgtk-x11-2.0.so.0.800.20 In order to load the libraries I made some changes to my version of the code: - cm-gtk now searches the libraries using both extensions - the list of extensions searched for is customizable by setting the variable *gtk-libext* to something different. current value: #+:darwin '("dylib") #-:darwin '("so" "so.0")) Thanks for your wonderful program! Best wishes, Dietrich Here come my changes... File: .../common-music/cm-gtk/gtkffi-cmusbcl.lisp ============================================================ original version: ------------------------------------------------------------ (in-package :cl-user) (eval-when (:compile-toplevel :load-toplevel :execute) #+sbcl (setq sb-alien::*values-type-okay* t) (export '(*gtk-libdir* *gtk-libfiles*) :cl-user) (defvar *gtk-libdir* #+:darwin "/sw/lib/" #-:darwin "/usr/lib/") (defvar *gtk-libfiles* '("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0" "libgdk_pixbuf-2.0" #-:darwin "libm" #+:darwin "/usr/lib/libm" "libpangoxft-1.0" "libpangox-1.0" "libpango-1.0" "libgobject-2.0" "libgmodule-2.0" #-:darwin "libdl" "libglib-2.0" #+:darwin "libintl" #+:darwin "libiconv" )) (flet ((libpath (lib &aux p) (setq p (namestring (merge-pathnames (format nil "~A.~A" lib #+:darwin "dylib" #-:darwin "so") *gtk-libdir*))) (if (probe-file p) p (error "Library ~S not found. Either GTK is not installed or else cl-user:*gtk-libdir* needs to be set to the directory containing GTK on your machine." p)))) #+:sbcl (dolist (l *gtk-libfiles*) (load-shared-object (libpath l))) #+:cmu (dolist (l *gtk-libfiles*) (ext:load-foreign (libpath l))))) ============================================================ the changed version: ------------------------------------------------------------ (in-package :cl-user) (eval-when (:compile-toplevel :load-toplevel :execute) #+sbcl (setq sb-alien::*values-type-okay* t) (export '(*gtk-libdir* *gtk-libfiles*) :cl-user) (defvar *gtk-libdir* #+:darwin "/sw/lib/" #-:darwin "/usr/lib/") (defvar *gtk-libfiles* '("libgtk-x11-2.0" "libgdk-x11-2.0" "libatk-1.0" "libgdk_pixbuf-2.0" #-:darwin "libm" #+:darwin "/usr/lib/libm" "libpangoxft-1.0" "libpangox-1.0" "libpango-1.0" "libgobject-2.0" "libgmodule-2.0" #-:darwin "libdl" "libglib-2.0" #+:darwin "libintl" #+:darwin "libiconv" )) (defvar *gtk-libext* #+:darwin '("dylib") #-:darwin '("so" "so.0")) (flet ((libpath (lib) (loop for ext in *gtk-libext* for library = (namestring (merge-pathnames (format nil "~A.~A" lib ext) *gtk-libdir*)) for exists = (probe-file library) until exists finally (return (if exists ;; found library - return it library ;; couldn't find library - throw error (error (concatenate 'string (format nil "Library ~S with neither of the extensions ~{~a~^, ~} found. " lib *gtk-libext*) "Either GTK is not installed " "or else cl-user:*gtk-libdir*, cl-user:*gtk-libfiles* or cl-user:*gtk-libext* " "needs to be set to fing the GTK libraries on your machine."))))))) (dolist (l *gtk-libfiles*) (let ((lib (libpath l))) ;; (format t ";;; Loading library ~a~%" lib) #+:sbcl (load-shared-object lib) #+:cmu (ext:load-foreign lib))))) ============================================================

1 0

[lambda-gtk-devel] Last chance: move your files off of common-lisp.net FTP, please.
by eenge＠common-lisp.net 14 Aug '06

14 Aug '06

See http://common-lisp.net/pipermail/users/2006-August/000006.html for more information. Thanks.

1 0

Re: [lambda-gtk-devel] lambda-gtk on CLOS
by Ignas Mikalajunas 03 May '06

03 May '06

> Hi, guys, > > I generated a CLOS extension over lambda-gtk. Here are details > > http://borigen.narod.ru/gtk-on-clos/ > > I rewrote the original examples with CLOS and added a couple of others. > I really interested in what you, guys, think about this. Any comments > and suggestions are very welcome. I also have a plan to document and > post the functions which generates this CLOS extensions, since > currently, I generated only those classes needed for proper functioning > of the examples. > > D. Hi, I am sorry for such a delay, but I have been very busy for the last few months :/ I can't really evaluate the CLOS layer at the moment. Though i can tell you that I don't like the naming scheme you are using :/ (though this is probably my broblem as i am coding-convention nazi ;) I liked "clg" (another common lisp gtk biding package) naming conventions better. All in all it looks nice, and i'll definitely try it out more as soon as i'll get to grips and push the lamdba-gtk cffi port into completion. As at the moment i am having some issues with testing on macs, bitfields and encodings (they are not really supported by cffi and i just don't have the expertise to add the support myself). Thanks a lot for your effort. Ignas Mikalajūnas

1 0

[lambda-gtk-devel] lambda-gtk on CLOS
by Denis Potapov 10 Apr '06

10 Apr '06

Hi, guys, I generated a CLOS extension over lambda-gtk. Here are details http://borigen.narod.ru/gtk-on-clos/ I rewrote the original examples with CLOS and added a couple of others. I really interested in what you, guys, think about this. Any comments and suggestions are very welcome. I also have a plan to document and post the functions which generates this CLOS extensions, since currently, I generated only those classes needed for proper functioning of the examples. D.

1 0

[lambda-gtk-devel] Patch to add support for unicode labels.
by Joslwah 16 Feb '06

16 Feb '06

Dear All, This patch adds support for passing unicode strings to gtk for labels and the like. gtk supports this, and it works on sbcl/x86 and sbcl/ppc (both sbcl-0.9.9). Can't test it on ppc64 since there isn't a version of sbcl that currently runs on it. The patch is in two parts. The first part just adds some functions to the api that I need for some of my code. The second part adds support for passing utf8-encoded strings to gtk. Please apply for sbcl and could someone test for CMUCL etc. Thanks. Joslwah. p.s. Is it possible to increment the version number occasionally? I know of at least two incompatible versions around both carrying the 0.1 label. One works with older versions of sbcl, and one only with newer! -------------Patch follows------------------------------------------------------------ diff -r -u lambda-gtk_0.1-pre/gtk.api lambda-gtk_0.1/gtk.api --- lambda-gtk_0.1-pre/gtk.api 2006-02-16 14:07:04.000000000 +0800 +++ lambda-gtk_0.1/gtk.api 2006-02-13 18:49:04.000000000 +0800 @@ -1091,6 +1091,9 @@ (:function "gdk_threads_enter") (:function "gdk_threads_leave") (:function "gdk_threads_init") +(:function "gdk_display_open") +(:function "gdk_display_get_default_screen") +(:function "gtk_window_set_screen") (:function "gtk_accel_group_get_type") (:function "gtk_accel_group_new") (:function "gtk_accel_group_lock") diff -r -u lambda-gtk_0.1-pre/lambda-gtk-cmusbcl.lisp lambda-gtk_0.1/lambda-gtk-cmusbcl.lisp --- lambda-gtk_0.1-pre/lambda-gtk-cmusbcl.lisp 2006-02-16 14:07:05.000000000 +0800 +++ lambda-gtk_0.1/lambda-gtk-cmusbcl.lisp 2006-02-13 19:10:30.000000000 +0800 @@ -86,7 +86,7 @@ ( (void ()) void) ( (pointer (void ())) (* t)) - ( (pointer (char ())) c-string ) + ( (pointer (char ())) utf8-string ) ( (pointer (gchar ())) c-string ) ( (pointer (guchar ())) c-string ) @@ -417,12 +417,14 @@ (if (eql (car arg) 'pointer) (let ((isa (sbcl-type arg))) (if (or (eql isa 'c-string) + (eql isa 'utf8-string) (equal isa '(* T))) (list isa) (let ((x (second isa))) ;;(print (list :x-> x)) (cond ((symbolp x) ; basic type - (if (eql x 'c-string) + (if (or (eql x 'c-string) + (eql x 'utf8-string)) (list (list '* t)) (list x ':in-out))) ((stringp x)

1 0

[lambda-gtk-devel] Auto-nag: lambda-gtk link verifier failed
by root＠common-lisp.net 30 Jan '06

30 Jan '06

You are being nagged on because your project's name showed up in the nightly Checkbot run. Checkbot checks for broken links etc. This probably means that you are either pointing to a broken link or that someone is pointing to a broken link on your site. Or something else, it check's a bunch of stuff. Update your webpages or you shall be nagged again next week. To find out what's wrong with your webpages, please consult: http://common-lisp.net/checkbot/checkbot-common-lisp.net.html Any questions? You got this email but your webpage doesn't seem to be listed on the checkbot webpage? You can reach the author of this cronjob at clo-devel(a)common-lisp.net Thanks!

1 0

[lambda-gtk-devel] Auto-nag: lambda-gtk link verifier failed
by root＠common-lisp.net 23 Jan '06

23 Jan '06

You are being nagged on because your project's name showed up in the nightly Checkbot run. Checkbot checks for broken links etc. This probably means that you are either pointing to a broken link or that someone is pointing to a broken link on your site. Or something else, it check's a bunch of stuff. Update your webpages or you shall be nagged again next week. To find out what's wrong with your webpages, please consult: http://common-lisp.net/checkbot/checkbot-common-lisp.net.html Any questions? You can reach the author of this cronjob at clo-devel(a)common-lisp.net Thanks!

1 0

[lambda-gtk-devel] Auto-nag: lambda-gtk link verifier failed
by root＠common-lisp.net 18 Jan '06

18 Jan '06

You are being nagged on because your project's name showed up in the nightly Checkbot run. Checkbot checks for broken links etc. This probably means that you are either pointing to a broken link or that someone is pointing to a broken link on your site. Or something else, it check's a bunch of stuff. Update your webpages or you shall be nagged again next week. To find out what's wrong with your webpages, please consult: http://common-lisp.net/checkbot/checkbot-common-lisp.net.html Any questions? You can reach the author of this cronjob at admin(a)common-lisp.net Thanks!

1 0

[lambda-gtk-devel] Re: lambda-gtk wrong return types in the generated ffi
by Rick Taube 15 Dec '05

15 Dec '05

thank you for reporting this. ill try to fix it over the break. ive been remiss updating some things, primarily because im thinking that i shuould now be generating cffi bindings but havent found the time to work on this. --rick On Dec 14, 2005, at 3:41 PM, Peter Gijsels wrote: > Hi, > > I've been playing around with lambda-gtk, and I like it a lot. > Sometimes it's a bit low-level (e.g. valist: yuk), but in general it's > quite usable. > > However, I encountered a bug: the return type of some of the generated > functions are wrong. For gtk_tree_path_to_string the generated return > type is gchar while it should be c-string: > hunk ./gtkffi-cmusbcl.lisp 13134 > - (defalien "gtk_tree_path_to_string" gchar (a (* t))) > + (defalien "gtk_tree_path_to_string" c-string (a (* t))) > > It seems that there are other functions that are suffering from the > same problem: e.g. gtk_tree_path_get_indices. > > I didn't immediately find how to fix this in the generating code. > > Regards, > Peter

1 0