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

[mcclim-devel] radio-box-selections check-box-selections
by Paul Werkowski 22 Apr '06

22 Apr '06

radio-box-selections is supposed to return a list of *all* the toggle-button gadgets. Currently it is implemented as (defmethod radio-box-selections ((pane radio-box)) (let ((v (radio-box-current-selection pane))) (and v (list v)))) check-box-selections is similar, but is not implemented at all. Paul

1 0

[mcclim-devel] bug: text-field gadget
by Paul Werkowski 22 Apr '06

22 Apr '06

In gadgets.lisp there is this comment: ;; Is there really a benefit to waiting until the first painting to ;; create the goatee instance? Why not use INITIALIZE-INSTANCE? (defmethod handle-repaint :before ((pane text-field-pane) region) <...> and this method: (defmethod (setf gadget-value) :after (new-value (gadget text-field-pane) &key invoke-callback) (declare (ignore invoke-callback)) (let* ((area (area gadget)) ;;;<<<< NIL (buffer (goatee::buffer area)) (start (goatee::buffer-start buffer)) (end (goatee::buffer-end buffer))) (goatee::delete-region buffer start end) (goatee::insert buffer new-value :position start) (goatee::redisplay-area area))) which fails when (setf gadget-value) is called before the text-field is displayed on screen. Result is dreaded NO-APPLICABLE-METHOD signal. The work around is obvious. I'll get the gadgetmeisters figure out the correct solution. A test case is below. Paul ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (in-package :clim-user) (define-application-frame testme () ((tfg)) (:panes (p0 :application :display-function (lambda (f p) (with-slots (tfg) f (with-output-as-gadget (p :cache-value t) (with-look-and-feel-realization ((frame-manager f) f) (setq tfg (make-pane 'text-field :width 40)))) (setf (gadget-value tfg) "XXX"))))) (:layouts (default p0))) (defun testme () (run-frame-top-level (make-application-frame 'testme)))

1 0

[mcclim-devel] specialized command-parsers
by Christophe Rhodes 21 Apr '06

21 Apr '06

Hi, I'm trying to write a specialized command parser for use in Emacs-Style Applications, where the input pane is a one-line minibuffer. Given this constraint, the default partial-command-parser (which constructs an accepting-values dialog) is undesireable, as is the rightwards march for multiple arguments. At present, ESA implements the desired behaviour by having no commands with arguments at all, instead using calls to ACCEPT within the bodies of its commands to get arguments. This is unacceptable (haha) in my view because it does not allow for scriptability: the ability of other applications to call (execute-frame-command *climacs-frame* `(climacs-gui::com-find-file "/tmp/foo")) is potentially one of the selling points of the as-yet mythical CLIM environment. My current attempt at writing a command parser (no attempt at partial parsing or unparsing yet) is (defun esa-command-parser (command-table stream) (let ((command-name nil) (command-args nil)) (with-delimiter-gestures (*command-name-delimiters* :override t) ;; While reading the command name we want use the history of the ;; (accept 'command ...) that's calling this function. (setq command-name (accept `(command-name :command-table ,command-table) :stream stream :prompt nil :history nil)) (let ((delimiter (read-gesture :stream stream :peek-p t))) ;; Let argument parsing function see activation gestures. (when (and delimiter (delimiter-gesture-p delimiter)) (read-gesture :stream stream)))) (with-delimiter-gestures (*command-argument-delimiters* :override t) (let* ((info (gethash command-name climi::*command-parser-table*)) (required-args (climi::required-args info)) (keyword-args (climi::keyword-args info))) (let (result) ;; only required args for now. (dolist (arg required-args (cons command-name (nreverse result))) (destructuring-bind (name ptype &rest args) arg (declare (ignore name)) ;; clear the stream somehow #+nil (setf (stream-cursor-position stream) (values 0 0)) #+nil (replace-input stream "") (push (apply #'accept (eval ptype) :stream stream ;; FIXME: probably wrong evaluation for ARGS args) result)))))))) Quite apart from the apparent impossibility of writing a command parser portable across CLIM implementations, this doesn't work in several ways. It doesn't handle keyword arguments, the evaluation of the arguments in the call to ACCEPT for arguments is wrong (see the spec for DEFINE-COMMAND for the evaluation rules...), and, most importantly, I find myself unable to clear the stream. Setting the stream cursor position doesn't work, because stream is an input stream; I don't know why REPLACE-INPUT doesn't work, but it gives me an error. ERASE-INPUT-BUFFER is unimplemented. The pieces of the implementation of this behaviour in ESA, currently, include a method on STREAM-ACCEPT: (defmethod stream-accept :before ((pane minibuffer-pane) type &rest args) (declare (ignore type args)) (window-clear pane)) which clears the minibuffer window at every call to ACCEPT, which is what we want. However, inside my ESA-COMMAND-PARSER, ACCEPT is called on an input-editing-stream, not a minibuffer-pane. How am I meant to do this? Any ideas? Cheers, Christophe

