Make all attributes by class
Does anyone have a keyboard shortcut or script to make the default to "Make all attributes by class"
Try this one. Exceedingly lightly tested, so use at your own risk.
Procedure Classdf;
{Developed ?2003 Katerina Panagiotakis}
{Opacity and marker by class added 2008 Pat Stanford}
{Drop Shadow and TextStyle by class added 2020 Pat Stanford}
{Refactored and ability to work in Symbol Defs added 2022 Pat Stanford}
var
x,y,xo,yo: Real;
h,oh,h0,hp,hx,ha,hg: Handle;
B1:Boolean; {added 2020 by Pat Stanford for DocDropShadowByCl}
message:integer;
{sub procedure to set object attributes
