| open Swig | |
| open Director_exception_nothrow | |
| let _MyBar ob meth args = | |
| match meth with | |
| | "pang" -> C_string "_MyBar::pang()" | |
| | _ -> (invoke ob) meth args | |
| let a = new_derived_object new_Bar (_MyBar) '() | |
| let _ = assert (_MyBar a "pang" '() as string = "_MyBar::pang()") | |
| let b = new_Bar '() | |
| let _ = assert (b -> pang () as string = "Bar::pang()") |