Commit | Line | Data |
---|---|---|
a87752f3 | 1 | puts "===========" |
2 | puts "OCC261" | |
3 | puts "===========" | |
4 | ||
5 | pload QAcommands | |
6 | ||
7 | NewDocument D MDTV-Standard | |
8 | UndoLimit D 10 | |
9 | NewCommand D | |
10 | SetReal D 0:1 10 | |
11 | ||
12 | NewCommand D | |
13 | SetReal D 0:1 20 | |
14 | ||
15 | NewCommand D | |
16 | SetReal D 0:1 30 | |
17 | ||
18 | NewCommand D | |
19 | SetReal D 0:1 40 | |
20 | ||
21 | Undo D | |
22 | Undo D | |
23 | ||
24 | OCC261 D | |
25 | ||
26 | set Res [UndoLimit D] | |
27 | if { [regexp " 0" $Res] != 1 } { | |
28 | puts "OCC261: Error" | |
29 | } | |
30 | ||
31 |