August 2012 - 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] Official repository lagging?
by Manuel Giraud 14 Nov '12

14 Nov '12

Hi mcclimers, I wanted to (re)try to do some hacking on mcclim. So I have checkout the official CVS repository (from which the quicklisp package seems to be made of) and (slowly) start working on it. Then it occured to me there are many public fork of mcclim on github, for instance: https://github.com/onixie/mcclim https://github.com/slyrus/mcclim https://github.com/mmontone/mcclim https://github.com/timoore/mcclim All of them were active in the last 4 months and have their own set of improvements while the official CVS last patch dates back to july 2011. So my question is, can someone with enough credential collects (and maybe selects) those patches and apply them to the official repository? (I know I can 'git clone' one of those repo, cherry pick what I want and add my patches but then it will be yet another unofficial repo). Best, -- Manuel Giraud

6 8

[mcclim-devel] Unsupported implementations
by Richard Lewis 13 Aug '12

13 Aug '12

Hi there, Out of interest (I have no particular application for this) I tried installing McCLIM with ECL just now using QuickLisp and got nowhere. The mcclim.asd has a defsystem form, :clim-lisp, which adds a file component depending on the implementation. However, it has no fall-back for unsupported implementations meaning that the error I get if I try to compile with ECL is "Too few arguments supplied to a macro or a destructuring-bind form" where "unsupported implementation" would be better. I tried adding a fall-back to that defsystem just to see what would happen: (defsystem :clim-lisp :components (;; First possible patches (:file "patch") (:module "Lisp-Dep" :depends-on ("patch") :components ((:file #+cmu "fix-cmu" #+scl "fix-scl" #+excl "fix-acl" #+sbcl "fix-sbcl" #+openmcl "fix-openmcl" #+lispworks "fix-lispworks" #+clisp "fix-clisp" #| other |# "fix-nil"))) (:file "package" :depends-on ("Lisp-Dep" "patch")))) fix-nil.lisp was just an empty file. It compiled a little bit but eventually failed saying "Cannot find symbol "FUNDAMENTAL-BINARY-INPUT-STREAM" in package #<"CLIM-LISP" package>". But that's not really the point. I don't know what is the idiomatic way of making a system fail based on implementation, but it might be good to do something like that in McCLIM. Richard

1 0

[mcclim-devel] Is list-pane not fully implemented?
by P C 08 Aug '12

08 Aug '12

Hello, I've been trying to get my list-panes fully operational, but it seems as I take one step forward, something else seems to push me back two steps. It is frustrating, but I am more grateful to be learning these tools, because this is really the only way I will be exposed to CL. It seems that at first, my lists didn't seem to want to be nonexclusive. I found out that the problem with that was my McCLIM directory in quicklisp had about half of the files missing (?). I don't know how that happened. Then after I figured that out, when I try to update the items of the list using (setf (list-pane-items pane) new-items), it says there is no generic function to handle this. Maybe my problem comes from my work around. This is what I did. (with-slots (pane) *application-frame* (with-slots (items) pane (setf (climi::list-pane-items (find-pane-named *application-frame* 'pane)) new-items-list))) Is all of this necessary? It seems the second (with-slots ...) is not necessary. I've read through the gadgets.lisp and it seems that the defgeneric and defmethods are defined appropriately, but (setf list-pane-items) or (setf climi::list-pane-items) errors out as no generic function. Is there a way better than what I did? After I use this to update my list, it redisplays with only half of the items; 1500 instead of 3000. Is this a limit of the size that a list-pane can handle; or is this from my work around? Also I would like to mention, :scroll-bars and :visible-items keys don't work for me. Are these known bugs? When I had :scroll-bars t and tried to update my list, the whole screen became transparent except for around the borders where it was refracted. P C

2 5

Re: [mcclim-devel] Fwd: Possible bug in non exclusive list pane.
by P C 05 Aug '12

05 Aug '12

