diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-11 22:14:50 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 22:44:19 +0200 |
commit | 291be6e44a989278d6ced6f6a30f58eb07397618 (patch) | |
tree | 789a54f663e70ffdb8778c3fb907c0850e114cb1 /src/scm/webid-oidc/client/gui/link-widget.scm | |
parent | 0a4ea68ff7f3111b7ceafad858e87ab65caccfa0 (diff) |
gui: display a loaded page
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)) |