<html>
  <head>
    <meta content="text/html; charset=ISO-8859-1"
      http-equiv="Content-Type">
  </head>
  <body text="#000000" bgcolor="#FFFFFF">
    <div class="moz-cite-prefix">Hi.<br>
      <br>
      Your program runs without problems in my computer.<br>
      <br>
      I'm running SBCL on Ubuntu<br>
      <br>
      Mariano<br>
      <br>
      (in-package :climi)<br>
      <br>
      (define-application-frame stocks-window ()<br>
        ()<br>
        (:geometry :width 640 :height 480 :left 64 :top 32)<br>
        (:panes<br>
         (index-list (make-pane ':list-pane<br>
                    :id 'index-list<br>
                    :value '("A" "B")<br>
                    :items '("A" "B" "C" "D")<br>
                    :mode ':nonexclusive<br>
                    :prefer-single-selection t<br>
                    :test #'string=)))<br>
        (:layouts<br>
         (default<br>
             (clim-tab-layout:with-tab-layout ('tab-page :name 'layout
      :height 480)<br>
           ("A"<br>
            (spacing<br>
             (:thickness 8)<br>
               (horizontally<br>
                (:x-spacing 4 :y-spacing 4)<br>
                (labelling (:label "List" :height 128 :width 192)<br>
                   (scrolling (:scroll-bar t)<br>
                          (spacing (:thickness 0)<br>
                               index-list)))))))))<br>
        (:menu-bar t))<br>
      <br>
      (define-stocks-window-command (com-quit :menu t) ()<br>
          (frame-exit *application-frame*)<br>
          nil)<br>
      <br>
      (defvar *window-frame* nil)<br>
      <br>
      (defun window ()<br>
        (flet ((run ()<br>
             (let ((frame (make-application-frame 'stocks-window)))<br>
               (setf *window-frame* frame)<br>
               (run-frame-top-level frame))))<br>
          (sb-thread:make-thread #'run :name "Window")))<br>
      <br>
      (window)<br>
      <br>
      El 04/08/12 16:48, P C escribió:<br>
    </div>
    <blockquote
cite="mid:CALnzA-qBQfO221gRmqw_-HND+G6=3iStmwnN0rPZtv7C2eGY8Q@mail.gmail.com"
      type="cite"><br>
      <br>
      <div class="gmail_quote">---------- Forwarded message ----------<br>
        From: <b class="gmail_sendername">P C</b> <span dir="ltr"><<a
            moz-do-not-send="true" href="mailto:psilocidal@gmail.com">psilocidal@gmail.com</a>></span><br>
        Date: Sat, Aug 4, 2012 at 7:46 PM<br>
        Subject: Re: [mcclim-devel] Possible bug in non exclusive list
        pane.<br>
        To: Stas Boukarev <<a moz-do-not-send="true"
          href="mailto:stassats@gmail.com">stassats@gmail.com</a>><br>
        <br>
        <br>
        <div class="HOEnZb">
          <div class="h5"><br>
            <br>
            <div class="gmail_quote">
              On Sat, Aug 4, 2012 at 7:34 PM, Stas Boukarev <span
                dir="ltr"><<a moz-do-not-send="true"
                  href="mailto:stassats@gmail.com" target="_blank">stassats@gmail.com</a>></span>
              wrote:<br>
              <blockquote class="gmail_quote" style="margin:0pt 0pt 0pt
                0.8ex;border-left:1px solid
                rgb(204,204,204);padding-left:1ex">
                <div>
                  <div>P C <<a moz-do-not-send="true"
                      href="mailto:psilocidal@gmail.com" target="_blank">psilocidal@gmail.com</a>>
                    writes:<br>
                    <br>
                    > Hello,<br>
                    ><br>
                    > When I try my code for a list pane as
                    nonexclusive, I receive an error<br>
                    > saying value NIL is not of type (mod
                    some-number). I thought this meant<br>
                    > that it didn't like my values and items as
                    strings so I changed test to<br>
                    > #'string= not #'eql. I still get this error
                    when I click on the list to<br>
                    > change the value.<br>
                    ><br>
                    > Is this a known bug? Or am I missing something
                    in my code?<br>
                  </div>
                </div>
                It would be helpful if you attached the code in
                question.<br>
                <span><font color="#888888">--<br>
                    With best regards, Stas.<br>
                  </font></span></blockquote>
            </div>
            <br>
          </div>
        </div>
        Sorry for leaving out the code.<br>
        <br>
        (define-application-frame stocks-window ()<br>
          ()<br>
          (:geometry :width 640 :height 480 :left 64 :top 32)<br>
          (:panes<br>
           (index-list (make-pane ':list-pane<br>
                      :id 'index-list <br>
                      :value '("A" "B") <br>
                      :items '("A" "B" "C" "D") <br>
                      :mode ':nonexclusive <br>
                      :prefer-single-selection t<br>
                      :test #'string=)))<br>
          (:layouts<br>
           (default<br>
               (with-tab-layout ('tab-page :name 'layout :height 480)<br>
             ("A"<br>
              (spacing <br>
               (:thickness 8)<br>
                 (horizontally<br>
                  (:x-spacing 4 :y-spacing 4)<br>
                  (labelling (:label "List" :height 128 :width 192)<br>
                     (scrolling (:scroll-bar t)<br>
                            (spacing (:thickness 0)<br>
                                 index-list)))))))))<br>
          (:menu-bar t))<br>
        <br>
        (define-window-command (com-quit :menu t) ()<br>
            (frame-exit *application-frame*)<br>
            nil)<br>
        <br>
        (defvar *window-frame* nil)<br>
        <br>
        (defun window ()<br>
          (flet ((run ()<br>
               (let ((frame (make-application-frame 'window)))<br>
                 (setf *window-frame* frame)<br>
                 (run-frame-top-level frame))))<br>
            (make-thread #'run :name "Window")))<br>
        (window)<br>
      </div>
      <br>
      <br>
      <fieldset class="mimeAttachmentHeader"></fieldset>
      <br>
      <pre wrap="">_______________________________________________
mcclim-devel mailing list
<a class="moz-txt-link-abbreviated" href="mailto:mcclim-devel@common-lisp.net">mcclim-devel@common-lisp.net</a>
<a class="moz-txt-link-freetext" href="http://lists.common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel">http://lists.common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel</a>
</pre>
    </blockquote>
    <br>
    <br>
  </body>
</html>