mcclim-cvs

mcclim-cvs@common-lisp.net

1697 discussions

[mcclim-cvs] CVS mcclim/Webpage
by afuchs 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Webpage In directory clnet:/tmp/cvs-serv31616 Removed Files: License McCLIM-3.png clim-paper.pdf index.html mcclim.css Log Message: Move the mcclim web presence to module "mcclim-website".

1 0

[mcclim-cvs] CVS mcclim-website
by afuchs 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim-website In directory clnet:/tmp/cvs-serv30884 Log Message: I dedicate this module to the mcclim web presence Status: Vendor Tag: WEB Release Tags: initial N mcclim-website/License N mcclim-website/McCLIM-3.png N mcclim-website/clim-paper.pdf N mcclim-website/index.html N mcclim-website/mcclim.css N mcclim-website/downloads/index.html N mcclim-website/images/addressbook-small.jpg N mcclim-website/images/addressbook.jpg N mcclim-website/images/bach262-small.jpg N mcclim-website/images/bach262.jpg N mcclim-website/images/calc.jpg N mcclim-website/images/colorslider-small.jpg N mcclim-website/images/colorslider.jpg N mcclim-website/images/index.html N mcclim-website/images/listener1-small.jpg N mcclim-website/images/listener1.jpg No conflicts created by this import

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv24230/Drei Modified Files: search-commands.lisp Log Message: Fixed some trivial bugs in search/replace. --- /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp 2008/01/17 11:29:55 1.6 +++ /project/mcclim/cvsroot/mcclim/Drei/search-commands.lisp 2008/01/26 12:37:25 1.7 @@ -332,7 +332,7 @@ (defun query-replace-find-next-match (state) (with-accessors ((string string1) (targets targets)) state - (let* ((mark (point (drei-instance (targets state)))) + (let* ((mark (point (view (drei-instance (targets state))))) (offset-before (offset mark))) (search-forward mark string :test (case-relevant-test string)) (if (= (offset mark) offset-before) @@ -400,7 +400,7 @@ (occurrences occurrences) (targets targets)) state (let ((string1-length (length string1)) - (mark (point (drei-instance targets)))) + (mark (point (view (drei-instance targets))))) (backward-object mark string1-length) (replace-one-string mark string1-length

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv10853 Modified Files: NEWS Log Message: Added mentions of some more bug fixes to NEWS. --- /project/mcclim/cvsroot/mcclim/NEWS 2008/01/23 10:23:50 1.31 +++ /project/mcclim/cvsroot/mcclim/NEWS 2008/01/26 11:33:02 1.32 @@ -15,6 +15,9 @@ *** Improvement: Goal-columns for line movement. *** Improvement: More Emacs-like expression movement for Lisp syntax. ** Bug fix: label panes no longer have a restrictive maximum width. +** Bug fix: ellipses with a zero radius no longer cause errors. +** Bug fix: bezier drawing in CLIM-FIG less likely to cause errors. +** Bug fix: restored somewhat working undo in CLIM-FIG. * Changes in mcclim-0.9.5 relative to 0.9.4: ** Installation: the systems clim-listener, clim-examples,

1 0

[mcclim-cvs] CVS mcclim/Apps/Listener
by rschlatte 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv30427/Apps/Listener Modified Files: dev-commands.lisp Log Message: Multiple context-menu commands for text files: Edit, Show Also, activate code for showing file in a separate window --- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/01/18 06:54:50 1.46 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/01/26 05:09:39 1.47 @@ -1285,11 +1285,7 @@ (mv-or (when mime-type (mime-type-to-command mime-type pathname)) (when command - (values command doc pointer-doc)) - (when (and mime-type (subtypep mime-type 'text)) - (values `(com-edit-file ,pathname) - "Edit File" - (format nil "Edit ~A" pathname))) )))))) + (values command doc pointer-doc)))))))) (define-presentation-translator automagic-pathname-translator (clim:pathname clim:command filesystem-commands @@ -1399,9 +1395,6 @@ ((pathname 'pathname :prompt "pathname")) (clim-sys:make-process (lambda () (ed pathname)))) -;; Leave this translator disabled for now, the automagic translator will now produce -;; com-edit-file where there is not a more specific handler for a text mime type. -#+IGNORE (define-presentation-to-command-translator edit-file (clim:pathname com-edit-file filesystem-commands :gesture :select :pointer-documentation ((object stream) @@ -1410,7 +1403,9 @@ :tester ((object) (and (not (wild-pathname-p object)) (probe-file object) - (pathname-name object)))) + (pathname-name object) + (let ((mime-type (pathname-mime-type object))) + (and mime-type (subtypep mime-type 'text)))))) (object) (list object)) @@ -1420,6 +1415,20 @@ ((object 'pathname :prompt "pathname")) (show-file object)) +(define-presentation-to-command-translator show-file + (clim:pathname com-show-file filesystem-commands :gesture :select + :pointer-documentation ((object stream) + (format stream "Show ~A" object)) + :documentation ((stream) (format stream "Show File")) + :tester ((object) + (and (not (wild-pathname-p object)) + (probe-file object) + (pathname-name object) + (let ((mime-type (pathname-mime-type object))) + (and mime-type (subtypep mime-type 'text)))))) + (object) + (list object)) + (define-command (com-display-image :name t :command-table filesystem-commands :menu t) ((image-pathname 'pathname @@ -1448,10 +1457,8 @@ (list object)) -;; CLIM:OPEN-WINDOW-STREAM seems to be broken. -;; Less broken since I hacked on it, but still bad.. (defun show-file (pathname) - (let ( #+ignore(*standard-output* (open-window-stream :scroll-bars :both)) ) + (let ((*standard-output* (open-window-stream :scroll-bars :both)) ) (with-open-file (in pathname) (loop for line = (read-line in nil) while line

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv16402/Drei Modified Files: buffer.lisp Log Message: Changed DELETE-BUFFER-REGION to use DELETE-ELEMENTS*. Requires Flexichain 1.3 (currently, this means CVS). Increases region-killing performance by more than a hundredfold for most cases. --- /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp 2008/01/03 16:19:42 1.7 +++ /project/mcclim/cvsroot/mcclim/Drei/buffer.lisp 2008/01/26 00:23:40 1.8 @@ -516,8 +516,7 @@ (make-condition 'offset-after-end :offset offset)) (assert (<= (+ offset n) (size buffer)) () (make-condition 'offset-after-end :offset (+ offset n))) - (loop repeat n - do (delete* (contents buffer) offset))) + (delete-elements* (contents buffer) offset n)) (defgeneric delete-range (mark &optional n) (:documentation "Delete `n' objects after `(if n > 0)' or

1 0

[mcclim-cvs] CVS mcclim/Drei/Tests
by thenriksen 26 Jan '08

26 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei/Tests In directory clnet:/tmp/cvs-serv16402/Drei/Tests Modified Files: buffer-tests.lisp Log Message: Changed DELETE-BUFFER-REGION to use DELETE-ELEMENTS*. Requires Flexichain 1.3 (currently, this means CVS). Increases region-killing performance by more than a hundredfold for most cases. --- /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-tests.lisp 2007/12/08 08:53:49 1.3 +++ /project/mcclim/cvsroot/mcclim/Drei/Tests/buffer-tests.lisp 2008/01/26 00:23:37 1.4 @@ -231,40 +231,40 @@ (let ((m (make-buffer-mark buffer 3 :left)) (m2 (make-buffer-mark buffer 5 :left))) (delete-region m m2) - (is (= (size buffer) 5)) + (is (= 5 (size buffer))) (is (eq (buffer m) (buffer m2))) - (is (= (offset m) 3)) - (is (= (offset m2) 3)) + (is (= 3 (offset m))) + (is (= 3 (offset m2))) (is (string= (buffer-substring buffer 0 5) "clics")))) (let ((buffer (make-instance %%buffer))) (insert-buffer-sequence buffer 0 "climacs") (let ((m (make-buffer-mark buffer 3 :right)) (m2 (make-buffer-mark buffer 5 :right))) (delete-region m m2) - (is (= (size buffer) 5)) + (is (= 5 (size buffer))) (is (eq (buffer m) (buffer m2))) - (is (= (offset m) 3)) - (is (= (offset m2) 3)) + (is (= 3 (offset m))) + (is (= 3 (offset m2))) (is (string= (buffer-substring buffer 0 5) "clics")))) (let ((buffer (make-instance %%buffer))) (insert-buffer-sequence buffer 0 "climacs") (let ((m (make-buffer-mark buffer 3 :left)) (m2 (make-buffer-mark buffer 5 :left))) (delete-region m2 m) - (is (= (size buffer) 5)) + (is (= 5 (size buffer))) (is (eq (buffer m) (buffer m2))) - (is (= (offset m) 3)) - (is (= (offset m2) 3)) + (is (= 3 (offset m))) + (is (= 3 (offset m2))) (is (string= (buffer-substring buffer 0 5) "clics")))) (let ((buffer (make-instance %%buffer))) (insert-buffer-sequence buffer 0 "climacs") (let ((m (make-buffer-mark buffer 3 :right)) (m2 (make-buffer-mark buffer 5 :right))) (delete-region m2 m) - (is (= (size buffer) 5)) + (is (= 5 (size buffer))) (is (eq (buffer m) (buffer m2))) - (is (= (offset m) 3)) - (is (= (offset m2) 3)) + (is (= 3 (offset m))) + (is (= 3 (offset m2))) (is (string= (buffer-substring buffer 0 5) "clics")))) (signals error (let ((buffer (make-instance %%buffer)) @@ -280,11 +280,11 @@ (m2 (make-buffer-mark buffer 5 :left))) (delete-region m 5) (delete-region 1 m2) - (is (= (size buffer) 3)) + (is (= 3 (size buffer))) (is (eq (buffer m) (buffer m2))) - (is (= (offset m) 1)) - (is (= (offset m2) 1)) - (is (string= (buffer-substring buffer 0 3) "ccs"))))) + (is (= 1 (offset m))) + (is (= 1 (offset m2))) + (is (string= "ccs" (buffer-substring buffer 0 3)))))) (buffer-test number-of-lines (let ((buffer (make-instance %%buffer)))

1 0

[mcclim-cvs] CVS mcclim/Backends/CLX
by ahefner 25 Jan '08

25 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX In directory clnet:/tmp/cvs-serv25703 Modified Files: medium.lisp Log Message: Fix clipping bug. The device region is the final determiner of our clipping rectangle. This is computed from both the medium clipping region and the sheet (native) region. When the device region changes, update the clipping region the next time we sync the gcontext, so that it does not continue to clip to the size of the old window. --- /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2008/01/21 01:26:43 1.86 +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/medium.lisp 2008/01/25 07:36:39 1.87 @@ -37,7 +37,7 @@ (defclass clx-medium (basic-medium) ((gc :initform nil) (picture :initform nil) - (clipping-region-dirty :initform t) + (last-medium-device-region :initform nil) (clipping-region-tmp :initform (vector 0 0 0 0) :documentation "This object is reused to avoid consing in the most common case when configuring the clipping region.") @@ -134,12 +134,6 @@ ;; to clx :] we stick with :unsorted until that can be sorted out (setf (xlib:gcontext-clip-mask gc :unsorted) rect-seq))))))) -(defmethod (setf medium-clipping-region) :after (region (medium clx-medium)) - (declare (ignore region)) - (with-slots (#|gc|# clipping-region-dirty) medium - (setf clipping-region-dirty t) - #+NIL (when gc (%set-gc-clipping-region medium gc)))) - (defgeneric medium-gcontext (medium ink)) @@ -157,7 +151,7 @@ (let* ((port (port medium)) (mirror (port-lookup-mirror port (medium-sheet medium))) (line-style (medium-line-style medium))) - (with-slots (gc clipping-region-dirty) medium + (with-slots (gc last-medium-device-region) medium (unless gc (setq gc (xlib:create-gcontext :drawable mirror)) ;; this is kind of false, since the :unit should be taken @@ -177,9 +171,9 @@ (let ((fn (text-style-to-X-font port (medium-text-style medium)))) (when (typep fn 'xlib:font) (setf (xlib:gcontext-font gc) fn))) - (when clipping-region-dirty - (%set-gc-clipping-region medium gc) - (setf clipping-region-dirty nil)) + (unless (eq last-medium-device-region (medium-device-region medium)) + (setf last-medium-device-region (medium-device-region medium)) + (%set-gc-clipping-region medium gc)) gc))) (defmethod medium-gcontext ((medium clx-medium) (ink (eql +transparent-ink+)))

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 24 Jan '08

24 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv8875/Drei Modified Files: packages.lisp Log Message: Export drei:clear-undo-history. --- /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/23 19:01:40 1.46 +++ /project/mcclim/cvsroot/mcclim/Drei/packages.lisp 2008/01/24 15:45:33 1.47 @@ -205,7 +205,7 @@ #:insert-record #:delete-record #:compound-record - #:with-undo + #:with-undo #:clear-undo-history #:drei-buffer

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 24 Jan '08

24 Jan '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv18349/Drei Modified Files: views.lisp Log Message: When clearing the undo history, also clear the undo accumulator. --- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/23 19:01:40 1.28 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/24 09:25:17 1.29 @@ -259,7 +259,8 @@ (defmethod clear-undo-history ((undo-maintainer undo-mixin)) (setf (slot-value undo-maintainer 'tree) - (make-instance 'standard-undo-tree))) + (make-instance 'standard-undo-tree) + (undo-accumulate undo-maintainer) '())) ;;; undo-mixin delegation (here because of the package)

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs