scroll-bar-pane doesn't work
Steps to reproduce:
- start address book demo
- try to scroll address book names
Expected: scroll
Observed: condition
#<SCROLL-BAR-PANE from 0.0 to 1.0 (size 1.0, line 0.1, value 0) #x3020030F6D0D> has no slot named CLIM-SILICA::CURRENT-SIZE.
[Condition of type SIMPLE-ERROR]
Restarts:
0: [NIL] Restart event loop for #<CLX-PORT #x3020030127AD>
1: [NIL] Exit event loop for #<CLX-PORT #x3020030127AD>
2: [ABORT-BREAK] Reset this thread
3: [ABORT] Kill this thread
Backtrace:
0: (#<CCL::STANDARD-KERNEL-METHOD SLOT-MISSING (T T T T)> #<STANDARD-CLASS CLIM:SCROLL-BAR-PANE> #<SCROLL-BAR-PANE from 0.0 to 1.0 (size 1.0, line 0.1, value 0) #x3020030F6D0D> CLIM-SILICA::CURRENT-SIZE ..
1: (CCL::%SLOT-ID-REF-MISSING #<SCROLL-BAR-PANE from 0.0 to 1.0 (size 1.0, line 0.1, value 0) #x3020030F6D0D> #<SLOT-ID for CLIM-SILICA::CURRENT-SIZE/1958 #x302002CD299D>)
2: (#<STANDARD-METHOD CLIM-SILICA::SCROLL-LINE-TO-TOP-CALLBACK (CLIM:SCROLL-BAR-PANE T T T T T)> #<SCROLL-BAR-PANE from 0.0 to 1.0 (size 1.0, line 0.1, value 0) #x3020030F6D0D> #<CLIM-SILICA:GENERIC-SCRO..
3: (#<STANDARD-METHOD CLIM:HANDLE-EVENT (CLIM-SILICA:SCROLL-BAR-SHAFT-PANE CLIM:POINTER-BUTTON-PRESS-EVENT)> #<CLIM-SILICA:SCROLL-BAR-SHAFT-PANE #x3020030F647D> #<CLIM:POINTER-BUTTON-PRESS-EVENT #x302003..
4: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE (NIL #<STANDARD-METHOD CLIM:HANDLE-EVENT (CLIM-SILICA:SCROLL-BAR-SHAFT-PANE CLIM:POINTER-BUTTON-PRESS-EVENT)> . 17526312588052))
5: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (NIL (#<STANDARD-METHOD CLIM:HANDLE-EVENT :AFTER (CLIM-SILICA:SCROLL-BAR-SHAFT-PANE CLIM:POINTER-EVENT)>) ..))) 17526312588052)
6: (NIL #<Unknown Arguments>)
7: (#<STANDARD-METHOD CLIM:DISPATCH-EVENT (CLIM:IMMEDIATE-SHEET-INPUT-MIXIN T)> #<CLIM-SILICA:SCROLL-BAR-SHAFT-PANE #x3020030F647D> #<CLIM:POINTER-BUTTON-PRESS-EVENT #x30200315B39D>)
8: (CCL::%%STANDARD-COMBINED-METHOD-DCODE ((#<STANDARD-METHOD CLIM:DISPATCH-EVENT :BEFORE (T CLIM:POINTER-BUTTON-EVENT)>) NIL ..) 17526312588070)
9: (NIL #<Unknown Arguments>)
10: (#<STANDARD-METHOD CLIM-SILICA::DISPATCH-POINTER-EVENT-TO-SHEET (CLIM:BASIC-PORT CLIM:EVENT T)> #<CLX-CLIM::CLX-PORT #x3020030127AD> #<CLIM:POINTER-BUTTON-PRESS-EVENT #x30200315B41D> #<CLIM-SILICA:SCR..
11: (CCL::%%STANDARD-COMBINED-METHOD-DCODE ((#<STANDARD-METHOD CLIM-SILICA::DISPATCH-POINTER-EVENT-TO-SHEET :BEFORE (CLIM:BASIC-PORT CLIM:POINTER-BUTTON-PRESS-EVENT T)>) NIL ..))) 17526312588096)
12: (NIL #<Unknown Arguments>)
13: (#<STANDARD-METHOD CLIM-SILICA:DISTRIBUTE-EVENT-1 (CLIM:BASIC-PORT CLIM:POINTER-EVENT)> #<CLX-CLIM::CLX-PORT #x3020030127AD> #<CLIM:POINTER-BUTTON-PRESS-EVENT #x30200315B41D>)
14: (CCL::%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD CLIM-SILICA:DISTRIBUTE-EVENT-1 (CLIM:BASIC-PORT CLIM:POINTER-EVENT)> . 17526312588140))
15: (#<STANDARD-METHOD CLIM-SILICA:DISTRIBUTE-EVENT-1 :AROUND (CLIM:BASIC-PORT CLIM:POINTER-EVENT)> #<CLX-CLIM::CLX-PORT #x3020030127AD> #<CLIM:POINTER-BUTTON-PRESS-EVENT #x30200315B41D>)
16: (CCL::%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD CLIM-SILICA:DISTRIBUTE-EVENT-1 :AROUND (CLIM:BASIC-PORT CLIM:POINTER-EVENT)> (#<STANDARD-METHOD CLIM-SILICA:DISTRIBUTE-EVENT-1 :BEFORE #>) ..)..
17: (NIL #<Unknown Arguments>)
18: (#<STANDARD-METHOD CLIM:DISTRIBUTE-EVENT (CLIM:BASIC-PORT T)> #<CLX-CLIM::CLX-PORT #x3020030127AD> #<CLIM:POINTER-BUTTON-PRESS-EVENT #x30200315B41D>)
19: (CCL::%%STANDARD-COMBINED-METHOD-DCODE ((#<STANDARD-METHOD CLIM:DISTRIBUTE-EVENT :BEFORE (CLIM:BASIC-PORT CLIM:POINTER-BUTTON-PRESS-EVENT)> #<STANDARD-METHOD CLIM:DISTRIBUTE-EVENT :BEFORE #>) NIL ..))..