+and www_mechanize_link sv =
+
+object (self)
+
+ method sv = sv
+
+ method url =
+ let sv = call_method sv "url" [] in
+ string_of_sv sv
+
+ method text =
+ let sv = call_method sv "text" [] in
+ string_of_sv sv
+
+ method name =
+ let sv = call_method sv "name" [] in
+ string_of_sv sv
+
+ method tag =
+ let sv = call_method sv "tag" [] in
+ string_of_sv sv
+
+ method base =
+ let sv = call_method sv "base" [] in
+ string_of_sv sv
+
+end
+