From 25c58a81ca9202af54d28888d2b068ebeb2a376f Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 15 Jun 2008 11:42:49 +0200
Subject: Portability fixes

---
 UGnome.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'UGnome.pas')

diff --git a/UGnome.pas b/UGnome.pas
index a54adbf..8659410 100644
--- a/UGnome.pas
+++ b/UGnome.pas
@@ -58,13 +58,13 @@ type TGnomeColorButton = class(TGTKButton)
 
      TGnomeDateEdit = class(TGTKHBox)
      private
-       function GetTime: TDateTime;
-       procedure SetTime(Value: TDateTime);
+       function GetTime: time_t;
+       procedure SetTime(Value: time_t);
      public
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;
      published
-       property Time: TDateTime read GetTime write SetTime;
+       property Time: time_t read GetTime write SetTime;
      end;
 
      TEphyNotebook = class;
@@ -336,14 +336,14 @@ begin
   inherited Destroy;
 end;
 
-function TGnomeDateEdit.GetTime: TDateTime;
+function TGnomeDateEdit.GetTime: time_t;
 begin
-  Result := UnixToDateTime(gnome_date_edit_get_time(FWidget));
+  Result := gnome_date_edit_get_time(FWidget);
 end;
 
-procedure TGnomeDateEdit.SetTime(Value: TDateTime);
+procedure TGnomeDateEdit.SetTime(Value: time_t);
 begin
-  gnome_date_edit_set_time(FWidget, DateTimeToUnix(Value));
+  gnome_date_edit_set_time(FWidget, Value);
 end;
 
 (********************************************************************************************************************************)
-- 
cgit v1.2.3