- mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] Re: CVS mcclim/Drei
by Christophe Rhodes 06 Aug '07

06 Aug '07

"thenriksen" <thenriksen-F1HGIaG5STRyXAeb93iumQ(a)public.gmane.org> writes: > Update of /project/mcclim/cvsroot/mcclim/Drei > In directory clnet:/tmp/cvs-serv13603/Drei > > Modified Files: > drei-redisplay.lisp drei-clim.lisp > Log Message: > Fixed the "wandering Drei" input-editor redisplay bug by enforcing the > original coordinates of the Drei instance. I gave Troels instructions for reproducing the bug earlier today, and he couldn't. The instructions used Courier Default Ugly, and went: (asdf:oos 'asdf:load-op :gsharp) (clim:run-frame-top-level (clim:make-application-frame 'fontview::fontview)) Antialias View SPC ; and mouse over Troels was unable to reproduce it, but I now have a guess why. I'm lazy with capital letters in clim, since it corrects them for me, so I type "antialias SPC". When I hit the SPC and the initial a is upcased to A, I think that is when the oddities begin. (This is just a guess from examining the visual effect that I now see when at the command prompt, and not based on reading any of the code). Cheers, Christophe

1 0

[mcclim-devel] Gtkairo backspace issue
by Jeremy Rayman 17 Jul '07

17 Jul '07

It's great to see the additional keylayout support from this gtkairo commit: http://common-lisp.net/pipermail/mcclim-cvs/2007-July/001019.html But the following line appears to have broken my backspace key: +(DEFINE-KEY 65288 ((4 8 0) :BACKSPACE #\Backspace) (T :TERMINATE-SERVER NIL)) Now whenever I hit backspace in a McCLIM app I get the message "TERMINATE-SERVER is unbound", and nothing gets deleted. Commenting the aforementioned line makes the backspace key work fine. If it helps, here's the Xev readout for my backspace key. KeyPress event, serial 25, synthetic NO, window 0x1800001, root 0xa6, subw 0x0, time 3530064260, (289,239), root:(1826,1282), state 0x10, keycode 22 (keysym 0xff08, BackSpace), same_screen YES, XLookupString gives 1 bytes: (08) " XmbLookupString gives 1 bytes: (08) " XFilterEvent returns: False KeyRelease event, serial 25, synthetic NO, window 0x1800001, root 0xa6, subw 0x0, time 3530064392, (289,239), root:(1826,1282), state 0x10, keycode 22 (keysym 0xff08, BackSpace), same_screen YES, XLookupString gives 1 bytes: (08) " It could also be worth noting that I use the dvorak keyboard layout. Hope this is useful. Thanks a bunch! - Jeremy Rayman jeremy.rayman.public(a)gmail.com p.s. I couldn't for the life of me see where to submit a new ticket on Trac. Do you need a login?

1 0

[mcclim-devel] bezier simplification
by Christophe Rhodes 17 Jul '07

17 Jul '07

Hi, I think the attached patch implements a slight simplification of convolution of areas with regions: since segments within bezier curves are by construction connected (p3 of one segment is p0 of the next), the convolution was including duplicates from the region at successive endpoints. The gsharp :quarter-rest becomes a union of 32 bezier areas with this patch (down from 47), and doesn't look noticeably different to me, either with the X or the html canvas output methods; the canvas output is overall smaller by 20%, just from this change. I believe that there are still duplicate regions in the quarter rest, but if this change could be reviewed I'd be happy. Cheers, Christophe

2 2

[mcclim-devel] Tooltip stuff
by Fred Gilham 15 Jul '07

15 Jul '07

A few weeks ago I posted some code to do tooltips. I now have a new version that is more intelligent about placing the tooltip. Nobody responded to my previous message so I'm wondering if anyone is interested in this. It's not particularly "CLIM-y" I suppose. Anyway here it is. It does show up some issues with McCLIM's erasing and drawing stuff. For example, if you compile this code and the three test functions, then run (clim-demo::demodemo) and run the border styles test, you'll see that the drawing locations are all screwed up. However, if you run the address book you'll see that it looks OK there, but if you enlarge the address book window so that you can see the whole tool tip and move your mouse around, you'll see that it leaves turds. This doesn't happen with Allegro Clim. I've noticed issues with McCLIM's erasing stuff before. Running Abigail, for example, and running the test function from the menu, it leaves all kinds of cruft on the screen that it doesn't in Allegro. I bring this up just to inform people who might (or might not) want to fix it. Tooltip code: ;;; -*- Mode: Common-Lisp -*- ;;; Use tooltips with CLIM presentations ;;; Copyright (C) 2007 SRI International. ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. ;;============================= CLIM Tooltips =============================== ;; Written by Suzanne Paley. ;; To use tooltips w/ clim presentations, define after methods for the clim ;; presentation-method clim:highlight-presentation. When the state argument ;; is :highlight, the method should call draw-tooltip. When the state ;; argument is :unhighlight, the method should call erase-tooltip. Here's ;; a sample call (which assumes the fn get-tooltip-text returns a string ;; or NIL): ;; ;;;(clim:define-presentation-method clim:highlight-presentation :after ;;; ((type t) record stream (state (eql :highlight))) ;;; (draw-tooltip stream (get-tooltip-text record) ;;; :region (orec-relative->absolute-region record stream))) ;;; ;;;(clim:define-presentation-method clim:highlight-presentation :after ;;; ((type t) record stream (state (eql :unhighlight))) ;;; (declare (ignore record)) ;;; (erase-tooltip stream) ;;; ) ;; ;; At some point, we may want to extend the tooltip functionality to allow ;; for arbitrary output w/in a tooltip (i.e. not just a string, maybe ;; graphics too). (defvar *tooltip-textstyle* (clim:make-text-style :sans-serif :roman :very-small)) ;; Once an application frame has been initialized, an application will ;; probably want to change this color to something more appealing! (defvar *tooltip-color* clim:+yellow+) (defvar *tooltip-orec* nil) ;; ============================================================= draw-tooltip ;; [API] ;; Description : Draw a box containing text, to be used as a tooltip. ;; Either a region or x- and y-coordinates should be supplied. ;; If coordinates are supplied, the box will have its upper left ;; corner at that position. If no coordinates are supplied but a clim ;; region is, the box will be positioned close to that region, but not ;; overlapping it. Currently it is displayed immediately below the region, ;; but this should be changed to ensure that the entire box is positioned ;; within the viewport. If no position and no region are supplied, the box ;; is drawn at (0,0). We actually output the text twice, once ;; to compute its size and the second time to actually render it -- we ;; may be able to make this more efficient. ;; ;; Arguments : stream: the clim stream to output to ;; text: a string or NIL ;; region: a clim region (optional) -- the tooltip should be ;; positioned near this region. ;; x,y: integers (optional) -- if supplied, the tooltip will ;; have its upper left corner at this position. ;; text-render-fn: A function, defaulting to clim:draw-text*, ;; used to render the text. Must the same arguments ;; as clim:draw-text*. ;; Returns : nothing ;; Side Effects : sets *tooltip-orec* ;; Update History : gilham:Jul-10-2007 More intelligent positioning of tooltip. (defun draw-tooltip (stream text &key region x y (text-render-fn #'clim:draw-text*)) (erase-tooltip stream) ;; clear previous tooltip, if there is one (when (and text (not (equal text ""))) (clim:with-drawing-options (stream :text-style *tooltip-textstyle* :ink clim:+black+) (let ((margin 2)) (multiple-value-bind (wd ht) (clim:bounding-rectangle-size (clim:with-output-to-output-record (stream) (funcall text-render-fn stream text 0 0))) (setf *tooltip-orec* (clim:with-output-recording-options (stream :draw nil :record t) (clim:with-new-output-record (stream) (clim:draw-rectangle* stream (- margin) (- margin) (+ wd margin) (+ ht margin) :ink *tooltip-color*) (clim:draw-rectangle* stream (- margin) (- margin) (+ wd margin) (+ ht margin) :filled nil) (funcall text-render-fn stream text 0 0 :align-x :left :align-y :top) ))) (when (and region (not (and x y))) ;; We may want to get smarter about positioning of the tooltip (multiple-value-setq (x y) (clim:stream-pointer-position stream)) (if (and x y) (let* ((viewport-br (clim:window-viewport stream)) (viewport-max-x (clim:bounding-rectangle-max-x viewport-br)) (viewport-min-x (clim:bounding-rectangle-min-x viewport-br)) (viewport-max-y (clim:bounding-rectangle-max-y viewport-br)) (viewport-min-y (clim:bounding-rectangle-min-y viewport-br)) (tooltip-max-x (clim:bounding-rectangle-max-x *tooltip-orec*)) (tooltip-max-y (clim:bounding-rectangle-max-y *tooltip-orec*)) ) ;; Get the tool tip clear of the pointer. (setf x (+ x 10) y (- y 10 tooltip-max-y)) ;; Try to keep the tool tip in the viewport. (when (> (+ x tooltip-max-x) viewport-max-x) (decf x (+ (- (+ x tooltip-max-x) viewport-max-x) margin)) (when (< x viewport-min-x) (setf x viewport-min-x))) (when (< y viewport-min-y) (incf y 40) (when (> y viewport-max-y) (setf y (- viewport-max-y tooltip-max-y))) )) (setq x (or x 0) y (or y 0)))) )) (setf (clim:output-record-position *tooltip-orec*) (values x y)) (clim:tree-recompute-extent *tooltip-orec*) (clim:replay *tooltip-orec* stream) ))) ;; Erase a tooltip drawn by draw-tooltip ;; Side Effects : sets *tooltip-orec* to nil (defun erase-tooltip (stream) (when *tooltip-orec* (clim:erase-output-record *tooltip-orec* stream nil) (setf *tooltip-orec* nil) )) ;; ============================================ orec-relative->absolute-region ;; [API] ;; Description : Given an output record, return a clim ;; region that reflects its actual position in the window. ;; Arguments : orec: an output-record ;; stream: the stream on which orec was displayed ;; Returns : a clim region ;; Side Effects : none ;; Update History : (defun orec-relative->absolute-region (orec stream) (multiple-value-bind (xoff yoff) #+mcclim (climi::convert-from-relative-to-absolute-coordinates stream orec) #-mcclim (clim:convert-from-relative-to-absolute-coordinates stream orec) (clim:transform-region (clim:make-translation-transformation xoff yoff) orec))) ;;; ;;; Test code ;;; #|| (clim:define-presentation-method clim:highlight-presentation :after ((type t) record stream (state (eql :highlight))) (unless (eq type 'clim:blank-area) (draw-tooltip stream (get-tooltip-text record) :region (orec-relative->absolute-region record stream)))) (clim:define-presentation-method clim:highlight-presentation :after ((type t) record stream (state (eql :unhighlight))) (declare (ignore record)) (unless (eq type 'clim:blank-area) (erase-tooltip stream) )) (defun get-tooltip-text (record) ;; (declare (ignore record)) ;; "This is a tooltip!" (format nil "~A" record) ) ||#

3 3

[mcclim-devel] Yet another half-baked half-finished backend
by Christophe Rhodes 10 Jul '07

10 Jul '07

Hi, I'm aware that we're accumulating broken backends faster than we are fixing them, but I'd still like to make a case for including another. Over the course of yesterday, I built enough of a backend based on the WHATWG (HTML 5) group's <canvas> widget that code which is essentially (with-output-to-canvas (s file) (gsharp:draw-buffer s buffer)) produces <http://doc.gold.ac.uk/~mas01cr/tmp/rapsoden-mostly-correct.html> (best viewed with something that's not IE; also, please don't tell me that it tells you about not supporting <canvas> even though it does). I should warn that I'm one Web Coder short of a project; I don't really have a feeling for how to take this backend much further: specifically, missing features that are moderately essential are text (<canvas> doesn't support text; apparently styled <div>s are the way forward) -- which would get the backend about up to Postscript levels of functionality -- and interactivity, which would be utterly cool but clearly won't work currently given that that html file is about 1MB big. So, any ideas? The backend itself is about 400 lines of code; should I just go ahead and check it in, or does anyone have any reservations? Cheers, Christophe

4 4

[mcclim-devel] mcclim vs slime
by Christian Lynbech 22 Jun '07

22 Jun '07

Am I the only one who has problems with the recent inclusion of swank into mcclim? I am not disputing the honorable intentions of adding it but it clashes with my habits of administering mcclim and slime. I update both mcclim and slime pretty frequently and I also regularly dump a core with mcclim to speed up (re)starting, and now troubles starts. When slime (from the emacs side) starts up the inferior lisp, it will set up to load swank which in my case comes straight from a CVS sandbox. But my mcclim enabled image already has a (possibly different) version of swank loaded and apart from a bunch of annoying warnings, the two versions of swank may clash in ways that makes starting fail (if for instance a struct has changed layout). Would it be possible/acceptable to factor out the stuff that needs swank into a separate system such that one could choose between basic-clim or the swank-enhanced-clim depending on what one was looking for? ------------------------+----------------------------------------------------- Christian Lynbech | christian #\@ defun #\. dk ------------------------+----------------------------------------------------- Hit the philistines three times over the head with the Elisp reference manual. - petonic(a)hal.com (Michael A. Petonic)

1 0

[mcclim-devel] Tooltip code
by Fred Gilham 22 Jun '07

22 Jun '07

Hello, One of my co-workers wrote the following code that we're interested in making available to the McCLIM project, if people developing that project are interested in having it. However, it seems to show up some deficiencies in the McCLIM redrawing code. Or is our code wrong? Anyway please feel free to add this code to McCLIM if wanted and to let me know if there are any wrong assumptions in the code. We do intend to develop it more but for now my concern is that it doesn't work that well with McCLIM. ;;; -*- Mode: Common-Lisp -*- ;;; Use tooltips with CLIM presentations ;;; Copyright (C) 2007 SRI International. ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Library General Public ;;; License as published by the Free Software Foundation; either ;;; version 2 of the License, or (at your option) any later version. ;;; This library is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;;; Library General Public License for more details. ;;; You should have received a copy of the GNU Library General Public ;;; License along with this library; if not, write to the ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA. ;;============================= CLIM Tooltips =============================== ;; Written by Suzanne Paley. ;; To use tooltips w/ clim presentations, define after methods for the clim ;; presentation-method clim:highlight-presentation. When the state argument ;; is :highlight, the method should call draw-tooltip. When the state ;; argument is :unhighlight, the method should call erase-tooltip. Here's ;; a sample call (which assumes the fn get-tooltip-text returns a string ;; or NIL): ;; ;;;(clim:define-presentation-method clim:highlight-presentation :after ;;; ((type t) record stream (state (eql :highlight))) ;;; (draw-tooltip stream (get-tooltip-text record) ;;; :region (orec-relative->absolute-region record stream))) ;;; ;;;(clim:define-presentation-method clim:highlight-presentation :after ;;; ((type t) record stream (state (eql :unhighlight))) ;;; (declare (ignore record)) ;;; (erase-tooltip stream) ;;; ) ;; ;; At some point, we may want to extend the tooltip functionality to allow ;; for arbitrary output w/in a tooltip (i.e. not just a string, maybe ;; graphics too). (defvar *tooltip-textstyle* (clim:make-text-style :sans-serif :roman :very-small)) ;; Once an application frame has been initialized, an application will ;; probably want to change this color to something more appealing! (defvar *tooltip-color* clim:+yellow+) (defvar *tooltip-orec* nil) ;; ============================================================= draw-tooltip ;; [API] ;; Description : Draw a box containing text, to be used as a tooltip. ;; Either a region or x- and y-coordinates should be supplied. ;; If coordinates are supplied, the box will have its upper left ;; corner at that position. If no coordinates are supplied but a clim ;; region is, the box will be positioned close to that region, but not ;; overlapping it. Currently it is displayed immediately below the region, ;; but this should be changed to ensure that the entire box is positioned ;; within the viewport. If no position and no region are supplied, the box ;; is drawn at (0,0). We actually output the text twice, once ;; to compute its size and the second time to actually render it -- we ;; may be able to make this more efficient. ;; ;; Arguments : stream: the clim stream to output to ;; text: a string or NIL ;; region: a clim region (optional) -- the tooltip should be ;; positioned near this region. ;; x,y: integers (optional) -- if supplied, the tooltip will ;; have its upper left corner at this position. ;; text-render-fn: A function, defaulting to clim:draw-text*, ;; used to render the text. Must the same arguments ;; as clim:draw-text*. ;; Returns : nothing ;; Side Effects : sets *tooltip-orec* ;; Update History : (defun draw-tooltip (stream text &key region x y (text-render-fn #'clim:draw-text*)) (erase-tooltip stream) ;; clear previous tooltip, if there is one (when (and text (not (equal text ""))) (clim:with-drawing-options (stream :text-style *tooltip-textstyle* :ink clim:+black+) (when (and region (not (and x y))) ;; We may want to get smarter about positioning of the tooltip (setq x (clim:bounding-rectangle-min-x region) y (+ 2 (clim:bounding-rectangle-max-y region)))) (unless (and x y) (setq x (or x 0) y (or y 0))) (let ((margin 2)) (multiple-value-bind (wd ht) (clim:bounding-rectangle-size (clim:with-output-to-output-record (stream) (funcall text-render-fn stream text 0 0))) (setf *tooltip-orec* (clim:with-output-recording-options (stream :draw nil :record t) (clim:with-new-output-record (stream) (clim:draw-rectangle* stream (- margin) (- margin) (+ wd margin) (+ ht margin) :ink *tooltip-color*) (clim:draw-rectangle* stream (- margin) (- margin) (+ wd margin) (+ ht margin) :filled nil) (funcall text-render-fn stream text 0 0 :align-x :left :align-y :top) ))) (setf (clim:output-record-position *tooltip-orec*) (values x y)) (clim:tree-recompute-extent *tooltip-orec*) (clim:replay *tooltip-orec* stream) ))))) ;; Erase a tooltip drawn by draw-tooltip ;; Side Effects : sets *tooltip-orec* to nil (defun erase-tooltip (stream) (when *tooltip-orec* (clim:erase-output-record *tooltip-orec* stream nil) (setf *tooltip-orec* nil) )) ;; ============================================ orec-relative->absolute-region ;; [API] ;; Description : Given an output record, return a clim ;; region that reflects its actual position in the window. ;; Arguments : orec: an output-record ;; stream: the stream on which orec was displayed ;; Returns : a clim region ;; Side Effects : none ;; Update History : (defun orec-relative->absolute-region (orec stream) (multiple-value-bind (xoff yoff) #+mcclim (climi::convert-from-relative-to-absolute-coordinates stream orec) #+allegro (clim:convert-from-relative-to-absolute-coordinates stream orec) (clim:transform-region (clim:make-translation-transformation xoff yoff) orec))) ;;; ;;; Test code ;;; #|| (clim:define-presentation-method clim:highlight-presentation :after ((type t) record stream (state (eql :highlight))) (draw-tooltip stream (get-tooltip-text record) :region (orec-relative->absolute-region record stream))) (clim:define-presentation-method clim:highlight-presentation :after ((type t) record stream (state (eql :unhighlight))) (declare (ignore record)) (erase-tooltip stream) ) (defun get-tooltip-text (record) (declare (ignore record)) "This is a tooltip!") ||# -- Fred Gilham gilham(a)csl.sri.com linus doesnt have what they call a GUI which means that you cant use a mouse and click on things you have to type in words in a different language probably finnish I dont know but it wont work unless you speak at least 10 different languages and one of those languages has to be a slavic language and you have a phd in 10 different languages and also can do math real real good - From geraldholmes.freeyellow.com

1 0

[mcclim-devel] Background ink in accept dialog
by daniel＠bigwalter.net 27 May '07

27 May '07

Patch: Change accept-present-default, textual-dialog-view, to use *3d-normal-color* for background ink. A similar change was made for menus in menu-choose.lisp.

1 0

[mcclim-devel] The accept-values command table
by daniel＠bigwalter.net 27 May '07

27 May '07

McCLIM for some reason uses the name accepting-values for the accepting-values command table. The CLIM spec uses a slightly different name; accept-values. This patch changes the name. The change will break some programs. Scigraph uses the McCLIM name in a few places. I made a patch for this program, but I haven't tested it.

1 0

[mcclim-devel] Update object of a presentation.
by Knut Olav Bøhmer 27 May '07

27 May '07

Hi, Let's say I have an object, that is presented with (present ...) on a pane. It is then drawn on the pane with (define-presentation-method present (...) (draw-arrow (start-of object) (end-of object) ...)) The arrow is used to represent the speed and direction of some external object (like the wind) Then the wind speed and direction changes, so the object is updated. Now I need to update the presentation to reflect the changes in the object. How can I update just that object? -- Knut Olav Bøhmer

5 6