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

Re: Fwd: Re: [mcclim-devel] Severe performance regression with latest CVS sources?
by Christophe Rhodes 22 Nov '06

22 Nov '06

Paolo Amoroso <amoroso(a)mclink.it> writes: >> twice that many hash tables with (make-hash-table)? The other thing > > CL-USER> (time (dotimes (i (* 2 824)) > (make-hash-table))) > ; Compiling LAMBDA NIL: > ; Compiling Top-Level Form: > > ; Evaluation took: > ; 6,648 CPU cycles It's elided the creation, I'm afraid. Can you do (defvar *foo*) (time (dotimes (i (* 2 824)) (setq *foo* (make-hash-table)))) ? > ; > NIL > CL-USER> > > >> to look at is for collisions in your hash tables; check the EDGES-FROM >> slot of something with a lot of direct subclasses, say STRUCTURE-CLASS >> or CONDITION or NUMBER, and see if all of the entries are in the same >> bucket of the hash table) > > I'm not sure I understand what you mean. I used the SLIME inspector > to inspect the output of, say, (find-class 'structure-class). I > include the output below, which does not seem to have any EDGES-FROM > slot. I think the edges-from should be in the graph node output record. I'm not entirely sure how to get at one of those, but you could start by inspecting clim:*application-frame* from the slime inspector, finding the listener interactor pane, finding its output history, and looking at the output records in there. > 588,259,376 | 1,111 | 15.158 | 0.01364 | 529,486 | CLIM-INTERNALS::LAYOUT-EDGE-1 > 1,111: #<Code Object "LAMBDA (FWRAPPER)" {5A58260F}> > 1,470,608 | 2,222 | 0.056 | 0.00003 | 662 | CLIM-INTERNALS::ENSURE-EDGE-RECORD > 1,111: #<Code Object "DEFUN LAYOUT-EDGE" {59718A4F}> > 1,111: #<Code Object "DEFUN LAYOUT-EDGE-1" {5A75B007}> Well, that's moderately conclusive: the cost seems to be in LAYOUT-EDGE-1, not in ENSURE-EDGE-RECORD. Which is weird, because I can't really see what LAYOUT-EDGE-1 is doing that is so ludicrously expensive. Can you do the same thing, but with the CLIM package profiled additionally? (And then maybe one with CLIM but not CLIM-INTERNALS profiled?) The first 10 or so entries in each profile will probably suffice. (Maybe CLEAR-OUTPUT-RECORD is expensive?) Cheers, Christophe

3 3

[mcclim-devel] stupid newbie question re: initializing text-field
by John Morrison 11 Nov '06

11 Nov '06

