7fd59977 |
1 | |
2 | #include <OpenGl_tgl_all.hxx> |
3 | #include <InterfaceGraphic_Graphic3d.hxx> |
4 | #include <OpenGl_tgl.hxx> |
5 | #include <OpenGl_tgl_funcs.hxx> |
6 | #include <OpenGl_tgl_subrs.hxx> |
7 | |
8 | void EXPORT |
9 | call_togl_disconnect |
10 | ( |
11 | CALL_DEF_STRUCTURE * afather, |
12 | CALL_DEF_STRUCTURE * ason |
13 | ) |
14 | { |
15 | Tint i; |
16 | |
17 | if (call_subr_get_exec_struct (afather->Id, ason->Id, &i) == TSuccess) { |
18 | call_func_open_struct (afather->Id); |
19 | call_func_set_elem_ptr (i); |
20 | call_func_del_elem (); |
21 | call_func_close_struct (); |
22 | } |
23 | return; |
24 | } |