src/OpenGl/OpenGl_togl_erasestructure.cxx


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23


#include <OpenGl_tgl_all.hxx>
#include <OpenGl_tgl.hxx>
#include <OpenGl_tgl_funcs.hxx>
#include <OpenGl_tgl_subrs.hxx>

void EXPORT
call_togl_erasestructure
(
 int ViewId,
 int StructId
 )
{
  Tint  i;

  if (call_subr_get_exec_struct (ViewId, StructId, &i) == TSuccess) {
    call_func_open_struct (ViewId);
    call_func_set_elem_ptr (i);
    call_func_del_elem ();
    call_func_close_struct ();
  }
  return;
}