Sorry for what might be either a Stupid Newbie Question or Pilot Error: I am trying to implement a frame that allows "form-like" pop-editing of a CL data structure which include strings. How can I initialize the text fields and text editors? If I do what seems like the recommended thing according to the Harlequin CLIM manual -- a :before method on run-frame-top-level, it seems like maybe some goatee buffer pointer is not initialized until after the primary run-frame-top-level method gets called. (I made my own :around run-frame-top-level method, and the setf gadget-value, in fact, succeeds after the (call-next-method) has run -- but of course that's a little late for me.) The attached lisp program seems to exhibit the symptoms: the "test1" command works as expected and sets the value, but the :before method does not seem to. I only tried this under Linux (CentOS 4.4) on a relatively recent SBCL (0.9.14 RPM), using a relatively recent McCLIM (CVS updated approx Sept 15th). If anybody would please suggest further experiments, I would carry them out post-haste. Sorry if this is a stupid mechanical question: also, is there a stylistically better way to do this? Thanks, -jm -- ==== John Morrison ==== MAK Technologies Inc. ==== 68 Moulton Street, Cambridge, MA 02138 ==== http://www.mak.com/ ==== vox:617-876-8085 x115 ==== fax:617-876-9208 ==== jm(a)mak.com

4 5

[mcclim-devel] Question about source tarball
by Stefan Lang 30 Oct '06

30 Oct '06

Hello all, The source tarball linked from http://common-lisp.net/project/mcclim/ contains only the directory "mcclim/cvsroot" including CVS files and subdirectories. I.e. mcclim/ - cvsroot/ - CVSROOT/ - Emptydir/ - checkoutlist - checkoutlist,v . . . - mcclim - Apps - Debugger - clim-debugger.lisp,v . . . . . . Is that intended? Or is the tarball build broken? Or am I missing something? Thanks, Stefan

4 5

[mcclim-devel] small Allegro issues
by Willem Broekema 29 Oct '06

29 Oct '06

Hi, There are some issues with current CVS version that make it not work with Allegro 8 (Ansi mode) yet: - (load "..") inside (eval-when (compile load eval) ..) fails, if current directory is not the McClim root directory (as is usually happens if McClim is loaded using asdf). This can be fixed by binding *default-pathname-defaults* as in the patch below, althogh I'm not sure this is the right solution. - In port.lisp there is (in a #+allegro piece) reference to *x-tcp-port* where probably xlib::*x-tcp-port* is meant (which has value 6000). With these changes McClim compiles (Allegro 8, Ansi Mode, Mac OS X). As I have yet to configure X11 on this Mac, I can't check whether the demos work. - Willem - - - fix loading of files in eval-when - - - banaan:~/dev/mcclim willem$ cvs diff -c *.lisp Index: commands.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/commands.lisp,v retrieving revision 1.64 diff -c -r1.64 commands.lisp *** commands.lisp 17 Sep 2006 20:34:39 -0000 1.64 --- commands.lisp 28 Oct 2006 22:46:30 -0000 *************** *** 21,26 **** --- 21,36 ---- (in-package :clim-internals) + (eval-when (compile load eval) + #+allegro + (let ((*default-pathname-defaults* (or *compile-file-truename* *load-truename*))) + (load "presentations") + (load "presentation-defs")) + #-allegro + (progn + (load "presentations") + (load "presentation-defs"))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Command tables Index: package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/package.lisp,v retrieving revision 1.55 diff -c -r1.55 package.lisp *** package.lisp 29 Jun 2006 08:16:02 -0000 1.55 --- package.lisp 28 Oct 2006 22:46:32 -0000 *************** *** 2,7 **** --- 2,14 ---- (in-package :common-lisp-user) + (eval-when (compile load eval) + #+allegro + (let ((*default-pathname-defaults* (or *compile-file-truename* *load-truename*))) + (load "patch")) + #-allegro + (load "patch")) + ;;; ;;; CLIM-LISP ;;; - - - fix socket port number - - - banaan:~/dev/mcclim/Backends/CLX willem$ cvs diff -c cvs diff: Diffing . Index: port.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v retrieving revision 1.122 diff -c -r1.122 port.lisp *** port.lisp 23 Mar 2006 08:45:26 -0000 1.122 --- port.lisp 28 Oct 2006 23:02:36 -0000 *************** *** 1428,1434 **** :remote-filename (format nil "/tmp/.X11-unix/X~D" display) :format :binary) (socket:make-socket :remote-host (string host) ! :remote-port (+ *x-tcp-port* display) :format :binary)))) (if (streamp stream) stream --- 1428,1434 ---- :remote-filename (format nil "/tmp/.X11-unix/X~D" display) :format :binary) (socket:make-socket :remote-host (string host) ! :remote-port (+ xlib::*x-tcp-port* display) :format :binary)))) (if (streamp stream) stream

2 1

[mcclim-devel] Patch: Update support for the Scieneer CL.
by Douglas Crosher 29 Oct '06

29 Oct '06

* Update support for the Scieneer CL. Index: Lisp-Dep/fix-scl.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/fix-scl.lisp,v retrieving revision 1.1 diff -u -u -r1.1 fix-scl.lisp --- Lisp-Dep/fix-scl.lisp 15 Mar 2006 22:56:55 -0000 1.1 +++ Lisp-Dep/fix-scl.lisp 18 Oct 2006 00:14:17 -0000 @@ -128,14 +128,12 @@ (defpackage :clim-mop - (:use :common-lisp :clos)) + (:use :clos)) (eval-when (:compile-toplevel :load-toplevel :execute) (loop for sym being the symbols of :clim-mop do (export sym :clim-mop))) -(in-package :clim-mop) - (eval-when (:compile-toplevel :load-toplevel :execute) (export '(clim-lisp-patch::defconstant clim-lisp-patch::defclass) Index: Experimental/freetype/freetype-package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Experimental/freetype/freetype-package.lisp,v retrieving revision 1.2 diff -u -u -r1.2 freetype-package.lisp --- Experimental/freetype/freetype-package.lisp 5 Jun 2005 20:50:29 -0000 1.2 +++ Experimental/freetype/freetype-package.lisp 18 Oct 2006 00:14:16 -0000 @@ -1,6 +1,6 @@ (defpackage :mcclim-freetype (:use :climi :clim :clim-lisp) (:export :*freetype-font-path*) - (:import-from #+cmucl :alien + (:import-from #+(or cmu scl) :alien #+sbcl :sb-alien :slot :make-alien :alien :deref)) Index: Backends/gtkairo/cairo-ffi.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo-ffi.lisp,v retrieving revision 1.4 diff -u -u -r1.4 cairo-ffi.lisp --- Backends/gtkairo/cairo-ffi.lisp 13 May 2006 19:37:29 -0000 1.4 +++ Backends/gtkairo/cairo-ffi.lisp 18 Oct 2006 00:14:12 -0000 @@ -26,7 +26,12 @@ (defmacro def-cairo-fun (name rtype &rest args) - (let* ((str (string-upcase name)) + (let* (#-scl + (str (string-upcase name)) + #+scl + (str (if (eq ext:*case-mode* :upper) + (string-upcase name) + (string-downcase name))) (actual (intern (concatenate 'string "%-" str) :clim-gtkairo)) (wrapper (intern str :clim-gtkairo)) (argnames (mapcar #'car args))) @@ -36,8 +41,12 @@ ,@args) (defun ,wrapper ,argnames (multiple-value-prog1 - (,actual ,@argnames) - (let ((status (cairo_status ,(car argnames)))) + #-scl (,actual ,@argnames) + #+scl + (ext:with-float-traps-masked (:underflow :overflow :inexact + :divide-by-zero :invalid) + (,actual ,@argnames)) + (let ((status (cairo_status ,(car argnames)))) (unless (eq status :success) (error "~A returned with status ~A" ,name status)))))))) Index: Apps/Scigraph/dwim/dwim-system.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/dwim-system.lisp,v retrieving revision 1.2 diff -u -u -r1.2 dwim-system.lisp --- Apps/Scigraph/dwim/dwim-system.lisp 3 Nov 2003 14:02:28 -0000 1.2 +++ Apps/Scigraph/dwim/dwim-system.lisp 18 Oct 2006 00:14:08 -0000 @@ -100,6 +100,7 @@ #+(or allegro sbcl) #.(if (fboundp 'compile-file-pathname) (pathname-type (compile-file-pathname "foo")) "fasl") + #+scl (pathname-type (compile-file-pathname "foo")) #+lucid (car lcl:*load-binary-pathname-types*) #+(and (not genera) (not allegro) @@ -124,7 +125,8 @@ #+GENERA "GENERA" #+LUCID "LUCID" #+ALLEGRO "ALLEGRO" - #+SBCL "SBCL") + #+SBCL "SBCL" + #+scl "SCL") (GUI #+(and mcl (not clim)) "MAC" #+(and genera (not clim)) "DW" Index: Apps/Scigraph/dwim/extensions.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/extensions.lisp,v retrieving revision 1.6 diff -u -u -r1.6 extensions.lisp --- Apps/Scigraph/dwim/extensions.lisp 23 Mar 2006 10:09:50 -0000 1.6 +++ Apps/Scigraph/dwim/extensions.lisp 18 Oct 2006 00:14:08 -0000 @@ -105,7 +105,9 @@ (:genera (let ((symbol (intern string :scl))) (and (boundp symbol) (symbol-value symbol)))) (:openmcl (ccl::getenv string)) - (:sbcl (sb-ext:posix-getenv string)))) + (:sbcl (sb-ext:posix-getenv string)) + (:scl (cdr (assoc string ext:*environment-list* :test #'string=))) + )) #+allegro ;;>> Allegro 4.2 supports SYSTEM:GETENV. How do I set an environment variable? @@ -328,7 +330,8 @@ ((or :allegro :sbcl) #.(if (fboundp 'compile-file-pathname) (pathname-type (compile-file-pathname "foo")) - "fasl")) + "fasl")) + (:scl (pathname-type (compile-file-pathname "foo"))) (:lucid (car lcl:*load-binary-pathname-types*)) (:mcl #.(pathname-type ccl:*.fasl-pathname*)) )) Index: Apps/Scigraph/dwim/load-dwim.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/load-dwim.lisp,v retrieving revision 1.3 diff -u -u -r1.3 load-dwim.lisp --- Apps/Scigraph/dwim/load-dwim.lisp 3 Nov 2003 14:02:28 -0000 1.3 +++ Apps/Scigraph/dwim/load-dwim.lisp 18 Oct 2006 00:14:08 -0000 @@ -64,7 +64,8 @@ #+genera si:*default-binary-file-type* #+(or allegro sbcl) #.(if (fboundp 'compile-file-pathname) (pathname-type (compile-file-pathname "foo")) - "fasl") + "fasl") + #+scl (pathname-type (compile-file-pathname "foo")) #+lucid (car lcl:*load-binary-pathname-types*) #+(and (not genera) (not allegro) @@ -88,7 +89,8 @@ #+LUCID "LUCID" #+ALLEGRO "ALLEGRO" #+OPENMCL "OPENMCL" - #+SBCL "SBCL") + #+SBCL "SBCL" + #+scl "SCL") (GUI #+(and mcl (not clim)) "MAC" #+(and genera (not clim)) "DW" Index: Apps/Scigraph/dwim/macros.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Scigraph/dwim/macros.lisp,v retrieving revision 1.7 diff -u -u -r1.7 macros.lisp --- Apps/Scigraph/dwim/macros.lisp 8 Aug 2004 21:11:17 -0000 1.7 +++ Apps/Scigraph/dwim/macros.lisp 18 Oct 2006 00:14:08 -0000 @@ -82,7 +82,7 @@ (mapcar #'(lambda (v) (if (symbolp v) v (car v))) let-vars))) `(let ,forms (declare (dynamic-extent ,@(get-vars forms))) ,@body))) -#-(or openmcl-native-threads sb-thread) +#-(or openmcl-native-threads sb-thread scl) (defmacro without-interrupts (&body body) #FEATURE-CASE ((:genera `(scl::without-interrupts ,@body)) @@ -90,7 +90,7 @@ (:allegro `(excl:without-interrupts ,@body)) (:mcl `(ccl:without-interrupts ,@body)))) -#+(or openmcl-native-threads sb-thread) +#+(or openmcl-native-threads sb-thread scl) (progn (defparameter *dwim-giant-lock* (clim-sys:make-lock "dwim giant lock")) (defmacro without-interrupts (&body body)

2 2

[mcclim-devel] Platform support / testing status and reports
by Andreas Fuchs 28 Oct '06

28 Oct '06

I'd like to try out an experiment this release: There's a mcclim cliki page at http://mcclim.cliki.net/0.9.3%20Status, where I would like you, if you test, to put your results. The format is very simple for now; I hope it will work out for the gigantic mcclim community (: This should allow me to write more accurate release notes and allow volunteers to better coordinate their efforts. Everybody wins! (That's the theory. Let's see how well it works) Cheers, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

1 0

[mcclim-devel] Ok, release plans. Freezing...
by Andreas Fuchs 28 Oct '06

28 Oct '06

Hi there, time for a new release. To give myself less wiggle room, we freeze now, and release on November the 2nd. The release code name will be "All Souls' Day". You read that one correctly. Freeze period starts now. Release on 2006-11-02. (~20:00) 120 hours to go. I think we all have some testing to do now. (-8 Cheers, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

1 0

[mcclim-devel] Patch: Rename key name symbols for support of lower case mode CL variants.
by Douglas Crosher 18 Oct '06

18 Oct '06

* Rename key name symbols for support of lower case mode CL variants.

2 2

[mcclim-devel] Patch: Improve support for lower case mode CL variants.
by Douglas Crosher 18 Oct '06

18 Oct '06

* Improve support for lower case mode CL variants.

1 0

[mcclim-devel] Patch: Color name symbol case.
by Douglas Crosher 18 Oct '06

18 Oct '06

* Adjust some of the color names to support lower case CL variants. Note that the names used for colors could use some review. Many colors are named using C style conventions such as +RoyalBlue3+, but this is exported as +royalblue3+ which is no different under standard CL but this does make a difference on a case sensitive CL variant. Perhaps renaming these all to use CL conventions such as +royal-blue3+ would be appropriate? The attached patch makes minimal additions to the color names to get the code and examples working. Regards Douglas Crosher Index: X11-colors.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/X11-colors.lisp,v retrieving revision 1.2 diff -u -u -r1.2 X11-colors.lisp --- X11-colors.lisp 21 Mar 2003 21:36:58 -0000 1.2 +++ X11-colors.lisp 18 Oct 2006 00:13:47 -0000 @@ -303,6 +303,7 @@ (defconstant +RoyalBlue1+ (make-named-color "RoyalBlue1" 0.2824 0.4627 1.0000)) (defconstant +RoyalBlue2+ (make-named-color "RoyalBlue2" 0.2627 0.4314 0.9333)) (defconstant +RoyalBlue3+ (make-named-color "RoyalBlue3" 0.2275 0.3725 0.8039)) +(defconstant +royal-blue4+ (make-named-color "royal-blue4" 0.1529 0.2510 0.5451)) (defconstant +RoyalBlue4+ (make-named-color "RoyalBlue4" 0.1529 0.2510 0.5451)) (defconstant +blue1+ (make-named-color "blue1" 0.0000 0.0000 1.0000)) (defconstant +blue2+ (make-named-color "blue2" 0.0000 0.0000 0.9333)) @@ -347,6 +348,7 @@ (defconstant +PaleTurquoise1+ (make-named-color "PaleTurquoise1" 0.7333 1.0000 1.0000)) (defconstant +PaleTurquoise2+ (make-named-color "PaleTurquoise2" 0.6824 0.9333 0.9333)) (defconstant +PaleTurquoise3+ (make-named-color "PaleTurquoise3" 0.5882 0.8039 0.8039)) +(defconstant +pale-turquoise4+ (make-named-color "pale-turquoise4" 0.4000 0.5451 0.5451)) (defconstant +PaleTurquoise4+ (make-named-color "PaleTurquoise4" 0.4000 0.5451 0.5451)) (defconstant +CadetBlue1+ (make-named-color "CadetBlue1" 0.5961 0.9608 1.0000)) (defconstant +CadetBlue2+ (make-named-color "CadetBlue2" 0.5569 0.8980 0.9333)) @@ -395,6 +397,7 @@ (defconstant +OliveDrab1+ (make-named-color "OliveDrab1" 0.7529 1.0000 0.2431)) (defconstant +OliveDrab2+ (make-named-color "OliveDrab2" 0.7020 0.9333 0.2275)) (defconstant +OliveDrab3+ (make-named-color "OliveDrab3" 0.6039 0.8039 0.1961)) +(defconstant +olive-drab4+ (make-named-color "olive-drab4" 0.4118 0.5451 0.1333)) (defconstant +OliveDrab4+ (make-named-color "OliveDrab4" 0.4118 0.5451 0.1333)) (defconstant +DarkOliveGreen1+ (make-named-color "DarkOliveGreen1" 0.7922 1.0000 0.4392)) (defconstant +DarkOliveGreen2+ (make-named-color "DarkOliveGreen2" 0.7373 0.9333 0.4078)) Index: gadgets.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/gadgets.lisp,v retrieving revision 1.100 diff -u -u -r1.100 gadgets.lisp --- gadgets.lisp 17 Apr 2006 18:37:21 -0000 1.100 +++ gadgets.lisp 18 Oct 2006 00:13:51 -0000 @@ -1021,8 +1021,8 @@ (defmethod effective-gadget-input-area-color ((gadget basic-gadget)) (if (gadget-active-p gadget) - +lemonchiffon+ - (compose-over (compose-in +lemonchiffon+ (make-opacity .5)) + +lemon-chiffon+ + (compose-over (compose-in +lemon-chiffon+ (make-opacity .5)) (pane-background gadget)))) ;;; ------------------------------------------------------------------------------------------ @@ -1927,7 +1927,7 @@ standard-sheet-input-mixin ;; Hmm.. value-changed-repaint-mixin mouse-wheel-scroll-mixin) - ((highlight-ink :initform +royalblue4+ + ((highlight-ink :initform +royal-blue4+ :initarg :highlight-ink :reader list-pane-highlight-ink) (item-strings :initform nil Index: package.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/package.lisp,v retrieving revision 1.55 diff -u -u -r1.55 package.lisp --- package.lisp 29 Jun 2006 08:16:02 -0000 1.55 +++ package.lisp 18 Oct 2006 00:13:55 -0000 @@ -1716,7 +1716,8 @@ #:+mistyrose1+ #:+mistyrose2+ #:+mistyrose3+ #:+mistyrose4+ #:+azure1+ #:+azure2+ #:+azure3+ #:+azure4+ #:+slateblue1+ #:+slateblue2+ #:+slateblue3+ #:+slateblue4+ - #:+royalblue1+ #:+royalblue2+ #:+royalblue3+ #:+royalblue4+ + #:+royalblue1+ #:+royalblue2+ #:+royalblue3+ + #:+royal-blue4+ #:+royalblue4+ #:+blue1+ #:+blue2+ #:+blue3+ #:+blue4+ #:+dodgerblue1+ #:+dodgerblue2+ #:+dodgerblue3+ #:+dodgerblue4+ #:+steelblue1+ #:+steelblue2+ #:+steelblue3+ #:+steelblue4+ @@ -1727,7 +1728,8 @@ #:+lightsteelblue1+ #:+lightsteelblue2+ #:+lightsteelblue3+ #:+lightsteelblue4+ #:+lightblue1+ #:+lightblue2+ #:+lightblue3+ #:+lightblue4+ #:+lightcyan1+ #:+lightcyan2+ #:+lightcyan3+ #:+lightcyan4+ - #:+paleturquoise1+ #:+paleturquoise2+ #:+paleturquoise3+ #:+paleturquoise4+ + #:+paleturquoise1+ #:+paleturquoise2+ #:+paleturquoise3+ + #:+pale-turquoise4+ #:+paleturquoise4+ #:+cadetblue1+ #:+cadetblue2+ #:+cadetblue3+ #:+cadetblue4+ #:+turquoise1+ #:+turquoise2+ #:+turquoise3+ #:+turquoise4+ #:+cyan1+ #:+cyan2+ #:+cyan3+ #:+cyan4+ @@ -1739,7 +1741,8 @@ #:+springgreen1+ #:+springgreen2+ #:+springgreen3+ #:+springgreen4+ #:+green1+ #:+green2+ #:+green3+ #:+green4+ #:+chartreuse1+ #:+chartreuse2+ #:+chartreuse3+ #:+chartreuse4+ - #:+olivedrab1+ #:+olivedrab2+ #:+olivedrab3+ #:+olivedrab4+ + #:+olivedrab1+ #:+olivedrab2+ #:+olivedrab3+ #:+olive-drab4+ + #:+olivedrab4+ #:+darkolivegreen1+ #:+darkolivegreen2+ #:+darkolivegreen3+ #:+darkolivegreen4+ #:+khaki1+ #:+khaki2+ #:+khaki3+ #:+khaki4+ #:+lightgoldenrod1+ #:+lightgoldenrod2+ #:+lightgoldenrod3+ #:+lightgoldenrod4+ Index: Apps/Listener/dev-commands.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp,v retrieving revision 1.35 diff -u -u -r1.35 dev-commands.lisp --- Apps/Listener/dev-commands.lisp 10 Apr 2006 21:24:53 -0000 1.35 +++ Apps/Listener/dev-commands.lisp 18 Oct 2006 00:14:06 -0000 @@ -313,7 +313,7 @@ (princ (symbol-name symbol) stream))) (when (boundp symbol) (format stream " = ") - (with-drawing-options (stream :ink +olivedrab+ ;; XXX + (with-drawing-options (stream :ink +olive-drab+ ;; XXX :text-style (make-text-style :fix :roman :small)) (let ((object (symbol-value symbol))) (present object (presentation-type-of object) :stream stream))))))) @@ -1444,7 +1444,7 @@ (t (present object)))) (defun display-evalues (values) - (with-drawing-options (t :ink +olivedrab+) + (with-drawing-options (t :ink +olive-drab+) (cond ((null values) (format t "No values.~%")) ((= 1 (length values)) @@ -1453,7 +1453,7 @@ (t (do ((i 0 (1+ i)) (item values (rest item))) ((null item)) - (with-drawing-options (t :ink +limegreen+) + (with-drawing-options (t :ink +lime-green+) (with-text-style (t (make-text-style nil :italic :small)) (format t "~A " i))) (hackish-present (first item)) Index: Apps/Listener/listener.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp,v retrieving revision 1.26 diff -u -u -r1.26 listener.lisp --- Apps/Listener/listener.lisp 10 May 2006 11:19:33 -0000 1.26 +++ Apps/Listener/listener.lisp 18 Oct 2006 00:14:07 -0000 @@ -40,7 +40,7 @@ (defun print-package-name (stream) (let ((foo (package-name *package*))) - (with-drawing-options (stream :ink +royalblue+) + (with-drawing-options (stream :ink +royal-blue+) (format stream "~A" (reduce (lambda (&optional (a foo) (b foo)) (if (< (length a) (length b)) a b)) (package-nicknames *package*)))))) Index: Examples/demodemo.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Examples/demodemo.lisp,v retrieving revision 1.13 diff -u -u -r1.13 demodemo.lisp --- Examples/demodemo.lisp 3 Jul 2006 04:58:41 -0000 1.13 +++ Examples/demodemo.lisp 18 Oct 2006 00:14:14 -0000 @@ -115,8 +115,8 @@ (labelling (:label "Some Label" :align-x ax :label-alignment ay - :foreground +WHITE+ - :background +PALETURQUOISE4+ + :foreground +white+ + :background +pale-turquoise4+ :text-style (make-text-style :sans-serif :roman :normal)) (make-pane 'push-button-pane :label (format nil "~S" (list ax ay)) :text-style (make-text-style :sans-serif :roman :normal) @@ -127,8 +127,8 @@ (labelling (:label (format nil "~(~S~)" (list ax ay)) :align-x ax :label-alignment ay - :foreground +WHITE+ - :background +PALETURQUOISE4+ + :foreground +white+ + :background +pale-turquoise4+ :text-style (make-text-style :sans-serif :roman :normal)) #+nil (make-pane 'push-button-pane :label Index: Examples/gadget-test.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Examples/gadget-test.lisp,v retrieving revision 1.13 diff -u -u -r1.13 gadget-test.lisp --- Examples/gadget-test.lisp 23 Apr 2006 15:42:42 -0000 1.13 +++ Examples/gadget-test.lisp 18 Oct 2006 00:14:14 -0000 @@ -112,7 +112,7 @@ ("View" :menu view-menu) ("Search" :menu search-menu))) (:panes -; (raised (raising (:border-width 3 :background +Gray83+) +; (raised (raising (:border-width 3 :background +gray83+) ; (make-pane 'check-box :choices '("First" "Second" "Third")))) (tf1 :push-button :text-style (make-text-style :fix :roman 24) @@ -160,7 +160,7 @@ :current-color +black+ :value 0) (radar (make-pane 'radar-pane :name 'radar)) - (push-btn (lowering (:border-width 3 :background +Gray83+) + (push-btn (lowering (:border-width 3 :background +gray83+) (horizontally () (push-button :name "Radiate" @@ -172,7 +172,7 @@ :label "No, Push Me") (push-button :label "Me!")))) - (table (lowering (:border-width 3 :background +Gray83+) + (table (lowering (:border-width 3 :background +gray83+) (tabling (:height 50) (list (push-button :label "A") (push-button :label "B")) (list (push-button :label "C") (push-button :label "D")) @@ -183,8 +183,8 @@ :normal +red+ :highlighted +red+ :pushed-and-highlighted +red+) - (scroll (raising (:border-width 1 :background +Gray83+) - (scrolling (:background +Gray83+ :width 100 :height 100) + (scroll (raising (:border-width 1 :background +gray83+) + (scrolling (:background +gray83+ :width 100 :height 100) (horizontally () (vertically () (push-button :label "This is a button") @@ -207,7 +207,7 @@ (clim:radio-box-current-selection "First") "Second" "Third"))) (:layouts (default - (raising (:border-width 5 :background +Gray83+) + (raising (:border-width 5 :background +gray83+) (horizontally () (vertically () (horizontally () Index: Examples/method-browser.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Examples/method-browser.lisp,v retrieving revision 1.3 diff -u -u -r1.3 method-browser.lisp --- Examples/method-browser.lisp 29 Mar 2006 09:36:30 -0000 1.3 +++ Examples/method-browser.lisp 18 Oct 2006 00:14:14 -0000 @@ -335,7 +337,7 @@ (if (not (typep *application-frame* 'method-browser)) +foreground-ink+ (if (member spec (arg-types *application-frame*)) - +OliveDrab4+ + +olive-drab4+ +grey18+))) (defparameter *column-header-ink* +gray50+) Index: Looks/pixie.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp,v retrieving revision 1.16 diff -u -u -r1.16 pixie.lisp --- Looks/pixie.lisp 29 Mar 2006 10:43:50 -0000 1.16 +++ Looks/pixie.lisp 18 Oct 2006 00:14:18 -0000 @@ -662,7 +666,7 @@ (with-special-choices (pane) (let* ((region (sheet-region pane)) (frame (polygon-points (bounding-rectangle region)))) - (draw-polygon pane frame :ink +Blue+ :filled t) + (draw-polygon pane frame :ink +blue+ :filled t) (draw-bordered-polygon pane frame :style :outset :border-width 1)))) (defmethod compose-space ((gadget pixie-menu-bar-pane) &key width height)

1 0

[mcclim-devel] Patch: add the stopwatch example.
by Douglas Crosher 18 Oct '06

18 Oct '06

* defsystem :clim-examples: add the stopwatch example. Index: mcclim.asd =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/mcclim.asd,v retrieving revision 1.23 diff -u -u -r1.23 mcclim.asd --- mcclim.asd 3 Jul 2006 04:58:41 -0000 1.23 +++ mcclim.asd 18 Oct 2006 00:13:54 -0000 @@ -342,6 +342,7 @@ (:file "gadget-test") (:file "accepting-values") (:file "method-browser") + (:file "stopwatch") (:file "dragndrop-translator") (:file "draggable-graph") (:file "text-size-test")

1 0

[mcclim-devel] Patch: Fix system pathnames.
by Douglas Crosher 18 Oct '06

18 Oct '06

* defsystem :clouseau: avoid pathname directory namestrings in file component names; reworking to be more portable. Index: mcclim.asd =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/mcclim.asd,v retrieving revision 1.23 diff -u -u -r1.23 mcclim.asd --- mcclim.asd 3 Jul 2006 04:58:41 -0000 1.23 +++ mcclim.asd 18 Oct 2006 00:13:54 -0000 @@ -417,9 +418,12 @@ :depends-on (:mcclim) :serial t :components - ((:file "Apps/Inspector/package") - (:file "Apps/Inspector/disassembly") - (:file "Apps/Inspector/inspector"))) + ((:module "Apps/Inspector" + :pathname #.(make-pathname :directory '(:relative "Apps" "Inspector")) + :components + ((:file "package") + (:file "disassembly") + (:file "inspector"))))) (defmethod perform :after ((op load-op) (c (eql (find-system :clim)))) (pushnew :clim *features*)

1 0

[mcclim-devel] draw-arrow with transformation, freetype with fix(ed) fonts
by Luigi Panzeri 14 Oct '06

14 Oct '06

Hi all (and good holiday if you are in vacation), i noted two strange behavior, but I am not a clim expert but so sorry if i miss something. 1) draw-arrow* use the line-style-thickness to calculate distances in order to draw the head, but that thickness is not transformed with the current user transformation. So for example: (in-package :clim-user) (define-application-frame foo () () (:panes (app :application :width 1000 :height 1000 :display-function #'display)) (:layouts (default (vertically () app)))) (defun display (frame stream) (declare (ignore frame)) (with-first-quadrant-coordinates (stream 0 1000) (with-scaling (stream 250 250) ;; so now it is 4x4 (draw-line* stream 2 1 2 2.5) (draw-arrow* stream 1 1 1 2.5 :head-length 0.1 :head-width 0.1)))) (run-frame-top-level (make-application-frame 'foo)) i draw a 4x4 grid drawing a line and a parallel arrow (of the same length), but the two drawing is not of the same length. I tried to fix that (see first attachment). 2) in make-text-style i can specify the font family with :fix or :fixed for fixed fonts, but the freetype experimental extension accept only :fix (that is standard-compliant afaik). Do you have suggestion for the delivery of mcclim application (e.g. to avoid the debugger et similia)?

2 1

[mcclim-devel] braindump: TODOs before a new mcclim release
by Andreas Fuchs 10 Oct '06

10 Oct '06

Okay, I'd like to do a new release, but with the beginning of the semester, I could use a bit of assistance with a few things. Here are the release-critical things that I won't be able to do alone (ordered by severity): * Fix clisp build failure: message "pointer-butt missing (mcclim 0.9.2)" by Eric Y. Kow, 2006-06-09: I lack a clisp setup. * Test current CVS on non-SBCL and non-ACL. CMUCL is a good candidate (: (Of course, testing on SBCL and ACL is always welcome, too!) The rest looks pretty ok, AFAICT. But if you want to help with any of the following, you're welcome: * Fix the X server memory/resource leak when using double-buffering and mcclim-freetype. * Find a way to make mcclim asdf-installable that makes all contribs/Apps/Experimental systems available right away. * Improve performance in incremental redisplay (; Thanks!, -- Andreas Fuchs, (http://|im:asf@|mailto:asf@)boinkor.net, antifuchs

1 0