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

[mcclim-devel] Drei gadgets
by Christophe Rhodes 09 Feb '09

09 Feb '09

Hi, For the revival of an application (an editor for lute tablature) whose previous incarnation was as a Climacs syntax, I'm trying to use a Drei gadget pane. I've found the attached patch necessary: the first hunk to prevent an infinite loop in command lookup, and the second to use the minibuffer stream for extended commands. I'm not sure if either of these patches is correct. Any advice would be welcome. Best, Christophe

1 0

[mcclim-devel] string-input-editing-stream - stream-peek-char fixup
by Mike Watters 21 Jan '09

21 Jan '09

accept-from-string was giving me program stack overflow errors on clisp (checked 2.44.1 and 2.45). I tracked it down to an infinite loop apparently caused by a stream-peek-char method on string-input-editing-stream (see attached patch). Mike Watters mike-cl(a)mwatters.net (running on clisp 2.44.1): CLIM-USER[2]> (accept-from-string 'integer "123") *** - Lisp stack overflow. RESET CLIM-USER[3]> Fix: --- mcclim-cvs/presentation-defs.lisp 2009-01-20 14:12:18.000000000 -0800 +++ mcclim-local/presentation-defs.lisp 2009-01-20 17:27:27.000000000 -0800 @@ -991,10 +991,8 @@ (declare (ignore abort))) (defmethod stream-peek-char ((stream string-input-editing-stream)) - (let ((char (read-char-no-hang stream nil nil))) - (when char - (unread-char char stream)) - (or char :eof))) + (or (stream-read-gesture stream :peek-p t) + :eof)) (defmethod stream-read-char-no-hang ((stream string-input-editing-stream)) (if (> (stream-scan-pointer stream) (length (stream-input-buffer stream)))

1 0

[mcclim-devel] string-input-editing-stream init bugfix
by Mike Watters 20 Jan '09

20 Jan '09

Looks like the initialize-instance method on string-input-editing-stream was in error (see attached). Mike Watters mike-cl(a)mwatters.net CLIM-USER> (accept-from-string 'integer "12345" :start 1) 123 INTEGER 5 CLIM-USER> Fix: --- mcclim-cvs/presentation-defs.lisp 2008-05-27 06:15:36.000000000 -0700 +++ mcclim-local/presentation-defs.lisp 2009-01-20 14:02:55.000000000 -0800 @@ -982,7 +982,7 @@ &allow-other-keys) (setf (stream-input-buffer stream) (replace (make-array (- end start) :fill-pointer (- end start)) - string :start1 start :end2 end))) + string :start2 start :end2 end))) (defmethod stream-element-type ((stream string-input-editing-stream)) 'character)

1 0

[mcclim-devel] accessing objects in highlight method
by Orm Finnendahl 28 Dec '08

28 Dec '08

Hi, I'm trying to realize a specialized browser for nested tree structures (displayed as graphics) using mcclim. I just started to learn clim and there are quite a few things still unclear to me (I read the paper of Ciccarelli and most resources I could get a hold of, though). As a starting point I use the clim-fig example in the demo package and managed to implement feedback during movement of figures (dragging) and hooking into the highlight function of the drawing pane. I need to access the data structure being presented within the context of the highlight method (invoked on mouse-over). Below is the highlight method specialized on the figure type of clim-fig. The "record" arg contains the output-record which seems to maintain a copy of the graphical representation information of the figure object, but I have no idea how to access the figure itself or the slots of its representation in the application frame. (define-presentation-method highlight-presentation ((type figure) record (stream (eql (find-pane-named *application-frame* 'canvas))) (state (eql :highlight))) ...) Can anybody help? Thanks, Orm Finnendahl

2 1

[mcclim-devel] accessing objects in highlight method
by Orm Finnendahl 28 Dec '08

28 Dec '08

Hi, I'm trying to realize a specialized browser for nested tree structures (displayed as graphics) using mcclim. I just started to learn clim so there are quite a few things still unclear to me (I read the paper of Ciccarelli and most resources I could get a hold of, though). As a starting point I use the clim-fig example in the demo package and managed to implement feedback during movement and hooking into the highlight function of the drawing pane. I need to access the data structure being presented within the context of the highlight method (invoked on mouse-over). Below is the highlight method specialized on the figure type of clim-fig. The "record" arg contains the output-record which seems to maintain a copy of the graphical representation information of the figure object, but I have no idea how to access the figure itself or the slots of its representation in the application frame. (define-presentation-method highlight-presentation ((type figure) record (stream (eql (find-pane-named *application-frame* 'canvas))) (state (eql :highlight))) ...) Can anybody help? Thanks, Orm Finnendahl

