0022819: Redesign of OpenGl driver
[occt.git] / src / OpenGl / OpenGl_togl_disconnect.cxx
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 }