From psilocidal at gmail.com  Sat Aug  4 19:13:02 2012
From: psilocidal at gmail.com (P C)
Date: Sat, 4 Aug 2012 19:13:02 +0000
Subject: [mcclim-devel] Possible bug in non exclusive list pane.
Message-ID: <CALnzA-o0As1shY1akkT1GqtdH=mp+7Ptxbkd8aOcaq3GPp+pmA@mail.gmail.com>

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?
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120804/181e3e0e/attachment.html>

From stassats at gmail.com  Sat Aug  4 19:34:00 2012
From: stassats at gmail.com (Stas Boukarev)
Date: Sat, 04 Aug 2012 23:34:00 +0400
Subject: [mcclim-devel] Possible bug in non exclusive list pane.
In-Reply-To: <CALnzA-o0As1shY1akkT1GqtdH=mp+7Ptxbkd8aOcaq3GPp+pmA@mail.gmail.com>
	(P. C.'s message of "Sat, 4 Aug 2012 19:13:02 +0000")
References: <CALnzA-o0As1shY1akkT1GqtdH=mp+7Ptxbkd8aOcaq3GPp+pmA@mail.gmail.com>
Message-ID: <87ehnm78pj.fsf@gmail.com>

P C <psilocidal at 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.



From psilocidal at gmail.com  Sat Aug  4 19:48:38 2012
From: psilocidal at gmail.com (P C)
Date: Sat, 4 Aug 2012 19:48:38 +0000
Subject: [mcclim-devel] Fwd:  Possible bug in non exclusive list pane.
In-Reply-To: <CALnzA-p0E0OijKaTGwMJUQeGRzTwneM_M4SCPPX_WqxjjF2gRQ@mail.gmail.com>
References: <CALnzA-o0As1shY1akkT1GqtdH=mp+7Ptxbkd8aOcaq3GPp+pmA@mail.gmail.com>
	<87ehnm78pj.fsf@gmail.com>
	<CALnzA-p0E0OijKaTGwMJUQeGRzTwneM_M4SCPPX_WqxjjF2gRQ@mail.gmail.com>
Message-ID: <CALnzA-qBQfO221gRmqw_-HND+G6=3iStmwnN0rPZtv7C2eGY8Q@mail.gmail.com>

---------- Forwarded message ----------
From: P C <psilocidal at 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 at gmail.com>




On Sat, Aug 4, 2012 at 7:34 PM, Stas Boukarev <stassats at gmail.com> wrote:

> P C <psilocidal at 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)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120804/0cfec5d8/attachment.html>

From marianomontone at gmail.com  Sat Aug  4 20:30:54 2012
From: marianomontone at gmail.com (Mariano Montone)
Date: Sat, 04 Aug 2012 17:30:54 -0300
Subject: [mcclim-devel] Fwd:  Possible bug in non exclusive list pane.
In-Reply-To: <CALnzA-qBQfO221gRmqw_-HND+G6=3iStmwnN0rPZtv7C2eGY8Q@mail.gmail.com>
References: <CALnzA-o0As1shY1akkT1GqtdH=mp+7Ptxbkd8aOcaq3GPp+pmA@mail.gmail.com>
	<87ehnm78pj.fsf@gmail.com>
	<CALnzA-p0E0OijKaTGwMJUQeGRzTwneM_M4SCPPX_WqxjjF2gRQ@mail.gmail.com>
	<CALnzA-qBQfO221gRmqw_-HND+G6=3iStmwnN0rPZtv7C2eGY8Q@mail.gmail.com>
Message-ID: <501D867E.6020809@gmail.com>

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)

