0022819: Redesign of OpenGl driver
[occt.git] / src / OpenGl / OpenGl_togl_cleargroup.cxx
1 /***********************************************************************
2
3 FONCTION :
4 ----------
5 File OpenGl_togl_cleargroup.c :
6
7
8 REMARQUES:
9 ---------- 
10
11 HISTORIQUE DES MODIFICATIONS   :
12 --------------------------------
13 xx-xx-xx : xxx ; Creation.
14 03-03-98 : CAL ; Modification des structures CALL_DEF_GROUP et STRUCTURE
15
16 ************************************************************************/
17
18 /*----------------------------------------------------------------------*/
19 /*
20 * Includes
21 */ 
22
23 #include <OpenGl_tgl_all.hxx>
24 #include <InterfaceGraphic_Graphic3d.hxx>
25 #include <OpenGl_tgl_funcs.hxx>
26
27 /*----------------------------------------------------------------------*/
28
29 void EXPORT
30 call_togl_cleargroup
31 (
32  CALL_DEF_GROUP * agroup
33  )
34 {
35   call_func_set_edit_mode (CALL_PHIGS_EDIT_REPLACE);
36   call_func_open_struct (agroup->Struct->Id);
37   call_func_set_elem_ptr (0);
38   call_func_del_elems_labels (agroup->LabelBegin, agroup->LabelEnd);
39   call_func_close_struct ();
40   return;
41 }