January 2010 - mcclim-devel - mailman3.common-lisp.net

Re: [mcclim-devel] mcclim-devel Digest, Vol 39, Issue 6
by Irene DURAND 27 Mar '13

27 Mar '13

Hello, As my paste on irc lisp, did not have any answer, I turning again to this more specialized mailing list. I have this MClim problem. The application runs fine on Linux with SBCL 1.0.13, xorg-x11-server 1.3.0.0-9.fc7, a recent version of MClim. But doesn't on my Mac (Darwin PowerPC) with MacOS 10.5 (leopard), SBCL 1.0.16, cvs version of MClim, Xquartz 2.1.5 - (xorg-server 1.3.0-apple22)(2.1.5). I have tried to create the smallest as possible application where the problems occurs (attached). Just compile the file and launch mini::(start) On Linux, I have the desired behaviour: a circle blinks (red/green/red/...) on the display pane and at the bottom of the window application, the "quit" button is displayed and works. On the Mac, the circle blinks correctly but the "Quit" button never shows up. For a while the application is killable with C-c C-c (under Slime), but after a while there is no way to kill it than to stop Lisp and restart everything (even /the/ <http://www.lispworks.com/reference/HyperSpec/Body/s_the.htm> X server). Note that this application used to work on Mac OS 10.3 (Panther) with older versions of everything. I suspect the X server to behave differently from before. But now I don't see how to make the application work. This is too bad, as I usually use a similar application for my Lisp undergraduate course. If anyone has an idea, it will be welcomed. Irène (defpackage :mini (:use :clim :clim-extensions :clim-lisp)) (in-package :mini) (let ((colors (list +red+ +green+))) (setf colors (nconc colors colors)) (defun display-function (frame pane) (draw-circle* pane 10 10 10 :ink (pop colors)) (sleep 0.5) (redisplay-frame-panes frame))) (defun quit () (frame-exit *application-frame*)) (define-application-frame mini () () (:panes (display :application :display-function 'display-function :incremental-redisplay t) (quit :push-button :label "Quit" :activate-callback (lambda (x) (declare (ignore x)) (quit)))) (:layouts (defaults (vertically () display quit)))) (defun run-test (name) (loop for port in climi::*all-ports* do (destroy-port port)) (setq climi::*all-ports* nil) (let ((frame (make-application-frame name))) (run-frame-top-level frame))) (defun start () (run-test 'mini) 0) (defmethod run-frame-top-level :before ((mini mini) &key) (let* ((frame-manager (frame-manager *application-frame*)) (port (climi::frame-manager-port frame-manager)) (display (clim-clx::clx-port-display port))) (setf (xlib:display-after-function display) g#'xlib:display-force-output)))

4 4

[mcclim-devel] Is McCLIM being maintained?
by Peter Busser 24 Jan '10

24 Jan '10

Hi, Is McCLIM being maintained? I have a few suggestions for improvement. But if no one is able to add it, then I would rather not waste my time writing it down. Groetjes, Peter.

3 2

[mcclim-devel] [PATCH] Make CLX loadable for CLISP
by Evgeny M. Zubok 10 Jan '10

10 Jan '10

Recently, someone in this mailing-list pointed to the problem that CLX was not loaded during McCLIM compilation process in CLISP. Indeed, :clim-clx loading for was disabled for CLISP. I fix it. CLISP has it's own two implementations of CLX -- new-clx and mit-clx. Their presence can be enabled or disabled with CLISP configure script's options --with-module=clx/new-clx or --with-module=clx/mit-clx. First, we verify availability of :xlib package. If :xlib doesn't exist, then we load CLX from ASDF. Otherwise, some heuristic applied to detect what implementation provided with CLISP: if the symbol `set-selection-owner' is not declared as exported, we have implementation (new-clx, I suppose) that currently cannot be used as McCLIM backend. In this case, we unlock :xlib and try to replace it with CLX from ASDF. I tried mit-clx (predecessor of telent-clx) as McCLIM's backend two years ago, and it worked. But, AFAIR, I read (I don't remember where) that something (and I don't remember what) would not work with this implementation and also that the implementation hasn't being updated for a long time. I think the right decision is to leave it as possible backend for a while and don't replace it with telent CLX from ASDF.

1 0

[mcclim-devel] [PATCH] Reimplementaion of drag-output-record, dragging-output
by Evgeny M. Zubok 08 Jan '10

08 Jan '10

Hello, I've reimplemented `drag-output-record' and `dragging-output' to be more closer to specification. Unfortunately, the behaviour of these functions is underspecified and quite unclear in many places. I've attempted to implement all keys and window repaint event (the latter was marked as unresolved issue). I've used CLIM 2.0 (Symbolics/Xerox/Apple etc.), LW's CLIM 2.0 and Franz' CLIM 2.2.2 specifications as references. Also I played with CLIM implementation from Allegro CL with lesstif backend instead Motif. The drag-output-record is something buggy there, but acceptable to analyze some features. This patch does the following:: * Implements :repaint (as I understand it's meaning). * Supports :multiple-window. However, my understanding the meaning of this key and, hence, implementation could be incorrect. * :erase key works as described in specification: by default erase-output-record is used. * Supports window-repaint-event. In effect, if user's :feedback is provided and window-repaint-event has been queued (for instance, when user scrolled down/up stream while dragging), the feedback first is erased, then handle-repaint is called and, finally, the feedback is drawn again at the same place. * Reimplements dragging-output macro without introducing unspecified key :erase-final. * Slightly corrected draggable-graph example from clim-examples. I hope that I will write more featured example... later. Note, there is bug somewhere in stream-pointer-position. Something wrong with sheet-native-transformation for the stream. The effect of this bug is that the record capture works as expected only on first page inside scroller. On other pages the record is selected with wrong initial position.

1 0