January 2005 - mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] Inspector MOP
by Peter Scott 02 Feb '05

02 Feb '05

The Inspector is nice, but its MOP code is a thin layer of abstraction over the MOPs of SBCL and OpenMCL. If you're not running one of those, it gives you a "No MOP" error. Matthieu Villeneuve's patch adds support for CMUCL, but it seems like suplication of the work already done with CLIM-MOP. Here's a patch that deletes the compatibility code and changes everything to use CLIM-MOP. It works for me on SBCL 0.8.16. If it breaks anything, let me know. -Peter

3 2

[mcclim-devel] asdf-install ready mcclim.asd
by Andreas Fuchs 02 Feb '05

02 Feb '05

Hello, I spent the last day hacking the McCLIM system definition. My goals were: * Adding real dependency information for files, to improve the McCLIM user experience (it's notorious for its long compile cycles after a cvs up) * Making it ASDF-INSTALLable, via a system called :MCCLIM that pulls in the :CLIM system and a suitable backend The .asd file at <URL:http://boinkor.net/lisp/mcclim.asd> is the result. (Not attached because common-lisp.net doesn't allow .asd files in attachments.) As you can see, this drops support for all non-ASDF defsystems, and gets us halfway through the first goal - I couldn't load all systems to get dependency information from them (clim-opengl, clim-beagle and scigraph), but the bigger systems like CLIM-CORE and CLIM are fully working. After a change to setf-star.lisp, ASDF now recompiles 6 files instead of 20. (-: The second goal was easier: what I did was move the system definitions for clim-clx, clim-opengl and beagle (now clim-beagle for consistency) into the mcclim.asd file, and frobnicated the CLIM-LOOKS system to depend on the correct backend system in the right circumstances. I'm not absolutely sure if CLIM-LOOKS' behavior is correct for Mac users (it loads beagle). If you have an MCL or OpenMCL installation, so please test. Really, I only tested it on Linux/x86/X11/SBCL. Other combinations were not tested. If you want to find out if it will work for you, install it and run it yourself. To install the system, follow these steps: 1. put the mcclim.asd file into your McCLIM installation directory 2. symlink it to a directory in your ASDF:*CENTRAL-REPOSITORY* (for SBCL users, this is ~/.sbcl/systems) 3. On the lisp REPL, (asdf:oos 'asdf:load-op :mcclim) If anybody does a snapshot of mcclim with this .asd file and puts the ASDF-INSTALL link on http://cliki.net/mcclim, people will also be able to asdf-install McClim. Have fun, -- Andreas Fuchs, <asf(a)boinkor.net>, asf(a)jabber.at, antifuchs--}-<<mixed>>

2 4

[mcclim-devel] Apps/Inspector
by rm＠seid-online.de 31 Jan '05

31 Jan '05

Hello List, i just did an cvs update to have a look at the new Inspector but unfortunately the code doesn't show up at all :-( Any idea what's happening? TIA Ralf Mattes

3 2

[mcclim-devel] INSPECTOR::CLASS-SLOTS: no MOP error when evaluating sample Inspector form
by Paolo Amoroso 30 Jan '05

30 Jan '05

