From 4f2cb622a522691fd13412af9ea4aac0fb36076e Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 5 Oct 2021 22:26:27 +0200 Subject: gui: let the account widget shrink --- src/scm/webid-oidc/client/gui/account-widget.scm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'src/scm') 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 -- cgit v1.2.3