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

[mcclim-devel] Does toward-x key in draw-text* work in McCLIM?
by Daniel Katz 12 Sep '06

12 Sep '06

Hi, I was looking at the CLIM spec and noticed that draw-text* exposes the possibility of changing the direction of the text drawn (e.g., having the text go right-to-left or top-to-bottom), but I don't seem to be able to get it to work in McCLIM (latest CVS running with CLX against the Mac OS X X11.app system). In detail, I tried the following code (modified slightly from the "hello world" example from the "Guided Tour" paper: ------------------------------------------------------------------------ (define-application-frame hello-world () ((greeting :initform "Hello World" :accessor greeting)) (:pane (make-pane 'hello-world-pane))) (defclass hello-world-pane (clim-stream-pane) ()) (defmethod handle-repaint ((pane hello-world-pane) region) (let ((w (bounding-rectangle-width pane)) (h (bounding-rectangle-height pane))) ;; Blank the pane out (draw-rectangle* pane 0 0 w h :filled t :ink (pane-background pane)) ;; Draw greeting in center of pane (draw-text* pane (greeting *application-frame*) (floor w 2) (floor h 2) :toward-x 0))) ; I expect to get "dlroW olleH" (defun make-and-run-hello-world () (run-frame-top-level (make-application-frame 'hello-world :height 300 :width 300))) ------------------------------------------------------------------------ and given the "toward-x" key given in the call to draw-text* (in handle-repaint), I'd expect to get a window with "dlroW olleH" printed; instead, I still get "Hello World". I tried a few other values for the toward-x key (e.g. (1- (floor w 2)), 1, -1), but saw no difference. Grepping through the McCLIM source, I find that "toward-x" is mostly ignore'd in the various back ends (e.g., Backends/CLX/medium.lisp), so I am taking that as an indication that this functionality is not yet implemented. Is this correct? Or am I just using the facility incorrectly? I'm sorry if this is a FAQ, but I looked at the "known bugs" page at http://mcclim.cliki.net/Bug, but didn't see anything there about draw-text* or its features... Thanks! Dan

2 1

[mcclim-devel] Repainting of shrinking windows?
by Daniel Katz 11 Sep '06

11 Sep '06

Hi, I've been reading the "Guided Tour" paper included in mcclim/Doc, and I've found a peculiar behavior for the "Hello World" example on my system (latest mcclim from CVS, sbcl 0.9.13, Mac OS X 10.4.7 on PPC running X11.app) and I'm not sure if it's - a bug in mcclim, or - a bug in X11.app, or - a bug in my understanding of how CLIM works, or - a feature! In any event, the issue is as follows. I run the following code (taken verbatim from the paper) in the CLIM-USER package at the REPL: ------------------------------------------------------------------------ (define-application-frame hello-world () ((greeting :initform "Hello World" :accessor greeting)) (:pane (make-pane 'hello-world-pane))) (defclass hello-world-pane (clim-stream-pane) ()) (defmethod handle-repaint ((pane hello-world-pane) region) (let ((w (bounding-rectangle-width pane)) (h (bounding-rectangle-height pane))) ;; Blank the pane out (draw-rectangle* pane 0 0 w h :filled t :ink (pane-background pane)) ;; Draw greeting in center of pane (draw-text* pane (greeting *application-frame*) (floor w 2) (floor h 2) :align-x :center :align-y :center))) (defun make-and-run-hello-world () (run-frame-top-level (make-application-frame 'hello-world))) (make-and-run-hello-world) ------------------------------------------------------------------------ and I do indeed get a very small window popping up with "Hello World" in it. (The window is so tiny, in fact, that it only shows about 5 letters, and that only thanks to the window manager requirement to make the window large enough to accomodate the usual "expand, hide, kill" buttons of the Mac OS X window manager.) I then grab the manual "resizing" corner of the window and make it bigger, and things are fine, with the text of "Hello World" dynamically readjusting itself to stay centered in the window. The problem comes when I try to use the same mechanism to make the window smaller. Whenever dragging the corner of the window is used to reduce the size of the window, the text does not automatically recenter but rather stays in the same absolute position on the screen. (I am attaching a PNG which shows the effect of expanding a window and then shrinking it again using the "resizer" in the lower right corner of the window -- the text is clearly no longer centered.) Any attempt to enlarge the window (in either or both dimensions) will instantly recenter the text again. Clearly, the "shrink window" event is not being acted on for recentering purposes. But is this a bug in McClim (i.e., it should be repainting on shrink but is not), or is it a bug in the Mac OS X X11.app (i.e., it should be sending some sort of message on shrink but is not) or is it my misunderstanding (i.e., I should be adding some code to get the repaint to activate on shrink, and I have not done so)? Thanks for any insight you can provide! Dan

2 2

[mcclim-devel] Edit form in the clim listener
by Philippe Brochard 04 Sep '06

04 Sep '06

Hi all, In cl-wav-synth, I use the code below to edit a form previously evaluated in the listener. It works very well for me but is this an acceptable way to do it and is there something planed to add the editing capability in the listener ? (I've looked in the source and found something about history but I doesn't found how to use it). Best regards, Philippe ---------------------------------------------------------------------- (define-command (com-eval :menu t :command-table lisp-commands) ((form 'clim:form :prompt "Form")) (let ((values (multiple-value-list (handler-case (eval form) (error (condition) (format nil "~A" condition)))))) (fresh-line) (shuffle-specials form values) (display-evalues values) (fresh-line))) (define-command (com-edit-form :name t :menu t :command-table lisp-commands) ((form 'form :prompt "Form")) (multiple-value-bind (x1 y1) (stream-cursor-position *standard-input*) (let ((new-form (accept 'clim:form :stream (frame-standard-input *application-frame*) :prompt "New form" :default form :insert-default t))) (multiple-value-bind (x2 y2) (stream-cursor-position *standard-input*) (declare (ignore x2)) (let* ((interactor (find-pane-named *application-frame* 'cl-wav-synth-clim::interactor)) (output-history (stream-output-history interactor)) (width (bounding-rectangle-width interactor))) (decf y1 (stream-line-height interactor)) (map-over-output-records-overlapping-region #'(lambda (rec) (delete-output-record rec output-history)) output-history (make-rectangle* 0 y1 width y2)) (draw-rectangle* interactor 0 y1 width y2 :ink (pane-background interactor)) (setf (stream-cursor-position *standard-input*) (values x1 y1)) (print-listener-prompt interactor *application-frame*) (present new-form 'form) (fresh-line) (force-output) (execute-frame-command *application-frame* `(com-eval ,new-form))))))) (define-presentation-to-command-translator edit-form (clim:command com-edit-form lisp-commands :gesture :describe :echo t :documentation ((object stream) (format stream "Edit ~A" (second object))) :pointer-documentation ((object stream) (format stream "Edit ~A" (second object))) :tester ((object) (eql (car object) 'com-eval))) (object) (list (second object))) (define-presentation-to-command-translator edit-form-form (clim:form com-edit-form lisp-commands :gesture :describe :echo t :documentation ((object stream) (format stream "Edit ~A" object)) :pointer-documentation ((object stream) (format stream "Edit ~A" object))) (object) (list object)) (define-presentation-to-command-translator eval-form (clim:form com-eval lisp-commands :gesture :select :echo t :documentation ((object stream) (format stream "Eval ~A" object)) :pointer-documentation ((object stream) (format stream "Eval ~A" object))) (object) (list object)) ---------------------------------------------------------------------- -- Philippe Brochard <hocwp(a)free.fr> http://hocwp.free.fr -=-= http://www.gnu.org/home.fr.html =-=-

1 0

[mcclim-devel] [ANN] cl-wav-synth - express noises as you think V2006-08-26
by Philippe Brochard 04 Sep '06

04 Sep '06

Hi everybody, I'm glad to announce the last public release of cl-wav-synth. cl-wav-synth is a wav sample editor. It comes in two parts, the main library for manipulating wav files and a (Mc)CLIM interface with a full lisp listener, a sample pane editor, a spectrum pane editor and a song pane editor. The wav sample editor is driven from the lisp REPL: you can watch immediately the result of each applied functions. cl-wav-synth comes with some effects as echo, delay, pitch... The spectrum editor is here just for educational purpose. It show the effect of adding sinus together. But it can load spectrum from the sharc project and can be used to produce instruments sounds (the sample amplitude need to be modified to have a real sound). The song editor is a way to express a song. A song is just a list of events to write on a wav file. cl-wav-synth traverses the song list and evaluates the form of each song-sample, if the result is a wav sample, it is merged in the song wav file. Since the last release, there have been many enhancements For samples: - Sample flags (or multiselections) - Sample tones - To produce all the musical range (do, ré, mi... or a, b, c...) from a single sample. - Envelope manipulation (drawing mode) - Players choices (tested under Unix/MacOS/Windows) For songs: - Mouse rectangular selection (move/delete/copy selection) - Undo/Redo system - Grid and snap And some bug fixes (in particular a double redisplay which divided the performances by two (sorry for the bad pub)). You can find more here: http://common-lisp.net/project/cl-wav-synth/ Have fun, and thanks all for your great work with McCLIM ! I'm really amazed how easy it is to make graphical things with clim (once your accustomed to it). Regards, Philippe -- Philippe Brochard <hocwp(a)free.fr> http://hocwp.free.fr -=-= http://www.gnu.org/home.fr.html =-=-

1 1

[mcclim-devel] international text help
by Hazen Babcock 24 Aug '06

24 Aug '06

Hello, I'd like to display some chinese characters in my mcclim application, but I'm not sure how to go about this. I've loaded :mcclim-freetype and tried to follow: http://common-lisp.net/pipermail/mcclim-devel/ 2005-August/004136.html since I have a truetype font that includes chinese characters. (defmethod display-some-pane ((frame translator-frame) stream) (declare (ignore stream)) (let ((pane (get-frame-pane *application-frame* 'some-pane))) (window-clear pane) (with-text-style (pane (make-device-font-text-style (port *application-frame*) "/usr/share/fonts/truetype/ttf-bitstream-vera/VeraBd.ttf")) (draw-text* pane "foo" 10 10)))) gives: The value "/usr/share/fonts/truetype/ttf-bitstream-vera/VeraBd.ttf" is not of type MCCLIM-FREETYPE::FREETYPE-DEVICE-FONT-NAME. [Condition of type TYPE-ERROR] If I use a function that I don't think I'm supposed to use directly: (defmethod display-some-pane ((frame translator-frame) stream) (declare (ignore stream)) (let ((pane (get-frame-pane *application-frame* 'some-pane))) (window-clear pane) (with-text-style (pane (make-device-font-text-style (port *application-frame*) (mcclim-freetype::make-freetype-device-font-name :font-file "/usr/share/fonts/truetype/ttf-bitstream-vera/ VeraBd.ttf" :size 12))) (draw-text* pane "foo" 10 10)))) then it works, but I imagine that this is not the right/supported way. thanks, -Hazen

1 0

[mcclim-devel] documentation fix
by Willem Broekema 24 Jul '06

24 Jul '06

Hi all, In file INSTALL there's 'asdf:load instead of 'asdf:load-op, and a missing closing bracket. This patch fixes that. - Willem

2 1

[mcclim-devel] CLIM-STREAM-PANE bugs mentioned in CLIM guided tour
by Paolo Amoroso 14 Jul '06

14 Jul '06

The version of the paper "A Guided Tour of CLIM" in McCLIM's source tree, which I believe is updated to early 2006, states in section "A simple drawing application": This is the first example that does not use clim-stream-pane (or one of its subclasses) as a pane class[*] [...] [*] When using McCLIM, we have to do this as there are bugs in the behavior of clim-stream-pane that have not been fixed yet. What are these bugs? Are they still outstanding? Paolo -- Lisp Propulsion Laboratory log - http://www.paoloamoroso.it/log

1 0

[mcclim-devel] Patch for menu-choose.lisp
by Troels Henriksen 09 Jul '06

09 Jul '06

The current implementation of `menu-choose' lacks a fair bunch of spec-defined functionality (labels, some menu item types, scrollbars), and it often creates menus that are larger than the screen, or partially off-screen. This patch rectifies these problems - I have been running with it for 6+ months and it has worked perfectly, even though some of the code is not the prettiest in the world (my CLIM-fu has been weak). There should be no functionality regressions compared to the current version. I know that McCLIM is currently in a freeze period, but this patch has been lying on my harddrive for too long - others may find it useful, and I would like it to be cleaned up (if necessary) so it could be included in some future release. :-) -- \ Troels "Athas" /\ Henriksen

8 12

[mcclim-devel] follow-up about format-graph-from-roots question
by rpgoldman＠real-time.com 26 Jun '06

26 Jun '06

Seems like this may be more a problem with scrolling panes than with format-graph-from-roots. Previously, I incorrectly reported that I was having trouble with the built-in graph types, but not with my own. That was wrong --- it seemed to be true only because my graphs were smaller. So it now seems that the problem arises with any graph that is installed inside an application pane with :scroll-bars :both. Has anyone else seen problems with scrolling application panes, either especially with graphs in them or just in general? I am starting to suspect that my change-space-requirements fu is weak.... thanks, R

1 0

[mcclim-devel] for bears of very little brain (pathname accepter w/ completion)
by rpgoldman＠real-time.com 26 Jun '06

26 Jun '06

Is there anywhere a completing read for pathnames, possibly with type defaults? I know that mgr has a nice file-selector-gadget, but I'm a little reluctant to use it, since it's still not fused with McCLIM proper (unless that's changed?). I think also that there's something inside CLIMACS, but it hasn't been freed up for more generic McCLIM use (or has it?). Thanks, R

1 0