mcclim-cvs

mcclim-cvs@common-lisp.net

1697 discussions

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

08 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv16323/Drei Modified Files: input-editor.lisp Log Message: Fixed yet another random input-editor issue. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/08 11:29:17 1.43 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/08 11:36:35 1.44 @@ -594,7 +594,7 @@ ;; No change actually took place, even though IP may ;; have moved. nil) - ((< first-mismatch (stream-scan-pointer stream)) + ((<= first-mismatch (stream-scan-pointer stream)) ;; Eek, change before scan pointer - this probably ;; changes the scan, so we'll have to rescan ;; everything. Bummer!

1 0

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

08 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv14662/Drei Modified Files: input-editor.lisp Log Message: Removed stale hack. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/08 11:17:08 1.42 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/08 11:29:17 1.43 @@ -625,15 +625,9 @@ (setf (activation-gesture stream) gesture) (rescan-if-necessary stream) (return-from stream-process-gesture gesture)) - ;; XXX: The problem is that `*original-stream*' is a subclass of - ;; DREI-INPUT-EDITING-MIXIN (`stream', actually) at this point, - ;; which has an array as input buffer (as demanded by the spec), - ;; while the `stream-unread-gesture' method expects an event queue. - (let ((*original-stream* nil) - (*standard-input* (encapsulating-stream-stream stream))) - (when (proper-gesture-p gesture) - (unread-gesture gesture)) - (read-gestures-and-act stream gesture type))) + (when (proper-gesture-p gesture) + (unread-gesture gesture :stream (encapsulating-stream-stream stream))) + (read-gestures-and-act stream gesture type)) (defmethod reset-scan-pointer ((stream drei-input-editing-mixin) &optional (scan-pointer 0))

1 0

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

08 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv11149/Drei Modified Files: input-editor.lisp Log Message: Fixed obscure input-editing issue where the input position was sometimes set erroneously. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/04 19:06:17 1.41 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/02/08 11:17:08 1.42 @@ -161,17 +161,17 @@ (stream-scan-pointer stream)) (call-next-method)) (setf (stream-insertion-pointer stream) (offset ip-clone))) - (redraw-input-buffer stream)) - ;; We skip ahead of any noise strings to put us past the - ;; prompt. This is safe, because the noise strings are to be - ;; ignored anyway, but we need to be ahead to set the input - ;; position properly (ie. after the prompt). - (loop with buffer = (buffer (view (drei-instance stream))) - until (>= (stream-scan-pointer stream) (size buffer)) - while (or (typep #1=(buffer-object buffer (stream-scan-pointer stream)) 'noise-string) - (delimiter-gesture-p #1#)) - do (incf (stream-scan-pointer stream))) - (setf (input-position stream) (stream-scan-pointer stream)))) + (redraw-input-buffer stream))) + ;; We skip ahead of any noise strings to put us past the + ;; prompt. This is safe, because the noise strings are to be + ;; ignored anyway, but we need to be ahead to set the input + ;; position properly (ie. after the prompt). + (loop with buffer = (buffer (view (drei-instance stream))) + until (>= (stream-scan-pointer stream) (size buffer)) + while (or (typep #1=(buffer-object buffer (stream-scan-pointer stream)) 'noise-string) + (delimiter-gesture-p #1#)) + do (incf (stream-scan-pointer stream))) + (setf (input-position stream) (stream-scan-pointer stream))) (defmethod stream-accept :after ((stream drei-input-editing-mixin) type &key &allow-other-keys) ;; If we end up asking for more input using the stream, we do not @@ -514,9 +514,7 @@ (t (unless peek-p (incf scan-pointer)) - (return-from stream-read-gesture gesture)) - (t (incf scan-pointer) - (setf last-was-noisy nil))))) + (return-from stream-read-gesture gesture))))) (unless last-was-noisy ; This prevents double-prompting. (setf (stream-rescanning stream) nil)) (when activation-gesture

1 0

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

08 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv1392/Drei Modified Files: lisp-syntax-swank.lisp Log Message: Let's try not rebinding *standard-output* when asking Swank to compile stuff for us. This makes C-c C-c'ing in Climacs much more verbose. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp 2008/01/09 22:15:49 1.11 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swank.lisp 2008/02/08 10:37:46 1.12 @@ -61,9 +61,6 @@ (view drei-buffer-view) (buffer-mark mark)) (let* ((view-name (name view)) (buffer-file-name (filepath (buffer view))) - ;; swank::compile-string-for-emacs binds *compile-verbose* to t - ;; so we need to do this to avoid scribbles on the pane - (*standard-output* *debug-io*) (swank::*buffer-package* package) (swank::*buffer-readtable* *readtable*)) (let ((result (swank::compile-string-for-emacs

1 0

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

07 Feb '08

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv4973 Modified Files: input-editing.lisp Log Message: Use `format-items' when displaying inline completions. This makes it work better in the ESA minibuffer. --- /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/04 19:15:35 1.73 +++ /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/02/07 20:20:04 1.74 @@ -641,19 +641,14 @@ (with-input-editor-typeout (stream :erase t) (surrounding-output-with-border (stream :shape :drop-shadow :background +cornsilk1+) (surrounding-output-with-border (stream :shape :rectangle) - (let* ((possibility-count (length possibilities)) - (row-length (sqrt possibility-count)) - (ptype `(completion ,possibilities))) - (formatting-table (stream) - (loop until (null possibilities) - do (formatting-row (stream) - (loop for cell-index from 0 below row-length - until (null possibilities) - do (formatting-cell (stream) - (funcall possibility-printer - (pop possibilities) - ptype - stream))))))))))) + (let ((ptype `(completion ,possibilities))) + (format-items possibilities + :stream stream + :printer #'(lambda (possibility stream) + (funcall possibility-printer + possibility + ptype + stream)))))))) ;;; Helper returns gesture (or nil if gesture shouldn't be part of the input) ;;; and completion mode, if any.

1 0

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

05 Feb '08

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv30487/Drei Modified Files: lisp-syntax-swine.lisp Log Message: Use frame-manager-menu-choose and find-frame-manager instead of menu-choose when asking for symbol completion. This permits Drei variants to use with-frame-manager to provide their own look and feel for the menu. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2008/02/04 17:44:50 1.15 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax-swine.lisp 2008/02/05 21:51:29 1.16 @@ -868,15 +868,20 @@ t) (t (replace-symbol-at-mark syntax mark - (or (menu-choose (mapcar - #'(lambda (completion) - (if (listp completion) - (cons completion - (first completion)) - completion)) - completions) - :label "Possible completions" - :scroll-bars :vertical) + (or (when (or useful-token + (accept 'boolean + :prompt "You are asking for a list of all exported symbols, proceed?")) + (frame-manager-menu-choose + (find-frame-manager) + (mapcar + #'(lambda (completion) + (if (listp completion) + (cons completion + (first completion)) + completion)) + completions) + :label "Possible completions" + :scroll-bars :vertical)) longest)) t))))))

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-serv23781 Modified Files: menu-choose.lisp Log Message: Don't kill the menu-choose popup at any gesture. --- /project/mcclim/cvsroot/mcclim/menu-choose.lisp 2008/02/05 13:44:33 1.22 +++ /project/mcclim/cvsroot/mcclim/menu-choose.lisp 2008/02/05 16:58:51 1.23 @@ -374,7 +374,7 @@ (handler-case (with-input-context (`(or ,presentation-type blank-area) :override t) (object type event) - (prog1 nil (read-gesture :stream menu)) + (prog1 nil (loop (read-gesture :stream menu))) (blank-area nil) (t (values object event))) (abort-gesture () nil)))))

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

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