From 2f2808005d2363db79ae17e9a6b05e5628fd7c6e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 23 Feb 2015 06:17:39 +0100
Subject: [PATCH] widget can specify it want to be shown as modal form

---
 src/ce_widget.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/ce_widget.pas b/src/ce_widget.pas
index 6e9a38dd..9c03deeb 100644
--- a/src/ce_widget.pas
+++ b/src/ce_widget.pas
@@ -36,6 +36,7 @@ type
     procedure optset_UpdaterDelay(aReader: TReader);
   protected
     fDockable: boolean;
+    fModal: boolean;
     fID: string;
     // a descendant overrides to implementi a periodic update.
     procedure UpdateByLoop; virtual;
@@ -51,6 +52,8 @@ type
     procedure sesoptBeforeSave; virtual;
     procedure sesoptDeclareProperties(aFiler: TFiler); virtual;
     procedure sesoptAfterLoad; virtual;
+    //
+    function getIfModal: boolean;
   published
     property updaterByLoopInterval: Integer read fLoopInter write setLoopInt;
     property updaterByDelayDuration: Integer read fDelayDur write setDelayDur;
@@ -77,6 +80,8 @@ type
     property updating: boolean read fUpdating;
     // true by default, allow a widget to be docked.
     property isDockable: boolean read fDockable;
+    // not if isDockable, otherwise a the widget is shown as modal form.
+    property isModal: boolean read getIfModal;
   end;
 
   (**
@@ -138,6 +143,13 @@ begin
   EntitiesConnector.removeObserver(self);
   inherited;
 end;
+
+function TCEWidget.getIfModal: boolean;
+begin
+  if isDockable then result := false
+  else result := fModal;
+end;
+
 {$ENDREGION}
 
 {$REGION ICESessionOptionsObserver ---------------------------------------------}