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

[mcclim-devel] mcclim dialogs
by Paul Bowyer 16 Jun '11

16 Jun '11

Hello mcclim developers: I'm in the throws of learning common lisp and mcclim and I've been able to piece together some working code that functions fairly well by reading from various mcclim specification documents, brief tutorials, and by looking at the various examples that come with mcclim. I have a question regarding the proper way to set up a simple dialog for entering values using mcclim. I've tried using the "accepting-values" macro directly, but I haven't been able to control the position or the size of the dialog when it appears, although I do get usable information from it. From reading the specifications, I've tried using the various position control parameters, but they seem to have no affect. I've tried defining an application frame with a pane derived from "accept-values" but I haven't been successful getting that to run. Does someone have a simple example of either, or both, of these methods of setting up a dialog with mcclim that they would be willing to share? I'm using SBCL-1.0.48 with slime, if that has any importance. Thanks, Paul

1 0

[mcclim-devel] BUG in RECORDING.LISP > DEFINE-INVOKE-WITH
by Richard and/or Dorrit 10 Jun '11

10 Jun '11

When compiling with SBCL 1.0.49, discovered the dynamic-extent declaration at the end of this has two typos, where the dynamic extent is declared for #'continuation and #'constructor, rather than for the gensym'd names for them. So the second version of this code is with this issue fixed. (defmacro define-invoke-with (macro-name func-name record-type doc-string) `(defmacro ,macro-name ((stream &optional (record-type '',record-type) (record (gensym)) &rest initargs) &body body) ,doc-string (setq stream (stream-designator-symbol stream '*standard-output*)) (with-gensyms (constructor continuation) (multiple-value-bind (bindings m-i-args) (rebind-arguments initargs) `(let ,bindings (flet ((,constructor () (make-instance ,record-type ,@m-i-args)) (,continuation (,stream ,record) ,(declare-ignorable-form* stream record) ,@body)) (declare (dynamic-extent #'constructor #'continuation)) (,',func-name ,stream #',continuation ,record-type #',constructor ,@m-i-args))))))) ;;; here's the versioned with the repaired dynamic-extent declaration: (defmacro define-invoke-with (macro-name func-name record-type doc-string) `(defmacro ,macro-name ((stream &optional (record-type '',record-type) (record (gensym)) &rest initargs) &body body) ,doc-string (setq stream (stream-designator-symbol stream '*standard-output*)) (with-gensyms (constructor continuation) (multiple-value-bind (bindings m-i-args) (rebind-arguments initargs) `(let ,bindings (flet ((,constructor () (make-instance ,record-type ,@m-i-args)) (,continuation (,stream ,record) ,(declare-ignorable-form* stream record) ,@body)) (declare (dynamic-extent #',constructor #',continuation)) (,',func-name ,stream #',continuation ,record-type #',constructor ,@m-i-args)))))))

1 0

[mcclim-devel] Scigraph patches for SBCL
by John Morrison 17 May '11

17 May '11

Hi; For what it's worth, I managed to get Scigraph's demos to run under SBCL. There are still bugs (when you click on certain elements of the graphs, they keel over dead), but at least it is something. Please find attached a "cvs diff" listing. If this is not sufficient, of if the patches are not up to the usual McCLIM standards of excellence, please advise, and I will be more than happy to try and do better. Thanks for the software, -jm -- --- John Morrison --- john.nmi.morrison(a)gmail.com

1 0

[mcclim-devel] Re-implementation opportunity in mcclim.asd ??
by Richard and/or Dorrit 12 May '11

12 May '11

Hi - thanks for keeping CLIM alive. Using ASDF-INSTALL 0.2 ASDF 2.014 in SBCL 1.0.47 The mcclim.asd file has: (:version "flexichain" "1.5.1") which breaks, but this works: (:version :flexichain "1.5.1") Thanks, Richard Billington

1 0

[mcclim-devel] pixie-tab-bar-pane's width is computed out of the screen in pixie/clx-look
by nixie 04 May '11

04 May '11

