diff --git a/development/tools/designer43to42 b/development/tools/designer43to42
new file mode 100644
index 0000000000..5b388dc5ed
--- /dev/null
+++ b/development/tools/designer43to42
@@ -0,0 +1,7 @@
+#!/usr/bin/perl -w
+
+while (<>) {
+	s/property name=\"(top|left|right|bottom)Margin\"/property name=\"margin\"/;
+	s/property name=\"(horizont|vertic)Spacing\"/property name=\"spacing\"/;
+	print;
+}