(* Callbacks *)
let jump node =
let module M = Minidom in
- print_string ("jump: " ^
- (match
- M.node_get_attribute_ns node
- (M.mDOMString_of_string "xlink")
- (M.mDOMString_of_string "href")
- with
- None -> "DOES NOT WORKS (if you have clicked on the hyperlink)!!!!!"
- | Some s -> M.string_of_mDOMString s
- ) ^ "\n");
print_string ("jump: " ^
(match
M.node_get_attribute node