1 0

[mcclim-devel] Double clicks
by Nikolaus Demmel 19 Dec '08

19 Dec '08

Hi list, it seems to me mcclim doesn't implement double clicking at all. I can't find the pointer-double-click-event from the clim 2 spec except in the exported symbols list. Am I missing something? What i would actually need is support for double-clicking in gestures. The spec doesn't include a modifier ":double" in the add- gesture-name description, but this seems to be what the guys from franz do in their implementation (according to their clim 2 user guide) and also seems to be a reasonable way to realize double clicking gestures. Has there been any attempt to implement a) double clicking at all b) :double modifier for gesture definitions or is there a reason this has not been done yet / can't be done properly? I would be willing to spend some time trying to implement it, but unfortunately i have too little knowledge of the internals of mcclim to do it on my own. Best regards, Niko Demmel

1 0

[mcclim-devel] draw-pattern and transformations
by Cyrus Harmon 19 Dec '08

19 Dec '08

In trying to use draw-pattern to draw some images, it seems that draw- pattern, at least for image-based patterns, doesn't respect the current transformation. My very cursory reading of the spec would seem to indicate that the image should be transformed: http://bauhh.dyndns.org:8000/clim-spec/14-2.html#_735 Thoughts? thanks, Cyrus

1 0

[mcclim-devel] incremental-redisplay issues
by Cyrus Harmon 18 Dec '08

18 Dec '08

