- cl-cairo2-devel@common-lisp.net - mailman3.common-lisp.net

[cl-cairo2-devel] issues with cl-cairo2 from asdf-install
by Peter Hildebrandt 03 May '08

03 May '08

I just tried to pull in a current version of cl-cairo2 via asdf-install, and I ran into the following: There is no class named CL-CAIRO2::MY-DOUBLE-TYPE. (in cl-cairo2-swig) For me, the failing define-foreign-type expands into: (PROGN (CFFI::DEFINE-TYPE-SPEC-PARSER MY-DOUBLE-TYPE NIL (MAKE-INSTANCE 'CFFI::FOREIGN-TYPEDEF :NAME 'MY-DOUBLE-TYPE :ACTUAL-TYPE (CFFI::PARSE-TYPE (PROGN NIL (:ACTUAL-TYPE :DOUBLE) (:SIMPLE-PARSER MY-DOUBLE))))) 'MY-DOUBLE-TYPE) Note that parse-type is a function, thus (:actual-type ...) will be interpreted as a function call. This could be due a cffi mismatch: I have cffi 0.9.2 (the latest release). Do you use the one from darcs? Also, all three library names don't work in Ubuntu 8.04. I added the alternatives: cairo.lisp: (load-foreign-library '(:or "libcairo" "libcairo.so.2")) gtk-context.lisp: (define-foreign-library :gdk (cffi-features:unix (:or "libgdk-x11-2.0.so" "libgdk-x11-2.0.so.0")) (cffi-features:windows "libgdk-win32-2.0-0.dll") (cffi-features:darwin "libgdk-win32-2.0-0.dylib")) xlib.lisp: (load-foreign-library '(:or "libX11.so" "libX11.so.6")) Peter

2 2

[cl-cairo2-devel] translation of my-double type to foreign is broken
by Dmitry Pavlov 22 Apr '08

22 Apr '08

Hello, I have a problem compiling the cl-cairo2 manual: The 'make' command, executed from the 'tutorial' directory, says the following: Error during processing of --eval option "(progn (load \"example.lisp\") (quit))": The value 200 is not of type DOUBLE-FLOAT. The error is raised from the first call to cl-cairo at example.lisp: (create-ps-surface "example.ps" 200 100) It seems that 200 is not converted to my-double datatype before it is passed to the foreign function. translate-to-foreign method for my-double doesn't get called. I tried to fix the problem by hacking cl-cairo2-swig.lisp, but without success. I have SBCL 1.0.15 on Debian-unstable on amd64. cl-cffi version number is 0.9.2 (Debian package cl-cffi_20080217-1) cl-cairo2-latest.tar.gz I downloaded today from common-lisp.net. With regards, Dmitry

2 9

[cl-cairo2-devel] Re: Multiple errors
by Tamas K Papp 24 Mar '08

24 Mar '08

Hi Liam, I just saw your message on your blog, somehow your message didn't get to me, I checked my spam filter but it was not caught by that either. I will investigate that... Anyhow, I uploaded a fix to all the cl-cairo2 errors you mentioned. Please let me know if this works. Tamas

2 1

[cl-cairo2-devel] Multiple errors
by Liam Healy 20 Mar '08

20 Mar '08

I'm trying to load and use cl-cairo2 from the SVN repository. I've noticed multiple errors, some that I can work around, and some not. I am using SBCL on Debian/amd64. 1) Tutorial won't make because of missing hearts.png. 2) In the file xlib, I get a warning: Defining a foreign type named ATOM. This symbol belongs to the COMMON-LISP package and that may interfere with other code using CFFI. 3) Tutorial example shows create-ps-surface passed fixnums, but it requires double-floats. 4) Cannot run (setf *context* (create-context *surface*)) from example, gives error: The function FINALIZE is undefined. [Condition of type UNDEFINED-FUNCTION] and it is on 4 that I am stuck; finalize indeed seems to be undefined. Thanks, Liam

1 0

[cl-cairo2-devel] GTK context for cl-cairo2
by Peter Hildebrandt 04 Dec '07

04 Dec '07

