[mcclim-devel] Fwd: Possible bug in non exclusive list pane.

[Mariano Montone]

Yes. It is working.

Ctrl+Click and Shift+Click is also working, selecting several items.

I have no idea what your error may be about. Maybe some problem with
mcclim + lisp on your platform. Did you have a look at the backtrace, at
the function where it fails?

Otherwise, I don't know.

El 04/08/12 18:44, P C escribió:
> 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)
>