Error: (match) during expansion of (define-concurrent-native-callback ...) added by zilti on Thu Dec 14 15:49:24 2017

(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)))
[ permalink | raw ]