tracking-pointer :transformp has no effect

• To: CLIM Mailing List <clim@BBN.COM>
• Subject: tracking-pointer :transformp has no effect
• From: Brent Reeves <brentr@sigi.cs.colorado.edu>
• Date: Tue, 12 May 1992 09:11:46 -0600

 In CLIM 1.0 & Genera 8.1 does the :transformp option to
 tracking-mouse work?  The following code returns the same values for
 the pointer location, regardless of the :transformp option.


(define-network-design-command (com-show-warped-mouse
			       :name "Show Warped Mouse" :menu nil)
    ()
  (let* 
    ((frame *application-frame*)
     (window (get-frame-pane frame 'work-area))
     (tf (compose-transformations
           (make-scaling-transformation 2 3)
	      (compose-transformations
		(make-rotation-transformation .2)
		(make-translation-transformation 10 20)))))
    (catch 'up
      (tracking-pointer (window :multiple-window nil)
      (:pointer-button-press (event x y)
       (format window "~%Untransformed Pointer 2: ~D,~D" x y)
        (throw 'up nil))))
    (catch 'up
      (tracking-pointer (window :multiple-window nil :transformp tf)
      (:pointer-button-press (event x y)
       (format window "~%Transformed   Pointer 2: ~D,~D" x y)
        (throw 'up nil))))))

• Prev: Command tables/menus (CLIM 1.0)
• Next: Problems with getting windows to come up correctly on the Sun
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)