mcclim-devel November 2008

mcclim-devel@common-lisp.net

6 participants
4 discussions

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] McCLIM and clisp/new-clx
by Philippe Brochard 29 Nov '08

29 Nov '08

Hi, The current CVS McCLIM freeze on drag'n drop with clisp/new-clx. It seems that mcclim expect xlib:process-event to timeout. This is the case with clisp/mit-clx but never with clisp/new-clx. So there is an infinite loop with clisp/new-clx. Here is a little fix to run most mcclim examples with clisp/new-clx. I don't know if this is the right thing to do and I haven't found the difference between the 2 clx versions. If someone with a higher view can take a look at it. --8< cut here -------------------------------------------------------- Index: Lisp-Dep/mp-nil.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Lisp-Dep/mp-nil.lisp,v retrieving revision 1.7 diff -u -w -p -r1.7 mp-nil.lisp --- Lisp-Dep/mp-nil.lisp 8 Jul 2006 16:58:36 -0000 1.7 +++ Lisp-Dep/mp-nil.lisp 26 Nov 2008 14:54:12 -0000 @@ -127,6 +127,7 @@ (loop for port in climi::*all-ports* ;; this is dubious do (loop as this-event = (process-next-event port :timeout 0) for got-events = this-event then (or got-events this-event) + repeat 2 while this-event finally (unless got-events (process-next-event port)))) (car cv))) --8< cut here -------------------------------------------------------- Regards, Philippe -- Philippe Brochard <pbrochard(a)common-lisp.net> http://hocwp.free.fr

1 0

[mcclim-devel] Gestures applicable to only one pane?
by Nikolaus Demmel 13 Nov '08

13 Nov '08

Hi there, I would like to define commands with gestures (or a gesture to command translator) where the gesture (:select) applies in only one specific pane. I want to specialise this command for T, so it would accept everything as input, which screws up the rest of my application... How can this be done? Regards, Nikolaus Demmel

2 1

Re: [mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
by ブラウンスコット 02 Nov '08

02 Nov '08

I've got mcclim working now using SBCL and clbuild. -------------------------------------- Power up the Internet with Yahoo! Toolbar. http://pr.mail.yahoo.co.jp/toolbar/

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 November 2008