diff options
Diffstat (limited to 'src/scm/webid-oidc/client/gui.scm')
| -rw-r--r-- | src/scm/webid-oidc/client/gui.scm | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/src/scm/webid-oidc/client/gui.scm b/src/scm/webid-oidc/client/gui.scm index 45910e3..be557bd 100644 --- a/src/scm/webid-oidc/client/gui.scm +++ b/src/scm/webid-oidc/client/gui.scm @@ -36,6 +36,7 @@ #:use-module (webid-oidc client) #:use-module (webid-oidc client accounts) #:use-module ((webid-oidc client gui settings) #:prefix settings:) + #:use-module ((webid-oidc client gui application) #:prefix app:) #:use-module (web uri) #:use-module (web response) #:use-module (rnrs bytevectors) @@ -57,27 +58,13 @@ (add-hook! settings:client-changed-hook (lambda (client) - (format #t (G_ "The client changed: it is now ~a.\n") client))) + (format #t (G_ "The client changed: it is now ~a.\n") client) + ((@ (webid-oidc client) client) client))) (add-hook! settings:accounts-changed-hook (lambda (main other) (format #t (G_ "The accounts changed: the main account is ~a, and the others are ~a.\n") main other))) -(define (print-hello button) - (format #t (G_ "Hello, world!\n"))) - -(define (on-activate application) - (let ((window (make <GtkApplicationWindow> - #:application application)) - (button (make <GtkButton> #:label (G_ "Hello, world!")))) - (connect button clicked print-hello) - (add window button) - (show-all window))) - (define (main) - (let ((app (application:new - "eu.planete_kraus.Disfluid" - (list->application-flags '(flags-none))))) - (connect app activate on-activate) - (run app (command-line)))) + (run app:application (command-line))) |