Scrolling without bars

Hi,

Scrolling without scroll bars used to work like this in LWM5.1. Is it a feature or a bug that it doesn't work in LWM6? Or, have I overlooked something, can anything to be made to make it work?

;********************************************************************************
(capi:define-interface OGL-scroll ()
  ()
  (:panes
   (opengl #+LISPWORKS6 opengl:opengl-pane #-LISPWORKS6 capi:opengl-pane
           :pane-can-scroll T
           :scroll-width 1000
           :scroll-height 1000
           :visible-min-height 200
           :visible-min-width 200
           :horizontal-scroll :without-bar
           :vertical-scroll :without-bar
           :scroll-callback 'pane-scrolls?)))

(capi:define-interface CAPI-scroll ()
  ()
  (:panes
   (opengl capi:output-pane
           :pane-can-scroll T
           :scroll-width 1000
           :scroll-height 1000
           :visible-min-height 200
           :visible-min-width 200
           :horizontal-scroll :without-bar
           :vertical-scroll :without-bar
           :scroll-callback 'pane-scrolls?)))

(defun pane-scrolls?(pane direction &key #+LISPWORKS6 move #-LISPWORKS6 step interactive)
  (print (list pane direction #+LISPWORKS6 move #-LISPWORKS6 step interactive) *standard-output*))

(capi:find-interface 'OGL-scroll :title "OGL")
(capi:find-interface 'CAPI-scroll :title "CAPI")
;********************************************************************************


BTW, would it be possible to have Lispworks understand multitouch gestures (pinch, swipe, rotate, pan, zoom)?


best regards,

Dr. Mika Kuuskankare
Composer, programmer and researcher
Centre for Music & Technology 
Sibelius Academy

Henkilökohtainen postiosoite/Personal post address
PL 342 - PO Box 342
FIN-00121 Helsinki, FINLAND
Mobile: +358 (0)40 5415 233 (Finland)
Skype: mkuuskan
personal home page: www.siba.fi/~mkuuskan
project home page: www.siba.fi/PWGL