mcclim-devel February 2021

mcclim-devel@common-lisp.net

2 discussions

make-translator-fun
by Paul Werkowski 13 May '21

13 May '21

(defun make-translator-fun (args body) (cond ((null args) (warn "OBJECT parameter is obligatory (adding ignored parameter)") (let ((object-arg (gensym "OBJECT-ARG"))) `(lambda (,object-arg &key &allow-other-keys) (declare (ignore ,object-arg)) ,@body))) (t `(lambda (,(car args) &key ,@(cdr args) &allow-other-keys) (declare (ignorable ,(car args))) ,@body)))) I guess the above does the right thing if ARGS is NIL but won't catch the case of ARGS incorrectly given as, for instance, (x y window) instead of (object x y window). Paul

3 3

define-presentation-to-command-translator
by Paul Werkowski 13 May '21

13 May '21

Trying to run McCLIM on windows-10/LispWorks 64-bit. This issue regards define-presentation-to-command-translator. The marked lines below show the problem. Apparently the McCLIM code resulted in replacing the DEV-X argument I wanted with a DEVICE-EVENT object I did not want. I then had to use a non exported function from clim-internals to retrieve the missing value. The &rest arg I put in is NIL in both cases. I have not figured out how that happened. (defun %set-a-cursor #+clim-2.0 (chart cursor dev-x dev-y pane &rest stuff) ;<<<< #+mcclim (chart cursor event dev-y pane &rest stuff) ;<<<< (let* (#+mcclim (dev-x (climi::device-event-x event)) (x (untransform-position (medium-transformation pane) dev-x dev-y))) (with-slots (lcursor rcursor) chart (let ((newx (ecase cursor (rcursor (max (x-cursor-position lcursor) (ceiling x))) (lcursor (min (x-cursor-position rcursor) (floor x)))))) ;; args to com-set-cursor (list (slot-value chart cursor) newx pane))))) (define-presentation-to-command-translator xlate-set-rcursor (clim:blank-area com-set-cursor plotter :documentation "Set Right Cursor" :gesture :menu :tester ((object window) (declare (ignore object)) (typep window 'basic-chart-pane))) (x y window) (%set-a-cursor (chart-pane-chart window) 'rcursor x y window))

2 1

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel February 2021