theVal = SELF
if (Not (theVal.IsNull)) then
  if (File.Exists(theVal.AsFileName)) then
    srcImage = SrcName.Make(theVal)
    t = Theme.Make(srcImage)
    t.SetName(theVal.AsFileName.GetBaseName)
    t.SetVisible(TRUE)

    v = av.GetActiveDoc
    v.AddTheme(t)
    
    else
    MsgBox.Warning("File "+theVal+" not found.","Hot Link")
  end
end