El 04/08/12 16:48, P C escribi?:
>
>
> ---------- Forwarded message ----------
> From: *P C* <psilocidal at gmail.com <mailto:psilocidal at 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 at gmail.com <mailto:stassats at gmail.com>>
>
>
>
>
> On Sat, Aug 4, 2012 at 7:34 PM, Stas Boukarev <stassats at gmail.com
> <mailto:stassats at gmail.com>> wrote:
>
>     P C <psilocidal at gmail.com <mailto:psilocidal at 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)
>
>
>
> _______________________________________________
> mcclim-devel mailing list
> mcclim-devel at common-lisp.net
> http://lists.common-lisp.net/cgi-bin/mailman/listinfo/mcclim-devel


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120804/4b3ba0f9/attachment.html>

From psilocidal at gmail.com  Sat Aug  4 21:44:35 2012
From: psilocidal at gmail.com (P C)
Date: Sat, 4 Aug 2012 21:44:35 +0000
Subject: [mcclim-devel] Fwd: Possible bug in non exclusive list pane.
Message-ID: <CALnzA-oqEYoF6hk+7un=FkJb8JdAHVW1f-a-MEuGXzik37AdFA@mail.gmail.com>

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)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120804/9446251d/attachment.html>

From marianomontone at gmail.com  Sat Aug  4 23:16:17 2012
From: marianomontone at gmail.com (Mariano Montone)
Date: Sat, 04 Aug 2012 20:16:17 -0300
Subject: [mcclim-devel] Fwd: Possible bug in non exclusive list pane.
In-Reply-To: <CALnzA-oqEYoF6hk+7un=FkJb8JdAHVW1f-a-MEuGXzik37AdFA@mail.gmail.com>
References: <CALnzA-oqEYoF6hk+7un=FkJb8JdAHVW1f-a-MEuGXzik37AdFA@mail.gmail.com>
Message-ID: <501DAD41.8080301@gmail.com>

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





From psilocidal at gmail.com  Sun Aug  5 18:00:59 2012
From: psilocidal at gmail.com (P C)
Date: Sun, 5 Aug 2012 18:00:59 +0000
Subject: [mcclim-devel] Fwd: Possible bug in non exclusive list pane.
In-Reply-To: <501DAD41.8080301@gmail.com>
References: <CALnzA-oqEYoF6hk+7un=FkJb8JdAHVW1f-a-MEuGXzik37AdFA@mail.gmail.com>
	<501DAD41.8080301@gmail.com>
Message-ID: <CALnzA-osgAM--uPDQQ8Fqz99FrYxo0qfUn00cUcdBqKvfcteTw@mail.gmail.com>

Thank you for your help.

I removed mcclim from the quicklisp directories, and then reinstalled it
with quicklisp. It seems to work now. I have no idea what I did.

On Sat, Aug 4, 2012 at 11:16 PM, Mariano Montone
<marianomontone at gmail.com>wrote:

> 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)
> >
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120805/36396af0/attachment.html>

From psilocidal at gmail.com  Tue Aug  7 16:37:05 2012
From: psilocidal at gmail.com (P C)
Date: Tue, 7 Aug 2012 16:37:05 +0000
Subject: [mcclim-devel] Is list-pane not fully implemented?
Message-ID: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120807/d18f80dc/attachment.html>

