mcclim-devel February 2005

mcclim-devel@common-lisp.net

24 participants
41 discussions

[mcclim-devel] Missing CLIMI::Y2 slot error when selecting text for copying
by Paolo Amoroso 14 Feb '05

14 Feb '05

When I run the CLIM Listener, evaluate (princ "Paolo"), Shift-left-button drag to select the previously output `Paolo' string for copying, and then release the shift key, I get the error with backtrace included below. I use the latest McCLIM CVS sources (rebuilt from source after deleting old fasl files) with CMUCL Snapshot 2005-02 under Slackware Linux 10.0. Paolo ---------------------------------------------------------------------- Error in function "DEFMETHOD SLOT-MISSING (T T T T)": When attempting to read the slot's value (slot-value), the slot CLIM-INTERNALS::Y2 is missing from the object #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}>. [Condition of type SIMPLE-ERROR] Restarts: 0: [RESTART-EVENT-LOOP] Restart CLIM's event loop. 1: [DESTROY ] Destroy the process Debug (type H for help) ("DEFMETHOD SLOT-MISSING (T T T T)" #<unused-arg> #<unused-arg> #<unused-arg> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}> ...) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:pcl/slots.lisp. 0] backtrace 0: ("DEFMETHOD SLOT-MISSING (T T T T)" #<unused-arg> #<unused-arg> #<unused-arg> #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}> ...) 1: (SLOT-VALUE #<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 0,17 ("Paolo") {582664A5}> CLIM-INTERNALS::Y2) 2: ("DEFUN FETCH-SELECTION" #<CLIM-INTERNALS::STRING-MARKING {58974585}>) 3: (MAP NIL #<Closure Over Function "DEFUN FETCH-SELECTION" {58A00559}> (#<CLIM-INTERNALS::STRING-MARKING {58974585}>)) 4: (CLIM-INTERNALS::FETCH-SELECTION #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58F362B5}>) 5: ((METHOD CLIM:DISPATCH-EVENT (:AROUND) (CLIM-INTERNALS::CUT-AND-PASTE-MIXIN CLIM-BACKEND:SELECTION-REQUEST-EVENT)) #<unused-arg> #<unused-arg> #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58F362B5}> #<CLIM-CLX::CLX-SELECTION-REQUEST-EVENT {58A0000D}>) 6: ((METHOD CLIM:PROCESS-NEXT-EVENT NIL (CLIM:BASIC-PORT)) (#() . #(#)) #<unused-arg> #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {5810715D}> NIL) 7: ("DEFMETHOD INITIALIZE-CLX (CLX-PORT)") 8: ("DEFUN MAKE-PROCESS") 0] ---------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 1

[mcclim-devel] CLX clear-area breakage
by Nyef 11 Feb '05

11 Feb '05

Hello all. medium-clear-area in Backends/CLX/medium.lisp isn't doing a transform from medium to device coordinates, nor is it clipping the coordinates to the limits allowed by CLX. This causes window-clear on streams with more than about 2800 lines (maybe less!) to break. Attached is a patch which should fix this. -- --Alastair Bridgewater

1 0

[mcclim-devel] X window manager focus
by Christophe Rhodes 09 Feb '05

09 Feb '05

Hi, Relatedly to my last message, I believe that there is another ICCCM compliance issue in the CLX backend: this one is probably related to window manager focus glitches. Given a focus-follows-mouse setup, the following occurs when I mouse into a McCLIM window: 0: (CLIM-CLX::PORT-CLIENT-MESSAGE #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1000671781}> NIL :WM_PROTOCOLS #(230 2313329802 7859248 7859248 2313329802)) 1: (CLIM-CLX::PORT-WM-PROTOCOLS-MESSAGE #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {1000671781}> NIL :WM_TAKE_FOCUS #(230 2313329802 7859248 7859248 2313329802)) 1: CLIM-CLX::PORT-WM-PROTOCOLS-MESSAGE returned NIL 0: CLIM-CLX::PORT-CLIENT-MESSAGE returned NIL where again the relevant part is that the timestamp passed down is NIL. ICCCM has this to say (section 4.1.7): Clients that use a SetInputFocus request must set the time field to the timestamp of the event that caused them to make the attempt. This cannot be a FocusIn event because they do not have timestamps. Clients may also acquire the focus without a corresponding EnterNotify. Note that clients must not use CurrentTime in the time field. so the call to XLIB:SET-INPUT-FOCUS in the PORT-WM-PROTOCOLS-MESSAGE for :WM_TAKE_FOCUS (Backends/CLX/port.lisp) is doomed, at the moment, to violate ICCCM. However, if I'm reading this right, the WM_TAKE_FOCUS client message has the timestamp we want to pass to SET-INPUT-FOCUS in its data field somewhere: Windows with the atom WM_TAKE_FOCUS in their WM_PROTOCOLS property may receive a ClientMessage event from the window manager (as described in section 4.2.8) with WM_TAKE_FOCUS in its data[0] field and a valid timestamp (i.e. not CurrentTime) in its data[1] field. If they want the focus, they should respond with a SetInputFocus request with its window field set to the window of theirs that last had the input focus or to their default input window, and the time field set to the timestamp in the message. For further information, see section 4.2.7. and indeed (elt data 1) in the above trace seems to be a valid timestamp. Am I on the right track, do people think? Cheers, Christophe

1 2

[mcclim-devel] selections
by Christophe Rhodes 09 Feb '05

09 Feb '05

Hi, Am I right in thinking that there are at least some problems still outstanding with X select-and-paste? If so, people affected may be interested to try changing the implementation of BIND-SELECTION in Backends/CLX/port.lisp to (defmethod bind-selection ((port clx-port) window &optional time) (xlib:set-selection-owner (xlib:window-display (sheet-direct-mirror window)) :primary (sheet-direct-mirror window) time)) where the new bit is passing TIME down to XLIB:SET-SELECTION-OWNER. The CLX manual has this to say about it: NOTE: Standard conventions for inter-client communication require that a non-nil time must be specified. If possible, the time should be the time of a user event which initiated the change of ownership. Alternatively, a timestamp can be obtained by calling change-property to append zero-length data to some property; the timestamp in the resulting :property-notify event can then be used. I have no idea why, nor indeed whether this will fix any open problems. Cheers, Christophe

1 0

[mcclim-devel] A couple of inspector fixups
by Christophe Rhodes 08 Feb '05

08 Feb '05

Hi, The attached * deals with unbound slots; * defines a brief method for structure objects and conditions; * defines a normal method for conditions; * fixes the inspection of functions. In addition, I think that the comment about slot definition readers and writers is partially misleading -- I think that _does_ find readers and writers for standard-{direct,effective}-slot-definitions. It probably doesn't currently for structure-{d,e}-slot-definitions, though. Cheers, Christophe

2 1

[mcclim-devel] Clouseau-based inspector for Listener
by Paolo Amoroso 05 Feb '05

05 Feb '05

This 5 minutes hack adds to the CLIM Listener a new "Inspect" command based on the Clouseau inspector: (in-package :clim-listener) (define-command (com-inspect :name "Inspect" :command-table lisp-commands :menu t) ((obj 'expression :prompt "expression")) (clouseau::inspector obj)) (define-gesture-name :inspect :pointer-button-press (:middle :control)) (define-presentation-to-command-translator com-inspect-translator (expression com-inspect lisp-commands :menu t :gesture :inspect :documentation ((object stream) (format stream "Inspect ~S" object)) :pointer-documentation "Inspect") (obj) (list obj)) The command works, but the translator sort of. When I Ctrl-Middle-click on an object with expression presentation type, or right-click and select the "Inspect" command, the Clouseau frame does open, but it does not inspect the right object: it always inspects nil, which is probably what com-inspect actually gets. What am I doing wrong? I'm not sure the gesture I have chosen is the right one. but Shift-Middle-click is already taken by copy and paste. Any other suggestions? Also, is expression the right presentation type to hook this functionality into in the first place? Is the translator appropriate? This tweak to clouseau::inspector makes it possible for the calling frame to continue processing events, especially repaint ones: (defun inspector (obj) (let ((*print-length* 10) (*print-level* 10)) (run-frame-top-level (make-application-frame 'inspector :calling-frame *application-frame* :obj obj)))) Perhaps it may be worth changing clouseau::inspector so that it can start a new thread in a way similar to clim-listener:run-listener. This way it would be possible to open more than one inspector frame at a time from the Listener. Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

3 6

[mcclim-devel] [Christophe Rhodes] [Sbcl-devel] PCL depessimization
by Christophe Rhodes 04 Feb '05

04 Feb '05

Hi, Tim Moore suggested that this might be of interest -- I'd certainly be interested in hearing reports from anyone who tries mcclim with sbcl and the attached patch. Thanks, Christophe

2 1

[mcclim-devel] patch for fix-acl.lisp
by Robert P. Goldman 04 Feb '05

04 Feb '05

Will someone with privileges please apply the attached patch (I also attach the full lisp file, should that be easier) to Lisp-Dep/fix-acl.lisp? AFAICT, this should fix problems with defining the CLIM-MOP package for Allegro Common Lisp. I don't see any downside to applying this patch, since some canvassing reveals that I'm the only person who will admit to using McCLIM with Allegro CL, so I will only be hurting myself if there's anything wrong! And I *might* be helping some future ACL user. Index: fix-acl.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-acl.lisp,v retrieving revision 1.9 diff -u -F^(def -r1.9 fix-acl.lisp --- fix-acl.lisp 21 Mar 2003 15:15:09 -0000 1.9 +++ fix-acl.lisp 3 Feb 2005 15:33:30 -0000 @@ -5,15 +5,117 @@ ;;; Needed to keep ACL from issuing warnings about toplevel (shadow ...) forms (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil) -(require :loop) +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :loop) + (require :mop)) (defpackage :clim-mop - (:use :clos)) - + (:use :clos :common-lisp) + (:export "ACCESSOR-METHOD-SLOT-DEFINITION" + "ADD-DEPENDENT" + "ADD-DIRECT-METHOD" + "ADD-DIRECT-SUBCLASS" + "ADD-METHOD" + "ALLOCATE-INSTANCE" + "BUILT-IN-CLASS" + "CLASS" + "CLASS-DEFAULT-INITARGS" + "CLASS-DIRECT-DEFAULT-INITARGS" + "CLASS-DIRECT-SLOTS" + "CLASS-DIRECT-SUBCLASSES" + "CLASS-DIRECT-SUPERCLASSES" + "CLASS-FINALIZED-P" + "CLASS-NAME" + "CLASS-PRECEDENCE-LIST" + "CLASS-PROTOTYPE" + "CLASS-SLOTS" + "COMPUTE-APPLICABLE-METHODS" + "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" + "COMPUTE-CLASS-PRECEDENCE-LIST" + "COMPUTE-DEFAULT-INITARGS" + "COMPUTE-DISCRIMINATING-FUNCTION" + "COMPUTE-EFFECTIVE-METHOD" + "COMPUTE-EFFECTIVE-SLOT-DEFINITION" + "COMPUTE-SLOTS" + "DIRECT-SLOT-DEFINITION" + "DIRECT-SLOT-DEFINITION-CLASS" + "EFFECTIVE-SLOT-DEFINITION" + "EFFECTIVE-SLOT-DEFINITION-CLASS" + "ENSURE-CLASS" + "ENSURE-CLASS-USING-CLASS" + "ENSURE-GENERIC-FUNCTION" + "ENSURE-GENERIC-FUNCTION-USING-CLASS" + "EQL-SPECIALIZER" + "EQL-SPECIALIZER-OBJECT" + "EXTRACT-LAMBDA-LIST" + "EXTRACT-SPECIALIZER-NAMES" + "FINALIZE-INHERITANCE" + "FIND-METHOD-COMBINATION" + "FORWARD-REFERENCED-CLASS" + "FUNCALLABLE-STANDARD-CLASS" + "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" + "FUNCALLABLE-STANDARD-OBJECT" + "FUNCTION" + "GENERIC-FUNCTION" + "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" + "GENERIC-FUNCTION-DECLARATIONS" + "GENERIC-FUNCTION-LAMBDA-LIST" + "GENERIC-FUNCTION-METHOD-CLASS" + "GENERIC-FUNCTION-METHOD-COMBINATION" + "GENERIC-FUNCTION-METHODS" + "GENERIC-FUNCTION-NAME" + "INTERN-EQL-SPECIALIZER" + "MAKE-INSTANCE" + "MAKE-METHOD-LAMBDA" + "MAP-DEPENDENTS" + "METAOBJECT" + "METHOD" + "METHOD-COMBINATION" + "METHOD-FUNCTION" + "METHOD-GENERIC-FUNCTION" + "METHOD-LAMBDA-LIST" + "METHOD-QUALIFIERS" + "METHOD-SPECIALIZERS" + "READER-METHOD-CLASS" + "REMOVE-DEPENDENT" + "REMOVE-DIRECT-METHOD" + "REMOVE-DIRECT-SUBCLASS" + "REMOVE-METHOD" + "SET-FUNCALLABLE-INSTANCE-FUNCTION" + "SLOT-BOUNDP-USING-CLASS" + "SLOT-DEFINITION" + "SLOT-DEFINITION-ALLOCATION" + "SLOT-DEFINITION-INITARGS" + "SLOT-DEFINITION-INITFORM" + "SLOT-DEFINITION-INITFUNCTION" + "SLOT-DEFINITION-LOCATION" + "SLOT-DEFINITION-NAME" + "SLOT-DEFINITION-READERS" + "SLOT-DEFINITION-TYPE" + "SLOT-DEFINITION-WRITERS" + "SLOT-MAKUNBOUND-USING-CLASS" + "SLOT-VALUE-USING-CLASS" + "SPECIALIZER" + "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" + "SPECIALIZER-DIRECT-METHODS" + "STANDARD-ACCESSOR-METHOD" + "STANDARD-CLASS" + "STANDARD-DIRECT-SLOT-DEFINITION" + "STANDARD-EFFECTIVE-SLOT-DEFINITION" + "STANDARD-GENERIC-FUNCTION" + "STANDARD-INSTANCE-ACCESS" + "STANDARD-METHOD" + "STANDARD-OBJECT" + "STANDARD-READER-METHOD" + "STANDARD-SLOT-DEFINITION" + "STANDARD-WRITER-METHOD" + "UPDATE-DEPENDENT" + "VALIDATE-SUPERCLASS" + "WRITER-METHOD-CLASS")) -(eval-when (:compile-toplevel :load-toplevel :execute) - (do-external-symbols (sym :clos) - (export sym :clim-mop))) +;;;(eval-when (:compile-toplevel :load-toplevel :execute) +;;; (do-external-symbols (sym :clos) +;;; (export sym :clim-mop))) (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defclass) ;;; -*- Mode: Lisp; Package: User -*- (in-package :common-lisp-user) ;;; Needed to keep ACL from issuing warnings about toplevel (shadow ...) forms (setq comp:*cltl1-compile-file-toplevel-compatibility-p* nil) (eval-when (:compile-toplevel :load-toplevel :execute) (require :loop) (require :mop)) (defpackage :clim-mop (:use :clos :common-lisp) (:export "ACCESSOR-METHOD-SLOT-DEFINITION" "ADD-DEPENDENT" "ADD-DIRECT-METHOD" "ADD-DIRECT-SUBCLASS" "ADD-METHOD" "ALLOCATE-INSTANCE" "BUILT-IN-CLASS" "CLASS" "CLASS-DEFAULT-INITARGS" "CLASS-DIRECT-DEFAULT-INITARGS" "CLASS-DIRECT-SLOTS" "CLASS-DIRECT-SUBCLASSES" "CLASS-DIRECT-SUPERCLASSES" "CLASS-FINALIZED-P" "CLASS-NAME" "CLASS-PRECEDENCE-LIST" "CLASS-PROTOTYPE" "CLASS-SLOTS" "COMPUTE-APPLICABLE-METHODS" "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" "COMPUTE-CLASS-PRECEDENCE-LIST" "COMPUTE-DEFAULT-INITARGS" "COMPUTE-DISCRIMINATING-FUNCTION" "COMPUTE-EFFECTIVE-METHOD" "COMPUTE-EFFECTIVE-SLOT-DEFINITION" "COMPUTE-SLOTS" "DIRECT-SLOT-DEFINITION" "DIRECT-SLOT-DEFINITION-CLASS" "EFFECTIVE-SLOT-DEFINITION" "EFFECTIVE-SLOT-DEFINITION-CLASS" "ENSURE-CLASS" "ENSURE-CLASS-USING-CLASS" "ENSURE-GENERIC-FUNCTION" "ENSURE-GENERIC-FUNCTION-USING-CLASS" "EQL-SPECIALIZER" "EQL-SPECIALIZER-OBJECT" "EXTRACT-LAMBDA-LIST" "EXTRACT-SPECIALIZER-NAMES" "FINALIZE-INHERITANCE" "FIND-METHOD-COMBINATION" "FORWARD-REFERENCED-CLASS" "FUNCALLABLE-STANDARD-CLASS" "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" "FUNCALLABLE-STANDARD-OBJECT" "FUNCTION" "GENERIC-FUNCTION" "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" "GENERIC-FUNCTION-DECLARATIONS" "GENERIC-FUNCTION-LAMBDA-LIST" "GENERIC-FUNCTION-METHOD-CLASS" "GENERIC-FUNCTION-METHOD-COMBINATION" "GENERIC-FUNCTION-METHODS" "GENERIC-FUNCTION-NAME" "INTERN-EQL-SPECIALIZER" "MAKE-INSTANCE" "MAKE-METHOD-LAMBDA" "MAP-DEPENDENTS" "METAOBJECT" "METHOD" "METHOD-COMBINATION" "METHOD-FUNCTION" "METHOD-GENERIC-FUNCTION" "METHOD-LAMBDA-LIST" "METHOD-QUALIFIERS" "METHOD-SPECIALIZERS" "READER-METHOD-CLASS" "REMOVE-DEPENDENT" "REMOVE-DIRECT-METHOD" "REMOVE-DIRECT-SUBCLASS" "REMOVE-METHOD" "SET-FUNCALLABLE-INSTANCE-FUNCTION" "SLOT-BOUNDP-USING-CLASS" "SLOT-DEFINITION" "SLOT-DEFINITION-ALLOCATION" "SLOT-DEFINITION-INITARGS" "SLOT-DEFINITION-INITFORM" "SLOT-DEFINITION-INITFUNCTION" "SLOT-DEFINITION-LOCATION" "SLOT-DEFINITION-NAME" "SLOT-DEFINITION-READERS" "SLOT-DEFINITION-TYPE" "SLOT-DEFINITION-WRITERS" "SLOT-MAKUNBOUND-USING-CLASS" "SLOT-VALUE-USING-CLASS" "SPECIALIZER" "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" "SPECIALIZER-DIRECT-METHODS" "STANDARD-ACCESSOR-METHOD" "STANDARD-CLASS" "STANDARD-DIRECT-SLOT-DEFINITION" "STANDARD-EFFECTIVE-SLOT-DEFINITION" "STANDARD-GENERIC-FUNCTION" "STANDARD-INSTANCE-ACCESS" "STANDARD-METHOD" "STANDARD-OBJECT" "STANDARD-READER-METHOD" "STANDARD-SLOT-DEFINITION" "STANDARD-WRITER-METHOD" "UPDATE-DEPENDENT" "VALIDATE-SUPERCLASS" "WRITER-METHOD-CLASS")) ;;;(eval-when (:compile-toplevel :load-toplevel :execute) ;;; (do-external-symbols (sym :clos) ;;; (export sym :clim-mop))) (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defclass) :clim-lisp-patch)) (defvar clim-lisp-patch::*compile-time-clos-names* (make-hash-table)) (defun clim-lisp-patch::compile-time-clos-class-p (name) (gethash name clim-lisp-patch::*compile-time-clos-names* nil)) (defmacro clim-lisp-patch:defclass (name &rest args) `(progn (eval-when (:compile-toplevel) (setf (gethash ',name clim-lisp-patch::*compile-time-clos-names*) t)) (cl:defclass ,name ,@args))) #+nil (progn (eval-when (:compile-toplevel :load-toplevel :execute) (defvar clim-lisp-patch::*inline-functions* nil)) (defmacro clim-lisp-patch:declaim (&rest args) (dolist (arg args) (cond ((and (consp arg) (eq (car arg) 'inline)) (dolist (k (cdr arg)) (pushnew k clim-lisp-patch::*inline-functions*))))) `(declaim ,@args) ) (defmacro clim-lisp-patch:defun (fun args &body body) (cond ((member fun clim-lisp-patch::*inline-functions*) (cond ((and (consp fun) (eq (car fun) 'setf)) (let ((fnam (intern (concatenate 'string "(SETF " (symbol-name (cadr fun)) ")") (symbol-package (cadr fun))))) `(progn (defsetf ,(cadr fun) (&rest ap) (new-value) (list* ',fnam new-value ap)) (defun ,fnam ,args .,body) (define-compiler-macro ,fnam (&rest .args.) (cons '(lambda ,args .,body) .args.))))) (t `(progn (defun ,fun ,args .,body) (define-compiler-macro ,fun (&rest .args.) (cons '(lambda ,args .,body) .args.)))))) (t `(defun ,fun ,args ,@body)))) )

2 1

[mcclim-devel] Patch fixing the PNM image writing bug
by Milan Zamazal 03 Feb '05

03 Feb '05

The following patch seems to fix the PNM image writing bug present when using Unicode enabled SBCL:

1 0

[mcclim-devel] write privileges to McCLIM for Peter Scott
by Robert Strandh 03 Feb '05

03 Feb '05

Hello, Could you please give write priviles to the McCLIM CVS tree for Peter Scott (who already has a common-lisp.net account with the name pscott) so that he can commit changes to the CLIM inspector? Thanks in advance, -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel February 2005