diff options
Diffstat (limited to 'src/scm/webid-oidc/client/gui/link-widget.scm')
-rw-r--r-- | src/scm/webid-oidc/client/gui/link-widget.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/client/gui/link-widget.scm b/src/scm/webid-oidc/client/gui/link-widget.scm index 530cf48..e24a539 100644 --- a/src/scm/webid-oidc/client/gui/link-widget.scm +++ b/src/scm/webid-oidc/client/gui/link-widget.scm @@ -34,6 +34,7 @@ #:use-module (webid-oidc client client) #:use-module (webid-oidc client accounts) #:use-module (webid-oidc client application) + #:use-module (webid-oidc http-link) #:use-module ((webid-oidc client gui settings) #:prefix settings:) #:use-module (webid-oidc jwk) #:use-module (webid-oidc oidc-id-token) @@ -75,10 +76,12 @@ (builder:get-object builder "link_widget")) (target-iri-link (builder:get-object builder "target_iri")) + (target-iri-label + (builder:get-object builder "target_label")) (relation-type-label (builder:get-object builder "relation_type"))) - (link-button:set-text target-iri-link (uri->string (target-iri link))) - (link-button:set-tooltip target-iri-link (uri->string (target-iri link))) + (label:set-text target-iri-label (uri->string (target-iri link))) + (widget:set-tooltip-text target-iri-link (uri->string (target-iri link))) (link-button:set-uri target-iri-link (uri->string (target-iri link))) (label:set-text relation-type-label (relation-type link)) (set! builder `(,builder)) |