[rep-gtk] tvec to make gtk_about_dialog_set_* and gtk_scale_button_new work

[Christopher Bratusek <chrisb src gnome org>]

commit e457936b63e486a5bde937154598c991aa64987e
Author: chrisb <zanghar freenet de>
Date:   Sat Aug 22 17:52:19 2009 +0200

    tvec to make gtk_about_dialog_set_* and gtk_scale_button_new work

 ChangeLog         |    5 +++++
 examples/hello.jl |    6 +-----
 gtk.defs          |   43 +++++++++++++++----------------------------
 3 files changed, 21 insertions(+), 33 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 41c15a8..fa23bce 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-22  Christopher Bratusek <zanghar freenet de>
+	* gtk.defs:
+	use tvec to make gtk_about_dialog_set_* work
+	use tvec to make gtk_scale_button_new work
+
 2009-08-07  Christopher Bratusek <zanghar freenet de>
 	* gtktree.defs: implementing GtkTreeView [part3]
 	*********** gtktreeselection.h ***********
diff --git a/examples/hello.jl b/examples/hello.jl
index 4306d56..acd3468 100755
--- a/examples/hello.jl
+++ b/examples/hello.jl
@@ -12,16 +12,12 @@ exec rep --batch "$0" "$@"
 
   (define window (gtk-window-new 'toplevel))
 
-  (define button (gtk-button-new-with-label "say hello"))
+  (define button (gtk-scale-button-new 'menu 0 100 0.5 '("gtk-ok" "" "undo")))
 
   (gtk-container-set-border-width window 10)
 
   (g-signal-connect window "delete_event" (lambda (w) (throw 'quit 0)))
 
-  (g-signal-connect button "clicked"
-		    (lambda ()
-		      (write standard-output "hello, world\n")))
-
   (gtk-container-add window button)
   (gtk-widget-show-all window)
 
diff --git a/gtk.defs b/gtk.defs
index 7be2251..b3861be 100644
--- a/gtk.defs
+++ b/gtk.defs
@@ -4986,7 +4986,7 @@
    (double min)
    (double max)
    (double step)
-   (string icons))) ;XXX 5 arg not working
+   ((tvec string in) icons)))
 
 (define-func gtk_scale_button_set_icons
   none
@@ -5099,33 +5099,20 @@
   ((GtkAboutDialog dialog)
    (string websitelabel)))
 
-;; XXX fucking evil const gchar **
-;(define-func gtk_about_dialog_get_authors
-;  static_string
-;  ((GtkAboutDialog dialog)))
-;
-;(define-func gtk_about_dialog_set_authors
-;  none
-;  ((GtkAboutDialog dialog)
-;   (string authors)))
-;
-;(define-func gtk_about_dialog_get_documenters
-;  static_string
-;  ((GtkAboutDialog dialog)))
-;
-;(define-func gtk_about_dialog_set_documenters
-;  none
-;  ((GtkAboutDialog dialog)
-;   (string documenters)))
-;
-;(define-func gtk_about_dialog_get_artists
-;  static_string
-;  ((GtkAboutDialog dialog)))
-;
-;(define-func gtk_about_dialog_set_artists
-;  none
-;  ((GtkAboutDialog dialog)
-;   (string artists)))
+(define-func gtk_about_dialog_set_authors
+  none
+  ((GtkAboutDialog dialog)
+   ((tvec string in) authors)))
+
+(define-func gtk_about_dialog_set_documenters
+  none
+  ((GtkAboutDialog dialog)
+   ((tvec string in) documenters)))
+
+(define-func gtk_about_dialog_set_artists
+  none
+  ((GtkAboutDialog dialog)
+   ((tvec string in) artists)))
 
 (define-func gtk_about_dialog_get_translator_credits
   static_string