diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-12-11 13:24:25 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-12-11 13:24:25 +0000 |
commit | 4b4a2c266b7dd8f9e2cfac06f3009942f3b05dd0 (patch) | |
tree | a3bc917ce56f31612428b172c5b8311fb95b1c9c /extras | |
parent | f03b596e2a10ca310aa9f0d581ffb6bf8bc4753f (diff) | |
download | fpGUI-4b4a2c266b7dd8f9e2cfac06f3009942f3b05dd0.tar.xz |
A minor safety check in the tiOPF MGM mediators
Diffstat (limited to 'extras')
-rw-r--r-- | extras/tiopf/gui/tiGenericEditMediators.pas | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/extras/tiopf/gui/tiGenericEditMediators.pas b/extras/tiopf/gui/tiGenericEditMediators.pas index 4fe4f1d9..6de77905 100644 --- a/extras/tiopf/gui/tiGenericEditMediators.pas +++ b/extras/tiopf/gui/tiGenericEditMediators.pas @@ -316,7 +316,8 @@ end; destructor TMediatorView.Destroy; begin - FSubject.DetachObserver(self); + if Assigned(FSubject) then + FSubject.DetachObserver(self); inherited Destroy; end; |