|
@@ -264,14 +264,14 @@ let init ?(rc=(!Const.rc_file)) () =
|
|
|
initializer self#write
|
|
|
end;;
|
|
|
|
|
|
-let create_setting = failwith "Not implemented"
|
|
|
+let create_setting () = failwith "Not implemented"
|
|
|
(*
|
|
|
(* Tools to create new tag *)
|
|
|
class enpty_tag = object
|
|
|
val
|
|
|
*)
|
|
|
|
|
|
-let change_setting = failwith "Not implemented"
|
|
|
+let change_setting () = failwith "Not implemented"
|
|
|
|
|
|
(* Empty entry *)
|
|
|
let empty_entry () =
|