立石@JAISTです。
xtoolkitのxt.cにruby-1.1b9_30では
扱っていない外部変数の宣言がありました。
*** xt.c.old Sun Jul 12 00:14:47 1998
--- xt.c Sun Jul 12 00:15:49 1998
***************
*** 196,213 ****
static VALUE Application_initialize(VALUE self, VALUE name)
{
! extern VALUE Progname;
! extern VALUE Argv;
XtAppContext app;
Widget widget;
! int i, argc = RARRAY(Argv)->len + 1;
char **argv;
Check_Type(name, T_STRING);
argv = (char **) alloca(sizeof(char *) * argc);
! argv[0] = RSTRING(Progname)->ptr;
for (i = 1; i < argc; i++) {
! argv[i] = RSTRING(RARRAY(Argv)->ptr[i - 1])->ptr;
}
widget = XtOpenApplication(&app,
RSTRING(name)->ptr,
--- 196,213 ----
static VALUE Application_initialize(VALUE self, VALUE name)
{
! extern VALUE rb_progname;
! extern VALUE rb_argv;
XtAppContext app;
Widget widget;
! int i, argc = RARRAY(rb_argv)->len + 1;
char **argv;
Check_Type(name, T_STRING);
argv = (char **) alloca(sizeof(char *) * argc);
! argv[0] = RSTRING(rb_progname)->ptr;
for (i = 1; i < argc; i++) {
! argv[i] = RSTRING(RARRAY(rb_argv)->ptr[i - 1])->ptr;
}
widget = XtOpenApplication(&app,
RSTRING(name)->ptr,