mcclim-cvs January 2007

mcclim-cvs@common-lisp.net

7 participants
67 discussions

[mcclim-cvs] CVS mcclim
by afuchs 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv29791 Modified Files: mcclim.asd Log Message: Re-add the dependency on core.lisp in mcclim.asd --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/14 14:10:00 1.49 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/14 15:32:53 1.50 @@ -289,7 +289,7 @@ "delegating-buffer" "undo" "motion" "editing")) (:file "drei-clim" :depends-on ("drei")) (:file "drei-redisplay" :depends-on ("drei-clim")) - (:file "input-editor" :depends-on ("drei-redisplay" "lisp-syntax")) + (:file "input-editor" :depends-on ("drei-redisplay" "lisp-syntax" "core")) (:file "fundamental-syntax" :depends-on ("packages" "drei-redisplay")) (:file "abbrev" :depends-on ("packages")) (:file "kill-ring" :depends-on ("packages")) @@ -310,7 +310,7 @@ (:file "misc-commands" :depends-on ("basic-commands")) (:file "unicode-commands" :depends-on ("core" "drei-clim")) (:file "search-commands" :depends-on ("core" "drei-clim")) - (:file "lisp-syntax" :depends-on ("motion" "fundamental-syntax")) + (:file "lisp-syntax" :depends-on ("motion" "fundamental-syntax" "core")) (:file "lisp-syntax-swine" :depends-on ("lisp-syntax")) (:file "lisp-syntax-commands" :depends-on ("lisp-syntax-swine" "misc-commands")) #+#.(mcclim.system::ifswank) (:file "lisp-syntax-swank" :depends-on ("lisp-syntax"))))))

1 0

[mcclim-cvs] CVS mcclim/Apps/Listener
by thenriksen 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv22114/Apps/Listener Modified Files: listener.lisp Log Message: Added hack to make Listener run in CLISP. We need something like CL-FAD to make it be really good. --- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/01/04 09:20:58 1.32 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/01/14 14:53:54 1.33 @@ -96,7 +96,11 @@ (with-output-as-presentation (t *package* 'listener-current-package) (print-package-name t))) (cell (:center) - (when (probe-file *default-pathname-defaults*) + ;; CLISP gives us an error when calling + ;; `cl:probe-file' with a directory argument. + (when #+clisp (or (ignore-errors (ext:probe-directory *default-pathname-defaults*)) + (ignore-errors (probe-file *default-pathname-defaults*))) + #-clisp (probe-file *default-pathname-defaults*) (with-output-as-presentation (t (truename *default-pathname-defaults*) 'pathname) (format t "~A" (frob-pathname *default-pathname-defaults*)))) (when *directory-stack*

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv14299 Modified Files: mcclim.asd Log Message: Make mcclim.asd work better with OpenMCL and CLISP. --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/07 19:32:28 1.48 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/14 14:10:00 1.49 @@ -44,12 +44,12 @@ (defun dep-on-swank () (if (and (find-swank-system) (not (find-package :swank))) - '(and) - '(or))) + '(:and) + '(:or))) (defun ifswank () (if (find-swank) - '(and) - '(or)))) + '(:and) + '(:or)))) ;;; Legacy CMUCL support stuff #+cmu @@ -310,7 +310,7 @@ (:file "misc-commands" :depends-on ("basic-commands")) (:file "unicode-commands" :depends-on ("core" "drei-clim")) (:file "search-commands" :depends-on ("core" "drei-clim")) - (:file "lisp-syntax" :depends-on ("core" "motion" "fundamental-syntax")) + (:file "lisp-syntax" :depends-on ("motion" "fundamental-syntax")) (:file "lisp-syntax-swine" :depends-on ("lisp-syntax")) (:file "lisp-syntax-commands" :depends-on ("lisp-syntax-swine" "misc-commands")) #+#.(mcclim.system::ifswank) (:file "lisp-syntax-swank" :depends-on ("lisp-syntax")))))) @@ -349,7 +349,8 @@ (:file "input-editing-goatee") (:file "input-editing-drei") (:file "text-editor-gadget") - (:file "Extensions/rgb-image"))) + (:file "Extensions/rgb-image" :pathname #.(make-pathname :directory '(:relative "Extensions") + :name "rgb-image")))) (defsystem :clim-clx :depends-on (:clim #+(or sbcl openmcl ecl allegro) :clx)