When I evaluate the sample Inspector form in Apps/Inspector/INSTALL: (inspector::inspector (clim:make-application-frame 'inspector::inspector :obj 20)) An incomplete application frame appears, and I get the error with backtrace included below. I use the latest McCLIM CVS sources with CMUCL Snapshot 2005-01 under Slackware Linux 10.0. Paolo --------------------------------------------------------------------- Error in function INSPECTOR::CLASS-SLOTS: no MOP [Condition of type SIMPLE-ERROR] Restarts: 0: [ABORT] Return to application command loop 1: Return to Top-Level. Debug (type H for help) (INSPECTOR::CLASS-SLOTS #<unused-arg>) Source: ; File: /home/paolo/src/mcclim/Apps/Inspector/inspector.lisp (ERROR "no MOP") 0] backtrace 0: (INSPECTOR::CLASS-SLOTS #<unused-arg>) 1: ((LABELS #:.CONT.29 (FLET #:CONTINUATION32 #)) #<unused-arg>) 2: ((FLET #:CONTINUATION15 (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 3: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unused-arg> #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION15 #) {589B8FB1}> ...) 4: ((FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<CLIM:STANDARD-TABLE-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {589B8E45}>) 5: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) {589B8761}> ...) 6: ((FLET #:CONTINUATION32 (FLET #:CONTINUATION37 #)) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<unused-arg>) 7: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION32 #) {589B7FD1}> ...) 8: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION37 #) {58381DE1}> ...) 9: ((FLET #:CONTINUATION15 (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE)) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 10: ((METHOD CLIM:INVOKE-WITH-OUTPUT-RECORDING-OPTIONS NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) #<unused-arg> #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION15 #) {58380F71}> ...) 11: ((FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<CLIM:STANDARD-TABLE-OUTPUT-RECORD X 0.0d0:0.0d0 Y 0.0d0:0.0d0 {5838032D}>) 12: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION3 CLIM-INTERNALS::INVOKE-FORMATTING-TABLE) {5837F961}> ...) 13: ((METHOD CLIM:INVOKE-WITH-NEW-OUTPUT-RECORD NIL (CLIM:OUTPUT-RECORDING-STREAM T T T)) (#() . #(#)) #<unused-arg> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> #<Closure Over Function (FLET #:CONTINUATION149 ) {58295A01}> ...) 14: ((METHOD INSPECTOR::INSPECT-OBJECT NIL (STANDARD-OBJECT T)) (#() . #(#)) #<unused-arg> #<INSPECTOR::INSPECTOR {589A0D6D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 15: ((METHOD INSPECTOR::INSPECT-OBJECT (:AROUND) (T T)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {58C640B9}> :PV-CELL (# . #) :NEXT-METHOD-CALL #S(PCL::FAST-METHOD-CALL :FUNCTION # :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (2)) #<INSPECTOR::INSPECTOR {589A0D6D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 16: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G6398 G6399 G6400)" #<unused-arg> #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> ...) 17: ((METHOD CLIM:REDISPLAY-FRAME-PANE (:AROUND) (CLIM:APPLICATION-FRAME T)) (#(21 21) . #()) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Closure Over Function "LAMBDA (.KEYARGS-START. .VALID-KEYS. G6398 G6399 G6400)" {5827E9B9}> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (2 . T)) #<INSPECTOR::INSPECTOR {58A0AD4D}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}> ...) 18: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:APPLICATION-PANE INSPECTOR::APP {58C93555}>) 19: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {58CAEC25}>) 20: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {58CAEB65}>) 21: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {58CAEC15}>) 22: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:SCROLLER-PANE "(Unnamed Pane)" {58CAEBE5}>) 23: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {58CAEBA5}>) 24: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM:VRACK-PANE "(Unnamed Pane)" {58C7CB6D}>) 25: ((METHOD CLIM:MAP-OVER-SHEETS NIL (T CLIM:BASIC-SHEET)) (#() . #(#)) #<unused-arg> #<Closure Over Function "DEFMETHOD REDISPLAY-FRAME-PANES (APPLICATION-FRAME)" {5806EC69}> #<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {581106D5}>) 26: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> NIL) 27: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4920)" #<unused-arg> #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> NIL) 28: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(20) . #()) #<unused-arg> #<INSPECTOR::INSPECTOR {58A0AD4D}> #<unused-arg>) 29: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(16 15) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11682759}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<INSPECTOR::INSPECTOR {58A0AD4D}> NIL) 30: (INSPECTOR::INSPECTOR #<INSPECTOR::INSPECTOR {589A0D6D}>) 31: (INTERACTIVE-EVAL (INSPECTOR::INSPECTOR (CLIM:MAKE-APPLICATION-FRAME 'INSPECTOR::INSPECTOR :OBJ 20))) 32: (LISP::%TOP-LEVEL) 33: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] --------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

3 2

[mcclim-devel] Adding the inspector application to McCLIM
by Robert Strandh 29 Jan '05

29 Jan '05

Hello, I am thinking of adding the rudimentary inspector application that I started writing as an application in the McCLIM tree. This would allow for other people to work on it without my having to apply patches, and of course it would be in a CVS tree. Any objections? -- 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

[mcclim-devel] Customizing interactor panes
by Peter Scott 27 Jan '05

27 Jan '05

I'm writing a GUI for a chemistry program with McCLIM. My problem is that I want the user to be able to type commands into the interactor pane in a special syntax, which I have written a parser for. For example, typing "Krypton" should call the Inspect Element command on the element called "Krypton". Typing "12 g C H4" should display how many moles of methane there are in 12 g. There's more like that, but I have the code to handle it all written---except for the code that hooks it into an interactor pane. There's a way of getting an interactor pane to differentiate between commands and s-expressions, for use in a listener, so I think that what I want is possible. Can anybody tell me how? -Peter

