(define-concurrent-native-callback (activate (c-pointer app) (c-pointer user-data)) (let ((window (gtk-application-window-new app))) (gtk-window-set-title window "Hello World") (gtk-window-set-default-size window 800 600) (gtk-widget-show-all window)))