0012121: Optimization of existing selection classes
[occt.git] / src / OpenGl / OpenGl_togl_group.cxx
1 /***********************************************************************
2
3 FONCTION :
4 ----------
5 File OpenGl_togl_group.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 /*----------------------------------------------------------------------*/
24
25 #include <OpenGl_tgl_all.hxx>
26 #include <InterfaceGraphic_Graphic3d.hxx>
27 #include <OpenGl_tgl.hxx>
28 #include <OpenGl_tgl_funcs.hxx>
29
30 void EXPORT
31 call_togl_group
32 (
33  CALL_DEF_GROUP * agroup
34  )
35 {
36   call_func_set_edit_mode (CALL_PHIGS_EDIT_INSERT);
37   call_func_open_struct (agroup->Struct->Id);
38   call_func_set_elem_ptr (0);
39   call_func_set_elem_ptr_label (agroup->StructureEnd);
40   call_func_offset_elem_ptr (-1);
41   call_func_label (agroup->LabelBegin);
42   call_func_label (agroup->LabelEnd);
43   call_func_close_struct ();
44   return;
45 }