rowColumn .r managed
text .r.t1 managed
text .r.t2 managed

.r.t1 modifyVerifyCallback {mvCB %doit}

proc mvCB {doit} {
  upvar 1 $doit d

  set d false
}
