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

Re: [mcclim-devel] Missing realizer in call to MAKE-PANE-1
by pw＠snoopy.mv.com 23 Dec '05

23 Dec '05

> Hmm, well you've got me there (sort of). I'm pretty sure that as I reduced > code from the real program that first showed that problem to the minimal > code in my email I did have with-look-and-feel-realization in play with > no apparent difference. I probably had some cockpit trouble at that point. > > Still no cigar though. Now I get a display visible, but no gadget. > > So, back to the debugging pit. Stay tuned. > It seems that if I change from a radio-box gadget to a label-pane things work as they should. I now cannot get a radio-box to appear at all, even at the frame definition eg (:panes (rb (with-radio-box () :a :b :c))) so maybe something has regressed in that area? Paul

1 0

[mcclim-devel] Reading in a list of objects
by Troels Henriksen 23 Dec '05

23 Dec '05

I have defined a presentation-type, column, as well as the appropriate present and accept methods. I need to accept a list of column objects from the user, but I am a bit stumped on how to do this. Do I have to define a new "columns" type, or does McCLIM include facilities to automatically read in sequences of objects from the user? -- \ Troels "Athas" Henriksen /\ sigkill.dk/blog (Danish)

2 1

Re: [mcclim-devel] Missing realizer in call to MAKE-PANE-1
by pw＠snoopy.mv.com 22 Dec '05

22 Dec '05

> Our behavior is within the bounds of the spec: > > http://www.stud.uni-karlsruhe.de/~unk6/clim-spec/29-2.html#_6495 > http://www.stud.uni-karlsruhe.de/~unk6/clim-spec/29-2.html#_6487 > > However, perhaps we should emulate the lispworks behavior of not > requiring the user to explicitly bind the realizer. > > Christophe's bugs are unrelated (one involves failure to embed nested > gadgets due to a problem in the order w-o-a-g initializes things, the > other I never tracked down). Hmm, well you've got me there (sort of). I'm pretty sure that as I reduced code from the real program that first showed that problem to the minimal code in my email I did have with-look-and-feel-realization in play with no apparent difference. I probably had some cockpit trouble at that point. Still no cigar though. Now I get a display visible, but no gadget. So, back to the debugging pit. Stay tuned. Paul

1 0

[mcclim-devel] Missing realizer in call to MAKE-PANE-1
by pw＠snoopy.mv.com 22 Dec '05

22 Dec '05

