26 lines
673 B
Scheme
26 lines
673 B
Scheme
;;; -*-Scheme-*-
|
|
;;;
|
|
;;; Scroll bar demo
|
|
|
|
(require 'motif)
|
|
|
|
(define top (application-initialize 'scrollbar))
|
|
(set-values! top 'allow-shell-resize #t)
|
|
|
|
(define scr (create-managed-widget (find-class 'scroll-bar) top))
|
|
(set-values! scr 'height 500)
|
|
|
|
(define (f . r) (print r))
|
|
|
|
(add-callback scr 'decrement-callback f)
|
|
(add-callback scr 'increment-callback f)
|
|
(add-callback scr 'page-increment-callback f)
|
|
(add-callback scr 'page-decrement-callback f)
|
|
(add-callback scr 'drag-callback f)
|
|
(add-callback scr 'to-top-callback f)
|
|
(add-callback scr 'to-bottom-callback f)
|
|
(add-callback scr 'value-changed-callback f)
|
|
|
|
(realize-widget top)
|
|
(context-main-loop (widget-context top))
|