diff --git a/contact.scm b/contact.scm
index 418bdf3..a26c08a 100644
--- a/contact.scm
+++ b/contact.scm
@@ -126,6 +126,12 @@
;; Initialize the window.
(define (init-window window)
+ ;; Set the profile-picture label to a default theme icon.
+ (let [(default-profile-pic (or (qt:theme-icon "person") (qt:theme-icon "contact-new")))]
+ (if default-profile-pic
+ (set! (qt:property (qt:find window "avatarLabel") "pixmap")
+ (qt:icon->pixmap default-profile-pic 100 100))))
+ ;; Now prepare callbacks and show the window.
(window-callbacks window)
(qt:show window))
@@ -187,7 +193,6 @@
program-args)))))))))
-
;; Parse a vCard file and populate the window’s forms with its contents.
(define (open-vcard-file window file)
(if (and (file-exists? file)
diff --git a/contact.ui b/contact.ui
index 9f6f3d8..702c94f 100644
--- a/contact.ui
+++ b/contact.ui
@@ -21,31 +21,13 @@
QLayout::SetMinimumSize
-
-
-
+
+
+ Profile picture
+
+
true
-
-
- 0
- 0
-
-
-
-
- 50
- 50
-
-
-
-
- 100
- 100
-
-
-
- QFrame::NoFrame
-
-