source: golgotha/src/test/lisp/dialog.cc

Last change on this file was 80, checked in by Sam Hocevar, 11 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 1.2 KB
Line 
1/********************************************************************** <BR>
2  This file is part of Crack dot Com's free source code release of
3  Golgotha. <a href="http://www.crack.com/golgotha_release"> <BR> for
4  information about compiling & licensing issues visit this URL</a>
5  <PRE> If that doesn't help, contact Jonathan Clark at
6  golgotha_source@usa.net (Subject should have "GOLG" in it)
7***********************************************************************/
8
9#include "main/main.hh"
10#include "lisp/lisp.hh"
11#include "lisp/li_dialog.hh"
12#include "app/app.hh"
13#include "error/error.hh"
14
15
16li_object *test_quit(li_object *o, li_environment *env)
17{
18  i4_debug->printf("the new value is ");
19  lip(li_car(o,env));
20
21  i4_debug->printf("\nthe old value is ");
22  lip(li_second(o,env));
23
24  return 0;
25}
26
27class dialog_app : public i4_application_class
28{
29
30public:
31  enum { QUIT };
32
33  void init()
34  {
35    i4_application_class::init();
36    li_load("dialog.scm");
37    li_create_dialog("Editing Options", li_new("options"), 0, test_quit);
38  } 
39
40  char *name() { return "dialog_app"; }
41};
42
43void i4_main(w32 argc, i4_const_str *argv)
44{
45  dialog_app test;
46  test.run();
47}
48
49
Note: See TracBrowser for help on using the repository browser.