Re: calendar marked_date array

[Chas Owens <alas widomaker com>]

I just realized I could test the code against Gtk-Perl.

"GtkCalender* cal" needs to be "GtkCalendar* cal"
There should be a PREINIT: section:
     PREINIT:
        gint i;
"for (gint i" should be "for (i"

Now I just need to figure out why it isn't working <grin>

BTW who took over Gtk-Perl?  I may have a patch him/her.

> void
> member_widget (cal)
>       GtkCalender* cal
>     ALIAS:
>       Gtk2::Calendar::num_marked_dates  = 0
>       Gtk2::Calendar::marked_date       = 1
>       Gtk2::Calendar::year              = 2
>       Gtk2::Calendar::month             = 3
>       Gtk2::Calendar::selected_day      = 4
>
>     CODE:
>       switch (ix) {
>               case 0:
>                       PUSHs(sv_2mortal(newSViv(cal->num_marked_dates)));
>                       break;
>               case 1:
>                       for (gint i = 0; i < cal->num_marked_dates; i++) {
>                               PUSHs(sv_2mortal(newSViv(cal->marked_date[i])));
>                       }
>                       break;
>               case 2:
>                       PUSHs(sv_2mortal(newSViv(cal->year)));
>                       break;
>               case 3:
>                       PUSHs(sv_2mortal(newSViv(cal->month)));
>                       break;
>               case 4:
>                       PUSHs(sv_2mortal(newSViv(cal->selected_day)));
>                       break;
>       }
> _______________________________________________
> gtk-perl-list mailing list
> gtk-perl-list gnome org
> http://mail.gnome.org/mailman/listinfo/gtk-perl-list