Re-Uploaded this version due to issues with various icons, please let me know if you have any issues!!
I got tired of seeing old pre-BC styled icons mixed with BC and WoTLK icons so I decided to batch process all the icons into a clean format.
_G[self:GetName() .. 'Icon']:SetTexCoord(0.06, 0.94, 0.06, 0.94)
_G[self:GetName() .. 'Icon']:SetTexCoord(0,1,0,1)