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
|
//genesis
/**********************************************************************
** This program is part of kinetikit and is
** copyright (C) 1995-1997 Upinder S. Bhalla.
** It is made available under the terms of the GNU General Public License.
** See the file COPYRIGHT for the full notice.
**********************************************************************/
function dummy_treefn
end
/*
function fake_addmsg(src,dest,type,field,arg2,arg3)
str src,dest,type,field,arg2,arg3
if ({strcmp {type} "PLOT"} == 1)
create xtable {dest}
addmsg {src} {dest} INPUT {field}
end
end
*/
function make_batch_interface
// dummy for the xtree
create neutral /edit
create neutral /edit/draw
create neutral /edit/draw/tree
addaction /edit/draw/tree ADDMSGARROW dummy_treefn
addaction /edit/draw/tree UNDUMP dummy_treefn
addaction /edit/draw/tree RESET dummy_treefn
disable /edit
// dummy for the notes
create neutral /file
create neutral /file/notes
addfield /file/notes text
disable /file
/*
// functioning replacement for the xgraphs.
create neutral fakegraph
addaction ADDMSG fake_addmsg
addobject fakegraph fakegraph
create neutral /graphs
create fakegraph /graphs/conc1
create fakegraph /graphs/conc2
*/
end
|
