0012121: Optimization of existing selection classes
[occt.git] / src / OpenGl / OpenGl_togl_set_environment.cxx
1 /***********************************************************************
2
3 FONCTION :
4 ----------
5 file OpenGl_togl_set_environment :
6
7
8 REMARQUES:
9 ---------- 
10
11
12 HISTORIQUE DES MODIFICATIONS   :
13 --------------------------------
14 xx-xx-xx : xxx ; Creation.
15 29-04-96 : FMN ; Correction Warning.
16
17 ************************************************************************/
18
19 /*----------------------------------------------------------------------*/
20 /*
21 * Includes
22 */
23
24 #include <string.h>
25
26 #include <OpenGl_tgl_all.hxx>
27 #include <OpenGl_tgl_tox.hxx>
28 #include <OpenGl_tgl_utilgr.hxx>
29
30
31 void EXPORT
32 call_togl_set_environment
33 (
34  char * adisplay
35  )
36 {
37   int status;
38
39   if (call_thedisplay == NULL) {
40     if (strlen (adisplay) != 0)
41       call_util_osd_putenv ((Tchar*)"DISPLAY", (Tchar*)adisplay);
42     status = call_tox_open_display ();
43   }
44   return;
45 }