Tamas, I finally got around to integrate a gtk-context for use in gtk applications with the latest version of cl-cairo2. I have attached a patch file. The changes are - in gtk-context.lisp class gtk-context macro with-gtk-context fun create-gtk-context method destroy method - package.lisp export the above - cl-cairo2.asd added gtk-context.lisp wrapped the defsystem in a package cl-cairo2-asd (Just a matter of taste; I prefer to keep the local package as clean as possible) Let me know whether that's fine with you. It'd be great if you could commit those, so that I can finally bring out my cells-gtk drawing area (I know ... I've been saying this for half a year). A note on dependecies: My new stuff depends on the feature unix, just like xlib-context. This is not exactly correct, since it should rather depend on the existence of libgdk -- but I haven't figured that one out yet. For future improvements I included already library specs for windows and darwin, but I have no way of testing them, since I have neither. I think for now dependence on unix is just fine, since most current linux installations should come with libgdk preinstalled. Thanks, Peter

1 0

[cl-cairo2-devel] xlib-context / window functionality
by Joubert Nel 02 Sep '07

02 Sep '07

Hello Tamas, I'm experimenting with the xlib-context and have modified lines 170 and 172 to set maxheight and maxwidth to a large number. This allows the resulting Xlib window to be resizable. Before I continue down this path, I'd like to know whether you are open to the idea of expanding xlib-context so that it can play host to an interactive UI, instead of only *presenting* graphics. I'm thinking about creating a mechanism for passing along Xlib events etc. to a code that consumes cl-cairo2. Joubert

2 3

[cl-cairo2-devel] Garbage on display: "create-xlib-context"
by Joubert Nel 27 Aug '07

27 Aug '07

Hello, I see some interesting behavior. When I do: (cl-cairo2:create-xlib-context 600 400 :window-name "gomer") I get a window alright, but the content is a scrambled image (even though I didn't start any painting). Sometimes, I don't get a scrambled image, but rather an image that was "recently" displayed on my computer (e.g. from web browser, or from the splash screen of an application). Is this expected? Joubert

1 0

[cl-cairo2-devel] X11 sample in Aug 22 version
by Joubert Nel 25 Aug '07

25 Aug '07

Hi, When I try to run the X11 example in the Aug 22 version, the following happens: -------------------------------------------------------------- CL-USER> (load "/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp") ; in: LAMBDA NIL ; CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ; ; caught STYLE-WARNING: ; undefined function: OPEN-X11-DISPLAY ; ; caught STYLE-WARNING: ; This function is undefined: ; OPEN-X11-DISPLAY ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; Evaluation aborted. CL-USER> -------------------------------------------------------------- Does it work for anybody else? Joubert PS: here is a full stack trace: function CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY is undefined. [Condition of type UNDEFINED-FUNCTION] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {AF89931}>) Backtrace: 0: ("bogus stack frame") 1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0") #<NULL-LEXENV>) 2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY* (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0") NIL 'NIL (SB-C:SOURCE-LOCATION)) #<NULL-LEXENV>) 3: (SB-INT:SIMPLE-EVAL-IN-LEXENV (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY* (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0") NIL 'NIL (SB-C:SOURCE-LOCATION))) #<NULL-LEXENV>) 4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (DEFPARAMETER CAIRO-XLIB-EXAMPLE::*DISPLAY* (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0")) #<NULL-LEXENV>) 5: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" {B82F001}> NIL NIL) 6: (SB-FASL::INTERNAL-LOAD #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" :ERROR NIL NIL :SOURCE :DEFAULT) 7: (SB-FASL::INTERNAL-LOAD #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" :ERROR NIL NIL NIL :DEFAULT) 8: (LOAD "/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp") 9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp") #<NULL-LEXENV>) 10: (SWANK::EVAL-REGION "(load \"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\") " T) 11: ((LAMBDA ())) 12: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {B816D45}>) 13: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {B816D45}>) 14: (SWANK:LISTENER-EVAL "(load \"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\") ") 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(load \"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\") ") #<NULL-LEXENV>) 16: ((LAMBDA ())) 17: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {B816BCD}>) 18: ((LAMBDA ())) 19: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA #) {AA86005}>) 20: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {AE97F89}> #<CLOSURE (LAMBDA #) {B816B15}>) 21: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {AE97F89}> #<FUNCTION (LAMBDA #) {AA86005}>) 22: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {AE97F89}>) 23: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>) 24: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>) 25: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {AF990C5}>) 26: ((FLET SB-THREAD::WITH-MUTEX-THUNK)) 27: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B647A095}> T) 28: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T) 29: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS)) 30: (SB-UNIX::CALL-WITHOUT-INTERRUPTS #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B647A185}>) 31: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {B647A205}> #S(SB-THREAD:MUTEX :NAME "thread result lock" :VALUE #<SB-THREAD:THREAD "repl-thread" {AF89931}>) #<SB-THREAD:THREAD "repl-thread" {AF89931}> T) 32: ((LAMBDA ())) 33: ("foreign function: call_into_lisp") 34: ("foreign function: funcall0") 35: ("foreign function: new_thread_trampoline") 36: ("foreign function: #xB7FBE31B") function CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY is undefined. [Condition of type UNDEFINED-FUNCTION] Restarts: 0: [ABORT] Return to SLIME's top level. 1: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {AF89931}>) Backtrace: 0: ("bogus stack frame") 1: (SB-INT:SIMPLE-EVAL-IN-LEXENV (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0") #<NULL-LEXENV>) 2: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY* (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0") NIL 'NIL (SB-C:SOURCE-LOCATION)) #<NULL-LEXENV>) 3: (SB-INT:SIMPLE-EVAL-IN-LEXENV (EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE) (SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY* (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0") NIL 'NIL (SB-C:SOURCE-LOCATION))) #<NULL-LEXENV>) 4: (SB-INT:SIMPLE-EVAL-IN-LEXENV (DEFPARAMETER CAIRO-XLIB-EXAMPLE::*DISPLAY* (CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0")) #<NULL-LEXENV>) 5: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" {B82F001}> NIL NIL) 6: (SB-FASL::INTERNAL-LOAD #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" :ERROR NIL NIL :SOURCE :DEFAULT) 7: (SB-FASL::INTERNAL-LOAD #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" #P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" :ERROR NIL NIL NIL :DEFAULT) 8: (LOAD "/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp") 9: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp") #<NULL-LEXENV>) 10: (SWANK::EVAL-REGION "(load \"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\") " T) 11: ((LAMBDA ())) 12: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {B816D45}>) 13: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {B816D45}>) 14: (SWANK:LISTENER-EVAL "(load \"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\") ") 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:LISTENER-EVAL "(load \"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\") ") #<NULL-LEXENV>) 16: ((LAMBDA ())) 17: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<CLOSURE (LAMBDA #) {B816BCD}>) 18: ((LAMBDA ())) 19: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN)) #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA #) {AA86005}>) 20: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION {AE97F89}> #<CLOSURE (LAMBDA #) {B816B15}>) 21: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION {AE97F89}> #<FUNCTION (LAMBDA #) {AA86005}>) 22: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {AE97F89}>) 23: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>) 24: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>) 25: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {AF990C5}>) 26: ((FLET SB-THREAD::WITH-MUTEX-THUNK)) 27: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS #<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B647A095}> T) 28: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T) 29: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS)) 30: (SB-UNIX::CALL-WITHOUT-INTERRUPTS #<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B647A185}>) 31: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {B647A205}> #S(SB-THREAD:MUTEX :NAME "thread result lock" :VALUE #<SB-THREAD:THREAD "repl-thread" {AF89931}>) #<SB-THREAD:THREAD "repl-thread" {AF89931}> T) 32: ((LAMBDA ())) 33: ("foreign function: call_into_lisp") 34: ("foreign function: funcall0") 35: ("foreign function: new_thread_trampoline") 36: ("foreign function: #xB7FBE31B")

