;; Canvas item stacking

(canvas '.c3)
(pack .c3 :fill "both" :expand #t)

(define r1 (.c3 'create 'rectangle 20 20 80 80 :fill "red"))
(define r2 (.c3 'create 'rectangle 60 60 120 120 :fill "green"))
(define r3 (.c3 'create 'rectangle 40 40 100 100 :fill "blue"))

(.c3 'bind r1 "<Button-1>" '(.c3 'raise r1))
(.c3 'bind r2 "<Button-1>" '(.c3 'raise r2))
(.c3 'bind r3 "<Button-1>" '(.c3 'raise r3))