restoreCode

$dot restoreCode: returns code to restore

obj method dot restoreCode {} {
  list $self configure -x [$self cget -x] -y [$self cget -y]
}