clim:scroll-bar-pane

Here is a simple program to display a scroll-bar pane, but CLIM ends up
calling
cl:- with a nil first argument while trying to draw a "thumb". Does anyone
know
how to get this to work? Maybe there is some undocumented parameter to
make-pane
that is needed?

I'm using LWW 4.2.7

Paul

;;;;;;;
(require "clim")
(in-package :clim-user)

(define-application-frame test2 ()
  ()
  (:pointer-documentation nil)
  (:panes
   (p1 :application
       :width 100 :height 100
       :scroll-bars nil)
   (p2 (make-pane 'scroll-bar-pane
                 :orientation :vertical
                  :min-value 1
                  :value 5
                  :max-value 10))
   )
  (:layouts
   (default (horizontally () p1 p2))))

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

;;;



CLIM-USER 21 > (test2)

Error: In - of (NIL 1) arguments should be of type NUMBER.
  1 (continue) Return a value to use.
  2 Supply a new first argument.
  3 (abort) Return to Test2 command level
  4 Test2 top level
  5 Exit Test2
  6 Return to level 0.
  7 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other
options

CLIM-USER 22 : 1 > :bb
#<PACKAGE CLIM-USER>

Condition: In - of (NIL 1) arguments should be of type NUMBER.
Call to SYSTEM::REPORT-THE-BINARY-FN-ERROR
  SYSTEM::FN-NAME     : -
  SYSTEM::ARG1        : NIL
  SYSTEM::ARG2        : 1
  TYPE                : :DONT-KNOW
  SYSTEM::ARG1-IS-BAD : T
  SYSTEM::PROMPT      : "Supply a new first argument."

Call to SYSTEM::ARGS-TO-BINARY-ARITHMETIC-FN-NOT-OF-TYPE
  SYSTEM::FN-NAME : -
  SYSTEM::ARG1    : NIL
  SYSTEM::ARG2    : 1
  TYPE            : :DONT-KNOW

Call to -

Call to CLIM-SILICA:COMPUTE-SYMMETRIC-VALUE
  CLIM-SILICA::MIN1   : 1
  CLIM-SILICA::MAX1   : :DONT-KNOW
  CLIM-SILICA::VALUE1 : NIL
  CLIM-SILICA::MIN2   : 0
  CLIM-SILICA::MAX2   : 78

Call to (METHOD CLIM-SILICA::DRAW-THUMB (CLIM-SILICA:SCROLL-BAR-SHAFT-PANE
T))
  PANE             : #<CLIM-SILICA:SCROLL-BAR-SHAFT-PANE 205FC7DC>
  MEDIUM           : #<WIN32-LIB-CLIM::WIN32-MEDIUM 2186A93C>
  DBG::G           : :DONT-KNOW
  CLIM-SILICA::INK : :DONT-KNOW

Call to #<function 2068F942>

Call to (HARLEQUIN-COMMON-LISP:SUBFUNCTION
CLIM-SILICA::WITH-SHEET-MEDIUM-BODY (METHOD HANDLE-REPAINT
(CLIM-SILICA:SCROLL-BAR-SHAFT-PANE T)))
  MEDIUM : :DONT-KNOW



________________________________________________________________________
This email has been scanned for all viruses by the MessageLabs Email
Security System. For more information on a proactive email security
service working around the clock, around the globe, visit
http://www.messagelabs.com
________________________________________________________________________