gmane.lisp.mcclim.cvs

CVS mcclim

CVS User afuchs — 2011-07-28T03:56:49

Update of /project/mcclim/cvsroot/mcclim
In directory tiger.common-lisp.net:/tmp/cvs-serv3961

Modified Files:
clim-listener.asd 
Log Message:
Fix a misdeclared dependency in clim-listener.asd

asdf.lisp requires things from file-types.lisp.
Discovered by Zach Beane and Bart Botta.


--- /project/mcclim/cvsroot/mcclim/clim-listener.asd2009/06/07 08:48:001.6
+++ /project/mcclim/cvsroot/mcclim/clim-listener.asd2011/07/28 03:56:491.7
< at >< at > -16,7 +16,7 < at >< at >
                (:file "util" :depends-on ("package"))
                (:file "icons" :depends-on ("package" "util"))
                (:file "file-types" :depends-on ("package" "icons" "util"))
-               (:file "asdf" :depends-on ("package"))
+               (:file "asdf" :depends-on ("file-types"))
                (:file "dev-commands" 
                       :depends-on ("package" "appearance" "icons" "file-types" "util" "asdf"))
                (:file "wholine" :depends-on ("package" "dev-commands" "util"))

CVS mcclim/Experimental/freetype

ahefner — 2010-01-31T15:51:54

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype
In directory cl-net:/tmp/cvs-serv1616/freetype

Modified Files:
xrender-fonts.lisp 
Log Message:
Fall back to DejaVu instead of Vera, and fix serif italic filename.

It's not clear to me whether there used to be a serif oblique font which
has been superceded by the italic version, or whether the DejaVu filenames
have been broken since their inception and just were never fully tested.
Hopefully the latter.


--- /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp2009/06/14 18:37:391.2
+++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp2010/01/31 15:51:531.3
< at >< at > -346,7 +346,7 < at >< at >
     ((:FIX (:ITALIC :BOLD)) . "DejaVuSansMono-BoldOblique.ttf") 
     ((:FIX :BOLD) . "DejaVuSansMono-Bold.ttf")
     ((:SERIF :ROMAN) . "DejaVuSerif.ttf") 
-    ((:SERIF :ITALIC) . "DejaVuSerif-Oblique.ttf")
+    ((:SERIF :ITALIC) . "DejaVuSerif-Italic.ttf")
     ((:SERIF (:BOLD :ITALIC)) . "DejaVuSerif-BoldOblique.ttf")

CVS mcclim

rstrandh — 2009-12-16T13:15:39

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv9620

Modified Files:
presentations.lisp 
Log Message:
Fixed a typo. 

Thanks to Stas Boukarev.


