From a85842cc80b6c641153fa1984f7773e1e201b854 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graemeg@gmail.com>
Date: Mon, 23 Jun 2014 21:10:00 +0100
Subject: Added the standard copyright notice to the new unit.

---
 src/gui/fpg_scrollframe.pas | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

(limited to 'src/gui')

diff --git a/src/gui/fpg_scrollframe.pas b/src/gui/fpg_scrollframe.pas
index fd467c46..528ed442 100644
--- a/src/gui/fpg_scrollframe.pas
+++ b/src/gui/fpg_scrollframe.pas
@@ -1,3 +1,21 @@
+{
+    fpGUI  -  Free Pascal GUI Toolkit
+
+    Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this
+    distribution, for details of the copyright.
+
+    See the file COPYING.modifiedLGPL, included in this distribution,
+    for details about redistributing fpGUI.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+    Description:
+      Defines a scrollable frame widget.
+
+      This unit was originally written by David Emerson <dle3ab@angelbase.com>
+}
 unit fpg_scrollframe;
 
 {$mode objfpc}{$H+}
@@ -17,7 +35,6 @@ type
   
   TfpgScrollFrame = class;
 
-  { TfpgEmbeddingFrame }
 
   TfpgEmbeddingFrame = class (TfpgFrame)
   // The purpose of the EmbeddingFrame is to pass scroll events to the ParentScrollFrame
@@ -32,7 +49,6 @@ type
     property ParentScrollFrame : TfpgScrollFrame read FParentScrollFrame write FParentScrollFrame;
   end;
 
-  { TfpgAutoSizingFrame }
 
   TfpgAutoSizingFrame = class (TfpgEmbeddingFrame)
   private
@@ -48,7 +64,6 @@ type
 
   TfpgASFrameClass = class of TfpgAutoSizingFrame;
 
-  { TfpgScrollFrame }
 
   TfpgScrollFrame = class (TfpgFrame)
   private
-- 
cgit v1.2.3-70-g09d2