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

[mcclim-devel] Re: [mcclim-cvs] CVS update: mcclim/Apps/Inspector/clouseau.asd mcclim/Apps/Inspector/inspector.lisp mcclim/Apps/Inspector/inspector.asd
by Paolo Amoroso 03 Feb '05

03 Feb '05

tmoore(a)common-lisp.net (Timothy Moore) writes: > Update of /project/mcclim/cvsroot/mcclim/Apps/Inspector [...] > Log Message: > Changed name of inspector system and package to clouseau in order to avoid conflicts with system inspectors. The sample form in Apps/Inspector/INSTALL should accordingly be changed to: (clouseau::inspector (clim:make-application-frame clouseau::inspector :obj 20)) Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

3 3

[mcclim-devel] Inspector patch: view cons cells as list
by Peter Wilson 02 Feb '05

02 Feb '05

Attached is an inspector patch which allows toggling the display of cons cells between the current graph view and a list view. It also makes the brief display of a character print the character.

2 2

[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] write privileges to McCLIM for Peter Scott
by Robert Strandh 02 Feb '05

02 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

[mcclim-devel] McCLIM inspector: how do I contribute?
by Robert Strandh 02 Feb '05

02 Feb '05

Hello, Peter Scott writes: > I've been working on improving the McCLIM inspector, and I've made > some substantial changes, like improved display of functions, strings, > structures, and generic functions, along with a bunch of added > comments and documentation. How can I contribute my changes to McCLIM? > > Do I get everything in order and then send patches? If so, to whom? Sure, if you can do patches, that would be good. Please send them to mcclim-devel(a)common-lisp.net. Thanks for contributing, -- 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. ---------------------------------------------------------------------

4 4

[mcclim-devel] CLIM-CLX::CLX-MEDIUM fell through ETYPECASE expression; error when starting Listener
by Paolo Amoroso 02 Feb '05

02 Feb '05

When I start the CLIM Listener by evaluating: (clim-listener:run-listener) I get the error with backtrace included below. I use McCLIM CVS sources updated a few minutes ago, with CMUCL Snapshot 2005-01 under Slackware Linux 10.0. Paolo ----------------------------------------------------------------------------- #<CLIM-CLX::CLX-MEDIUM {58FE5205}> fell through ETYPECASE expression. Wanted one of (STREAM (MEMBER T) STRING NULL). [Condition of type CONDITIONS::CASE-FAILURE] 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) (FORMAT #<CLIM-CLX::CLX-MEDIUM {58FE5205}> "~A" "CL-USER") Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/format.lisp. 0] backtrace 0: (FORMAT #<CLIM-CLX::CLX-MEDIUM {58FE5205}> "~A" "CL-USER") 1: ((METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL NIL (CLIM:MEDIUM T T)) (#(2 5 6 3 2 ...) . #(# #)) #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> ...) 2: ((FLET #:CONT0 CLIM-LISTENER::PRINT-LISTENER-PROMPT) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58EBB45D}>) 3: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<Closure Over Function (FLET #:CONT19 ) {58BAECD1}> ...) 4: ((FLET #:CONT25 ) #<CLIM:INTERACTOR-PANE CLIM-LISTENER::INTERACTOR {58EBB45D}>) 5: ((METHOD CLIM:INVOKE-WITH-TEXT-STYLE NIL (CLIM:MEDIUM T T)) #<unused-arg> #<unused-arg> #<CLIM-CLX::CLX-MEDIUM {58FE5205}> #<Closure Over Function (FLET #:CONT19 ) {58BAEB51}> ...) 6: ((METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#() . #(# # # # # ...)) #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 7: ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G4720)" #<unused-arg> #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> (:PROMPT CLIM-LISTENER::PRINT-LISTENER-PROMPT)) 8: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM:APPLICATION-FRAME)) (#(22) . #()) #<unused-arg> #<CLIM-LISTENER::LISTENER {580BE0DD}> #<unused-arg>) 9: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL NIL (CLIM-LISTENER::LISTENER)) #<unused-arg> #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {11686409}> :PV-CELL (# . #) :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<CLIM-LISTENER::LISTENER {580BE0DD}> (:LISTENER-FUNCALL NIL)) 10: ((METHOD CLIM:RUN-FRAME-TOP-LEVEL (:AROUND) (CLIM:APPLICATION-FRAME)) (#(18 17) . #(#)) #S(PCL::FAST-METHOD-CALL :FUNCTION #<Function # {583301C9}> :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 {580BE0DD}> (:LISTENER-FUNCALL NIL)) 11: (INTERACTIVE-EVAL (CLIM-LISTENER:RUN-LISTENER)) 12: (LISP::%TOP-LEVEL) 13: ((LABELS LISP::RESTART-LISP SAVE-LISP)) 0] ----------------------------------------------------------------------------- -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

2 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] McCLIM and OpenMCL
by rm＠seid-online.de 01 Feb '05

01 Feb '05

Hello list, i'm trying to run mcclim on my Linux/PPC with openmcl but when i load the system i get the following error as soon as i try to start the listener: ? (clim-listener:run-listener) > Error in process listener(2): Undefined function CLIM-INTERNALS::COMPUTE-INHERITED-KEYSTROKES called with arguments (#<STANDARD-COMMAND-TABLE CLIM-LISTENER::LISTENER #x35BBCD3E>) . > While executing: #<STANDARD-METHOD CLIM:READ-FRAME-COMMAND (CLIM-LISTENER::LISTENER)> > Type :GO to continue, :POP to abort. > If continued: Retry applying CLIM-INTERNALS::COMPUTE-INHERITED-KEYSTROKES to (#<STANDARD-COMMAND-TABLE CLIM-LISTENER::LISTENER #x35BBCD3E>). Type :? for other options. 1 > I tried to load mcclim both following the instructions in INSTALL.OPENMCL and using the new mcclim.asd (nice job, btw :). The same code (cvs checkout) seems to work fine (but slow) with recent versions of SBCL. Any hints? TIA Ralf Mattes

2 1

[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