[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Consoles and displays

    Date: Thu, 11 May 89 17:32 EDT
    From: miller@CS.ROCHESTER.EDU (Brad Miller)

    (defmethod (make-instance dw:margin-scroll-bar) (&rest init-options)
      (unless (member :elevator-thickness init-options)
	(setf dw::elevator-thickness 4)))

    (compile-flavor-methods dw:margin-scroll-bar)

You'll probably get better paging performance if you do
(setf (flavor:flavor-default-init-get 'dw:margin-scroll-bar :elevator-thickness) 4).