tests/caf/begin

   1 # File : begin
   2
   3 if { [info exists WorkDirectory] == 0 } {
   4    set WorkDirectory "/tmp"
   5    if { [array get env TEMP] != "" } {
   6       set WorkDirectory "$env(TEMP)"
   7    }
   8 }
   9
  10 if { [array get Draw_Groups "DF basic commands"] == "" } {
  11         pload DCAF
  12 }
  13
  14 chrono qat start
  15 # Create a new document and set UndoLimit
  16 NewDocument D MDTV-Standard
  17
  18 #NewDocument D
  19 cpulimit 300
  20 UndoLimit D 100
  21
  22 # Open a transaction
  23 NewCommand D