mcclim-cvs December 2007

mcclim-cvs@common-lisp.net

6 participants
65 discussions

[mcclim-cvs] CVS mcclim/Lisp-Dep
by dlichteblau 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Lisp-Dep In directory clnet:/tmp/cvs-serv22271/Lisp-Dep Modified Files: mp-sbcl.lisp Log Message: Fixed EVENT-QUEUE-READ-WITH-TIMEOUT to return on timeout. Previously it would just continue silently. * input.lisp (EVENT-QUEUE-READ-WITH-TIMEOUT): return if condition-wait returns nil. * Lisp-Dep/mp-sbcl.lisp (CONDITION-WAIT): Return T from a normalcondition wait and NIL from a timeout, like mp-acl.lisp does it. --- /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2007/11/28 08:11:12 1.10 +++ /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-sbcl.lisp 2007/12/16 23:20:11 1.11 @@ -202,11 +202,12 @@ (if timeout (handler-case (sb-ext:with-timeout timeout - (sb-thread:condition-wait cv lock)) + (sb-thread:condition-wait cv lock) + t) (sb-ext:timeout (c) (declare (ignore c)) nil)) - (sb-thread:condition-wait cv lock))) + (progn (sb-thread:condition-wait cv lock) t))) (defun condition-notify (cv) (sb-thread:condition-notify cv))

1 0

