Last change
on this file since 80 was
80,
checked in by Sam Hocevar, 14 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 |
|
---|
16 | li_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 |
|
---|
27 | class dialog_app : public i4_application_class
|
---|
28 | {
|
---|
29 |
|
---|
30 | public:
|
---|
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 |
|
---|
43 | void 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.