August 2007 - cl-cairo2-devel@common-lisp.net

[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