Hello, I tried pixie/clx-look frame manager with clim-examples' tabdemo. (tested on sbcl 1.0.47 with mcclim from latest quicklisp in linux) The tab bar's width is always computed as a very big numbder 20000001/2. the worse is that the tab layout is always drawn out of screen. (In ubuntu, it causes the screen to flash when tabdemo displays. In gentoo, clx will complain a bad typed 16bit integer error) I find that draw-pixie-tab-bar-bottom function draws two lines with x from 0 to +fill+. The +fill+ is a very big number. I think it should draw the lines with x from 0 to the value of (bounding-rectangle-max-x (sheet-region pane)) rather than +fill+. This solves the problem. ;; The one will cause the pixie-tab-bar-pane has a very big width. (defun draw-pixie-tab-bar-bottom (pane) (let ((y0 (bounding-rectangle-min-y (sheet-region pane))) (y1 (bounding-rectangle-max-y (sheet-region pane)))) (draw-line* pane 0 (- y1 6) +fill+ (- y1 6) :ink *3d-light-color*) (draw-line* pane 0 (- y1 1) +fill+ (- y1 1) :ink *3d-dark-color*) #+NIL (draw-line* pane 0 (1- y1) x1 (1- y1) :ink +gray30+))) ;; I think this is better. And it will solve the problem. (defun draw-pixie-tab-bar-bottom (pane) (let ((y0 (bounding-rectangle-min-y (sheet-region pane))) (y1 (bounding-rectangle-max-y (sheet-region pane))) (x0 (bounding-rectangle-min-x (sheet-region pane))) (x1 (bounding-rectangle-max-x (sheet-region pane)))) (draw-line* pane 0 (- y1 6) x1 (- y1 6) :ink *3d-light-color*) (draw-line* pane 0 (- y1 1) x1 (- y1 1) :ink *3d-dark-color*) #+NIL (draw-line* pane 0 (1- y1) x1 (1- y1) :ink +gray30+))) I've only test it with sbcl in linux. I don't know if other CL implementation also has this problem. Does anybody has any idea on this? BTW, I think tab-layout-pane should have a handle-repaint method which will redraw the tab header, it will be good when User resizes the tab layout pane. ;; Handle resize like this one. (defmethod handle-repaint ((pane pixie-tab-layout-pane) region) (pixie-display-tab-header pane (clim-tab-layout::tab-layout-header-pane pane))) -- nixie <onixie(a)gmail.com>

1 1

[mcclim-devel] Unportable string comparing syntax in Doc/makeimages.sh
by onixie 24 Apr '11

24 Apr '11

Hi, I think there is an unportable string comparing syntax in Doc/makeimages.sh Left: portable, Right: unportble by diff ------------------------------------------------------------- 8c8 < if [ "$1" = "-e" ]; then --- > if [ "$1" == "-e" ]; then 22c22 < if [ "$NOCREATE" = "true" ]; then --- > if [ "$NOCREATE" == "true" ]; then -------------------------------------------------------------- It has expected result in bash, but reports a syntax error (as below) in dash and ash (posix compatible shell). The syntax error reported: -------------------------------------------------------------- [: 15: ==: unexpected operator -------------------------------------------------------------- This is a bug in ubuntu because it defaults to use dash. so I think it should be fixed.

1 0

[mcclim-devel] troubles with accept-popup
by Alexander Ekart 17 Apr '11

17 Apr '11

Hello, I was just trying to test the accept-popup function in the CLIM Listener (accept-popup is defined in accepting-values.lisp which is in the McCLIM Examples directory) but I ran into trouble. Executing (clim-demo::accept-popup '(one two three four)) in the Listener and clicking 'OK' or 'Cancel' in the popup yields an error: There is no applicable method for the generic function #<STANDARD-GENERIC-FUNCTION CLIM-INTERNALS::EDITING-STREAM (1)> when called with arguments (#<CLIM-INTERNALS::AV-POP-UP-MENU-RECORD X 173/2:261/2 Y 798.5d0:822.5d0 "Choose one:" {C2B96E1}>). [Condition of type SIMPLE-ERROR] Does anybody have an idee what the problem could be? Thanks! -- GMX DSL Doppel-Flat ab 19,99 Euro/mtl.! Jetzt mit gratis Handy-Flat! http://portal.gmx.net/de/go/dsl

1 0

[mcclim-devel] Help running demos
by Collin Day 10 Apr '11

10 Apr '11

Hello, I am rather new to lisp and have been learning by reading "Practical Common Lisp" online and "Land of Lisp". One thing I was just sort of interested in was seeing how you could use lisp to make GUIs. So, I decided to try McCLIM. Anyway, I use gentoo, so I just emerged mcclim and have version 0.9.6. I am using the clisp implementation and think I have everything set up correctly. Following the instructions on the cliki, I can do the following: (asdf:oos 'asdf:load-op :mcclim) - ends with 0 errors, 74 warnings NIL - so I think that is ok. Since I am using gentoo, I didn't do the ln -s mcclim/clim-examples.asd . since I am just using the stock directories. Then I can run: (asdf:oos 'asdf:load-op :clim-examples) - ends with 0 errors, 0 warnings NIL - so that seems ok as well. The problem is when I run: (clim-demo::run-test 'clim-demo::demodemo) I get: *** - Connection failure to X11.0 server display 0: No protocol specified I have clx installed - I also ran (asdf:oos 'asdf:load-op :clx) to ensure everything was built. If I build / load the gtkairo backend: (asdf:oos 'asdf:load-op :clim-gtkairo) Then the demos appear to run. I am sure I am doing something wrong - does anyone know what it might be though? Thanks! -C

1 0

[mcclim-devel] map-over-output-records-overlapping-region
by Orm Finnendahl 02 Apr '11

02 Apr '11

Hi, reading the specs, map-over-output-records-overlapping-region should map over *all* childs of the supplied output-record which overlap the supplied region. In my application, the output-records are hierarchical with the topmost output-record covering the whole drawing area and its childs occupying parts of that and their childs again parts of the parts and so forth. When calling the function on a part of the drawing area, the macro only maps the function over the topmost output record and ignores all of its childs which also overlap the region in question. I could write a similar macro which traverses the tree and checks for overlap but I ask myself, whether the behaviour of mcclim's built-in macro is correct with regards to the specs or whether I'm doing something wrong here... -- Orm

3 2

[mcclim-devel] Problem starting McClim
by Bruce Seely 16 Mar '11

16 Mar '11

Hi All, I would like to use mcclim. I've loaded it (along with clx, flexichains, and spacial-trees), and get this error when I try to start the demo: CL-USER(15): (clim-demo::run-test 'clim-demo::demodemo) ; Autoloading for ACL-SOCKET:CONFIGURE-DNS: ; Fast loading from bundle code/acldns.fasl. Error: "Connection timed out" (errno 60) occurred while creating a local socket and connecting to a remote host "tmp/launch-4lQnm8/org.x" (67.215.65.132) on port 6000. [condition type: SOCKET-ERROR] I suspect that it's a problem with the configuration issue with my mac, and not a mcclim problem, but I'm stuck. Is someone might be able to tell me what I'm doing wrong. I'm using a Macbook Pro running Snow Leopard in 64-bit mode, running Franz Allegro Common Lisp, version 82 (acl8264). Do I need to do something about enabling sockets, or something like that? Is there any more information that would be helpful in explaining the problem? Thank you very much for your help. Bruce

5 7