' Name:  Labeling.RemoveTextMasks
'
' Author: Michael Silberbauer  2002-03-13
'
' Title:  Remove text masks from a theme's labels
'
' Topics:  Graphics & Symbols
'
' Description:  Removes the text mask polygon for each piece of GraphicText
'               associated with a theme, as created with ESRI's Labeling.CreateTextMasks
'
' Requires:  
'
' Self:  
'
' Returns:  

theView = av.GetActiveDoc
theView.GetGraphics.UnSelectAll
tmlist = {}
for each t in theView.GetActiveThemes
  gs = t.GetGraphics
  for each g in gs
    if (g.Is(graphicText)) then
      'br = g.GetBounds.Clone
      'bg = GraphicShape.Make(br)
      'bg.SetObjectTag(t.GetName)
      'tmlist.Add(bg)
    else
      g.SetSelected(true)
    end
  end
end
theView.GetGraphics.ClearSelected
theView.GetGraphics.Invalidate