mcclim-devel

mcclim-devel@common-lisp.net

820 discussions

[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 07 Dec '05

07 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

[mcclim-devel] text-field problem
by Thomas Persson 03 Dec '05

03 Dec '05

Hi After a cvs update tonight I noticed that the text-field gadget gets initialized with a width of 0, if you don't supply a ":value", resulting in a grey box as seen here: http://www.spacecentre.se/thomas/text-field.png My last update was probably a month ago. More details here: http://paste.lisp.org/display/14131#2 /Thomas

2 1

← Newer
1
...
53
54
55
56
57
58
59
...
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