(bind-func Widget_type_add_flags (lambda (widget:Widget* flags) (tset! widget 2 (bor flags (tref widget 2)))))