I have updated my McCLIM CVS working copy with the latest commits since last January 11. In the CLIM Listener, when I left-click the current directory presentation in the wholine pane, I get this error:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: 39 is not of type XLIB:GCONTEXT [Condition of type TYPE-ERROR]
Restarts: 0: [ABORT ] Return to application command loop 1: [RETURN-TO-LISTENER] Return to listener. 2: Return to Top-Level.
Debug (type H for help)
(XLIB:DRAW-RECTANGLE 7 #<XLIB:WINDOW :0 44040284> 39 0 ...)[:EXTERNAL] 0] backtrace
0: (XLIB:DRAW-RECTANGLE 7 #<XLIB:WINDOW :0 44040284> 39 0 ...)[:EXTERNAL] 1: ((METHOD CLIM-CLX::MEDIUM-DRAW-RECTANGLE-USING-INK* NIL (CLIM-CLX::CLX-MEDIUM T T T T ...)) (#(2 5 8 NIL) . #()) #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {588E952D}> #<unused-arg> ...) 2: ((METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL NIL (CLIM:MEDIUM T T)) (#(2 5 6 3 2 ...) . #(# #)) #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {588E952D}> #<CLIM-CLX::CLX-MEDIUM {588E952D}> ...) 3: (CLIM-LISTENER::DRAW-ICON T #<CLIM-INTERNALS::INDEXED-PATTERN {5843D4C5}> :EXTRA-SPACING 3) 4: ((FLET #:CONTINUATION22 (FLET #:CONT20 #))) 5: ((FLET #:CONTINUATION24 (FLET #:CONT20 #)) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}> #<unused-arg>) 6: ((FLET #:CONTINUATION24 (FLET #:CONT20 #)) 2 #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}> #<unused-arg>)[:EXTERNAL] 7: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}> #<Function (FLET #:CONTINUATION24 #) {580CA3A1}> ...) 8: ((FLET #:CONT20 (FLET #:DESTINATION-CONTINUATION0 CLIM-LISTENER::COM-SHOW-DIRECTORY)) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {588E8A65}>) 9: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {588E952D}> #<Closure Over Function (FLET #:CONT19 ) {58CB7AA9}> ...) 10: ("LAMBDA (G8058 G8059 G8060)" #<unused-arg> #<unused-arg> #<CLIM-LISTENER::LISTENER {588E559D}> (CLIM-LISTENER::COM-SHOW-DIRECTORY #P"/home/paolo/")) 11: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<CLIM-LISTENER::LISTENER {588E559D}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 12: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4608)" #<unused-arg> #<unused-arg> #<CLIM-LISTENER::LISTENER {588E559D}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 13: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(22) . #()) #<unused-arg> #<CLIM-LISTENER::LISTENER {588E559D}> #<unused-arg>) 14: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM-LISTENER::LISTENER)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {1167A9D1}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {588E559D}> (:LISTENER-FUNCALL NIL)) 15: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(18 17) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {590472D9}> :PV-CELL NIL :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL # :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {588E559D}> (:LISTENER-FUNCALL NIL)) 16: (INTERACTIVE-EVAL (CLIM-LISTENER:RUN-LISTENER)) 17: (LISP::%TOP-LEVEL) 18: ((LABELS LISP::RESTART-LISP SAVE-LISP))
0]
If I load Experimental/pointer-doc-hack.lisp in the Listener and move the mouse pointer toward the current directory presentation, I get this similar, possibly related error:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER: 0 is not of type XLIB:GCONTEXT [Condition of type TYPE-ERROR]
Restarts: 0: [ABORT ] Return to application command loop 1: [RETURN-TO-LISTENER] Return to listener. 2: Return to Top-Level.
Debug (type H for help)
(XLIB:DRAW-RECTANGLE 7 #<XLIB:WINDOW :0 44040277> 0 0 ...)[:EXTERNAL] 0]
I use CMUCL Snapshot 2004-12 with the latest McCLIM CVS sources under Slackware Linux 10.0.
Paolo