# testing modifyVerify callbacks on Text
xtAppInitialize -class Program

xmRowColumn .r managed
xmText .r.t1 managed
xmText .r.t2 managed

.r.t1 modifyVerifyCallback {mvCB %doit}

proc mvCB {doit} {
  upvar 1 $doit d

  set d false
}

. realizeWidget

. mainLoop
