pack [canvas .c -bg white] -fill both -expand 1
  bind .c <1>         {
    set _id [.c create line %x %y %x %y -fill black]
  }
  bind .c <B1-Motion> {
    .c coords $_id [concat [.c coords $_id] %x %y]
  }
  bind .c <Double-3> {.c delete all}