diff --git a/contact.scm b/contact.scm index 418bdf3..4fae45a 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:icon "person") (qt: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)) 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 -