#-----------
# Construit une liste contenant 
# tous les objets appartenant a la scene
# courante  et qui possedent un lien vers
# script link dont l e nom est 'untel'
#-----------

NOMSCRIPTLINK = 'untel''
O=[o for o in scene.objects 
       for scriptlink in ["FrameChanged", "Redraw", "Render"] 
            if NOMSCRIPTLINK' in o.getScriptLinks(scriptlink)]

if O:
 print O[0], O[0].name, O[0].type 
else:
 print 'liste vide '

# """
# Name: 'Find linked objects to a script'
# Blender: 245
# Group: 'Object'
# Tooltip: 'Find all the objetcs with this scriptlink .'
# """

__author__ = 'Jm Soler'
__version__ = '0.0.1 2008/04/19'
__url__ = ["""jms's site, http://jmsoler.free.fr/didacticiel/blender/tutor/bpy_trouve_scriptlink.htm""",
    """Support forum, http://www.zoo-logique.org/3D.Blender/newsportal/thread.php?group=3D.Blender""" ]
__email__ = ["jms, jmsoler:free.fr"]
__bpydoc__ = """\

Cette macro trouve tous les objets qui ont un lien avec le scriptlink 
fourni dans la boite de dialogue.

How to:
      Just call this script. 
      il suffit d'appeler le script. 
 """

# -------------
# Copyrigth jms soler Avril 2008
# ------------- 

import Blender
from Blender import Scene
scene=Scene.GetCurrent()

NOM_SCRIPTLINK=Blender.Draw.PupStrInput("script Name:", "untitled", 25)

O=[o for o in scene.objects 
       for scrlnk in ["FrameChanged", "Redraw", "Render"] 
            if NOM_SCRIPTLINK in o.getScriptLinks(scrlnk)]

block = []

if O:
 for o in O:
   block.append(o.name)
   o.select(1)
else:
 print 'liste vide '
 block.append('liste vide ')

retval = Blender.Draw.PupBlock("ScriptLinkk list for %s"%NOM_SCRIPTLINK , block)