mcclim-cvs February 2008

mcclim-cvs@common-lisp.net

6 participants
86 discussions

[mcclim-cvs] CVS mcclim
by thenriksen 05 Feb '08

05 Feb '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv4120 Modified Files: menu-choose.lisp Log Message: Changed menu-choose to only much around with the position of the menu if it's a pane we created ourselves. --- /project/mcclim/cvsroot/mcclim/menu-choose.lisp 2008/01/30 23:22:45 1.21 +++ /project/mcclim/cvsroot/mcclim/menu-choose.lisp 2008/02/05 13:44:33 1.22 @@ -157,6 +157,10 @@ :cell-align-y (or cell-align-y :top) :row-wise row-wise)) +(defclass menu-pane (clim-stream-pane) + () + (:default-initargs :background *3d-normal-color*)) + ;; Spec macro. (defmacro with-menu ((menu &optional associated-window &key (deexpose t) label scroll-bars) @@ -179,8 +183,7 @@ *application-frame*)) (fm (frame-manager associated-frame))) (with-look-and-feel-realization (fm associated-frame) ; hmm... checkme - (let* ((menu-stream (make-pane-1 fm associated-frame 'clim-stream-pane - :background *3d-normal-color* #+NIL +gray80+)) + (let* ((menu-stream (make-pane-1 fm associated-frame 'menu-pane)) (container (scrolling (:scroll-bar scroll-bars) menu-stream)) (frame (make-menu-frame (raising () @@ -280,7 +283,7 @@ (values (min x2 max-width) (min y2 max-height))))) -(defmethod adjust-menu-size-and-position ((menu clim-stream-pane) +(defmethod adjust-menu-size-and-position ((menu menu-pane) &key x-position y-position) ;; Make sure the menu isn't higher or wider than the screen. (multiple-value-bind (menu-width menu-height)

1 0

[mcclim-cvs] CVS mcclim-website
by thenriksen 05 Feb '08

05 Feb '08

Update of /project/mcclim/cvsroot/mcclim-website In directory clnet:/tmp/cvs-serv18433 Modified Files: index.html Log Message: Name => title. --- /project/mcclim/cvsroot/mcclim-website/index.html 2008/02/05 12:59:56 1.3 +++ /project/mcclim/cvsroot/mcclim-website/index.html 2008/02/05 13:00:32 1.4 @@ -28,7 +28,7 @@ Interface Manager <a href="http://www.stud.uni-karlsruhe.de/~unk6/clim-spec/">specification</a>, - a powerful toolkit for writing <acronym name="Graphical User + a powerful toolkit for writing <acronym title="Graphical User Interface">GUI</acronym>s in Common Lisp. </p> <p> @@ -140,7 +140,7 @@ </div> <br> <hr> -$Date: 2008/02/05 12:59:56 $ +$Date: 2008/02/05 13:00:32 $

1 0

[mcclim-cvs] CVS mcclim-website
by thenriksen 05 Feb '08

05 Feb '08

Update of /project/mcclim/cvsroot/mcclim-website In directory clnet:/tmp/cvs-serv17802 Modified Files: index.html Log Message: Added mention of what McCLIM actually is. --- /project/mcclim/cvsroot/mcclim-website/index.html 2008/01/29 11:49:53 1.2 +++ /project/mcclim/cvsroot/mcclim-website/index.html 2008/02/05 12:59:56 1.3 @@ -24,8 +24,12 @@ <div class="main-body"> <h2>What is McCLIM?</h2> <p> - McCLIM is an open source implementation of the - Common Lisp Interface Manager <a href="http://www.stud.uni-karlsruhe.de/~unk6/clim-spec/">specification</a>. + McCLIM is an open source implementation of the Common Lisp + Interface + Manager <a + href="http://www.stud.uni-karlsruhe.de/~unk6/clim-spec/">specification</a>, + a powerful toolkit for writing <acronym name="Graphical User + Interface">GUI</acronym>s in Common Lisp. </p> <p> It is licensed under the <a href="License">GNU Library General Public License</a>. @@ -136,7 +140,7 @@ </div> <br> <hr> -$Date: 2008/01/29 11:49:53 $ +$Date: 2008/02/05 12:59:56 $

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 05 Feb '08

05 Feb '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv26133 Modified Files: frames.lisp Log Message: Added restart for re-executing commands. --- /project/mcclim/cvsroot/mcclim/frames.lisp 2008/02/03 09:10:45 1.132 +++ /project/mcclim/cvsroot/mcclim/frames.lisp 2008/02/05 08:53:09 1.133 @@ -563,7 +563,13 @@ ;; frames command loop. Perhaps looking ath the process slot? ;; --GB 2005-11-28 (cond ((eq *application-frame* frame) - (apply (command-name command) (command-arguments command))) + (restart-case + (apply (command-name command) (command-arguments command)) + (try-again () + :report (lambda (stream) + (format stream "Try executing the command ~A again" + (command-name command))) + (execute-frame-command frame command)))) (t (let ((eq (sheet-event-queue (frame-top-level-sheet frame)))) (event-queue-append eq (make-instance 'execute-command-event

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 04 Feb '08

04 Feb '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv30180 Modified Files: input-editing.lisp Log Message: Fix bug that sometimes caused previous prompts to be covered by typeout. --- /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/04 19:06:17 1.72 +++ /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/04 19:15:35 1.73 @@ -222,7 +222,7 @@ (map-over-output-records-overlapping-region #'(lambda (record) (multiple-value-bind (record-x record-y) (output-record-position record) - (when (>= (+ record-y (bounding-rectangle-height record)) y) + (when (> (+ record-y (bounding-rectangle-height record)) y) (setf (output-record-position record) (values record-x (+ record-y delta-y)))))) (stream-output-history sheet)

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 04 Feb '08

04 Feb '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv29112 Modified Files: input-editing-drei.lisp input-editing.lisp Log Message: Fixed some random input-editor bugs. --- /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp 2008/02/01 20:28:46 1.12 +++ /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp 2008/02/04 19:06:17 1.13 @@ -135,7 +135,7 @@ :input-sensitizer input-sensitizer :initial-contents initial-contents :class class) - (funcall continuation editing-stream)) + (input-editing-rescan-loop editing-stream continuation)) (finalize editing-stream input-sensitizer)))) (defmethod immediate-rescan ((stream standard-input-editing-stream)) --- /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/03 12:11:13 1.71 +++ /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/04 19:06:17 1.72 @@ -336,9 +336,9 @@ (loop (block rescan (handler-bind ((rescan-condition #'(lambda (c) + (declare (ignore c)) (reset-scan-pointer editing-stream start-scan-pointer) ;; Input-editing contexts above may be interested... - (signal c) (return-from rescan nil)))) (return-from input-editing-rescan-loop (funcall continuation editing-stream))))))) @@ -372,7 +372,7 @@ (first initial-contents) (second initial-contents) (stream-default-view stream)))) - (input-editing-rescan-loop stream continuation)) + (call-next-method)) (defmethod invoke-with-input-editing :around ((stream extended-output-stream) continuation

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 04 Feb '08

04 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv29112/Drei Modified Files: input-editor.lisp Log Message: Fixed some random input-editor bugs. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/04 17:20:29 1.40 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/04 19:06:17 1.41 @@ -349,7 +349,7 @@ (length old-contents)))) ;; We have to return "the position in the input buffer". We ;; return the insertion position. - buffer-start))) + (stream-insertion-pointer stream)))) (defun present-acceptably-to-string (object type view for-context-type) "Return two values - a string containing the printed

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 04 Feb '08

04 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv7321/Drei Modified Files: lisp-syntax-swine.lisp Log Message: Fixed lambda-list display where a space character would not be printed where it is necessary. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2008/01/11 07:52:03 1.14 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2008/02/04 17:44:50 1.15 @@ -710,7 +710,7 @@ (format stream "&KEY ") (show-parameters (keyword-parameters lambda-list)))))) (format stream "(~A" operator) - (when (required-parameters lambda-list) + (when (all-parameters lambda-list) (princ #\Space stream)) (show-lambda-list lambda-list) (format stream ")")))

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 04 Feb '08

04 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv31373/Drei Modified Files: input-editor.lisp Log Message: Replace hack with general fix. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/03 23:49:24 1.39 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/04 17:20:29 1.40 @@ -573,8 +573,7 @@ ;; delete arguments prompts or other things. (drei-core:with-narrowed-buffer (drei (loop for index from - (1- (min (input-position stream) - (size (buffer (View drei))))) above 0 + (1- (input-position stream)) above 0 when (typep (buffer-object (buffer (view drei)) index) 'noise-string) return (1+ index) @@ -640,8 +639,9 @@ (defmethod reset-scan-pointer ((stream drei-input-editing-mixin) &optional (scan-pointer 0)) - (setf (stream-scan-pointer stream) scan-pointer) - (setf (stream-rescanning stream) t)) + (setf (stream-scan-pointer stream) scan-pointer + (stream-rescanning stream) t + (input-position stream) (min scan-pointer (input-position stream)))) ;; This has been cribbed from SPLIT-SEQUENCE and lightly modified. (defun split-sequence (delimiter seq &key (count nil) (remove-empty-subseqs nil) (start 0) (end nil) (test nil test-supplied) (test-not nil test-not-supplied) (key nil key-supplied))

1 0

[mcclim-cvs] CVS mcclim/Apps/Listener
by rschlatte 04 Feb '08

04 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory clnet:/tmp/cvs-serv4347/Apps/Listener Modified Files: dev-commands.lisp util.lisp Log Message: ,Change Directory foo now changes to foo/ --- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/02/03 20:51:47 1.51 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2008/02/04 03:17:39 1.52 @@ -1128,9 +1128,9 @@ (full-names 'boolean :default nil :prompt "show full name?") (list-all-direct-subdirectories 'boolean :default nil :prompt "list all direct subdirectories?")) - (let* ((pathname (if (wild-pathname-p pathname) ; Forgot why I did this.. - (merge-pathnames pathname) - pathname)) + (let* ((pathname + ;; helpfully fix things if trailing slash wasn't entered + (directorify-pathname pathname)) (wild-pathname (gen-wild-pathname pathname)) (dir (if list-all-direct-subdirectories (list-directory-with-all-direct-subdirectories wild-pathname) @@ -1181,12 +1181,12 @@ :menu t :command-table filesystem-commands) ((pathname 'pathname :prompt "pathname")) - (let ((pathname (merge-pathnames pathname))) - (cond ((not (probe-file pathname)) - (note "~A does not exist." pathname)) - ((not (directoryp pathname)) - (note "~A is not a directory." pathname)) - (t (change-directory (merge-pathnames pathname))) ))) + (let ((pathname (merge-pathnames + ;; helpfully fix things if trailing slash wasn't entered + (directorify-pathname pathname)))) + (if (not (probe-file pathname)) + (note "~A does not exist.~%" pathname) + (change-directory pathname)))) (define-command (com-up-directory :name "Up Directory" :menu t @@ -1312,15 +1312,12 @@ (define-command (com-push-directory :name "Push Directory" :menu t :command-table directory-stack-commands) - ((pathname 'pathname :prompt "pathname")) - (let ((pathname (merge-pathnames pathname))) - (if (and (probe-file pathname) - (directoryp pathname));; FIXME: Need smart conversion to directories, here and elsewhere. + ((pathname 'pathname :prompt "directory")) + (let ((pathname (merge-pathnames (directorify-pathname pathname)))) + (if (not (probe-file pathname)) + (note "~A does not exist.~%" pathname) (progn (push *default-pathname-defaults* *directory-stack*) - (com-change-directory pathname)) - (italic (t) - (fresh-line) (present (truename pathname)) - (format t " does not exist or is not a directory.~%")) )) + (com-change-directory pathname)))) (compute-dirstack-command-eligibility *application-frame*)) (defun comment-on-dir-stack () --- /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp 2008/02/03 12:47:04 1.24 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/util.lisp 2008/02/04 03:17:39 1.25 @@ -214,6 +214,16 @@ (merge-pathnames (make-pathname :directory '(:relative :back)) (truename pathname)))))) +(defun directorify-pathname (pathname) + "Convert a pathname with name/version into a pathname with a +similarly-named last directory component. Used for user input that +lacks the final #\\/." + (if (directoryp pathname) + pathname + ;; doing this the primitive way instead of trying to grok name, + ;; type, version and trying to reconstruct what the user + ;; actually typed. I think I'm going to hell for this one. + (pathname (concatenate 'string (namestring pathname) "/")))) ;;;; Abbreviating item formatter

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs February 2008