Add scheme gui_hook
This commit is contained in:
parent
3010ce17e5
commit
d13d4ece9a
|
@ -118,6 +118,7 @@ void gameobject_makefromprefab(char *path)
|
|||
{
|
||||
FILE *fprefab = fopen(path, "rb");
|
||||
if (fprefab == NULL) {
|
||||
YughError("Could not find prefab %s.", path);
|
||||
return;
|
||||
}
|
||||
|
||||
|
|
|
@ -179,6 +179,13 @@ s7_pointer s7_sound_cmd(s7_scheme *sc, s7_pointer args) {
|
|||
return args;
|
||||
}
|
||||
|
||||
s7_pointer s7_gui_hook(s7_scheme *sc, s7_pointer args) {
|
||||
s7_pointer cb = s7_car(args);
|
||||
script_call_sym(cb);
|
||||
|
||||
return cb;
|
||||
}
|
||||
|
||||
/*
|
||||
mrb_value mrb_nuke_cb(mrb_state *mrb, mrb_value self) {
|
||||
mrb_float win;
|
||||
|
@ -214,5 +221,6 @@ void ffi_load() {
|
|||
S7_FUNC(gen_cmd, 2);
|
||||
S7_FUNC(sys_cmd, 1);
|
||||
S7_FUNC(sound_cmd, 2);
|
||||
S7_FUNC(gui_hook, 1);
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in a new issue