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

[mcclim-devel] :scrollbars option vs (scrolling () ...)
by Nikolaus Demmel 17 Feb '09

17 Feb '09

Hi, can anyone explain to me the difference between using the application- pane's :scrollbar option or alternatively setting it to nil and using a (scrolling () ...) macro around that application pane in the layout? It looks a bit different (the scrolling macro comes with a black padding i think), but in essence, it is the same funktionality, right? Best regards, Niko Demmel

1 0

[mcclim-devel] Non shrinking panes
by Nikolaus Demmel 14 Feb '09

14 Feb '09

Hi list In the following when i talk about width of the pane, i mean the value returned by (bounding-rectangle-width pane). I have an application pane with not much output (which is not very wide and definately not as wide as the pane) at the beginning. When i resize (shrink) the whole frame (manually, using the mouse), the application pane adapts in size until it is as wide as the intial output, then the scrolling kicks in, but the size of the pane doesn't shrink further. This makes sense. Now if after a while (or due to some user action) the output on the pane becomes wider, then the "minimum pane width" that i can achieve with shrinking the frame as above becomes this new withs of the output. This also makes sense. Now if the output changes to something not as wide again, then the "minimum pane width" acheived by resizing the whole window as above doesn't shrink. It stays at the maximum width of output over the whole lifetime of the application. Does this have to do with output recording? How can i make the pane become less wide again? The background is, that i want to draw some lines as wide as the pane that adapt in size, when i resize the window. This works with enlarging the window, but as described above not with shrinking it. How could i acheive that. Regards, Niko Demmel

2 4

[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