Text scaling example

Here's an example of what changed from 6.0 to 6.1.

In 6.0 the text is the same size in both windows. In 6.1 it's different.

LW



(defun draw-my-text1 (pane x y w h)
        (gp:with-graphics-state (pane :transform (list 1 0 0 1 0 0))
          (gp:draw-string pane "Test text" 10 50)))


(setq test-pane1
    (capi:contain
         (make-instance 'capi:output-pane
         :display-callback 'draw-my-text1)
         :best-width 300
         :best-height 300))


(defun draw-my-text4 (pane x y w h)
        (gp:with-graphics-state (pane :transform (list 4 0 0 4 0 0))
          (gp:draw-string pane "Test text" 10 50)))


(setq test-pane4
    (capi:contain
         (make-instance 'capi:output-pane
         :display-callback 'draw-my-text4)
         :best-width 300
         :best-height 300))




> My text drawing in an output pane got messed up upgrading from LW 6.0 to 6.1. It appears that using a graphics transform as follows:
> 
>        (gp:with-graphics-state (self :transform (list x-scale 0 0 y-scale x-offset-pixels y-offset-pixels))
> 
> now causes scaling to be applied to text drawn using draw-string.
> 
> Are others experiencing this, and can anyone tell me whether to consider this a bug or a correction of a bug?
> 
> (LW Mac Professional edition)
> 
> Thanks as always.
> 
> LW