1 0

[mcclim-cvs] CVS mcclim/Doc
by thenriksen 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv18914/Doc Modified Files: DOCBUILDING Log Message: We do not use --no-userinit anymore. --- /project/mcclim/cvsroot/mcclim/Doc/DOCBUILDING 2006/12/21 12:22:03 1.1 +++ /project/mcclim/cvsroot/mcclim/Doc/DOCBUILDING 2007/01/14 08:41:58 1.2 @@ -20,8 +20,8 @@ You can also use the SBCL_SYSTEM environment variable to change which SBCL is used. Please note that SBCL will be run without evaluating the -user- or system-initialization-file (--no-sysinit --no-userinit). If -this does not work for you, edit make-tempfiles.sh +system-initialization-file (--no-sysinit). If this does not work for +you, edit make-tempfiles.sh The Makefile will have to reload McCLIM from scratch every time it regerenes the docstrings. If you are working on McCLIM, this is rather

1 0

[mcclim-cvs] CVS mcclim/Doc
by thenriksen 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Doc In directory clnet:/tmp/cvs-serv17049/Doc Modified Files: drei.texi Log Message: Fixed some typos. --- /project/mcclim/cvsroot/mcclim/Doc/drei.texi 2007/01/06 05:00:17 1.5 +++ /project/mcclim/cvsroot/mcclim/Doc/drei.texi 2007/01/14 08:38:33 1.6 @@ -9,7 +9,7 @@ Drei - an acronym for @i{Drei Replaces EINE's Inheritor} - is one of the editor substrates provided by McCLIM. Drei is activated by default, but -if it gives you problem, you can disable it by evaluating @code{(setf +if it gives you problems, you can disable it by evaluating @code{(setf clim-internals::*use-goatee* t)}. @menu @@ -29,7 +29,7 @@ expose. Drei has to work as, at least, an input-editor, a text editor gadget and a simple pane. These three different uses have widely different semantics for reading input and performing redisplay - from -passively being fed gestures in the input editor, to having to event +passively being fed gestures in the input editor, to having to do event handling and redisplay timing manually in the gadget version. Furthermore, Drei is extensible software, so we wished to make the differences between these three modus operandorum transparent to the

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv15574/Drei Modified Files: drei.lisp Log Message: Update the syntax if it is changed by `with-drei-options'. --- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2006/12/09 23:55:39 1.12 +++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp 2007/01/14 08:22:27 1.13 @@ -855,16 +855,18 @@ (when syntax-provided-p (push (list (unless keep-syntax `(old-syntax (syntax (buffer ,drei)))) - `(setf (syntax (buffer ,drei)) - (etypecase ,syntax - (string (make-instance (or (syntax-from-name ,syntax) - (error "No such syntax: ~A" ,syntax)) - :buffer (buffer ,drei))) - (symbol (make-instance ,syntax - :buffer (buffer ,drei))) - (syntax ,syntax))) + `(progn (setf (syntax (buffer ,drei)) + (etypecase ,syntax + (string (make-instance (or (syntax-from-name ,syntax) + (error "No such syntax: ~A" ,syntax)) + :buffer (buffer ,drei))) + (symbol (make-instance ,syntax + :buffer (buffer ,drei))) + (syntax ,syntax))) + (update-syntax (buffer ,drei) (syntax (buffer ,drei)))) (unless keep-syntax - `(setf (syntax (buffer ,drei)) old-syntax))) + `(progn (setf (syntax (buffer ,drei)) old-syntax) + (update-syntax (buffer ,drei) (syntax (buffer ,drei)))))) triple-list)) `(progn (check-type ,drei drei)

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 14 Jan '07

14 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv10650 Modified Files: NEWS Log Message: Mention the presentation history navigation gestures. --- /project/mcclim/cvsroot/mcclim/NEWS 2007/01/11 10:56:39 1.18 +++ /project/mcclim/cvsroot/mcclim/NEWS 2007/01/14 07:59:03 1.19 @@ -30,6 +30,7 @@ To be documented. ** better PRESENTATION-SUBTYPEP (more likely to give the right answer on some-of and all-of presentation types) +** Improvement: M-n/M-p gestures for navigating presentation histories. * Changes in mcclim-0.9.3 "All Souls' Day" relative to 0.9.2: ** backend improvement: The Null backend now registers itself in the

1 0

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

13 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv8180 Modified Files: input-editor.lisp Log Message: Redraw the input buffer after setting syntax, fixes some display issues when using `presentation-replace-input' (for example, when using the history). --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2007/01/04 23:15:48 1.15 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2007/01/13 21:09:51 1.16 @@ -791,6 +791,7 @@ (with-drei-options ((drei-instance stream) :syntax "Lisp" :keep-syntax t) + (redraw-input-buffer stream) (call-next-method))) (define-presentation-method accept ((type expression)

