From 1b2b4bb4f3ecc034a6e9364d8768e50b167a9680 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Tue, 24 Dec 2024 12:41:48 +0100
Subject: Rough GTK3 port

---
 URemoteWait.pas | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'URemoteWait.pas')

diff --git a/URemoteWait.pas b/URemoteWait.pas
index c3802d1..c727296 100644
--- a/URemoteWait.pas
+++ b/URemoteWait.pas
@@ -22,7 +22,7 @@ unit URemoteWait;
 interface
 
 uses
-  SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
+  SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKConsts;
 
 type
   TFRemoteWait = class(TGTKDialog)
@@ -61,7 +61,6 @@ begin
   Label1.UseUnderline := True;
   Label1.UseMarkup := True;
   Label1.XAlign := 0;
-  Label1.XPadding := 0;
   Label1.LineWrap := True;
   Box.AddControlEx(Label1, False, False, 2);
 {
@@ -74,7 +73,8 @@ begin
 }
   Box.BorderWidth := 6;
   ClientArea.AddControlEx(Box, True, True, 0);
-  CancelButton := TGTKButton.CreateFromStock(Self, 'gtk-cancel');
+  CancelButton := TGTKButton.CreateFromIconName(Self, 'gtk-cancel');
+  CancelButton.Caption := 'Cancel';
   CancelButton.Default := True;
   ActionArea.AddControlEndEx(CancelButton, False, False, 2);
   OnKeyDown := @FormKeyDown;
@@ -86,7 +86,7 @@ end;
 procedure TFRemoteWait.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean);
 begin
   case Key of
-    GDK_RETURN, GDK_KP_ENTER, GDK_ESCAPE: Cancelled := True;
+    GDK_KEY_Return, GDK_KEY_KP_Enter, GDK_KEY_Escape: Cancelled := True;
   end;
 end;
 
-- 
cgit v1.2.3