Module | TclTkLib |
In: |
tcltklib/tcltklib.c
|
—- initialization —-
execute Tk_MainLoop
/* execute Tk_MainLoop */ static VALUE lib_mainloop(argc, argv, self) int argc; VALUE *argv; VALUE self; { VALUE check_rootwidget; if (rb_scan_args(argc, argv, "01", &check_rootwidget) == 0) { check_rootwidget = Qtrue; } else if (RTEST(check_rootwidget)) { check_rootwidget = Qtrue; } else { check_rootwidget = Qfalse; } return lib_eventloop_launcher(RTEST(check_rootwidget), 0, (int*)NULL); }