I've been developing an application for generating and visualizing 2-d structures for molecules and have run into some issues with incremental-redisplay. There are two main problems that can be seen in the following screen shot: http://www2.cyrusharmon.org/incr-redisp.png 1. I see visual "detritus" in the pane (is that the right term?) if I zoom in and out. It gets things mostly right, but there are some "left- over" lines that don't get erased. Some initial tests suggest this has to do with using incremental-redisplay in panes that have been transformed with with-scaling and friends. The workaround is to manually clear the screen, which I, hackily, do after various commands. 2. The order in which things are drawn is different upon redrawing. In the screenshot, you'll see that the lines for the bonds between the atoms are drawn on top of the colored circles representing the atoms. On the first drawing, they are drawn before the atoms and therefore are not overlapped by the atoms. Incremental-redisplay seems to be changing the order in which things are drawn. For some code that illustrates these problems, I've made a standalone clim app that demonstrates the behavior and attached it below. If it gets munged by the mailing list, the code can also be found at: http://www2.cyrusharmon.org/standalone.lisp Any suggestions on how to either fix or better use McCLIM, would be greatly appreciated. thanks, Cyrus ;;; file: standalone.lisp ;;; Copyright (c) 2008 Cyrus Harmon (ch-lisp(a)bobobeach.com) ;;; (asdf:oos 'asdf:load-op :mcclim) (defpackage #:chemicl-draw-standalone (:use #:clim #:clim-lisp)) (in-package :chemicl-draw-standalone) (defparameter *molecule-2d-pane-foreground-color* +white+) (defparameter *molecule-2d-pane-background-color* +black+) (defclass chemicl-2d-view (view) ()) (defparameter *chemicl-2d-view* (make-instance 'chemicl-2d-view)) (defclass chemicl-info-view (view) ()) (defparameter *chemicl-info-view* (make-instance 'chemicl-info-view)) (define-application-frame chemicl-draw () () (:pointer-documentation t) (:panes (app (make-clim-stream-pane :type 'application-pane :height 600 :width 500 :incremental-redisplay t :display-function 'display-chemicl-2d :default-view *chemicl-2d-view* :background *molecule-2d-pane-background-color* :scroll-bars :both)) (info :application :height 600 :width 300 :display-function 'display-chemicl-info :default-view *chemicl-info-view* :background +white+) (int :interactor :height 160 :width 800)) (:layouts (default (vertically () (horizontally () app info) int)))) (defun draw-bond (pane x1 y1 x2 y2 bond &key (inset 5)) (draw-line* pane x1 y1 x2 y2 :ink +green+)) (defun bond-angle (x1 y1 x2 y2) (cond ((zerop (- y2 y1)) (if (minusp (- x2 x1)) pi 0)) ((zerop (- x2 x1)) (if (minusp (- y2 y1)) (/ (* 3 pi) 2) (/ pi 2))) (t (atan (/ (- y2 y1) (- x2 x1)))))) (defvar *default-scale* 25) (defvar *scale* *default-scale*) (defvar *default-rotation* 0) (defvar *rotation* *default-rotation*) (defun reset () (setf *scale* *default-scale*) (setf *rotation* *default-rotation*)) (defparameter *atom-coords* '((6.169130606358857d0 . -1.6091702292618408d0) (5.5d0 . -0.8660254037844456d0) (3.0000000000000018d0 . -9.877623892429188d-16) (4.000000000000002d0 . -3.774758283725532d-15) (4.5d0 . -0.8660254037844436d0) (3.999999999999998d0 . -1.7320508075688812d0) (2.999999999999998d0 . -1.7320508075688794d0) (2.499999999999999d0 . -0.8660254037844402d0) (0.9999999999999981d0 . -1.732050807568877d0) (1.5000000000000004d0 . 0.8660254037844385d0) (1.4999999999999993d0 . -0.866025403784439d0) (1.0d0 . 0.0d0) (0.0d0 . 0.0d0))) (defparameter *edge-coords* '(((5.5d0 . -0.8660254037844456d0) (6.169130606358857d0 . -1.6091702292618408d0)) ((1.4999999999999993d0 . -0.866025403784439d0) (0.9999999999999981d0 . -1.732050807568877d0)) ((4.5d0 . -0.8660254037844436d0) (5.5d0 . -0.8660254037844456d0)) ((2.499999999999999d0 . -0.8660254037844402d0) (3.0000000000000018d0 . -9.877623892429188d-16)) ((4.000000000000002d0 . -3.774758283725532d-15) (3.0000000000000018d0 . -9.877623892429188d-16)) ((4.5d0 . -0.8660254037844436d0) (4.000000000000002d0 . -3.774758283725532d-15)) ((3.999999999999998d0 . -1.7320508075688812d0) (4.5d0 . -0.8660254037844436d0)) ((2.999999999999998d0 . -1.7320508075688794d0) (3.999999999999998d0 . -1.7320508075688812d0)) ((2.499999999999999d0 . -0.8660254037844402d0) (2.999999999999998d0 . -1.7320508075688794d0)) ((1.4999999999999993d0 . -0.866025403784439d0) (2.499999999999999d0 . -0.8660254037844402d0)) ((1.0d0 . 0.0d0) (1.4999999999999993d0 . -0.866025403784439d0)) ((1.0d0 . 0.0d0) (1.5000000000000004d0 . 0.8660254037844385d0)) ((0.0d0 . 0.0d0) (1.0d0 . 0.0d0)))) (defun draw-molecule-2d (pane) (flet ((atom-color () +red+) (atom-size () .12)) (let ((counter 0) (xmin 0) (xmax 0) (ymin 0) (ymax 0)) (map nil (lambda (atom) (destructuring-bind (ax . ay) atom (when (< ax xmin) (setf xmin ax)) (when (> ax xmax) (setf xmax ax)) (when (< ay ymin) (setf ymin ay)) (when (> ay ymax) (setf ymax ay)))) *atom-coords*) (with-scaling (pane *scale*) (with-rotation (pane *rotation*) (with-translation (pane (1+ (- xmin)) (+ 2 (- ymin))) (map nil (lambda (edge) (updating-output (pane :unique-id edge) (destructuring-bind (a1 a2) edge (let ((x1 (car a1)) (y1 (cdr a1))) (let ((x2 (car a2)) (y2 (cdr a2))) (let ((bond-angle (bond-angle x1 y1 x2 y2))) (let ((xoffset (* .04 (cos (+ bond-angle (/ pi 2))))) (yoffset (* .04 (sin (+ bond-angle (/ pi 2)))))) (draw-line* pane (+ x1 xoffset) (+ y1 yoffset) (+ x2 xoffset) (+ y2 yoffset) :ink *molecule-2d-pane- foreground-color* :line-thickness 1)) (let ((xoffset (* .04 (cos (- bond-angle (/ pi 2))))) (yoffset (* .04 (sin (- bond-angle (/ pi 2)))))) (draw-line* pane (+ x1 xoffset) (+ y1 yoffset) (+ x2 xoffset) (+ y2 yoffset) :ink *molecule-2d-pane- foreground-color* :line-thickness 1)))))))) *edge-coords*) (map nil (lambda (atom) (destructuring-bind (x . y) atom (updating-output (pane :unique-id atom) (draw-circle* pane x y (atom-size) :ink (atom- color)) (draw-circle* pane x y (* 1.2 (atom-size)) :ink (atom-color) :filled nil)) (incf counter))) *atom-coords*))))))) (defmethod display-chemicl-2d ((frame chemicl-draw) pane) (draw-molecule-2d pane)) (defmethod display-chemicl-info ((frame chemicl-draw) pane) (princ "test" pane) (terpri) (format pane "~&Mass: ~,5F~%" 1d0) (format pane "~&Exact Mass: ~,5F~%" 2d0) (format pane "~&Formula: ~,5F~%" 3d0)) (defun run (&key new-process) (flet ((run () (let ((frame (make-application-frame 'chemicl-draw))) (run-frame-top-level frame)))) (if new-process (clim-sys:make-process #'run :name "chemicl-draw") (run)))) (define-chemicl-draw-command (com-set-scale :name t) ((scale 'number :prompt " Scale? ")) (when (plusp scale) (setf *scale* scale))) (define-chemicl-draw-command (com-zoom-in :name t) () (declare (optimize (debug 2))) (setf *scale* (* *scale* 2)) (let* ((scroller (car (sheet-children (find-pane-named *application-frame* 'app)))) (pane (car (sheet-children (caddr (sheet-children scroller)))))) #+nil (window-clear pane) #+nil (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane) (draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+)))) (define-chemicl-draw-command (com-zoom-out :name t) () (setf *scale* (/ *scale* 2)) (let ((pane (car (sheet-children (caddr (sheet-children (car (sheet-children (find-pane-named *application-frame* 'app))))))))) #+nil (window-clear pane) #+nil (with-bounding-rectangle* (x1 y1 x2 y2) (sheet-region pane) (draw-rectangle* (sheet-medium pane) x1 y1 x2 y2 :ink +background-ink+)))) (define-chemicl-draw-command (com-set-rotation :name t) ((rotation 'number :prompt " Rotation? ")) (setf *rotation* rotation)) (define-chemicl-draw-command (com-reset :name t) () (reset)) (define-chemicl-draw-command (com-clear :name t) () (reset)) (define-chemicl-draw-command (com-redraw :name t) ()) (define-chemicl-draw-command (com-quit :name t) () (frame-exit *application-frame*))