;;; -*- Package: clim-user -*- (in-package :clim-user) ;;; Lispworks CLIM displays a radio box. ;;; McCLIM throws No Primary Method for MAKE-PANE-1 ;;; with NIL as first argument. (define-application-frame test-woag () () (:panes (p0 :application :display-function (lambda (f p) (with-output-as-gadget (p) (with-radio-box (:label "xxx" :type :some-of) :x :y))) :min-width 100 :min-height 100 )) (:layouts (default p0))) (defun testme () (run-frame-top-level (make-application-frame 'test-woag)))

4 3

[mcclim-devel] Bug in draw-circle using transformation
by pw＠snoopy.mv.com 20 Dec '05

20 Dec '05

(in-package :clim-user) ;;; In Lispworks CLIM, this program draws an arc (counter-clockwise) ;;; from red dot to blue dot. ;;; In McCLIM, xlib:draw-arc throws a type error, ;;; 7.85398 is not of type (satisfies xlib:anglep) ;;; Changing start angle (as) to zero gets past that error, but the arc ;;; is going in the wrong direction (clockwise) from red dot. (define-application-frame test () () (:panes (p0 :application :display-function (lambda (f p) (declare (ignore f)) (with-translation (p 10 150) (with-scaling (p 1 -1) (let* ((as (/ pi 8)) (ae (+ as (/ pi 2))) (r 20) (x0 50)(y0 50) (xs (+ x0 (* r (cos as)))) (ys (+ y0 (* r (sin as)))) (xe (+ x0 (* r (cos ae)))) (ye (+ y0 (* r (sin ae))))) (draw-line* p 0 0 0 100) (draw-line* p 0 0 100 0) ;; Arc center (draw-circle* p x0 y0 3 :ink +green+) ;; Where the arc should start (draw-circle* p xs ys 3 :ink +red+) ;; Where the arc should end (draw-circle* p xe ye 3 :ink +blue+) (draw-circle* p x0 y0 r :start-angle as :end-angle ae :filled nil))))) :width 200 :height 200)) (:layouts (default p0))) (defun testme () (run-frame-top-level (make-application-frame 'test)))

1 0

[mcclim-devel] clipping-region
by Paul Werkowski 17 Dec '05

17 Dec '05

What is the supposed status of clipping-region support? A simple test here seem to suggest clipping-region is ignored. Paul

2 1

[mcclim-devel] Problems with compose-xxx-with-yyy transformation functions
by Paul Werkowski 16 Dec '05

16 Dec '05

(in-package :clim-user) (defun t1 () ;; works same on mcclim and lw (let* ((a (make-translation-transformation 10 10)) (b (make-scaling-transformation 2 2))) (multiple-value-bind (x y) ;; Spec says; ;; b (scaling) first, then a (translation) (transform-position (compose-transformations a b) 1 1)) (format t "T1 => ~a ~a~%" x y) (assert (= 12 x y)))) (defun t2 () ;; LW CLIM gives (values 12 12), McCLIM gives (values 22 22) ?? (let ((a (compose-transformation-with-translation ;; Spec says; ;; transformation (scaling) first, then translation (make-scaling-transformation 2 2) 10 10))) (multiple-value-bind (x y)(transform-position a 1 1) (format t "T2 => ~a ~a~%" x y) (assert (= 12 x y))))) #+bugged-McCLIM definition ;;; oops, order is reversed! (defun compose-transformation-with-translation (transformation dx dy) (compose-transformations transformation (make-translation-transformation dx dy))) ;;;;; Proposed fixes #+McCLIM (progn (defun compose-translation-with-transformation (transformation dx dy) (compose-transformations transformation (make-translation-transformation dx dy))) (defun compose-scaling-with-transformation (transformation sx sy &optional origin) (compose-transformations transformation (make-scaling-transformation sx sy origin))) (defun compose-rotation-with-transformation (transformation angle &optional origin) (compose-transformations transformation (make-rotation-transformation angle origin))) (defun compose-transformation-with-translation (transformation dx dy) (compose-transformations (make-translation-transformation dx dy) transformation)) (defun compose-transformation-with-scaling (transformation sx sy &optional origin) (compose-transformations (make-scaling-transformation sx sy origin) transformation)) (defun compose-transformation-with-rotation (transformation angle &optional origin) (compose-transformations (make-rotation-transformation angle origin) transformation)) ) ;;;;

2 5

[mcclim-devel] Patch: do-sequence
by Nikodemus Siivola 16 Dec '05

16 Dec '05

The attached patch fixes DO-SEQUENCE which doesn't currently stay in the array bounds -- and hence also fixes DRAW-LINES*. Cheers, -- Nikodemus Schemer: "Buddha is small, clean, and serious." Lispnik: "Buddha is big, has hairy armpits, and laughs."

1 0

[mcclim-devel] Patch: window-viewport-position
by Nikodemus Siivola 15 Dec '05

15 Dec '05

The attached patch makes (multiple-value-bind (x y) (window-viewport-position pane) (setf (window-viewport-position pane) (values x (+ y (stream-line-height pane))))) work as expected -- or at least as I assume it should work... Cheers, -- Nikodemus Schemer: "Buddha is small, clean, and serious." Lispnik: "Buddha is big, has hairy armpits, and laughs."

1 0

[mcclim-devel] [patch] minor goatee improvements (arrow keys!)
by Andreas Fuchs 07 Dec '05

07 Dec '05

Hi all, I have here a patch to make arrow keys and the Home and End keys in a goatee input buffer DTRT. I'm not entirely sure if the patch to lookup-gesture-command is doing the right thing, so I'd like a CLIM gesture specialist to at least glance over it before I commit it. (: Here's the patch: Have fun, -- Andreas Fuchs, <asf(a)boinkor.net>, asf(a)jabber.at, antifuchs

1 1