[mcclim-cvs] CVS mcclim
by dlichteblau 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv22271 Modified Files: input.lisp Log Message: Fixed EVENT-QUEUE-READ-WITH-TIMEOUT to return on timeout. Previously it would just continue silently. * input.lisp (EVENT-QUEUE-READ-WITH-TIMEOUT): return if condition-wait returns nil. * Lisp-Dep/mp-sbcl.lisp (CONDITION-WAIT): Return T from a normalcondition wait and NIL from a timeout, like mp-acl.lisp does it. --- /project/mcclim/cvsroot/mcclim/input.lisp 2007/12/16 22:41:51 1.38 +++ /project/mcclim/cvsroot/mcclim/input.lisp 2007/12/16 23:20:10 1.39 @@ -97,7 +97,8 @@ (return res)) (when wait-function (warn "event-queue-read-with-timeout ignoring predicate")) - (condition-wait (event-queue-processes eq) lock timeout)))))) + (unless (condition-wait (event-queue-processes eq) lock timeout) + (return))))))) (defmethod event-queue-append ((eq standard-event-queue) item) "Append the item at the end of the queue. Does event compression."

1 0

[mcclim-cvs] CVS mcclim/Backends/gtkairo
by dlichteblau 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv21826 Modified Files: port.lisp Log Message: Install a graft into the gtkairo port. --- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp 2007/02/07 12:44:19 1.17 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/port.lisp 2007/12/16 23:17:26 1.18 @@ -71,6 +71,7 @@ (setf (events-head port) (list nil)) (setf (events-tail port) (events-head port)) (setf (port-pointer port) (make-instance 'gtkairo-pointer :port port)) + (push (make-graft port) (climi::port-grafts port)) ;; FIXME: it seems bizarre for this to be necessary (push (make-instance 'gtkairo-frame-manager :port port) (slot-value port 'climi::frame-managers))

1 0

[mcclim-cvs] CVS mcclim
by dlichteblau 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv14369 Modified Files: input.lisp Log Message: In EVENT-QUEUE-READ-WITH-TIMEOUT, warn about the WAIT-FUNCTION being ignored only if a WAIT-FUNCTION was specified. --- /project/mcclim/cvsroot/mcclim/input.lisp 2006/07/09 06:23:22 1.37 +++ /project/mcclim/cvsroot/mcclim/input.lisp 2007/12/16 22:41:51 1.38 @@ -88,7 +88,6 @@ (defmethod event-queue-read-with-timeout ((eq standard-event-queue) timeout wait-function) - (declare (ignore wait-function)) (let ((lock (event-queue-lock eq))) (with-lock-held (lock) (loop @@ -96,7 +95,8 @@ (let ((res (event-queue-read-no-hang/locked eq))) (when res (return res)) - (warn "event-queue-read-with-timeout ignoring predicate") + (when wait-function + (warn "event-queue-read-with-timeout ignoring predicate")) (condition-wait (event-queue-processes eq) lock timeout)))))) (defmethod event-queue-append ((eq standard-event-queue) item)

1 0

[mcclim-cvs] CVS mcclim/Experimental/freetype
by dlichteblau 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype In directory clnet:/tmp/cvs-serv15810 Modified Files: mcclim-freetype.asd Log Message: Depend explictly on mcclim in mcclim-freetype.asd. Otherwise user code depending on mcclim-freetype has to be careful in ordering the dependencies to mcclim and mcclim-freetype. --- /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd 2006/03/15 09:31:31 1.5 +++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/mcclim-freetype.asd 2007/12/16 20:02:08 1.6 @@ -28,7 +28,7 @@ "lisp") (defsystem :mcclim-freetype - :depends-on (:clim-clx) + :depends-on (:clim-clx :mcclim) :serial t :components ((:file "freetype-package")

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv24695 Modified Files: lisp-syntax-swine.lisp Log Message: Added `parameter-match-p' case where no arg indices are available. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2007/12/08 08:53:50 1.9 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2007/12/16 14:42:07 1.10 @@ -67,6 +67,8 @@ (defgeneric parameter-match-p (parameter arg-indices &key &allow-other-keys) (:method ((parameter parameter) (arg-indices list) &key) + nil) + (:method :around ((parameter parameter) (arg-indices null) &key) nil)) (defmethod parameter-match-p ((parameter named-parameter) (arg-indices list) &key)

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 16 Dec '07

16 Dec '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv21764 Modified Files: panes.lisp Log Message: Fixed the space-requirements of label-pane so that it no longer has a max-width of the width of the actual label text. It still has a max-height, however, I'm not sure whether that's correct. --- /project/mcclim/cvsroot/mcclim/panes.lisp 2007/08/21 21:45:49 1.184 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2007/12/16 14:27:22 1.185 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. -;;; $Id: panes.lisp,v 1.184 2007/08/21 21:45:49 thenriksen Exp $ +;;; $Id: panes.lisp,v 1.185 2007/12/16 14:27:22 thenriksen Exp $ (in-package :clim-internals) @@ -2334,7 +2334,7 @@ (t (incf w m0) (incf w m0) - (let ((sr1 (make-space-requirement :width w :min-width w :max-width w + (let ((sr1 (make-space-requirement :width w :min-width w :height h :min-height h :max-height h))) (when (sheet-children pane) (let ((sr2 (compose-space (first (sheet-children pane)))))

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 15 Dec '07

15 Dec '07

Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv26063/ESA Modified Files: esa-buffer.lisp esa-io.lisp Log Message: Added my copyright statement to a bunch of ESA files. --- /project/mcclim/cvsroot/mcclim/ESA/esa-buffer.lisp 2007/12/08 08:53:48 1.3 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-buffer.lisp 2007/12/15 10:18:15 1.4 @@ -2,6 +2,8 @@ ;;; (c) copyright 2006 by ;;; Robert Strandh (strandh(a)labri.fr) +;;; (c) copyright 2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public --- /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2006/11/23 19:53:53 1.3 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2007/12/15 10:18:16 1.4 @@ -2,6 +2,8 @@ ;;; (c) copyright 2006 by ;;; Robert Strandh (strandh(a)labri.fr) +;;; (c) copyright 2007 by +;;; Troels Henriksen (athas(a)sigkill.dk) ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public

1 0

[mcclim-cvs] CVS mcclim/Drei
by rstrandh 15 Dec '07

15 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv28149 Modified Files: views.lisp Log Message: Facilitate debugging by printing subscriptable views with the name and the subscript. --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2007/12/13 07:30:53 1.4 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2007/12/15 07:23:54 1.5 @@ -441,6 +441,10 @@ for Drei.") (:default-initargs :name "*scratch*")) +(defmethod print-object ((view drei-view) stream) + (print-unreadable-object (view stream :type t :identity t) + (format stream "name: ~a ~a" (name view) (subscript view)))) + (defgeneric synchronize-view (view &key &allow-other-keys) (:documentation "Synchronize the view with the object under observation - what exactly this entails, and what keyword

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 13 Dec '07

13 Dec '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv13512/Drei Modified Files: input-editor.lisp Log Message: Make the form-reading method for Drei signal an appropriate error when an activation gesture is invoked with no input. Changed the Listener to provide NIL as a default. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2007/12/08 08:53:50 1.20 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2007/12/13 07:57:15 1.21 @@ -805,6 +805,7 @@ (with-delimiter-gestures (nil :override t) (loop named control-loop + with start-scan-pointer = (stream-scan-pointer stream) with drei = (drei-instance stream) with syntax = (syntax (view drei)) ;; The input context permits the user to mouse-select displayed @@ -836,8 +837,18 @@ ;; #\Newline characters in the input will not cause premature ;; activation. until (and (activation-gesture-p gesture) - freshly-inserted - (drei-lisp-syntax::form-complete-p form)) + (or (and freshly-inserted + (drei-lisp-syntax::form-complete-p form)))) + when (and (activation-gesture-p gesture) + (null form)) + do ;; We have to remove the buffer contents (whitespace, + ;; comments or error states, if this happens) or code + ;; above us will not believe us when we tell them that the + ;; input is empty + (delete-buffer-range (buffer (view drei)) start-scan-pointer + (stream-scan-pointer stream)) + (setf (stream-scan-pointer stream) start-scan-pointer) + (simple-parse-error "Empty input") ;; We only want to process the gesture if it is fresh, because ;; if it isn't, it has already been processed at some point in ;; the past.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs December 2007