1 0

[mcclim-devel] Default text style
by Andy Hefner 06 Dec '08

06 Dec '08

Does anyone have an objection to changing the default text style from :fixed to :sans-serif? I don't believe anything in the spec requires is to use :fixed for the default, and changing it makes some things (e.g. accepting-values dialogs) much more attractive.

1 0

[mcclim-devel] McCLIM and clisp/new-clx
by Philippe Brochard 29 Nov '08

29 Nov '08

Hi, The current CVS McCLIM freeze on drag'n drop with clisp/new-clx. It seems that mcclim expect xlib:process-event to timeout. This is the case with clisp/mit-clx but never with clisp/new-clx. So there is an infinite loop with clisp/new-clx. Here is a little fix to run most mcclim examples with clisp/new-clx. I don't know if this is the right thing to do and I haven't found the difference between the 2 clx versions. If someone with a higher view can take a look at it. --8< cut here -------------------------------------------------------- Index: Lisp-Dep/mp-nil.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-nil.lisp,v retrieving revision 1.7 diff -u -w -p -r1.7 mp-nil.lisp --- Lisp-Dep/mp-nil.lisp 8 Jul 2006 16:58:36 -0000 1.7 +++ Lisp-Dep/mp-nil.lisp 26 Nov 2008 14:54:12 -0000 @@ -127,6 +127,7 @@ (loop for port in climi::*all-ports* ;; this is dubious do (loop as this-event = (process-next-event port :timeout 0) for got-events = this-event then (or got-events this-event) + repeat 2 while this-event finally (unless got-events (process-next-event port)))) (car cv))) --8< cut here -------------------------------------------------------- Regards, Philippe -- Philippe Brochard <pbrochard(a)common-lisp.net> http://hocwp.free.fr

1 0