include repint include Evas include Ecore include Ecore_Evas typedef s

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
#include "repint.h"
#include <Evas.h>
#include <Ecore.h>
#include <Ecore_Evas.h>
typedef struct rep_ecore_evas_struct rep_ecore_evas;
struct rep_ecore_evas_struct {
repv car;
Ecore_Evas *ee;
};
rep_ecore_evas test_ee;
static int _ecore_evas_type;
static repv *_ecore_evas_software_x11_new(//repv disp_name, repv parent,
repv x, repv y, repv w, repv h)
{
rep_ecore_evas *ee = &test_ee;
/* const char *s = NULL;
if(rep_STRING(disp_name) && strlen(rep_STRING(disp_name)) > 0)
s = rep_STRING(disp_name);
*/
printf("%d %d %d %d\n", rep_INT(x), rep_INT(y), rep_INT(w), rep_INT(h));
ee->ee = ecore_evas_software_x11_new(
0, 0, rep_INT(x), rep_INT(y), rep_INT(w), rep_INT(h));
//ee->ee = ecore_evas_software_x11_new(0, 0, 0, 0, 600, 800);
ecore_evas_borderless_set(ee->ee, 0);
ecore_evas_shaped_set(ee->ee, 0);
ecore_evas_title_set(ee->ee, "test");
ecore_evas_show(ee->ee);
return rep_VAL(ee);
}
DEFUN ("ecore-init", Fecore_init, Secore_init, (), rep_Subr3)
{
return ecore_init();
}
DEFUN ("ecore-shutdown", Fecore_shutdown, Secore_shutdown, (), rep_Subr3)
{
return ecore_shutdown();
}
DEFUN ("ecore-evas-init", Fecore_evas_init, Secore_evas_init, (), rep_Subr3)
{
return ecore_evas_init();
}
DEFUN ("ecore-evas-shutdown", Fecore_evas_shutdown, Secore_evas_shutdown, (), rep_Subr3)
{
return ecore_evas_shutdown();
}
DEFUN ("ecore-main-loop-begin", Fecore_main_loop_begin, Secore_main_loop_begin, (), rep_Subr3)
{
ecore_main_loop_begin();
return Qnil;
}
DEFUN ("ecore-evas-software-x11-new", Fecore_evas_software_x11_new, Secore_evas_software_x11_new,
//(repv disp_name, repv parent,
( repv x, repv y, repv w, repv h), rep_Subr3)
{
return _ecore_evas_software_x11_new(
//disp_name, parent,
x, y, w, h);
}
static void
_ecore_evas_print(repv stream, repv arg)
{
rep_stream_puts(stream, "#<ecore_evas>", -1, rep_FALSE);
}
repv
rep_dl_init (void)
{
repv tem = rep_push_structure ("gui.efl.ecore_evas");
_ecore_evas_type = rep_register_new_type ("_ecore_evas", 0,
_ecore_evas_print, _ecore_evas_print,
0, 0, 0, 0, 0, 0, 0, 0, 0);
rep_ADD_SUBR (Secore_init);
rep_ADD_SUBR (Secore_shutdown);
rep_ADD_SUBR (Secore_evas_init);
rep_ADD_SUBR (Secore_evas_shutdown);
rep_ADD_SUBR (Secore_main_loop_begin);
rep_ADD_SUBR (Secore_evas_software_x11_new);
return rep_pop_structure (tem);
}
void
rep_dl_kill (void)
{
}