mcclim-devel January 2021

mcclim-devel@common-lisp.net

3 participants
5 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

default-icons.lisp
by Paul Werkowski 17 Jan '21

17 Jan '21

Lispworks/Windows uses :host for windows drive letter. ----------------------------------- @@ -3,10 +3,11 @@ (flet ((load-icon (name) (let* ((file-pathname #.(or *compile-file-pathname* *load-pathname*)) (icon-pathname (merge-pathnames (make-pathname :directory '(:relative "data") + :host (pathname-host file-pathname) :name name :type "png") file-pathname))) (make-pattern-from-bitmap-file icon-pathname :format :png)))) (unless *default-icon-large*

1 0

Fw: New Year's puzzle
by Daniel Kochmański 03 Jan '21

03 Jan '21

Accidently send to the sender, not the mailing list, forwarding -------- Oryginalna wiadomość -------- ‎ 3 sty 2021, 16:52, Daniel Kochmański napisał(a): > If the beer is at stake, I shall take a guess! > > When 1+ is used, we draw beyond the sheet region. That means, that *if* > we call change-space-requirements it will cause a call to resize-sheet, > which in turn will: a) clear the screen, b) call redisplay-frame-pane. > > Since the sheet region has changed, redisplaying the frame pane will > expand it even further, so we go back to the *if* part. > > Now, regarding the *if*, we have a bogus method: > > (defmethod stream-read-gesture :before ((stream clim-stream-pane) > &key timeout peek-p > input-wait-test > input-wait-handler > pointer-button-press-handler) > (declare (ignore timeout peek-p input-wait-test input-wait-handler > pointer-button-press-handler)) > (force-output stream) > ;; make the output visible > (let ((w (bounding-rectangle-max-x (stream-output-history stream))) > (h (bounding-rectangle-max-y (stream-output-history stream)))) > (unless (region-contains-region-p (sheet-region stream) > (make-rectangle* 0 0 w h)) > (change-space-requirements stream) > (finish-output stream) > (redisplay-frame-pane *application-frame* stream)))) > > that causes bogus redisplays before each gesture read, so when we move > the pointer over the window, we enter the loop: > > 1. display (and expand the output history) > 2. move the pointer > 3. change space requirements (and resize) > 4. goto 1 > > as a bonus point we have one more unnecessary redisplay. > > The fun part is that I have changes stashed that remove this method. > > All best, > 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 > > ‐‐‐‐‐‐‐ Original Message ‐‐‐‐‐‐‐ > On Sunday, 3 January 2021 16:18, Paul Werkowski <pw(a)snoopy.qozzy.com> wrote: > >> Run the frame as is. Grab the lower corner with mouse pointer. Move it >> around. >> >> Then change either or both of the (1+ ...) forms to (1- ...) and see >> what happens. >> >> A free virtual beer to whomever solves it.

2 1

New Year's puzzle
by Paul Werkowski 03 Jan '21

03 Jan '21

Run the frame as is. Grab the lower corner with mouse pointer. Move it around. Then change either or both of the (1+ ...) forms to (1- ...) and see what happens. A free virtual beer to whomever solves it.

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 January 2021