puts "===========" puts "OCC261" puts "===========" pload QAcommands NewDocument D MDTV-Standard UndoLimit D 10 NewCommand D SetReal D 0:1 10 NewCommand D SetReal D 0:1 20 NewCommand D SetReal D 0:1 30 NewCommand D SetReal D 0:1 40 Undo D Undo D OCC261 D set Res [UndoLimit D] if { [regexp " 0" $Res] != 1 } { puts "OCC261: Error" }