From stassats at gmail.com  Tue Aug  7 17:52:01 2012
From: stassats at gmail.com (Stas Boukarev)
Date: Tue, 07 Aug 2012 21:52:01 +0400
Subject: [mcclim-devel] Is list-pane not fully implemented?
In-Reply-To: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>
	(P. C.'s message of "Tue, 7 Aug 2012 16:37:05 +0000")
References: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>
Message-ID: <87sjbyd1z2.fsf@gmail.com>

P C <psilocidal at gmail.com> writes:

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

Try this instead:

(define-application-frame test ()
  ()
  (:menu-bar t)
  (:panes
   (list (make-pane 'list-pane)))
  (:layouts
   (default
    (scrolling (:scroll-bar :vertical)
      list))))

(define-test-command (com-add-items :name t :menu t) ()
  (let ((list-pane (find-pane-named *application-frame* 'list)))
    (setf (clim-extensions:list-pane-items list-pane)
          (loop for i to 3000 collect i))))

(defun test ()
  (run-frame-top-level (make-application-frame 'test)))

-- 
With best regards, Stas.



From psilocidal at gmail.com  Wed Aug  8 03:02:20 2012
From: psilocidal at gmail.com (P C)
Date: Wed, 8 Aug 2012 03:02:20 +0000
Subject: [mcclim-devel] Is list-pane not fully implemented?
In-Reply-To: <87sjbyd1z2.fsf@gmail.com>
References: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>
	<87sjbyd1z2.fsf@gmail.com>
Message-ID: <CALnzA-ryEUVAvvb9PbWqy64ZM61d3n59G8iHa0WQnh_p-RmW5A@mail.gmail.com>

Hello Stas,

Thank you for your suggestion.

I tried the code you showed me and it worked on its own, but when I tried
to use :

(setf (clim-extensions:list-pane-items list-pane)
       (loop for i from 0 to (- (list-length new-list) 1) collect (nth i
new-list)))

it still only displays half of the list. I collected just i and out of list
of 3189, it only displays 1543 ( 0 - 1542 ).

My list is of a bunch of strings.

I am going to look through my code tomorrow and see what I did wrong.
Would setting the key arguments when making the list pane affect adjusting
the items? Items and value is set at nil, but mode is nonexclusive and test
is #'string=.

On Tue, Aug 7, 2012 at 5:52 PM, Stas Boukarev <stassats at gmail.com> wrote:

> Try this instead:
>
> (define-application-frame test ()
>   ()
>   (:menu-bar t)
>   (:panes
>    (list (make-pane 'list-pane)))
>   (:layouts
>    (default
>     (scrolling (:scroll-bar :vertical)
>       list))))
>
> (define-test-command (com-add-items :name t :menu t) ()
>   (let ((list-pane (find-pane-named *application-frame* 'list)))
>     (setf (clim-extensions:list-pane-items list-pane)
>           (loop for i to 3000 collect i))))
>
> (defun test ()
>   (run-frame-top-level (make-application-frame 'test)))
>
> --
> With best regards, Stas.
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120808/fde5e002/attachment.html>

From stassats at gmail.com  Wed Aug  8 11:32:50 2012
From: stassats at gmail.com (Stas Boukarev)
Date: Wed, 08 Aug 2012 15:32:50 +0400
Subject: [mcclim-devel] Is list-pane not fully implemented?
In-Reply-To: <CALnzA-ryEUVAvvb9PbWqy64ZM61d3n59G8iHa0WQnh_p-RmW5A@mail.gmail.com>
	(P. C.'s message of "Wed, 8 Aug 2012 03:02:20 +0000")
References: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>
	<87sjbyd1z2.fsf@gmail.com>
	<CALnzA-ryEUVAvvb9PbWqy64ZM61d3n59G8iHa0WQnh_p-RmW5A@mail.gmail.com>
Message-ID: <87obmld3fh.fsf@gmail.com>

P C <psilocidal at gmail.com> writes:

> Hello Stas,
>
> Thank you for your suggestion.
>
> I tried the code you showed me and it worked on its own, but when I tried
> to use :
>
> (setf (clim-extensions:list-pane-items list-pane)
>        (loop for i from 0 to (- (list-length new-list) 1) collect (nth i
> new-list)))
Not that it matters for this problem, but that's quite a strange (and
slow) way to copy a list, COPY-LIST would work fine, but you don't even
need to copy it here.

-- 
With best regards, Stas.



From stassats at gmail.com  Wed Aug  8 21:19:08 2012
From: stassats at gmail.com (Stas Boukarev)
Date: Thu, 09 Aug 2012 01:19:08 +0400
Subject: [mcclim-devel] Is list-pane not fully implemented?
In-Reply-To: <CALnzA-ryEUVAvvb9PbWqy64ZM61d3n59G8iHa0WQnh_p-RmW5A@mail.gmail.com>
	(P. C.'s message of "Wed, 8 Aug 2012 03:02:20 +0000")
References: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>
	<87sjbyd1z2.fsf@gmail.com>
	<CALnzA-ryEUVAvvb9PbWqy64ZM61d3n59G8iHa0WQnh_p-RmW5A@mail.gmail.com>
Message-ID: <87sjbx5bg3.fsf@gmail.com>

P C <psilocidal at gmail.com> writes:

> Hello Stas,
>
> Thank you for your suggestion.
>
> I tried the code you showed me and it worked on its own, but when I tried
> to use :
>
> (setf (clim-extensions:list-pane-items list-pane)
>        (loop for i from 0 to (- (list-length new-list) 1) collect (nth i
> new-list)))
>
> it still only displays half of the list. I collected just i and out of list
> of 3189, it only displays 1543 ( 0 - 1542 ).
>
> My list is of a bunch of strings.
>
> I am going to look through my code tomorrow and see what I did wrong.
> Would setting the key arguments when making the list pane affect adjusting
> the items? Items and value is set at nil, but mode is nonexclusive and test
> is #'string=.
If you still haven't resolved your issues, it'd be wise to send your
actual code (it's always wise to show the code).

-- 
With best regards, Stas.



From psilocidal at gmail.com  Wed Aug  8 22:52:44 2012
From: psilocidal at gmail.com (P C)
Date: Wed, 8 Aug 2012 22:52:44 +0000
Subject: [mcclim-devel] Is list-pane not fully implemented?
In-Reply-To: <87sjbx5bg3.fsf@gmail.com>
References: <CALnzA-rwU26GcMWT9SSFwnpYtedzV-SbeRM6dOmFFJv-N0rAQQ@mail.gmail.com>
	<87sjbyd1z2.fsf@gmail.com>
	<CALnzA-ryEUVAvvb9PbWqy64ZM61d3n59G8iHa0WQnh_p-RmW5A@mail.gmail.com>
	<87sjbx5bg3.fsf@gmail.com>
Message-ID: <CALnzA-o8m3BSQRORtH96mHTmJbroSEiZb9M40gS_gQ4AGyxaqw@mail.gmail.com>

I tinkered with my code, and it was a (spacing (:thickness 0) ... )
argument in the layout for the list.

I appreciate your help. I posted what I thought was applicable in this case.

Here it is for reference.

(define-application-frame stocks-app ()
  ()
  (:geometry :width 1024 :height 768 :left 64 :top 32)
  (:panes
   (history-table (make-button-field-table :titles '("Name" "Symbol"
"Sector" "Industry" "Date" "Open" "Close" "Volume" "High" "Low")
                       :items '(("DEF" "1" "" "" "2" "X" "5" "6" "7" "8")
                            ("ABC" "3" "" "" "4" "Y" "5" "6" "7" "8")
                            ("GHI" "6" "" "" "5" "Z" "5" "6" "7" "8"))
                       :scroll-bars t))
   (index (make-list-pane
        :id 'index-list
        :value 'nil
        :items *index-list*
        :mode :nonexclusive
        ;:visible-items 10 doesn't work
        :prefer-single-selection t
        :callback 'nil
        :test #'string=))
   (symbols (make-pane 'list-pane))
;   (symbols (make-list-pane ;; supports 1543 items in list , need 3188 to
display
;         :id 'symbols-list
;         :value 'nil
;         :items 'nil
;         :mode :nonexclusive
;         ;:visible-items 10 doesn't work
;         :prefer-single-selection t
;         :callback 'nil
;         ;:scroll-bars t doesn't work
;         :test #'string=))
   (update-history-button (make-button-pane :id 'update-history :label
"Update History"))
   (download-history-button (make-button-pane :id 'download-history :label
"Download History"))
   (select-stocks-history-button (make-button-pane :id
'select-stocks-history :label "Select Stocks"))
   (import-history-button (make-button-pane :id 'import-history :label
"Import")))
  (:layouts
   (default
       (with-tab-layout ('tab-page :name 'stocks-layout :height 768)
     ; Tabs are "History" "Real-Time"
     ("History"
      (spacing
       (:thickness 8)
       (horizontally
        (:width 1024)
        +fill+
        (vertically
         (:height 768)
         (labelling (:label "History" :height 512 :width 1024)
            (spacing (:thickness 16)
                 history-table))
         (horizontally
          (:x-spacing 4 :y-spacing 4)
          (labelling (:label "Indices" :height 128 :width 192)
             (scrolling (:scroll-bar :vertical)
                    (spacing (:thickness 0)
                         index)))
          (labelling (:label "Stocks" :height 128)
             (scrolling (:scroll-bar :vertical)
                    ;; was (scrolling (:thickness 0)
                         symbols))) ;)
         (horizontally
          ()
          +fill+
          download-history-button
          update-history-button
          select-stocks-history-button
          import-history-button
          +fill+))
        +fill+))))))
  (:menu-bar t))

(define-stocks-app-command (com-quit :menu t) ()
    (frame-exit *application-frame*)
    nil)

(define-stocks-app-command (com-add-items :menu t :name t)
    ()
  (let ((list-pane (find-pane-named *application-frame* 'symbols))
    (index-pane (find-pane-named *application-frame* 'index)))
    (if (eql (values-list (gadget-value index-pane)) "NYSE")
    (setf (list-pane-items list-pane)
          (loop for i from 0 to 3000 collect i)))))

(defvar *stocks-app-frame* nil)

(defun stocks-window ()
  (flet ((run ()
       (let ((frame (make-application-frame 'stocks-app)))
         (setf *stocks-app-frame* frame)
         (run-frame-top-level frame))))
    (make-thread #'run :name "Stocks Window")))
(stocks-window)

On Wed, Aug 8, 2012 at 9:19 PM, Stas Boukarev <stassats at gmail.com> wrote:

> P C <psilocidal at gmail.com> writes:
>
> > Hello Stas,
> >
> > Thank you for your suggestion.
> >
> > I tried the code you showed me and it worked on its own, but when I tried
> > to use :
> >
> > (setf (clim-extensions:list-pane-items list-pane)
> >        (loop for i from 0 to (- (list-length new-list) 1) collect (nth i
> > new-list)))
> >
> > it still only displays half of the list. I collected just i and out of
> list
> > of 3189, it only displays 1543 ( 0 - 1542 ).
> >
> > My list is of a bunch of strings.
> >
> > I am going to look through my code tomorrow and see what I did wrong.
> > Would setting the key arguments when making the list pane affect
> adjusting
> > the items? Items and value is set at nil, but mode is nonexclusive and
> test
> > is #'string=.
> If you still haven't resolved your issues, it'd be wise to send your
> actual code (it's always wise to show the code).
>
> --
> With best regards, Stas.
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20120808/fac2b037/attachment.html>

From richard.lewis at gold.ac.uk  Mon Aug 13 20:53:54 2012
From: richard.lewis at gold.ac.uk (Richard Lewis)
Date: Mon, 13 Aug 2012 21:53:54 +0100
Subject: [mcclim-devel] Unsupported implementations
Message-ID: <87ipcmqzrx.wl%richard.lewis@gold.ac.uk>

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



From manuel at ledu-giraud.fr  Fri Aug 24 08:31:12 2012
From: manuel at ledu-giraud.fr (Manuel Giraud)
Date: Fri, 24 Aug 2012 10:31:12 +0200
Subject: [mcclim-devel] Official repository lagging?
Message-ID: <87hars3d4f.fsf@ledu-giraud.fr>

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



From moore at bricoworks.com  Fri Aug 24 08:40:24 2012
From: moore at bricoworks.com (Timothy Moore)
Date: Fri, 24 Aug 2012 10:40:24 +0200
Subject: [mcclim-devel] Official repository lagging?
In-Reply-To: <87hars3d4f.fsf@ledu-giraud.fr>
References: <87hars3d4f.fsf@ledu-giraud.fr>
Message-ID: <50373DF8.2050809@bricoworks.com>

On 08/24/2012 10:31 AM, Manuel Giraud wrote:
> 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.
I just created my fork for some work, and was unawhere of the other forks on github. My bad.
I will look at what the other repos on github have and see about merging their
changes into my repo.
> 
> 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,
I was going to save this mail until my current round of mcclim hacking is finished, but here
goes. I'm not particularly interested in continuing to work with CVS. Are people agreeable
with moving to git? I'm not invested (at all) in having my github repo become the "official"
repo, but a site like github has a lot of advantages as a host.

Tim




From rudi at constantly.at  Fri Aug 24 08:58:44 2012
From: rudi at constantly.at (Rudolf Schlatte)
Date: Fri, 24 Aug 2012 10:58:44 +0200
Subject: [mcclim-devel] Official repository lagging?
In-Reply-To: <50373DF8.2050809@bricoworks.com>
References: <87hars3d4f.fsf@ledu-giraud.fr> <50373DF8.2050809@bricoworks.com>
Message-ID: <37CD1795-0330-4219-9BCC-7F168791780F@constantly.at>


On Aug 24, 2012, at 10:40, Timothy Moore <moore at bricoworks.com> wrote:

> I was going to save this mail until my current round of mcclim hacking is finished, but here
> goes. I'm not particularly interested in continuing to work with CVS. Are people agreeable
> with moving to git? I'm not invested (at all) in having my github repo become the "official"
> repo, but a site like github has a lot of advantages as a host.

I'm very much in favor of moving to git.  git-svn works well enough for upstream svn archives, but syncing back and forth with cvs is always uncomfortable for me.

But could we leave the "official" git archive on common-lisp.net?  I like github, but when I'm checking out a project that I'm unfamiliar with, I hate having to decide between downloading (for the sake of example) onixie/mcclim, slyrus/mcclim, mmontone/mcclim and timoore/mcclim.

Rudi




From manuel at ledu-giraud.fr  Fri Aug 24 10:58:23 2012
From: manuel at ledu-giraud.fr (Manuel Giraud)
Date: Fri, 24 Aug 2012 12:58:23 +0200
Subject: [mcclim-devel] Official repository lagging?
In-Reply-To: <37CD1795-0330-4219-9BCC-7F168791780F@constantly.at> (Rudolf
	Schlatte's message of "Fri, 24 Aug 2012 10:58:44 +0200")
References: <87hars3d4f.fsf@ledu-giraud.fr> <50373DF8.2050809@bricoworks.com>
	<37CD1795-0330-4219-9BCC-7F168791780F@constantly.at>
Message-ID: <87mx1ky2sw.fsf@ledu-giraud.fr>

Rudolf Schlatte <rudi at constantly.at> writes:

> On Aug 24, 2012, at 10:40, Timothy Moore <moore at bricoworks.com> wrote:
>
>> I was going to save this mail until my current round of mcclim hacking is finished, but here
>> goes. I'm not particularly interested in continuing to work with CVS. Are people agreeable
>> with moving to git? I'm not invested (at all) in having my github repo become the "official"
>> repo, but a site like github has a lot of advantages as a host.
>
> I'm very much in favor of moving to git.  git-svn works well enough
> for upstream svn archives, but syncing back and forth with cvs is
> always uncomfortable for me.
>
> But could we leave the "official" git archive on common-lisp.net?  I
> like github, but when I'm checking out a project that I'm unfamiliar
> with, I hate having to decide between downloading (for the sake of
> example) onixie/mcclim, slyrus/mcclim, mmontone/mcclim and
> timoore/mcclim.

Same here. I'm too in favor to switch to git (which is clearly easier
than CVS) but keeping the official mcclim repository where the project
is seems better to me. github is cool, fun, social and whatnot but I
find it hard to get an official software out of it.

-- 
Manuel Giraud