mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

Re: [mcclim-devel] file-browser example application
by Robert Goldman 07 Jan '07

07 Jan '07

Robert Goldman wrote: > Troels Henriksen wrote: >> Robert Goldman <rpgoldman(a)real-time.com> writes: >> >>> I made a stab at it, but no, it didn't seem to work. I am attaching two >>> different versions of the file-browser: one that works, using a new >>> presentation-type, dir-pathname, and one that tries to do the job with >>> (and pathname (satisfies cl-fad:directory-pathname-p)), that doesn't >>> work. >> It seems that the `and' type doesn't work at all. Try doing (present 2 >> 'integer) and then (accept '(and integer)) - the previous output will >> not be selectable. >> > Hm.... > > At least in presentation-defs.lisp, there is no accept presentation > method for AND. Is this the culprit? > > By analogy, I tried whacking together the following definition for > presentation-defs: > (define-presentation-method accept ((type and) > (stream input-editing-stream) > (view textual-view) > &key) > (let ((scan-begin (stream-scan-pointer stream)) > success > value) > (dolist (and-type types) > (setf (stream-scan-pointer stream) scan-begin) > (multiple-value-setq (success value) > (block try-accept > (handler-case (values t (accept and-type > :stream stream > :view view > :prompt nil)) > (parse-error () (return-from try-accept nil))))) > (unless success (simple-parse-error "Input type is not of type ~S" > types))) > value)) > > But then I get an error that SATISFIES is an unknown presentation type. > I suspect that this is because it's not a primary presentation type, so > I need to use presentation-typep here instead of a recursive accept... > > Best, > R > OK, the following works to let me enter values of type (and pathname (satisfies cl-fad:directory-pathname-p)) to the command prompt. But I still don't get the ability to mouse-select the directory list entries for the presentation-to-command-translator. (define-presentation-method accept ((type and) (stream input-editing-stream) (view textual-view) &key) (let* ((subtype (first types)) (value (accept subtype :stream stream :view view :prompt nil))) (unless (presentation-typep value type) (simple-parse-error "Input type is not of type ~S" type)) value)) BTW, the command prompt is pretty uninformative: Edit Directory (and) : Is this where an abbreviation and description would be helpful? Cheers, R

1 0

[mcclim-devel] file-browser example application
by Robert Goldman 07 Jan '07

07 Jan '07

The guided-tour has a test application that's a file-browser. I wanted to try to figure out how to read pathnames in an application I'm writing, so I tried to fire up the file-browser. Unfortunately, it didn't work, mostly because it made assumptions about the way that CL pathnames work that didn't map onto either SBCL or ACL, the two applications on which I tried it. I am attaching a patch which makes it work (if the patch about pathname presentations, that I sent earlier today, is also present). I am inclined to commit this, since (a) it's just part of an article, so can't be on anyone's critical path and (b) it seems like a Bad Thing to have a tutorial out there featuring exemplars that don't work. The downside is that CL pathnames are so intractable that the only good way I found to make this work was to use CL-FAD. Dependencies on libraries seems generally like a bad thing in a small tutorial like this, but importing enough code to make it work w/o the library would probably obscure the tutorial intent even worse. BTW, I think a more elegant solution might be made that would use satisfies to define the dir-pathname presentation-type more declaratively. But I couldn't figure out how to do it... best, Robert

3 4

[mcclim-devel] menu bars
by Christophe Rhodes 05 Jan '07

05 Jan '07

Hi, Consider the attached code, which demonstrates that it is possible with current McCLIM to change the contents of menus from within the app. So far, no surprises -- we have a nice dynamic UI, right? The surprise is that it isn't possible to do this to the contents of the menu bar itself: the menus there are fixed when the pane is instantiated, I believe. So my question: is this intentional? Is it desireable? (And what does Legacy CLIM do? :-) Cheers, Christophe

2 4

[mcclim-devel] Presenting pathnames
by Robert Goldman 05 Jan '07

05 Jan '07

In presentation-defs.lisp there's some code that stuffs :wild into the name field of pathnames before presenting them, together with a comment that says that pathnames can't be represented if they don't have names. I have checked, and pathnames can be printed w/o names, at least on SBCL and ACL. Adding random stuff to the pathname also seems a little like the wrong thing to do. Would the following patch be appropriate: Index: presentation-defs.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/presentation-defs.lisp,v retrieving revision 1.65 diff -b -u -F^(def -r1.65 presentation-defs.lisp --- presentation-defs.lisp 13 Dec 2006 21:33:43 -0000 1.65 +++ presentation-defs.lisp 5 Jan 2007 20:35:08 -0000 @@ -1470,10 +1470,15 @@ (define-presentation-method present ((ob ;; XXX: We can only visually represent the pathname if it has a name ;; - making it wild is a compromise. If the pathname is completely ;; blank, we leave it as-is, though. - (let ((pathname (if (equal object #.(make-pathname)) - object - (merge-pathnames object (make-pathname :name :wild))))) - (princ pathname stream))) + + ;; AFAICT the above assertion is simply untrue. At least it is + ;; possible to princ a directory with no :name component in ACL and + ;; SBCL. +;;; (let ((pathname (if (equal object #.(make-pathname)) +;;; object +;;; (merge-pathnames object (make-pathname :name :wild))))) + (princ object stream)) +; ) (define-presentation-method present ((object string) (type pathname) stream (view textual-view)

1 0

[mcclim-devel] Patch: gtkairo backend CL source conventions 2/2
by Douglas Crosher 04 Jan '07

04 Jan '07

The gtkairo backend use some source code conventions that are not in the tradition of CL; using C style names for functions and constants. This patch tranforms the source to standard CL conventions. For example: cairo_text_extents -> cairo-text-extents :CAIRO_ANTIALIAS_DEFAULT -> :cairo-antialias-default gdk_cairo_create -> %gdk-cairo-create GdkCapStyle -> gdk-cap-style GTK_POLICY_AUTOMATIC -> *gtk-policy-automatic* Regards Douglas Crosher

1 0

[mcclim-devel] Patch: gtkairo backend CL source conventions 1/2
by Douglas Crosher 04 Jan '07

04 Jan '07

1 0

[mcclim-devel] Listener menus
by Christophe Rhodes 04 Jan '07

04 Jan '07

Hi, The attached restores working menus to the Listener. (It's not completely clean; I'll try to explain why). The first thing to do, done in the middle hunk of the three-hunk patch, is to put back the listener-view specializations to the interactor and the pointer documentation. (The latter isn't necessary, but I think it's right anyway). The first hunk is the magical one: it defines a command-or-form accept method which treats menu-items specially. The problem is that a menu-item is a perfectly good form, at least according to the various presentation translators around; therefore, the command-or-form input context "captures" the menu item. I'm not sure that this is ever desired behaviour, but it's certainly not desired behaviour inside read-frame-command of the listener, so we reintroduce an input context for menu-item inside the command-or-form context, and throw to the outer context handler established by the McCLIM-provided read-frame-command :around method. As I say, I'm not sure that it's ever desireable for 'expression or 'form input contexts to capture menu-items; if it isn't, then probably mcclim itself ought to prevent it from happening, maybe by a similar trick inside the system accept methods? It all looks a bit horrible, though. It's not great for the user as it stands, though, because as far as I can tell there's no standard menu-item presentation type -- the one that McCLIM implements is good, but it's not in Gilbert's annotatable spec -- and the contents of *input-context* are explicitly unspecified. The third hunk of this diff is an alternative approach, handling menu-items specially if they're returned from read-frame-command. This feels clunkier somehow -- for instance, the menu-item objects are printed at the repl -- but seems to violate fewer abstractions. Comments? Cheers, Christophe PS: when I apply this patch and click on a menu item for, say, Show Class Subclasses, the resulting dialog box eats my first keystroke using Drei, but not using Goatee.

3 8

[mcclim-devel] performance of incremental redisplay
by Robert Strandh 04 Jan '07

04 Jan '07

The slowness of my example from the other day seems to be caused by the fact that each top-level output record (of which there are 1000 in my example) is moved individually, and moving an output record triggers a call to recompute-extent-for-changed-child. The parent then scans all the children to compute the new bounding rectangle, resulting in quadratic behavior. The solution to this problem seems to be to realize that incremental redisplay must traverse all the output records anyway (to see what has changed), and so it would be a better idea to put off the computation of the bounding rectangle until the end of this entire process. I maintain my previous analysis that it would be a better idea to store relative positions in output records, so that moving an output record does not require traversing its children. -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

3 5

[mcclim-devel] :pointer-button (:left :shift) bug?
by Kilian Sprotte 03 Jan '07

03 Jan '07

Hi, am playing around with various pointer gestures. While everything seems to work :), I dont get :pointer-button (:left :shift) to do any action... I was testing with clx_0.7.3 and mcclim-0.9.3 as well as mcclim CVS on osx and ubuntu on sbcl (of course). So, all these are fine: (define-gesture-name :delete3 :pointer-button (:left :control)) (define-gesture-name :delete4 :pointer-button (:left :meta)) and even: (define-gesture-name :delete7 :pointer-button (:left :control :shift)) But here is nothing happening here: (define-gesture-name :delete2 :pointer-button (:left :shift)) Is this combination for some reasons impossible? I tried tracing down this a little, but I dont think, I will actually manage, sorry..... Thanks for any comments, Kilian

2 1

[mcclim-devel] program for incremental redisplay benchmark
by Robert Strandh 01 Jan '07

01 Jan '07

Here is the (last version of the) program I used to obtain the benchmark: (defpackage :example (:use :clim-lisp :clim :esa) (:export)) (in-package :example) (defmethod handle-repaint :before ((pane esa-pane-mixin) region) (declare (ignore region pane)) nil) (defclass example-info-pane (info-pane) () (:default-initargs :height 20 :max-height 20 :min-height 20 :display-function 'display-info :incremental-redisplay t)) (defun display-info (frame pane) (declare (ignore frame)) (format pane "Pane name: ~s" (pane-name (master-pane pane)))) (defclass example-minibuffer-pane (minibuffer-pane) () (:default-initargs :height 20 :max-height 20 :min-height 20)) (defun make-word () (with-output-to-string (string) (loop repeat (+ 4 (random 3)) do (princ (code-char (+ 97 (random 26))) string)))) (defun generate-words () (loop repeat (+ 8 (random 4)) collect (make-word))) (defclass text-line () ((words :initform (generate-words) :initarg :words :accessor words))) (defun generate-lines () (loop repeat (+ 8 (random 4)) collect (make-instance 'text-line))) (defclass paragraph () ((lines :initform (generate-lines) :initarg :lines :accessor lines))) (defun generate-contents () (loop repeat 1000 collect (make-instance 'paragraph))) (defclass example-pane (esa-pane-mixin application-pane) ((contents :initform (generate-contents) :accessor contents))) (define-application-frame example (esa-frame-mixin standard-application-frame) () (:panes (window (let* ((my-pane (make-pane 'example-pane :width 900 :height 400 :name 'my-pane :display-function 'display-my-pane :incremental-redisplay t :command-table 'global-example-table)) (my-info-pane (make-pane 'example-info-pane :master-pane my-pane :width 900))) (setf (windows *application-frame*) (list my-pane)) (vertically () (scrolling () my-pane) my-info-pane))) (minibuffer (make-pane 'example-minibuffer-pane :width 900))) (:layouts (default (vertically (:scroll-bars nil) window minibuffer))) (:top-level (esa-top-level))) (defparameter *counter* 5) (defun display-my-pane (frame pane) (declare (ignore frame)) (with-output-recording-options (pane :record t :draw nil) (loop for paragraph in (contents pane) do (updating-output (pane :unique-id paragraph :cache-value paragraph) (loop for line in (lines paragraph) do (updating-output (pane :unique-id line :cache-value line) (loop for word in (words line) do (format pane "~a " word)) (terpri pane))) (terpri pane)))) (stream-replay pane)) (defun example (&key (width 900) (height 400)) "Starts up the example application" (clim-sys:make-process (lambda () (let ((frame (make-application-frame 'example :width width :height height))) (run-frame-top-level frame))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Commands and key bindings (define-command-table global-example-table :inherit-from (global-esa-table keyboard-macro-table)) (define-example-command (com-nothing :name t) () nil) (set-key 'com-nothing 'global-example-table '(#\n)) (define-example-command (com-modify :name t) () (let* ((paragraphs (contents (find-pane-named *application-frame* 'my-pane))) (lines (lines (car paragraphs))) (words (words (car lines))) (new-words (cons (make-word) (cdr words))) (new-lines (cons (make-instance 'text-line :words new-words) (cdr lines))) (new-paragraphs (cons (make-instance 'paragraph :lines new-lines) (cdr paragraphs)))) (setf (contents (find-pane-named *application-frame* 'my-pane)) new-paragraphs))) (set-key 'com-modify 'global-example-table '(#\m)) (define-example-command (com-add :name t) () (let* ((paragraphs (contents (find-pane-named *application-frame* 'my-pane))) (lines (lines (car paragraphs))) (new-lines (if (< (random 100) 55) (cons (make-instance 'text-line) lines) (cdr lines))) (new-paragraphs (cons (make-instance 'paragraph :lines new-lines) (cdr paragraphs)))) (setf (contents (find-pane-named *application-frame* 'my-pane)) new-paragraphs))) (set-key 'com-add 'global-example-table '(#\a)) -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

1 0

← Newer
1
...
33
34
35
36
37
38
39
...
82
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel