gui: let the account widget shrink

1 files changed, 10 insertions, 4 deletions

diff --git a/src/scm/webid-oidc/client/gui/account-widget.scm b/src/scm/webid-oidc/client/gui/account-widget.scm
index 4449049..cef6a9d 100644
--- a/src/scm/webid-oidc/client/gui/account-widget.scm
+++ b/src/scm/webid-oidc/client/gui/account-widget.scm
@@ -62,18 +62,24 @@
           (string-append config:uidir "/account-widget.glade"))))
     (let ((whole-widget
            (builder:get-object builder "account_widget"))
-          (webid
+          (webid-link
            (builder:get-object builder "webid"))
+          (webid-label
+           (builder:get-object builder "webid_label"))
           (issuer-link
            (builder:get-object builder "issuer"))
+          (issuer-label
+           (builder:get-object builder "issuer_label"))
           (discard-button
            (builder:get-object builder "discard_button"))
           (use-button
            (builder:get-object builder "use_button")))
-      (link-button:set-uri webid (uri->string (subject account)))
+      (link-button:set-uri webid-link (uri->string (subject account)))
       (link-button:set-uri issuer-link (uri->string (issuer account)))
-      (button:set-label webid (uri->string (subject account)))
-      (button:set-label issuer-link (uri->string (issuer account)))
+      (label:set-text webid-label (uri->string (subject account)))
+      (label:set-text issuer-label (uri->string (issuer account)))
+      (widget:set-tooltip-text webid-link (uri->string (subject account)))
+      (widget:set-tooltip-text issuer-link (uri->string (issuer account)))
       (unless can-use?
         (widget:set-sensitive use-button #f))
       (connect discard-button clicked