From 8995af337d7e61459fe24c8be5341d6347aa745e Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 19 Feb 2015 03:17:43 +0100
Subject: [PATCH] added isDockable property to the widget base class

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

diff --git a/src/ce_widget.pas b/src/ce_widget.pas
index 19008c21..ccd82cee 100644
--- a/src/ce_widget.pas
+++ b/src/ce_widget.pas
@@ -35,6 +35,7 @@ type
     procedure optget_UpdaterDelay(aWriter: TWriter);
     procedure optset_UpdaterDelay(aReader: TReader);
   protected
+    fDockable: boolean;
     fID: string;
     // a descendant overrides to implementi a periodic update.
     procedure UpdateByLoop; virtual;
@@ -74,6 +75,8 @@ type
     //
     // returns true if one of the three updater is processing.
     property updating: boolean read fUpdating;
+    // true by default, allow a widget to be docked.
+    property isDockable: boolean read fDockable;
   end;
 
   (**
@@ -110,6 +113,7 @@ var
   itm: TmenuItem;
 begin
   inherited;
+  fDockable := true;
   fUpdaterAuto := TTimer.Create(self);
   fUpdaterAuto.Interval := 70;
   fUpdaterAuto.OnTimer := @updaterAutoProc;