;; Canvases with scrollbars
(canvas '.c4 :scrollregion "-10c -10c 50c 20c")
(.c4 'create 'rectangle 100 100 400 400 :fill "red")
(.c4 'create 'rectangle 300 300 600 600 :fill "green")
(.c4 'create 'rectangle 200 200 500 500 :fill "blue")

(scrollbar '.s1 :command ".c4 'yview" :relief "sunk")
(scrollbar '.s2 :orient "horiz" :command ".c4 'xview" :relief "sunk")
(pack .s2 :side "bottom" :fill "x")
(pack .s1 :side "right" :fill "y")
(pack .c4 :expand "yes" :fill "both")

(.c4 'config :xscroll ".s2 'set" :yscroll ".s1 'set")