2 1

[mcclim-devel] patch to fix-acl.lisp
by Robert P. Goldman 27 Jan '05

27 Jan '05

I am not at all sure that this is The Right Thing, but I found that the fix-acl code that makes the clim-mop package didn't work for me, because it assumed that the right thing was to export all the external symbols from the CLOS package from CLIM-MOP. But some of the symbols we want seem to actually be in the COMMON-LISP package, instead. Anyway, here's a proposed fix. Please let me know if I've committed some solecism or other: 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 27 Jan 2005 21:56:35 -0000 @@ -5,15 +5,49 @@ ;;; 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 + #:validate-superclass + #:class-finalized-p + #:finalize-inheritance + #:class-prototype + #:class-name + #:class-precedence-list + #:class-direct-superclasses + #:class-direct-subclasses + #:class-direct-slots + "CLASS-SLOTS" + "SLOT-DEFINITION-NAME" + "SLOT-DEFINITION-TYPE" + "SLOT-DEFINITION-INITARGS" + "SLOT-DEFINITION-INITFUNCTION" + "SLOT-DEFINITION-INITFORM" + "SLOT-DEFINITION-READERS" + "SLOT-DEFINITION-WRITERS" + "SLOT-DEFINITION-ALLOCATION" + #:ensure-class + #:funcallable-standard-class + #:method-specializers + #:method-qualifiers + #:method-lambda-list + #:method-generic-function + #:generic-function-methods + #:generic-function-name + "GENERIC-FUNCTION-LAMBDA-LIST" + "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" + #:eql-specializer + #:eql-specializer-object + #:intern-eql-specializer + #:compute-applicable-methods-using-classes)) -(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)

1 0

[mcclim-devel] Show Command Table Listener command: error left-clicking field in ACCEPTING-VALUES dialog
by Paolo Amoroso 27 Jan '05

27 Jan '05

I have found a bug that can be reproduced this way. Run the CLIM Listener, enter the command "Show Command Table" and hit ENTER without providing an argument. An ACCEPTING-VALUES dialog prompting for the missing argument appears. Left-clicking the input field generates this error: No matching method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM:COMMAND-TABLE-NAME (1) {284FF439}>, when called with arguments (NIL). [Condition of type PCL::NO-APPLICABLE-METHOD-ERROR] Restarts: 0: [CONTINUE ] Retry call to :FUNCTION. 1: [ABORT ] Return to application command loop 2: [RETURN-TO-LISTENER] Return to listener. 3: [DESTROY ] Destroy the process Debug (type H for help) ("DEFMETHOD NO-APPLICABLE-METHOD (T)" #<unused-arg> #<unused-arg> #<STANDARD-GENERIC-FUNCTION CLIM:COMMAND-TABLE-NAME (1) {284FF439}> (NIL)) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:pcl/braid.lisp. 0] I use the latest McCLIM CVS sources with CMUCL Snapshot 2005-01 under Slackware Linux 10.0. Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 2

Re: [mcclim-devel] Confused by with-room-for-graphics
by pw＠snoopy.mv.com 27 Jan '05

27 Jan '05

> Can people with classic CLIM try this function in a listener (I believe > classic CLIM has such a thing) and try (draw-compass *standard-output* > 'symbol t) and > (draw-compass *standard-output* nil)? I would like to know if the > entire compass is visible and if it overlaps other graphics in the > output stream. I don't use a clim listener but I ran the test in an application-pane. The first case draws a compass with S on top and N at bottom. The second case draws it with N at top and S at bottom. Lines of text around calls appear as expected. Calling draw-compass after outputting some text but no terminating newline results with the compass drawn to the right of that text with the top of the N seemingly aligned with the top of the text string and the left of the W aligned with the end of text. I can try and get more precise alignment of the bounding box if you need that. Let me know if you really need the test run in a listener. I think there is one in the clim demo directory. Paul

2 1

Re: [mcclim-devel] Confused by with-room-for-graphics
by pw＠snoopy.mv.com 27 Jan '05

27 Jan '05

Calling draw-compass after outputting some text but no terminating newline > results with the compass drawn to the right of that text with the top of > the N seemingly aligned with the top of the text string and the left of > the W aligned with the end of text. To be clear, that last statement was about the second test, with the quadrant parameter NIL (North on top). Paul

1 0