set enable redraw of script preferences to false 

activate -- sorgt dafür, dass das Skript nach vorne kommt; kann lange Skripts etwas beschleunigen 
 
tell application "Adobe InDesign CS6" 
	-- Test, ob ein Dokument offen ist 
	-- Zuweisung set curStory …	 
	 
	-- Bildschirm soll erst nach Ablauf des Skripts neu aufgebaut werden 
	set enable redraw of script preferences to false 
	 
	-- Alle im Text verankerten Bilder sind etwas schmaler als die drei Textspalten 
	-- Sie werden an die Spaltenbreite angepasst 
	 
	-- Nachdem die Suchen-Ersetzen-Vorgaben eingestellt wurden, 
	-- folgen mehr als hundert Change-greps 
	-- Die Vorgaben werden zurückgesetzt 
	 
	set enable redraw of script preferences to true 
	 
end tell 

var curDoc = app.documents[0]; 
 
app.scriptPreferences.enableRedraw = false; 
 
var y1 = 10; 
var x1 = 10; 
var fH = 10; 
var fW = 10; 
var fT =  1; 
 
for (var n=0; n<10; n++) { 
	for (var m=0; m<10; m++) { 
		curDoc.rectangles.add({geometricBounds:[y1,x1,y1+fH,x1+fW],  
			fillColor:"Magenta", fillTint:fT, strokeColor:"None"}); 
		x1 += fW+1; 
		fT += 1; 
	} 
	y1 += fH+1; 
	x1  = 10; 
} 
 
app.scriptPreferences.enableRedraw = true; 

tell application "Adobe InDesign CS5" 
  
  set enable redraw of script preferences to false 
   
  set y1 to 10 
  set x1 to 10 
  set fH to 10 
  set fW to 10 
  set fT to 1 
   
  tell document 1 
    repeat with n from 1 to 10 
      repeat with m from 1 to 10 
        make new text frame at beginning with properties ¬ 
          {geometric bounds:{y1, x1, y1 + fH, x1 + fH}, fill color:"Magenta", fill tint:fT, stroke color:"None"} 
        set x1 to x1 + fW + 1 
        set fT to fT + 1 
      end repeat 
      set y1 to y1 + fH + 1 
      set x1 to 10 
    end repeat 
  end tell 
   
  set enable redraw of script preferences to true 
end tell 

set redrawTrue to "app.scriptPreferences.enableRedraw = true;" 
set redrawFalse to "app.scriptPreferences.enableRedraw = false;" 
 
tell application "Adobe InDesign CS6" 
	do script redrawTrue language javascript 
	-- mach was 
	do script redrawFalse language javascript 
end tell 

tell application "System Events" 
	set visible of every application process whose name contains "InDes" to false 
end tell