March 2009 - 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] Fix crash
by Juliusz Chroboczek 20 Apr '09

20 Apr '09

Index: stream-input.lisp =================================================================== RCS file: /project/mcclim/cvsroot/mcclim/stream-input.lisp,v retrieving revision 1.54 diff -u -r1.54 stream-input.lisp --- stream-input.lisp 1 May 2008 21:45:23 -0000 1.54 +++ stream-input.lisp 2 Mar 2009 22:12:58 -0000 @@ -215,7 +215,7 @@ ;;; Do streams care about any other events? (defun handle-non-stream-event (buffer) (let* ((event (event-queue-peek buffer)) - (sheet (event-sheet event))) + (sheet (and event (event-sheet event)))) (if (and event (or (and (gadgetp sheet) (gadget-active-p sheet))

3 2

[mcclim-devel] [PATCH] cooperate with window manager
by Juliusz Chroboczek 20 Apr '09

20 Apr '09

Hi, The attached patch makes the CLX backend cooperate better with X11 window managers by marking frames as top-level windows. Juliusz

3 3

[mcclim-devel] Use Unicode fonts when available
by Juliusz Chroboczek 20 Apr '09

20 Apr '09

Don't leave the choice of font encoding to the server, as this is highly unreliable. Try fonts as iso10646-1 if the server supports that, fall-back to iso8859-1. If that's still not available, choose any font at all. iso10646-1 is only tried when (> char-code-limit #x100). Juliusz

2 1

[mcclim-devel] Set save-unders for transient windows
by Juliusz Chroboczek 20 Apr '09

20 Apr '09

Minimises redraws. Juliusz

2 1

None
by None 14 Mar '09

14 Mar '09

1 0

[mcclim-devel] event handling outside the top-level loop
by Sascha Wilde 10 Mar '09

10 Mar '09

Hi *, I'm playing around with an mandelbrot explorer with an simple clim interface. This means the application spends a lot of time in an local loop[0]. During this time the interface is "dead" as no events are handled. So I would like to trigger the event handling from time to time in my own code -- is there an easy way to do so? cheers sascha [0] actually an recursion with the algorithm I'm using -- Sascha Wilde Real programmers don't want "what you see is what you get", they want "you asked for it, you got it". They want editors that are terse, powerful, cryptic, and unforgiving. In a word, Teco.

2 1

[mcclim-devel] For panes, :menu-bar height is always zero.
by Dave Goel 09 Mar '09

09 Mar '09

I am playing with a new mcclim, downloaded yesterday or so via clbuild. If I specify a :menu-bar for a pane explicitly, the height is always zero, no matter what. My current workaround is to use clim-internals:make-menu-bar. As an example, I am attaching a file, with several menubars. Moreover, I switch the layout of the menu-bars dynamically (and can even show/hide some bars as I want) using the movethingsaround button. See the commented out parts in there like: ;;(pane2 :menu-bar :command-table 'menubarb-command-table :min-y 100 which I had to replace with clim-internals:make-menu-bar. I am both attaching as well as including the file below. Thanks a lot. -dave -- ;; 2009-03-08 T19:39:18-0400 (Sunday) D. Goel ;; Some of this came from http://constantly.at/lisp/ui.html ;;; This example manually specifies the menu-bar panes. ;; Not only that, each menu-bar's submenu is further a command-table ;; rather than a simple command.. ;; Notice that the quit button is greyed out for mcclim because we ;; defineed it via define-command-table. We should have defined it via ;; define-frame-tag-command-table instead! ;; This method does not work for mcclim. ;; (pane2 :menu-bar :command-table 'menubarb-command-table :min-y 100 ;; The height is 0 no matter what you do. So, instead we call ;; clim-internals! (define-command-table menubar-command-table :menu (("Menub" :menu menu-command-table) ;;("Move 2nd bar" :command move-things) ("Exitb" :command com-quit-frame))) (define-command-table menubarb-command-table :menu (("Menu" :menu menub-command-table) ("Quit" :command com-quit-frame))) (define-application-frame tags-frame () ((message :initform "Message" :accessor tags-message)) (:panes ;; The commented out should be the best method, but broken. ;; This should be the actual method in clim, but is broken ;; (invisible bar, so make-menu-bar instead. ;;(pane2 :menu-bar :command-table 'menubarb-command-table :min-y 100 ;;:min-height 100 :height 100) ;; ;; This one is broken in mcclim for the same reason! ;;(pane2 (make-pane :menu-bar :command-table 'menubar-command-table ;; :height 100 :min-height 30)) ;; We next explore two other methods to make menubar. (pane1 (clim-internals::make-menu-bar 'menubar-command-table)) (pane2 (clim-internals::make-menu-bar 'menubarb-command-table)) (some-pane :application :display-function 'display-some-pane) (my-interactor :interactor) (mouse :pointer-documentation)) (:layouts (default (vertically () (1/3 pane1) (1/3 pane2) (1/3 some-pane) (:fill my-interactor) mouse)) (moved (vertically () (1/3 pane1) (1/3 some-pane) pane2 (:fill my-interactor) mouse)))) ;; Notice that while it serves as a quit function within pane1 and ;; pane2, it also shows as a "Quit frame" command on the very top ;; menu. That part happens because we have included a :menu t below. (define-tags-frame-command (com-quit-frame :menu t) () (frame-exit *application-frame*)) ;; this was in there originally, but these are greyed out! ;; (define-command com-hello () ;; (setf (tags-message *application-frame*) "Hello there!")) ;; Now see, the introduction of this move-things causes mcclim to come ;; up with its own menubar as well. If this hadn't been there, mcclim ;; would not have its own menubar. Of course, we can also make it a ;; subpart of one of the menubars we have defined. (define-tags-frame-command (com-move-things :menu t) () (setf (frame-current-layout *application-frame*) (if (eql (frame-current-layout *application-frame*) 'default) 'moved 'default))) (define-tags-frame-command com-hello () (setf (tags-message *application-frame*) "Hello there!")) (define-tags-frame-command com-exclaim () (setf (tags-message *application-frame*) "You there!")) ;; Notice how this one shows greyed out!! This is because it is not ;; defined as a tags-frame command table. (define-command com-hi () (setf (tags-message *application-frame*) "Hi there!")) (define-command-table menu-command-table :menu (("Say Hello" :command com-hello) ("Say Hi" :command com-hi))) (define-command-table menub-command-table :menu (("Exclaim" :command com-exclaim) ("Exclaim" :command com-exclaimb))) (defun test () (flet ((run () ;; Intentional sleep to test the sleep-enough function below. (sleep 1) (let ((frame (make-application-frame 'tags-frame :top 0 :left 0 :right 3000 :bottom 30000 ))) (setq *test-frame* frame) (run-frame-top-level frame)))) (mp:process-run-function "tags" #'run))) (defmethod display-some-pane ((frame tags-frame) stream) (format stream (tags-message frame))) (defmethod display-another-pane ((frame tags-frame) stream) (declare (ignore stream)) (let ((pane (get-frame-pane *application-frame* 'another-pane))) (window-clear pane) (draw-rectangle* pane 10 10 200 150 :filled nil :line-thickness 2) (draw-ellipse* pane 150 100 10 0 0 30)))

1 0