From 952f0c6d5ef026ff73ca45af6411937e31305538 Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Thu, 20 May 2010 11:13:19 +0200
Subject: [PATCH] See last message.

---
 Units/MMLAddon/PSInc/uPSC_mml.pas | 1 +
 Units/MMLAddon/PSInc/uPSR_mml.pas | 1 +
 2 files changed, 2 insertions(+)

diff --git a/Units/MMLAddon/PSInc/uPSC_mml.pas b/Units/MMLAddon/PSInc/uPSC_mml.pas
index c8a428f..e01f86f 100644
--- a/Units/MMLAddon/PSInc/uPSC_mml.pas
+++ b/Units/MMLAddon/PSInc/uPSC_mml.pas
@@ -105,6 +105,7 @@ begin
     RegisterProperty('Name','String',iptrw);
     RegisterMethod('function ToString : string');
     RegisterMethod('function LoadFromString(const s : string) : boolean;');
+    RegisterMethod('procedure Normalize;');
     RegisterMethod('function Valid:boolean');
     RegisterMethod('procedure DeletePoint( Point : integer);');
     RegisterMethod('procedure SwapPoint(p1,p2 : integer);');
diff --git a/Units/MMLAddon/PSInc/uPSR_mml.pas b/Units/MMLAddon/PSInc/uPSR_mml.pas
index fb3e77c..d878cc8 100644
--- a/Units/MMLAddon/PSInc/uPSR_mml.pas
+++ b/Units/MMLAddon/PSInc/uPSR_mml.pas
@@ -159,6 +159,7 @@ begin
     RegisterMethod(@TMDTM.Free,'Free');
     RegisterMethod(@TMDTM.ToString,'ToString');
     RegisterMethod(@TMDTM.LoadFromString,'LoadFromString');
+    RegisterMethod(@TMDTM.Normalize,'Normalize');
     RegisterMethod(@TMDTM.Valid,'Valid');
     RegisterMethod(@TMDTM.DeletePoint,'DeletePoint');
     RegisterMethod(@TMDTM.SwapPoint,'SwapPoint');