2 2

[cl-cairo2-devel] XLib-context and UIs
by Joubert Nel 14 Aug '07

14 Aug '07

Hello, I'm keen on using CL-Cairo2 as a means to draw GUIs. I've done some initial exploration of the library and am wondering: 1) There's an xlib-context example, but the windows are fixed-size. Is it possible to make resizable windows? 2) Is it possible to receive mouse and keyboard events int the xlib-context? Thanks Joubert

2 2

[cl-cairo2-devel] [cl-cairo2-announce] minor update to cl-cairo2
by Tamas K Papp 12 Jul '07

12 Jul '07

Hi everyone, I uploaded a minor update to cl-cairo2 today. Highlights: - the wrapper classes now use finalizers: this means that if you fail to explicitly destroy them, the GC should take care of it. However, files will not be closed until this happens, so don't rely on this, it is just a feature that helps if the user forgets to destroy the object explicitly (please use the latest CFFI if you encounter errors, earlier versions don't have cffi:finalize & co) - minor fixes, mostly cosmetic, now the library compiles under ultra-picky SBCL without warnings I have a bit of time now to work on cl-cairo2, so please tell me if there are any features you are missing. Best, Tamas _______________________________________________ cl-cairo2-announce mailing list cl-cairo2-announce(a)common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/cl-cairo2-announce

1 0