From 7d757b8452daed2575e3a9cc300459d7e8674345 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Fri, 11 Oct 2024 23:38:44 +0200
Subject: Full port to GError

Started 15 years ago, picking up on that work.

Introduced the new TUXCMD_ERROR domain to distinguish between operations
or their steps. Plugins may continue reporting the G_IO_ERROR domain.
---
 UDirDelete.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'UDirDelete.pas')

diff --git a/UDirDelete.pas b/UDirDelete.pas
index 8d22d42..3a3b4c5 100644
--- a/UDirDelete.pas
+++ b/UDirDelete.pas
@@ -22,7 +22,7 @@ unit UDirDelete;
 interface
 
 uses
-  SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts;
+  SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
 
 const DIR_DELETE_CANCEL   = 0;
       DIR_DELETE_DELETE   = 1;
@@ -60,10 +60,10 @@ begin
   WindowPosition := wpCenter;
   Caption := '';
   Label1 := TGTKLabel.Create(Self);
-  Label1.Caption := 'The directory /tmp is not empty!';
+  Label1.UseMarkup := True;
   Label2 := TGTKLabel.Create(Self);
-  Label2.Caption := LANGDoYouWantToDeleteItWithAllItsFilesAndSubdirectories;
   Label3 := TGTKLabel.Create(Self);
+  Label3.UseMarkup := True;
   Label3.Visible := False;
   ClientArea.AddControlEx(Label1, True, True, 0);
   ClientArea.AddControlEx(Label2, True, True, 0);
-- 
cgit v1.2.3