From b8727ab7400dcf6e878e856341f801bbd1329c64 Mon Sep 17 00:00:00 2001
From: andrew <andrew@lazarus-ide.org>
Date: Sat, 7 Apr 2007 16:33:44 +0000
Subject: [PATCH] Implemented TGtk2WSCustomTrackBar.GetPosition to be complete.

git-svn-id: trunk@10913 -
---
 lcl/interfaces/gtk2/gtk2wscomctrls.pp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lcl/interfaces/gtk2/gtk2wscomctrls.pp b/lcl/interfaces/gtk2/gtk2wscomctrls.pp
index 764c2b7711..5a7dfddcd8 100644
--- a/lcl/interfaces/gtk2/gtk2wscomctrls.pp
+++ b/lcl/interfaces/gtk2/gtk2wscomctrls.pp
@@ -200,6 +200,7 @@ type
   private
   protected
   public
+    class function  GetPosition(const ATrackBar: TCustomTrackBar): integer; override;
     class procedure SetPosition(const ATrackBar: TCustomTrackBar; const NewPosition: integer); override;
   end;
 
@@ -245,6 +246,18 @@ end;
 
 { TGtk2WSTrackBar }
 
+class function TGtk2WSTrackBar.GetPosition(const ATrackBar: TCustomTrackBar
+  ): integer;
+var
+  Range: PGtkRange;
+begin
+  Result := 0;
+  if not ATRackBar.HandleAllocated then exit;
+
+  Range := PGtkRange(ATrackBar.Handle);
+  Result := Trunc(gtk_range_get_value(Range));
+end;
+
 class procedure TGtk2WSTrackBar.SetPosition(const ATrackBar: TCustomTrackBar;
   const NewPosition: integer);
 var