Port to new ULibc unit, drop dependency to compiler Libc libraryv0.6.43

(preparation for PPC port)

1 files changed, 6 insertions, 6 deletions

diff --git a/UChown.pas b/UChown.pas
index 5127c22..770c3fe 100644
--- a/UChown.pas
+++ b/UChown.pas
@@ -22,7 +22,7 @@ unit UChown;
 interface
 
 uses
-  SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus, GTKView;
+  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView;
 
 type
   TFChown = class(TGTKDialog)
@@ -49,7 +49,7 @@ var
 
 implementation
 
-uses Libc, ULocale, UCoreUtils, UCoreClasses;
+uses ULibc, ULocale, UCoreUtils, UCoreClasses;
 
 
 procedure TFChown.FormCreate(Sender: TObject);
@@ -170,14 +170,14 @@ begin
     if UsrManager.UserList.Count > 0 then
       for i := 0 to UsrManager.UserList.Count - 1 do begin
         Item := OwnerListView.Items.Add;
-        Item.SetValue(0, TUser(UsrManager.UserList[i]).UserName);
-        Item.SetValue(1, TUser(UsrManager.UserList[i]).UID);
+        Item.SetValue(0, TSystemUser(UsrManager.UserList[i]).UserName);
+        Item.SetValue(1, TSystemUser(UsrManager.UserList[i]).UID);
       end;
     if UsrManager.GroupList.Count > 0 then
       for i := 0 to UsrManager.GroupList.Count - 1 do begin
         Item := GroupListView.Items.Add;
-        Item.SetValue(0, TGroup(UsrManager.GroupList[i]).GroupName);
-        Item.SetValue(1, TGroup(UsrManager.GroupList[i]).GID);
+        Item.SetValue(0, TSystemGroup(UsrManager.GroupList[i]).GroupName);
+        Item.SetValue(1, TSystemGroup(UsrManager.GroupList[i]).GID);
       end;
   finally
     UsrManager.Free;