headers
CVS User afuchs | 28 Jul 05:56

CVS mcclim

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.asd	2009/06/07 08:48:00	1.6
+++ /project/mcclim/cvsroot/mcclim/clim-listener.asd	2011/07/28 03:56:49	1.7
@@ -16,7 +16,7 @@
                (: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"))
Permalink | Reply | 0 comments |
headers
ahefner | 31 Jan 16:51

CVS mcclim/Experimental/freetype

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.lisp	2009/06/14 18:37:39	1.2
+++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp	2010/01/31 15:51:53	1.3
@@ -346,7 +346,7 @@
     ((: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")
     ((:SERIF (:ITALIC :BOLD)) . "DejaVuSerif-BoldOblique.ttf") 
     ((:SERIF :BOLD) . "DejaVuSerif-Bold.ttf")
@@ -356,7 +356,7 @@
     ((:SANS-SERIF (:ITALIC :BOLD)) . "DejaVuSans-BoldOblique.ttf")
     ((:SANS-SERIF :BOLD) . "DejaVuSans-Bold.ttf")))

-(defvar *families/faces* *vera-families/faces*)
+(defparameter *families/faces* *dejavu-families/faces*)
(Continue reading)

Permalink | Reply | 0 comments |
headers
rstrandh | 16 Dec 14:15

CVS mcclim

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.lisp	2008/02/01 17:02:55	1.85
+++ /project/mcclim/cvsroot/mcclim/presentations.lisp	2009/12/16 13:15:38	1.86
@@ -71,7 +71,7 @@
 	`(flet ((,continuation ()
 		  ,@decls
 		  ,@with-body))
-	   (declare (dynamic-extent #'continuation))
+	   (declare (dynamic-extent #',continuation))
 	   (if (and (output-recording-stream-p ,stream)
 		    *allow-sensitive-inferiors*)
 	       (with-new-output-record
Permalink | Reply | 0 comments |
headers
rstrandh | 8 Dec 06:26

CVS mcclim/Examples

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.lisp	2008/01/21 01:08:58	1.2
+++ /project/mcclim/cvsroot/mcclim/Examples/font-selector.lisp	2009/12/08 05:26:29	1.3
@@ -99,10 +99,11 @@
     (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-name old-face)
+                      new-faces
+                      :key #'font-face-name
+                      :test #'equal)
+                (first new-faces))))))
(Continue reading)

Permalink | Reply | 0 comments |
headers
rstrandh | 7 Dec 15:04

CVS mcclim/Examples

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.lisp	2006/12/19 04:08:58	1.5
+++ /project/mcclim/cvsroot/mcclim/Examples/sliderdemo.lisp	2009/12/07 14:04:39	1.6
@@ -24,10 +24,7 @@
 (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)))

@@ -38,7 +35,8 @@
        (if (numberp last-item)
 	   (setf (car (last calc)) (+ (* 10 last-item) ,int))
(Continue reading)

Permalink | Reply | 0 comments |
headers
rstrandh | 7 Dec 09:47

CVS mcclim/Examples

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.lisp	2002/07/29 06:04:02	1.6
+++ /project/mcclim/cvsroot/mcclim/Examples/traffic-lights.lisp	2009/12/07 08:47:04	1.7
@@ -2,6 +2,8 @@

 ;;;  (c) copyright 2001 by
 ;;;           Julien Boninfante (boninfan@...)
+;;;  (c) copyright 2009 by
+;;;           Robert Strandh (strandh@...)

 ;;; This library is free software; you can redistribute it and/or
 ;;; modify it under the terms of the GNU Library General Public
@@ -29,26 +31,18 @@

 (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))
(Continue reading)

Permalink | Reply | 0 comments |
headers
rstrandh | 7 Dec 09:41

CVS mcclim/Examples

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.
Permalink | Reply | 0 comments |
headers
ahefner | 15 Nov 12:27

CVS mcclim/Backends/CLX

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.lisp	2009/04/20 10:21:00	1.90
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp	2009/11/15 11:27:26	1.91
@@ -1311,24 +1311,36 @@
     (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* ((info (xlib:colormap-visual-info colormap))
 	 (rbyte (mask->byte (xlib:visual-info-red-mask info)))
 	 (gbyte (mask->byte (xlib:visual-info-green-mask info)))
(Continue reading)

Permalink | Reply | 0 comments |
headers
ahefner | 29 Oct 15:05

CVS mcclim

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.lisp	2008/11/09 19:49:17	1.112
+++ /project/mcclim/cvsroot/mcclim/gadgets.lisp	2009/10/29 14:05:04	1.113
@@ -2678,8 +2678,8 @@
 	      (gadget-output-record-constructor ()
 		(make-instance 'gadget-output-record
 			       ,@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
Permalink | Reply | 0 comments |
headers
rstrandh | 16 Oct 06:57

CVS mcclim

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.lisp	2009/08/01 22:17:02	1.32
+++ /project/mcclim/cvsroot/mcclim/dialog.lisp	2009/10/16 04:57:00	1.33
@@ -271,12 +271,11 @@
               (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"))))))
     (terpri stream)))

 (defmethod stream-accept ((stream accepting-values-stream) type
(Continue reading)

Permalink | Reply | 0 comments |
headers
rstrandh | 2 Sep 07:29

CVS mcclim/Backends/gtkairo

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.lisp	2007/07/11 15:26:20	1.4
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/cairo.lisp	2009/09/02 05:29:01	1.5
@@ -534,6 +534,103 @@
 	    (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 "~@<Drawing of images with alpha component is not supported.~:@>"))
+        (setf (slot-value design 'climi::medium-data) (list surface buffer mask))))
+    (when mask
+      (error "~@<A mask in your image design.~:@>"))
+    (with-medium (medium)
+      (multiple-value-bind (x y)
(Continue reading)

Permalink | Reply | 1 comment |

Gmane