Hello, When you click on the list, does it change the value? I am getting this error when I click on an item in the list. debugger invoked on a TYPE-ERROR in thread #<THREAD "Stocks Window" RUNNING {100885EE33}>: The value NIL is not of type (MOD 4611686018427387901). Thanks for testing it out. On 08/04/12 20:30, Mariano Montone wrote: > Hi. > > Your program runs without problems in my computer. > > I'm running SBCL on Ubuntu > > Mariano > > (in-package :climi) > > (define-application-frame stocks-window () > () > (:geometry :width 640 :height 480 :left 64 :top 32) > (:panes > (index-list (make-pane ':list-pane > :id 'index-list > :value '("A" "B") > :items '("A" "B" "C" "D") > :mode ':nonexclusive > :prefer-single-selection t > :test #'string=))) > (:layouts > (default > (clim-tab-layout:with-tab-layout ('tab-page :name 'layout :height > 480) > ("A" > (spacing > (:thickness 8) > (horizontally > (:x-spacing 4 :y-spacing 4) > (labelling (:label "List" :height 128 :width 192) > (scrolling (:scroll-bar t) > (spacing (:thickness 0) > index-list))))))))) > (:menu-bar t)) > > (define-stocks-window-command (com-quit :menu t) () > (frame-exit *application-frame*) > nil) > > (defvar *window-frame* nil) > > (defun window () > (flet ((run () > (let ((frame (make-application-frame 'stocks-window))) > (setf *window-frame* frame) > (run-frame-top-level frame)))) > (sb-thread:make-thread #'run :name "Window"))) > > (window)

2 2

[mcclim-devel] Fwd: Possible bug in non exclusive list pane.
by P C 04 Aug '12

04 Aug '12

---------- Forwarded message ---------- From: P C <psilocidal(a)gmail.com> Date: Sat, Aug 4, 2012 at 7:46 PM Subject: Re: [mcclim-devel] Possible bug in non exclusive list pane. To: Stas Boukarev <stassats(a)gmail.com> On Sat, Aug 4, 2012 at 7:34 PM, Stas Boukarev <stassats(a)gmail.com> wrote: > P C <psilocidal(a)gmail.com> writes: > > > Hello, > > > > When I try my code for a list pane as nonexclusive, I receive an error > > saying value NIL is not of type (mod some-number). I thought this meant > > that it didn't like my values and items as strings so I changed test to > > #'string= not #'eql. I still get this error when I click on the list to > > change the value. > > > > Is this a known bug? Or am I missing something in my code? > It would be helpful if you attached the code in question. > -- > With best regards, Stas. > Sorry for leaving out the code. (define-application-frame stocks-window () () (:geometry :width 640 :height 480 :left 64 :top 32) (:panes (index-list (make-pane ':list-pane :id 'index-list :value '("A" "B") :items '("A" "B" "C" "D") :mode ':nonexclusive :prefer-single-selection t :test #'string=))) (:layouts (default (with-tab-layout ('tab-page :name 'layout :height 480) ("A" (spacing (:thickness 8) (horizontally (:x-spacing 4 :y-spacing 4) (labelling (:label "List" :height 128 :width 192) (scrolling (:scroll-bar t) (spacing (:thickness 0) index-list))))))))) (:menu-bar t)) (define-window-command (com-quit :menu t) () (frame-exit *application-frame*) nil) (defvar *window-frame* nil) (defun window () (flet ((run () (let ((frame (make-application-frame 'window))) (setf *window-frame* frame) (run-frame-top-level frame)))) (make-thread #'run :name "Window"))) (window)

2 1

[mcclim-devel] Possible bug in non exclusive list pane.
by P C 04 Aug '12

04 Aug '12

Hello, When I try my code for a list pane as nonexclusive, I receive an error saying value NIL is not of type (mod some-number). I thought this meant that it didn't like my values and items as strings so I changed test to #'string= not #'eql. I still get this error when I click on the list to change the value. Is this a known bug? Or am I missing something in my code?

2 1