From 928e2dc79b46a455ef0c0096ddf40682e07b4a27 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sun, 12 Oct 2008 12:16:57 +0200
Subject: Implement VFS question and password callbacks

---
 USetPassword.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'USetPassword.pas')

diff --git a/USetPassword.pas b/USetPassword.pas
index b64d079..cdf7fee 100644
--- a/USetPassword.pas
+++ b/USetPassword.pas
@@ -53,7 +53,9 @@ begin
 
   Table := TGTKTable.Create(Self);
   DialogIcon := TGTKImage.Create(Self);
-  DialogIcon.CopyFromPixbuf(StockLock48);
+  if gtk_style_lookup_icon_set(gtk_widget_get_style(FWidget), 'gtk-dialog-authentication') <> nil
+    then DialogIcon.SetFromStock('gtk-dialog-authentication', isDialog)
+    else DialogIcon.CopyFromPixbuf(StockLock48);
 
   Label1 := TGTKLabel.Create(Self);
   Label1.Caption := Format('<span size="x-large" weight="bold">%s</span>', [LANGFSetPassword_Label1_Caption]);
-- 
cgit v1.2.3