June 2010 - mcclim-devel - mailman3.common-lisp.net

Re: [mcclim-devel] mcclim-devel Digest, Vol 39, Issue 6
by Irene DURAND 27 Mar '13

27 Mar '13

Hello, As my paste on irc lisp, did not have any answer, I turning again to this more specialized mailing list. I have this MClim problem. The application runs fine on Linux with SBCL 1.0.13, xorg-x11-server 1.3.0.0-9.fc7, a recent version of MClim. But doesn't on my Mac (Darwin PowerPC) with MacOS 10.5 (leopard), SBCL 1.0.16, cvs version of MClim, Xquartz 2.1.5 - (xorg-server 1.3.0-apple22)(2.1.5). I have tried to create the smallest as possible application where the problems occurs (attached). Just compile the file and launch mini::(start) On Linux, I have the desired behaviour: a circle blinks (red/green/red/...) on the display pane and at the bottom of the window application, the "quit" button is displayed and works. On the Mac, the circle blinks correctly but the "Quit" button never shows up. For a while the application is killable with C-c C-c (under Slime), but after a while there is no way to kill it than to stop Lisp and restart everything (even /the/ <http://www.lispworks.com/reference/HyperSpec/Body/s_the.htm> X server). Note that this application used to work on Mac OS 10.3 (Panther) with older versions of everything. I suspect the X server to behave differently from before. But now I don't see how to make the application work. This is too bad, as I usually use a similar application for my Lisp undergraduate course. If anyone has an idea, it will be welcomed. Irène (defpackage :mini (:use :clim :clim-extensions :clim-lisp)) (in-package :mini) (let ((colors (list +red+ +green+))) (setf colors (nconc colors colors)) (defun display-function (frame pane) (draw-circle* pane 10 10 10 :ink (pop colors)) (sleep 0.5) (redisplay-frame-panes frame))) (defun quit () (frame-exit *application-frame*)) (define-application-frame mini () () (:panes (display :application :display-function 'display-function :incremental-redisplay t) (quit :push-button :label "Quit" :activate-callback (lambda (x) (declare (ignore x)) (quit)))) (:layouts (defaults (vertically () display quit)))) (defun run-test (name) (loop for port in climi::*all-ports* do (destroy-port port)) (setq climi::*all-ports* nil) (let ((frame (make-application-frame name))) (run-frame-top-level frame))) (defun start () (run-test 'mini) 0) (defmethod run-frame-top-level :before ((mini mini) &key) (let* ((frame-manager (frame-manager *application-frame*)) (port (climi::frame-manager-port frame-manager)) (display (clim-clx::clx-port-display port))) (setf (xlib:display-after-function display) g#'xlib:display-force-output)))

4 4

[mcclim-devel] beirc bug report
by Cyrus Harmon 16 Jun '10

16 Jun '10

I'm not sure what the best forum for reporting bugs in beirc and or mcclim these days (any interest in launchpad projects for these and similar projects?), but I came across this bug in beirc today, and I thought I'd post it here to see if anyone has any ideas. This is with SBCL 1.0.39.15 on linux/x86-64/sb-threads. any suggestions would be appreciated. thanks, Cyrus unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}>: The value 953 is not of type (UNSIGNED-BYTE 8). 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1003E9BD59}>)[:EXTERNAL] 1: (SB-DEBUG:BACKTRACE 128 #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000159B51}>) 2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK #<TYPE-ERROR {1003E99321}> #<unavailable argument>) 3: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR {1003E99321}>) 4: (INVOKE-DEBUGGER #<TYPE-ERROR {1003E99321}>) 5: (ERROR TYPE-ERROR)[:EXTERNAL] 6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER #<unavailable argument> #.(SB-SYS:INT-SAP #X7FFFF4EC1980) #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4EC1500 :TYPE (* (SB-ALIEN:STRUCT SB-VM::OS-CONTEXT-T-STRUCT))> (405 21)) 7: (SB-KERNEL:INTERNAL-ERROR #.(SB-SYS:INT-SAP #X7FFFF4EC1500) #<unavailable argument>) 8: ("foreign function: #x422C00") 9: ("foreign function: #x40D15C") 10: ("foreign function: #x4133A5") 11: ("foreign function: #x4140BA") 12: (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET #<unavailable argument> #<unavailable argument> #<unavailable argument>) 13: (CLIM-CLX::TRANSLATE "ι" 0 1 #<XLIB:FONT -adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso10646-1 :0 50331673> #(56 0 4 0 85 0 0 3 4 0 0 0 190 190 190 0 59 0 5 0 85 0 0 3 0 0 0 0 0 0 45 45 5 3 191 1 74 0 5 0 83 0 0 3 85 0 0 3 33 4 251 46 1 0 91 0 74 0 6 0 83 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0) 138) 14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)) 15: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324)) 16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK #<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4EC1CA9}> #S(SB-THREAD:MUTEX :NAME "CLX Buffer Lock" :%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}> :STATE 1)) 17: (XLIB::DRAW-GLYPHS8 #<XLIB:WINDOW :0 3000053> #<XLIB:GCONTEXT :0 50331733> 93 12027 "ι" 0 1 #<FUNCTION CLIM-CLX::TRANSLATE> #<unavailable argument>) 18: ((SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-TEXT* (CLIM-CLX::CLX-MEDIUM T T T T T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93 12027 0 1 :LEFT :BASELINE #<unavailable argument> #<unavailable argument> #<unavailable argument>) 19: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC20D9}>)[:EXTERNAL] 20: (CLIM:DRAW-TEXT* #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93 12027)[:EXTERNAL] 21: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::STREAM-WRITE-OUTPUT :AROUND (CLIM:STANDARD-OUTPUT-RECORDING-STREAM T T)) #(45 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (3 . T)) #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> "ι" NIL)[:EXTERNAL] 22: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC2499}>)[:EXTERNAL] 23: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 24: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLOSURE (FLET #:GCONTINUATION6319) {7FFFF4EC2589}>)[:EXTERNAL] 25: ((LABELS #:G6300) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 26: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD (CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD T)) #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL) #<unused argument> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<unused argument> #<unused argument> #<unused argument>) 27: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (CLIM:MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLIM-CLX::CLX-MEDIUM {10061DE701}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {7FFFF4EC2869}>)[:EXTERNAL] 28: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 29: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLOSURE (FLET #:GCONTINUATION1711) {7FFFF4EC2939}>)[:EXTERNAL] 30: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD :AROUND (CLIM-INTERNALS::GS-INK-MIXIN T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL) :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL] 31: ((LABELS #:G441) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>) 32: (CLIM:REPLAY #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<CLIM:STANDARD-RECTANGLE X 0:773 Y 11565:12012 {1003E965A1}>) 33: ((SB-PCL::FAST-METHOD CLIM:INCREMENTAL-REDISPLAY (CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN T T T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> #<unavailable argument> NIL NIL ((#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 1057,12014 ("[" "14:" "11]") {1003B5D651}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 1057,12014 ("[" "14:" "11]") {1003B5D651}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι") {1003B5C791}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014 (">") {10044542E1}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014 (">") {10044542E1}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 44,12014 ("cbeok") {1004473F11}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 44,12014 ("cbeok") {1004473F11}>) (#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014 ("<") {10044542A1}> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014 ("<") {10044542A1}>)) NIL NIL) 34: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-OUTPUT-RECORD (CLIM:UPDATING-OUTPUT-RECORD CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN)) #<unused argument> #<unused argument> #<CLIM:STANDARD-UPDATING-OUTPUT-RECORD X 0:1100 Y 0:12030 CLIM-INTERNALS::TOP-LEVEL {10061DE731}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> T) 35: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> #<BEIRC:BEIRC {100304D5C1}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}> 17592162813397 2) 36: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-FRAME-PANE :AROUND (CLIM:APPLICATION-FRAME T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {1004351429}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<BEIRC:BEIRC {100304D5C1}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL] 37: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>) 38: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {100398AB21}>) 39: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:SCROLLER-PANE "(Unnamed Pane)" {1003971121}>) 40: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {100398AA51}>) 41: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-TAB-LAYOUT:TAB-LAYOUT-PANE BEIRC::QUERY {100398A571}>) 42: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {1003289351}>) 43: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {1003233771}>) 44: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET)) #<unavailable argument> #<unavailable argument> #<CLOSURE (LAMBDA #) {1003903B49}> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1007A39561}>) 45: ((SB-PCL::FAST-METHOD CLIM:HANDLE-EVENT (BEIRC:BEIRC BEIRC::FOO-EVENT)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}> #<BEIRC::FOO-EVENT {1002BEA581}>) 46: (CLIM-INTERNALS::HANDLE-NON-STREAM-EVENT #<CLIM-INTERNALS::PORT-EVENT-QUEUE {100319B661}>) 47: ((SB-PCL::FAST-METHOD CLIM:STREAM-INPUT-WAIT (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 48: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE (CLIM:STANDARD-EXTENDED-INPUT-STREAM)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 49: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.)) #<unused argument> #<unused argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> 17592162813599 10) 50: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE :AROUND (CLIM-INTERNALS::DEAD-KEY-MERGING-MIXIN)) #(1 NIL 2 NIL 0 NIL) #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE # {1009B59349}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL] 51: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE (DREI:DREI-INPUT-EDITING-MIXIN)) #<unavailable argument> #<unavailable argument> #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>)[:EXTERNAL] 52: ((LAMBDA (STREAM)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>) 53: (CLIM-INTERNALS::INPUT-EDITING-RESCAN-LOOP #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}> #<CLOSURE (LAMBDA #) {1003CDF229}>) 54: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}> #<CLOSURE (LAMBDA #) {1003CE6BB9}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 55: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING (CLIM:CLIM-STREAM-PANE T T T T)) #<unavailable argument> #<unavailable argument> #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 56: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (T T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 57: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND (CLIM:EXTENDED-OUTPUT-STREAM T T T T)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (5)) :ARG-INFO (5)) :ARG-INFO (5)) #<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}> #<CLOSURE (LAMBDA #) {1003CDF229}> NIL "" CLIM:STANDARD-INPUT-EDITING-STREAM) 58: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND (BEIRC:BEIRC)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 59: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION # :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 60: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 61: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 62: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND (CLIM:APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL] 63: ((LAMBDA ())) 64: ((LAMBDA ())) 65: (SB-INT:SIMPLE-EVAL-IN-LEXENV (WITH-APPLICATION NIL (BEIRC:BEIRC :NEW-PROCESS NIL)) #<NULL-LEXENV>) 66: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp" {1002E1C681}> NIL NIL) 67: ((FLET SB-FASL::LOAD-STREAM) #<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp" {1002E1C681}> NIL) 68: (LOAD "/home/sly/src/clbuild/clbuild.lisp")[:EXTERNAL] 69: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "/home/sly/src/clbuild/clbuild.lisp") #<NULL-LEXENV>) 70: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(require :asdf)") (:EVAL . "(setq asdf:*central-registry* '(#p\"/home/sly/src/clbuild/systems/\"))") (:EVAL . "nil") (:EVAL . "(load \"/home/sly/src/clbuild/clbuild.lisp\")"))) 71: (SB-IMPL::TOPLEVEL-INIT) 72: ((LABELS SB-IMPL::RESTART-LISP))

2 1

[mcclim-devel] clim-gtkairo problems
by Cyrus Harmon 16 Jun '10

16 Jun '10

I've been having trouble trying to get the clim-gtkairo backend working of late. The main application I'm working on throws an error, only with the gtkairo backend, but I don't have a nice simple test case for it yet. In the course of trying to generate such testcase, I figured I'd try the demodemo and see how it works with clim-gtkairo. Unfortunately, it seems to have some problems. The most obvious problem is that the initial demodemo window is completely blank until one drags the mouse over all of the buttons. With the clx backend, everything is fine. Anyone else seeing this? thanks, Cyrus

1 1