1 0

[mcclim-cvs] CVS mcclim
by crhodes 11 Jan '07

11 Jan '07

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv27524 Modified Files: NEWS Log Message: Tell the world about my SUBTYPEP sk1llz --- /project/mcclim/cvsroot/mcclim/NEWS 2006/12/26 16:44:45 1.17 +++ /project/mcclim/cvsroot/mcclim/NEWS 2007/01/11 10:56:39 1.18 @@ -28,6 +28,8 @@ Text Styles" in the manual. ** Improvement: Added support for bezier splines (Robert Strandh). To be documented. +** better PRESENTATION-SUBTYPEP (more likely to give the right answer + on some-of and all-of presentation types) * Changes in mcclim-0.9.3 "All Souls' Day" relative to 0.9.2: ** backend improvement: The Null backend now registers itself in the

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 10 Jan '07

10 Jan '07

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv21474 Modified Files: lisp-syntax.lisp lisp-syntax-commands.lisp Log Message: Removed `unknown-symbol' presentation type. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/03 13:08:04 1.15 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/01/10 20:54:13 1.16 @@ -1848,36 +1848,25 @@ (with-face (:error) (call-next-method))) -(define-presentation-type unknown-symbol () :inherit-from 'symbol - :description "unknown symbol") - -(define-presentation-method presentation-typep (object (type unknown-symbol)) - (or (symbolp object) (stringp object))) - (defmethod display-parse-tree ((parse-symbol token-mixin) stream (drei drei) (syntax lisp-syntax)) (if (> (the fixnum (end-offset parse-symbol)) (the fixnum (start-offset parse-symbol))) - (let ((string (form-string syntax parse-symbol))) - (multiple-value-bind (symbol status) - (form-to-object syntax parse-symbol :no-error t) - (with-output-as-presentation - (stream (if status symbol string) - (if status 'symbol 'unknown-symbol) - :single-box :highlighting) - (cond ((eql (buffer-object (buffer syntax) (start-offset parse-symbol)) #\:) - (with-face (:keyword) - (call-next-method))) - ((eql (buffer-object (buffer syntax) (start-offset parse-symbol)) #\&) - (with-face (:lambda-list-keyword) - (call-next-method))) - ((and (macro-function symbol) - (form-operator-p parse-symbol syntax)) - (with-face (:macro) - (call-next-method))) - ((and (special-operator-p symbol) - (form-operator-p parse-symbol syntax)) - (with-face (:special-form) - (call-next-method))) - (t (call-next-method)))))) + (let ((symbol (form-to-object syntax parse-symbol :no-error t))) + (with-output-as-presentation (stream symbol 'symbol :single-box :highlighting) + (cond ((eql (buffer-object (buffer syntax) (start-offset parse-symbol)) #\:) + (with-face (:keyword) + (call-next-method))) + ((eql (buffer-object (buffer syntax) (start-offset parse-symbol)) #\&) + (with-face (:lambda-list-keyword) + (call-next-method))) + ((and (macro-function symbol) + (form-operator-p parse-symbol syntax)) + (with-face (:macro) + (call-next-method))) + ((and (special-operator-p symbol) + (form-operator-p parse-symbol syntax)) + (with-face (:special-form) + (call-next-method))) + (t (call-next-method))))) (call-next-method))) (defmethod display-parse-tree ((parser-symbol literal-object-form) stream (drei drei) --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2006/12/10 19:28:49 1.4 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-commands.lisp 2007/01/10 20:54:13 1.5 @@ -165,9 +165,6 @@ (define-presentation-to-command-translator lookup-symbol-arglist (symbol com-lookup-arglist lisp-table :gesture :describe - :tester ((object presentation) - (declare (ignore object)) - (not (eq (presentation-type presentation) 'unknown-symbol))) :documentation "Lookup arglist") (object) (list object))

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 January 2007