mcclim-devel

Download

mcclim-devel@lists.common-lisp.net

May 2024

2 participants
2 discussions

Application-pane with only with-output-as-gadget => stack overflow
by Paul Werkowski 21 Oct '24

21 Oct '24

(in-package :clim-user) ;;; Application pane with only a ;;; WITH-OUTPUT-AS-GADGET form causes ;;; control stack overflow. (define-application-frame woag () () (:panes (application :application :scroll-bars nil :display-function #'(lambda (frame pane) (declare (ignore frame)) ;; uncomment to avoid overflow ;;(format pane "Hello~%") ; @@@ (with-output-as-gadget (pane) (with-radio-box (:orientation :horizontal) "1" "2" "3"))) ))) (find-application-frame 'woag :left 900 :top 200)

2 1

clx medium-draw-text*
by Paul Werkowski 02 May '24

02 May '24

The current implementation does not handle non-default :align keywords properly except when an +identity-transformation+ is in effect. This can be fixed simply by moving the transform-position form up before the (unlesss (and (eq align-x... ) stuff as shown below. (multiple-value-bind (x y) (transform-position merged-transform x y) (unless (and (eq align-x :left) (eq align-y :baseline)) (setq x (- x (ecase align-x (:left 0) (:center (round text-width 2)) ; worst case (:right text-width)))) ; worst case (setq y (ecase align-y (:top (+ y baseline)) ; OK (:baseline y) ; OK (:center (+ y baseline (- (floor text-height 2)))) ; change (:bottom (+ y baseline (- text-height)))))) ; change (xlib:draw-glyphs mi gc (truncate (+ x 0.5)) (truncate (+ y 0.5)) string :start start :end end :translate #'translate :size 16))))))

2 2