2 * ----------------------------------------------------------------------
15 try Sys.getenv "DATASHEETS" with
16 Not_found -> "/opt/xmlforms/lib"
17 let style_sysid = ref ""
18 let object_dtd_sysid = Filename.concat installdir "ds-object.dtd"
19 let object_dtd_root = "record"
22 let rec print_error e =
23 print_endline (string_of_exn e)
33 let edit filename cmd =
34 (* read in style definition *)
35 let index = new hash_index in
38 ~id_index:(index :> 'ext index)
40 (from_file !style_sysid)
43 let root = style # root in
44 root # extension # prepare (index :> 'ext index);
49 (from_file object_dtd_sysid)
51 obj_dtd # set_root object_dtd_root;
53 let topframe = openTk() in
54 let context = new context filename obj_dtd index root topframe in
56 Toplevel.configure topframe [ Width (Centimeters 20.0);
57 Height (Centimeters 12.0);
59 Pack.propagate_set topframe false;
60 Wm.title_set topframe cmd;
61 context # goto (root # extension # start_node_name);
67 let cmd = Filename.basename Sys.argv.(0) in
70 style_sysid := Filename.concat installdir (cmd ^ "-style.xml");
73 prerr_endline ("usage: " ^ cmd ^ " filename");
79 (* ======================================================================
83 * Revision 1.1 2000/11/17 09:57:32 lpadovan
86 * Revision 1.6 2000/07/16 19:36:03 gerd
89 * Revision 1.5 2000/07/08 22:03:11 gerd
90 * Updates because of PXP interface changes.
92 * Revision 1.4 2000/06/04 20:29:19 gerd
93 * Updates because of renamed PXP modules.
95 * Revision 1.3 2000/05/01 16:48:45 gerd
96 * Using the new error formatter.
98 * Revision 1.2 1999/12/17 21:34:29 gerd
99 * The name of the root element is set to "record" in the
100 * object_dtd; otherwise the parser would not check that the root
101 * element is the right element.
103 * Revision 1.1 1999/08/21 19:11:05 gerd