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

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

[mcclim-devel] Interactor pane, hollow cursor?
by Andy Hefner 06 Dec '05

06 Dec '05

Why does the text cursor within interactor panes now appear hollow, as though you were not typing to the interactor?

4 4

[mcclim-devel] Weird gray regions bug in Clouseau
by Peter Scott 05 Dec '05

05 Dec '05

When I open Clouseau and expand what I'm inspecting so that it goes off the screen, I see gray regions if I scroll to the right or down. Here's a screenshot: http://www.ece.iastate.edu/~pjscott/inspector-bug.png I got that just by doing (clouseau:inspector *features*) and scrolling to the right. The same problem occurs at the bottom if I inspect something too long to properly display. If I scroll down in the previous window: http://www.ece.iastate.edu/~pjscott/inspector-bug2.png This is annoying, and I don't know enough about the internal workings of McCLIM to know where to start fixing it. I think it might be related to this code: (defmethod redisplay-frame-pane :after ((frame inspector) (pane application-pane) &key force-p) (declare (ignore force-p)) (change-space-requirements pane :height (bounding-rectangle-height (stream-output-history pane)))) ...but I'm not sure, and I don't want to just randomly munge code and hope that I accidentally fix the problem. --Peter

4 5