development/tools/designer43to42

   1 #!/usr/bin/perl -w
   2
   3 while (<>) {
   4         s/property name=\"(top|left|right|bottom)Margin\"/property name=\"margin\"/;
   5         s/property name=\"(horizont|vertic)Spacing\"/property name=\"spacing\"/;
   6         print;
   7 }