--- /project/mcclim/cvsroot/mcclim/presentations.lisp2008/02/01 17:02:551.85
+++ /project/mcclim/cvsroot/mcclim/presentations.lisp2009/12/16 13:15:381.86
< at >< at > -71,7 +71,7 < at >< at >
 `(flet ((,continuation ()
   ,< at >decls
   ,< at >with-body))
-   (declare (dynamic-extent #'continuation))
+   (declare (dynamic-extent #',continuation))
    (if (and (output-recording-stream-p ,stream)
     *allow-sensitive-inferiors*)
        (with-new-output-record

CVS mcclim/Examples

rstrandh — 2009-12-08T05:26:29

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory cl-net:/tmp/cvs-serv32548

Modified Files:
font-selector.lisp 
Log Message:
Fixed the font-selector demo so that it doesn't crash.  The problem
was that when the family changes, it tries to initialize the face to
one with the same name as the selected one in the old family.  When
there is no such face in the new family, it got initialized to nil. 

However, the demo is still not working properly.  Sometimes a
displayed face becomes non-clickable, and sometimes two faces are
highlighted simultaneously.  



--- /project/mcclim/cvsroot/mcclim/Examples/font-selector.lisp2008/01/21 01:08:581.2
+++ /project/mcclim/cvsroot/mcclim/Examples/font-selector.lisp2009/12/08 05:26:291.3
< at >< at > -99,10 +99,11 < at >< at >
     (reset-list-pane face-list new-faces)
     (when old-face
       (setf (gadget-value face-list :invoke-callback t)
-    (find (font-face-name old-face)
-  new-faces
-  :key #'font-face-name
-  :test #'equal)))))
+    (or (find (font-face-na

CVS mcclim/Examples

rstrandh — 2009-12-07T14:04:39

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory cl-net:/tmp/cvs-serv24077

Modified Files:
sliderdemo.lisp 
Log Message:
Fixed a bug that made this demo not work (thanks to "lhz" on #lisp).

Improved the code somewhat to avoid too much code duplication.  It
could be made better still.  On the other hand, this demo should
probably be redone or removed, since it involves the calculator as
well, which doesn't seem reasonable.



--- /project/mcclim/cvsroot/mcclim/Examples/sliderdemo.lisp2006/12/19 04:08:581.5
+++ /project/mcclim/cvsroot/mcclim/Examples/sliderdemo.lisp2009/12/07 14:04:391.6
< at >< at > -24,10 +24,7 < at >< at >
 (defparameter calc '(0))
 (defvar *text-field* nil)
 
-(defun slidertest ()
-  (loop for port in climi::*all-ports*
-      do (destroy-port port))
-  (setq climi::*all-ports* nil)
+(defun sliderdemo ()
   (let ((frame (make-application-frame 'sliderdemo)))
     (run-frame-top-level frame)))
 
< at >< at > -38,7 +35,8 < at >< at >
        (if (numberp last-item)
    (setf (car (last calc)) (+ (* 10 last-it

CVS mcclim/Examples

rstrandh — 2009-12-07T08:47:04

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory cl-net:/tmp/cvs-serv2588

Modified Files:
traffic-lights.lisp 
Log Message:
Removed dead code.  Added my copyright.  Fixed some comments.


--- /project/mcclim/cvsroot/mcclim/Examples/traffic-lights.lisp2002/07/29 06:04:021.6
+++ /project/mcclim/cvsroot/mcclim/Examples/traffic-lights.lisp2009/12/07 08:47:041.7
< at >< at > -2,6 +2,8 < at >< at >
 
 ;;;  (c) copyright 2001 by
 ;;;           Julien Boninfante (boninfan-lSGHico1bM/5RUk1v0J4UFAUjnlXr6A1< at >public.gmane.org)
+;;;  (c) copyright 2009 by
+;;;           Robert Strandh (strandh-BktLLJ5BOkI< at >public.gmane.org)
 
 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Library General Public
< at >< at > -29,26 +31,18 < at >< at >
 
 (in-package :clim-internals)
 
-;; example gadget definition
+;;; example gadget definition
 (defclass light-pane (standard-gadget) ())
 
-#+nil
-(defmethod dispatch-repaint ((pane light-pane) region)
-  (repaint-sheet pane region))
-
 (defmethod ha

CVS mcclim/Examples

rstrandh — 2009-12-07T08:41:37

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory cl-net:/tmp/cvs-serv801

Removed Files:
fire.lisp 
Log Message:
This file was old, and has been replaced by traffic-lights.lisp.

CVS mcclim/Backends/CLX

ahefner — 2009-11-15T11:27:27

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory cl-net:/tmp/cvs-serv4276

Modified Files:
medium.lisp 
Log Message:
Faster IMAGE-TO-XIMAGE translator, courtesy of Nikodemus Siivola.


--- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp2009/04/20 10:21:001.90
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp2009/11/15 11:27:261.91
< at >< at > -1311,24 +1311,36 < at >< at >
     (let ((l (integer-length (logxor mask (1- (ash 1 h))))))
       (byte (- h l) l))))
 
+
 ;; fixme!  This is not just incomplete, but also incorrect: The original
 ;; true color code knew how to deal with non-linear RGB value
 ;; allocation.
+
+(defvar *translator-cache-lock* (clim-sys:make-lock "translator cache lock"))
+(defvar *translator-cache* (make-hash-table :test #'equal))
+
 (defun pixel-translator (colormap)
   (unless (eq (xlib:visual-info-class (xlib:colormap-visual-info colormap))
       :true-color)
     (error "sorry, cannot draw rgb image for non-true-color drawable yet"))
-  colormap
   (let* ((i

CVS mcclim

ahefner — 2009-10-29T14:05:05

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv20633

Modified Files:
gadgets.lisp 
Log Message:
Fix dynamic extent declarations in with-output-as-gadget.


--- /project/mcclim/cvsroot/mcclim/gadgets.lisp2008/11/09 19:49:171.112
+++ /project/mcclim/cvsroot/mcclim/gadgets.lisp2009/10/29 14:05:041.113
< at >< at > -2678,8 +2678,8 < at >< at >
       (gadget-output-record-constructor ()
 (make-instance 'gadget-output-record
        ,< at >options :x ,x :y ,y)))
- (declare (dynamic-extent with-output-as-gadget-continuation
-  gadget-output-record-constructor))
+ (declare (dynamic-extent #'with-output-as-gadget-continuation
+  #'gadget-output-record-constructor))
  (let ((,gadget-output-record
 (invoke-with-output-to-output-record
  ,stream

CVS mcclim

rstrandh — 2009-10-16T04:57:00

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv15495

Modified Files:
dialog.lisp 
Log Message:
Fixed problem with Cancel button in accepting-values.

Thanks to Kilian Sprotte for the patch. 



--- /project/mcclim/cvsroot/mcclim/dialog.lisp2009/08/01 22:17:021.32
+++ /project/mcclim/cvsroot/mcclim/dialog.lisp2009/10/16 04:57:001.33
< at >< at > -271,12 +271,11 < at >< at >
               (format stream "OK"))))
         (formatting-cell (stream)
           (with-output-as-presentation
-              (stream nil 'abort-button) (with-output-as-presentation
-              (stream nil 'exit-button)
+              (stream nil 'abort-button)
             (surrounding-output-with-border
-                (stream :shape :rounded :radius 6
-                        :background +gray80+ :highlight-background +gray90+)
-              (format stream "Cancel")))))))
+     (stream :shape :rounded :radius 6
+     :background +gray80+ :highlight-background +gray90+)
+     (format stream "Cancel"))))))
     (t

CVS mcclim/Backends/gtkairo

rstrandh — 2009-09-02T05:29:01

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo
In directory cl-net:/tmp/cvs-serv21922

Modified Files:
cairo.lisp ffi.lisp 
Log Message:
Added support for image design drawing in the gtkairo backend. 
Thanks to Samium Gromoff for contributing this patch.



--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo.lisp2007/07/11 15:26:201.4
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo.lisp2009/09/02 05:29:011.5
< at >< at > -534,6 +534,103 < at >< at >
     (cairo_move_to cr (df x) (df (+ y y2))))
   (pango_cairo_show_layout cr layout))))))
 
+;; Stolen from the CLX backend.
+(defmethod climi::medium-draw-image-design*
+    ((medium cairo-medium) (design climi::rgb-image-design) x y)
+  (destructuring-bind (&optional surface buffer mask)
+      (slot-value design 'climi::medium-data)
+    (unless surface
+      (let* ((image (slot-value design 'climi::image)))
+        (setf (values surface buffer) (image-to-cairosurface image))
+        (when (climi::image-alpha-p image)
+          (error "~< at ><Dra

CVS mcclim/Extensions/Bitmap-formats

rstrandh — 2009-09-02T05:20:40

Update of /project/mcclim/cvsroot/mcclim/Extensions/Bitmap-formats
In directory cl-net:/tmp/cvs-serv15355/Extensions/Bitmap-formats

Added Files:
png.lisp 
Log Message:
Added support for reading PNG files contributed by Samium Gromoff.  Thanks! 




--- /project/mcclim/cvsroot/mcclim/Extensions/Bitmap-formats/png.lisp2009/09/02 05:20:40NONE
+++ /project/mcclim/cvsroot/mcclim/Extensions/Bitmap-formats/png.lisp2009/09/02 05:20:401.1
;;; -*- Mode: Lisp; Package: MCCLIM-IMAGES -*-

;;;  (c) copyright 2009 by
;;;           Samium Gromoff (_deepfire-NeA5vRaJqP8ol7YZXgNtG4dd74u8MsAO< at >public.gmane.org)

;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
;;; License as published by the Free Software Foundation; either
;;; version 2 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTA

CVS mcclim

rstrandh — 2009-09-02T05:20:40

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv15355

Added Files:
mcclim-png-bitmaps.asd 
Log Message:
Added support for reading PNG files contributed by Samium Gromoff.  Thanks! 




--- /project/mcclim/cvsroot/mcclim/mcclim-png-bitmaps.asd2009/09/02 05:20:40NONE
+++ /project/mcclim/cvsroot/mcclim/mcclim-png-bitmaps.asd2009/09/02 05:20:401.1
;;; -*- Mode: Lisp -*-

;;;  (c) copyright 2009 by 
;;;           Samium Gromoff (_deepfire-NeA5vRaJqP8ol7YZXgNtG4dd74u8MsAO< at >public.gmane.org)
;;;
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
;;; License as published by the Free Software Foundation; either
;;; version 2 of the License, or (at your option) any later version.
;;;
;;; This library is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; Library General Publi