summaryrefslogtreecommitdiff
path: root/UDirDelete.pas
diff options
context:
space:
mode:
authorTomas Bzatek <tbzatek@redhat.com>2024-10-11 23:38:44 +0200
committerTomas Bzatek <tbzatek@redhat.com>2024-10-23 18:13:05 +0200
commit7d757b8452daed2575e3a9cc300459d7e8674345 (patch)
tree1b4c0107964cc871dc6e2d732c615af710592c4c /UDirDelete.pas
parent81c8cd22e61701c1145dc267b0925add6cc0e78a (diff)
downloadtuxcmd-0.6.81.tar.xz
Full port to GErrorv0.6.81
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.
Diffstat (limited to 'UDirDelete.pas')
-rw-r--r--UDirDelete.pas6
1 files changed, 3 insertions, 3 deletions
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);