Advertisement
Guest User

Untitled

a guest
Apr 2nd, 2013
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.87 KB | None | 0 0
  1. diff --git a/gtk/examples/tic-tac-toe.scm b/gtk/examples/tic-tac-toe.scm
  2. index 93e323b..8c67896 100644
  3. --- a/gtk/examples/tic-tac-toe.scm
  4. +++ b/gtk/examples/tic-tac-toe.scm
  5. @@ -34,6 +34,9 @@ exec guile-gnome-2 -s $0 "$@"
  6. buttons
  7. winning-combinations
  8.  
  9. + ;; adding foo-bar-baz signal breaks tic-tac-toe with
  10. + ;; ERROR: Throw to key `gruntime-error' with args `("gsignal-query" "Unknown signal ~A on class ~A" (tic-tac-toe #<<gobject-class> <tic-tac-toe>>) ())'.
  11. + :gsignal '(foo-bar-baz #f)
  12. :gsignal '(tic-tac-toe #f))
  13.  
  14. (define (ttt-clear ttt)
  15. @@ -119,6 +122,7 @@ exec guile-gnome-2 -s $0 "$@"
  16. (show-all w)
  17. (g-timeout-add 100 (lambda () #t))
  18. (connect ttt 'tic-tac-toe (lambda (ttt) (display "Yay!\n")))
  19. + (connect ttt 'foo-bar-baz (lambda (ttt) (display "Nay!\n")))
  20. (connect w 'delete-event (lambda (ttt e) (gtk-main-quit) #f)))
  21.  
  22. (gtk-main)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement