From 7bc08bf178b46f4564828bf374ec9e0802c77c9a Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 10 Dec 2009 17:17:09 +0200
Subject: Extra saftey checks. Nothing major.

---
 src/gui/fpg_hint.pas       | 3 ++-
 uidesigner/vfddesigner.pas | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/gui/fpg_hint.pas b/src/gui/fpg_hint.pas
index 34fc7ca2..b3baee00 100644
--- a/src/gui/fpg_hint.pas
+++ b/src/gui/fpg_hint.pas
@@ -197,10 +197,11 @@ end;
 
 destructor TfpgHintWindow.Destroy;
 begin
+  T_Chrono.Enabled := False;
   T_Chrono.Free;
   FFont.Free;
   inherited Destroy;
-  uShadowForm.Destroy;
+  uShadowForm.Free;
 end;
 
 procedure TfpgHintWindow.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas
index 992815cc..f403fac5 100644
--- a/uidesigner/vfddesigner.pas
+++ b/uidesigner/vfddesigner.pas
@@ -1456,7 +1456,7 @@ begin
     cfrm         := TInsertCustomForm.Create(nil);
     cfrm.edName.Text := GenerateNewName(wgc.NameBase);
     cfrm.edClass.Text := 'Tfpg';
-    if cfrm.ShowModal = 1 then
+    if cfrm.ShowModal = mrOK then
     begin
       newname      := cfrm.edName.Text;
       newClassName := cfrm.edClass.Text;
-- 
cgit v1.2.3-70-g09d2