<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>