mcclim-devel

Download

mcclim-devel@common-lisp.net

September 2010

1 participants
2 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] Drei reposition
by Manuel Giraud 27 Sep '10

27 Sep '10

Hi, here's a patch to correct the behaviour of the "C-l" gesture in Climacs to be more like the Emacs one. Index: drei-redisplay.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei-redisplay.lisp,v retrieving revision 1.71 diff -u -r1.71 drei-redisplay.lisp --- drei-redisplay.lisp 3 May 2008 07:47:17 -0000 1.71 +++ drei-redisplay.lisp 27 Sep 2010 15:01:16 -0000 @@ -1090,6 +1090,12 @@ (declare (ignore y1)) (- x2 x1))) +(defmethod bounding-rectangle-height ((view drei-buffer-view)) + (multiple-value-bind (x1 y1 x2 y2) + (bounding-rectangle* view) + (declare (ignore x1 x2)) + (- y2 y1))) + (defun drei-bounding-rectangle* (drei-instance) "Return the bounding rectangle of the visual appearance of `drei-instance' as four values, just as `bounding-rectangle*'." @@ -1172,15 +1178,22 @@ "Try to put point close to the middle of the pane by moving top half a pane-size up." (let* ((view (view drei-pane)) - (nb-lines-in-pane (number-of-lines-in-region (top view) (bot view)))) - (with-accessors ((top top) (point point)) view - (setf (offset top) (offset point)) - (beginning-of-line top) - (loop do (beginning-of-line top) - repeat (floor nb-lines-in-pane 2) - until (beginning-of-buffer-p top) - do (decf (offset top)) - (beginning-of-line top)) + (buffer (buffer view)) + (line-and-space-height (+ (text-style-height (medium-merged-text-style + (sheet-medium drei-pane)) drei-pane) + (stream-vertical-spacing drei-pane))) + (nb-lines-in-pane (floor (bounding-rectangle-height drei-pane) + line-and-space-height)) + (nb-lines-in-buffer (number-of-lines buffer))) + (when (> nb-lines-in-buffer nb-lines-in-pane) + (with-accessors ((top top) (point point)) view + (setf (offset top) (offset point)) + (beginning-of-line top) + (loop do (beginning-of-line top) + repeat (floor nb-lines-in-pane 2) + until (beginning-of-buffer-p top) + do (decf (offset top)) + (beginning-of-line top))) (invalidate-all-strokes view :modified t)))) (defun adjust-pane (drei-pane) -- Manuel Giraud

1 0