I tinkered with my code, and it was a (spacing (:thickness 0) ... ) argument in the layout for the list.<br><br>I appreciate your help. I posted what I thought was applicable in this case.<br><br>Here it is for reference.<br>
<br>(define-application-frame stocks-app ()<br> ()<br> (:geometry :width 1024 :height 768 :left 64 :top 32)<br> (:panes<br> (history-table (make-button-field-table :titles '("Name" "Symbol" "Sector" "Industry" "Date" "Open" "Close" "Volume" "High" "Low")<br>
:items '(("DEF" "1" "" "" "2" "X" "5" "6" "7" "8") <br> ("ABC" "3" "" "" "4" "Y" "5" "6" "7" "8") <br>
("GHI" "6" "" "" "5" "Z" "5" "6" "7" "8"))<br> :scroll-bars t))<br> (index (make-list-pane<br>
:id 'index-list<br> :value 'nil<br> :items *index-list*<br> :mode :nonexclusive <br> ;:visible-items 10 doesn't work<br> :prefer-single-selection t<br> :callback 'nil<br>
:test #'string=))<br> (symbols (make-pane 'list-pane))<br>; (symbols (make-list-pane ;; supports 1543 items in list , need 3188 to display<br>; :id 'symbols-list<br>; :value 'nil<br>
; :items 'nil<br>; :mode :nonexclusive<br>; ;:visible-items 10 doesn't work<br>; :prefer-single-selection t<br>; :callback 'nil<br>; ;:scroll-bars t doesn't work<br>
; :test #'string=))<br> (update-history-button (make-button-pane :id 'update-history :label "Update History"))<br> (download-history-button (make-button-pane :id 'download-history :label "Download History"))<br>
(select-stocks-history-button (make-button-pane :id 'select-stocks-history :label "Select Stocks"))<br> (import-history-button (make-button-pane :id 'import-history :label "Import")))<br> (:layouts<br>
(default<br> (with-tab-layout ('tab-page :name 'stocks-layout :height 768)<br> ; Tabs are "History" "Real-Time"<br> ("History"<br> (spacing <br> (:thickness 8)<br>
(horizontally<br> (:width 1024)<br> +fill+<br> (vertically<br> (:height 768)<br> (labelling (:label "History" :height 512 :width 1024)<br> (spacing (:thickness 16)<br>
history-table))<br> (horizontally<br> (:x-spacing 4 :y-spacing 4)<br> (labelling (:label "Indices" :height 128 :width 192)<br> (scrolling (:scroll-bar :vertical)<br>
(spacing (:thickness 0)<br> index)))<br> (labelling (:label "Stocks" :height 128)<br> (scrolling (:scroll-bar :vertical)<br> ;; was (scrolling (:thickness 0)<br>
symbols))) ;)<br> (horizontally<br> ()<br> +fill+<br> download-history-button<br> update-history-button<br> select-stocks-history-button<br> import-history-button<br>
+fill+))<br> +fill+))))))<br> (:menu-bar t))<br><br>(define-stocks-app-command (com-quit :menu t) ()<br> (frame-exit *application-frame*)<br> nil)<br><br>(define-stocks-app-command (com-add-items :menu t :name t)<br>
()<br> (let ((list-pane (find-pane-named *application-frame* 'symbols))<br> (index-pane (find-pane-named *application-frame* 'index)))<br> (if (eql (values-list (gadget-value index-pane)) "NYSE")<br>
(setf (list-pane-items list-pane)<br> (loop for i from 0 to 3000 collect i)))))<br><br>(defvar *stocks-app-frame* nil)<br><br>(defun stocks-window ()<br> (flet ((run ()<br> (let ((frame (make-application-frame 'stocks-app)))<br>
(setf *stocks-app-frame* frame)<br> (run-frame-top-level frame))))<br> (make-thread #'run :name "Stocks Window")))<br>(stocks-window)<br><br><div class="gmail_quote">On Wed, Aug 8, 2012 at 9:19 PM, Stas Boukarev <span dir="ltr"><<a 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 class="im">P C <<a href="mailto:psilocidal@gmail.com">psilocidal@gmail.com</a>> writes:<br>
<br>
> Hello Stas,<br>
><br>
> Thank you for your suggestion.<br>
><br>
> I tried the code you showed me and it worked on its own, but when I tried<br>
> to use :<br>
><br>
> (setf (clim-extensions:list-pane-items list-pane)<br>
> (loop for i from 0 to (- (list-length new-list) 1) collect (nth i<br>
> new-list)))<br>
><br>
> it still only displays half of the list. I collected just i and out of list<br>
> of 3189, it only displays 1543 ( 0 - 1542 ).<br>
><br>
> My list is of a bunch of strings.<br>
><br>
> I am going to look through my code tomorrow and see what I did wrong.<br>
> Would setting the key arguments when making the list pane affect adjusting<br>
> the items? Items and value is set at nil, but mode is nonexclusive and test<br>
> is #'string=.<br>
</div>If you still haven't resolved your issues, it'd be wise to send your<br>
actual code (it's always wise to show the code).<br>
<div class="HOEnZb"><div class="h5"><br>
--<br>
With best regards, Stas.<br>
</div></div></blockquote></div><br>