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 -