Portability fixes

1 files changed, 7 insertions, 7 deletions

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;
 
 (********************************************************************************************************************************)