0012121: Optimization of existing selection classes
[occt.git] / src / OpenGl / OpenGl_togl_disconnect.cxx
CommitLineData
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
8void EXPORT
9call_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}