1 1

[mcclim-devel] command name completion
by Christophe Rhodes 21 Apr '06

21 Apr '06

Hi, Forgive me for the somewhat vague bug report; I hope this is enough to pin down the problem. The accept completion for command names seems to have a problem when the disambiguation character is a space. I defined a climacs command com-new-find-file, but am unable to type it at the M-x prompt because there is a com-newline-and-indent; typing N e w SPC does not lead to a space being inserted. Using C-/ lets me click on the New Find File command, so it's definitely there. Cheers, Christophe

1 0

[mcclim-devel] question about on-line spec
by rpgoldman＠real-time.com 21 Apr '06

21 Apr '06

The annotatable on-line CLIM spec seems no longer to be fully functional. At Karlsruhe, it is not annotatable, and the search function doesn't work. Is there any chance of moving this to a happier home? Best, R

6 6

[mcclim-devel] clim-extensions.lisp
by John Connors 20 Apr '06

20 Apr '06

I note that clim-extensions.lisp isn't in the clim-clx asdf defsystem form despite being defined in that package; is there a reason for this? -- +--------------------------------------------------------+ |Cyborg Animation Programmer | johnc(a)yagc.ndo.co.uk| |http://badbyteblues.blogspot.com -----------------------| +--------------------------------------------------------+

1 2

[mcclim-devel] accept-values-pane
by Paul Werkowski 19 Apr '06

19 Apr '06

For those interested, I have a mostly portable version of accept-values-pane running on lispworks CLIM and today I have it semi-working on McCLIM. Here is the patch file I load to supply missing parts of McCLIM. It would be cool if someone could add this functionality to the code base. I plan to post my code in a few days once I figure out how to handle radio-box. The spec and McCLIM have radio-box :choices and :current-selection as toggle-button objects. CLIM makes things a bit easier so I want to make a wrapper around the button-object constraint. What's really missing in McCLIM are list-pane and option-pane gadgets. Another thing. CLIM puts with-look-and-feel-realization in the expansion of with-output-to-gadget. It would be good if McCLIM did as well. I don't think the spec forbids that. Paul ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ;;; -*- Package: clim-internals -*- (in-package :clim-internals) ;;; Add missing view classes and +xxx-view+ objects. (macrolet ((frob (name) (let ((sym (intern (string name) :clim-internals)) (par (intern (concatenate 'string "+" (string name) "+") :clim-internals))) `(progn (defclass ,sym (clim:gadget-view)()) (import '(,sym ,par) :clim) (export '(,sym ,par) :clim) (defparameter ,par (make-instance ',sym)))))) (frob toggle-button-view) (frob push-button-view) (frob radio-box-view) (frob check-box-view) (frob slider-view) ;(frob text-field-view) (frob text-editor-view) (frob list-pane-view) (frob option-pane-view) ) (import '(name-key value-key test documentation-key) :clim) (export '(name-key value-key test documentation-key) :clim) (defun accept-present-default (type stream view default default-supplied-p present-p query-identifier) (funcall-presentation-generic-function accept-present-default type stream view default default-supplied-p present-p query-identifier)) (defmethod pane-frame ((pane standard-encapsulating-stream)) (pane-frame (encapsulating-stream-stream pane))) (defmethod invoke-with-sheet-medium-bound (continuation (medium null) (sheet standard-encapsulating-stream)) (invoke-with-sheet-medium-bound continuation medium (encapsulating-stream-stream sheet)))

2 1

[mcclim-devel] spatial-trees
by Christophe Rhodes 19 Apr '06

19 Apr '06

Hi, I've uploaded a new version of spatial-trees to cclan, with two fixes: * conditionalize (on #+slow :-) the code checking that all the coordinates are in the right order in MAKE-RECTANGLE * make spatial-tree-viz a static-file, so that if a user installs spatial-trees systemwide and then someone else installs clim, you don't get write errors. Cheers, Christophe

1 0

[mcclim-devel] fonts, bounding-rectangles on beagle
by Christophe Rhodes 19 Apr '06

19 Apr '06

Hi all, JWZ's blog might be of interest for those wondering about implementing TEXT-BOUNDING-RECTANGLE* on beagle: it looks like he has exactly the same problem at <http://jwz.livejournal.com/628853.html>. (Something similar might be needed for the gtk and/or cairo backends, who knows?) Cheers, Christophe

1 0

[mcclim-devel] bug: with-presentation-type-xxx
by pw＠snoopy.mv.com 18 Apr '06

18 Apr '06

In LispWorks CLIM CLIM-USER> (with-presentation-type-parameters (completion '(completion (a b c))) value-key) CLIM-USER> IDENTITY In McCLIM, an error The variable VALUE-KEY is unbound. With-presentation-type-parameters and with-presentation-type-options are afflicted this way. Paul

1 0