tell application "Adobe InDesign CS5.5" 
	make event listener with properties {event type:"afterActivate", handler:my myDisplayEventType} 
end tell 
 
on myDisplayEventType() 
	 
	tell application "Adobe InDesign CS5.5" 
		set myEvent to evt 
		try 
			set myCount to count documents 
		end try 
		if myCount = 0 then 
			set docName to "Kein Dokument geöffnet." 
		else 
			tell active document 
				set docName to name of it as string 
			end tell 
		end if 
	end tell 
	my myMessage(docName) 
end myDisplayEventType 
 
on myMessage(transstring) 
	tell application "Messages" 
		set status message to "" & transstring 
	end tell 
end myMessage 

                            /|      __   
                           / |   ,-~ /   
                          Y :|  //  /     
                          | jj /( .^   
                          >-"~"-v"   
                         /       Y     
                        jo  o    |   
                       ( ~T~     j    
                        >._-' _./    
                       /   "~"  |     
                      Y     _,  |       
                     /| ;-"~ _  l     
                    / l/ ,-"~    \   
                    \//\/      .- \   
                     Y        /    Y*   
                     l       I     !  
                     ]\      _\    /"\  
                    (" ~----( ~   Y.  )    
            ~~~~~~~~~~~~~~~~~~~~~~~~~~