Display a placeholder icon in profile-picture spot

Now we can display an icon, since profile pictures
aren’t loaded (yet).

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)

contact.ui

@@ -21,31 +21,13 @@
        <enum>QLayout::SetMinimumSize</enum>
       </property>
       <item>
-       <widget class="QGraphicsView" name="profilePicture">
+       <widget class="QLabel" name="avatarLabel">
-        <property name="enabled">
+        <property name="text">
+         <string>Profile picture</string>
+        </property>
+        <property name="scaledContents">
          <bool>true</bool>
         </property>
-        <property name="sizePolicy">
-         <sizepolicy hsizetype="Fixed" vsizetype="Expanding">
-          <horstretch>0</horstretch>
-          <verstretch>0</verstretch>
-         </sizepolicy>
-        </property>
-        <property name="minimumSize">
-         <size>
-          <width>50</width>
-          <height>50</height>
-         </size>
-        </property>
-        <property name="maximumSize">
-         <size>
-          <width>100</width>
-          <height>100</height>
-         </size>
-        </property>
-        <property name="frameShape">
-         <enum>QFrame::NoFrame</enum>
-        </property>
        </widget>
       </item>
       <item>