diff options
| -rw-r--r-- | gtkffi.tl | 10 |
1 files changed, 4 insertions, 6 deletions
@@ -76,10 +76,9 @@ (let ((cb (callbackname abutton))) ^(progn (defparm ,abutton nil) - (defun ,cb (a b) - ,*body) + (defparm ,cb [button-cb (lambda (a b) ,*body)]) (set ,abutton (gtk_button_new_with_label ,buttonlabel)) - (g_signal_connect_data ,abutton "clicked" [button-cb ,cb] + (g_signal_connect_data ,abutton "clicked" ,cb null null 0) (gtk_container_add ,placement ,abutton)))) @@ -116,7 +115,6 @@ (let ((cb (callbackname theapp))) ^(progn (defparm ,theapp nil) - (defun ,cb (a b) - ,*body) + (defparm ,cb [app-cb (lambda (a b) ,*body)]) (set ,theapp (gtk_application_new nil 0)) - (g_signal_connect_data ,theapp "activate" [app-cb ,cb] null null 0)))) + (g_signal_connect_data ,theapp "activate" ,cb null null 0)))) |