[mcclim-devel] Application pane vertical scrolling does not work with table formatting

[Paolo Amoroso]

I have found an annoying problem that severely limits the use of table
formatting in application panes.  This sample code shows the problem:

(in-package :clim-user)

(define-application-frame no-scroll ()
  ()
  (:pointer-documentation t)
  (:panes
   (app :application
        :display-time :command-loop
        :display-function 'display-function
        :end-of-line-action :wrap
        :end-of-page-action :scroll
        :scroll-bars t))
  (:layouts
   (default app)))

(defun display-function (frame stream)
  (declare (ignore frame))
  (formatting-table (stream)
    (dotimes (i 100)
      (formatting-row (stream)
        (formatting-cell (stream)
          (princ i))))))

(define-no-scroll-command (com-quit :menu t)
    ()
  (frame-exit *application-frame*))

Run it with:

  (run-frame-top-level (make-application-frame 'no-scroll))

Although the tabular output is longer than the application pane's
viewport, it is not possible to vertically scroll it to see the
remaining part.  The thumb occupies all the scroll bar's area, as if
there was no additional output.

Is the above code supposed to work?  Am I doing anything wrong?  Any
workarounds?


Paolo
-- 
Why Lisp? http://alu.cliki.net/RtL%20Highlight%20Film