#!/usr/local/bin/wish -f

  canvas .c
  pack .c

.c create line 1 1 20 20 -width 2
.c create line 5 5 35 5 -width 2
focus .c
