"Evgeny M. Zubok" evgeny.zubok@tochka.ru writes:
So, what is the right behavior of stream-pointer-position if the stream has a scroller? Shouldn't it return the real coordinates on stream as pointer events do?
I found an answer to my question. I have just found CLIM implementation from Allegro CL (I only used it with lesstif backend instead motif).
To test I create a pane 'canvas' with :min-height 2000 :min-width 2000 and layout (scrolling (:height 500 :width 500) ...). In define-presentation-action for blank-area I call stream-pointer-position and print string "TEST", starting that point . In Allegro's CLIM implementation the strings appear where I have pressed pointer button; in McCLIM they appear only at the first page of canvas, even if I have pressed button on blank-area on other pages. So, I think, this is bug in McCLIM.
Sample code:
(defpackage :stream-pointer-position-bug (:use :clim-lisp :clim))
(in-package :stream-pointer-position-bug)
(defun run () (run-frame-top-level (make-application-frame 'main)))
(define-application-frame main () () (:menu-bar nil) (:panes (canvas (scrolling (:height 500 :width 500) (make-pane 'application-pane :display-time nil :background +black+ :foreground +white+ :min-width 2000 :min-height 2000 :scroll-bars t :display-function #'draw-circle :name 'canvas :output-record (make-instance 'standard-tree-output-history))))) (:layouts (:main canvas)))
(defun draw-circle (frame pane) (declare (ignore frame)) (draw-circle* pane 1500 1500 70 :filled t :ink +yellow+))
(define-presentation-action test (blank-area nil main :gesture :select) (presentation window) (declare (ignore presentation)) (multiple-value-bind (x y) (stream-pointer-position window) (draw-text* window "TEST" x y)))