mcclim-devel May 2021

mcclim-devel@common-lisp.net

2 participants
4 discussions

[new irc server]
by Daniel Kochmański 23 May '21

23 May '21

Hey, Due to the recent events revolving freenode IRC network I've moved the IRC channelto #clim @ libera.chat. The old channel is obsolete. Best regards, Daniel -- Daniel Kochmański ;; aka jackdaniel | Przemyśl, Poland TurtleWare - Daniel Kochmański | www.turtleware.eu "Be the change that you wish to see in the world." - Mahatma Gandhi

1 0

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

scigraph suffering from bitrot?
by John Morrison 03 May '21

03 May '21

Hi; Before I strap on my hip-waders, is my intuition that climi::pixmap type has been refactored correct? Please advise If so, that's where I'll start looking - and if you suggest a backend-independent type I should be using, I will be most grateful. I also checked scigraph-evo, and its demos fail in precisely the same way as bundled Apps/Scigraph's demos. Thanks in advance for pointing the way, -jm p.s., I was looking for a real pan-and-zoom XY canvas - if anybody has better suggestions, I'm all ears.

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-devel May 2021