diff options
Diffstat (limited to 'otherlibs/labltk/browser')
| -rw-r--r-- | otherlibs/labltk/browser/editor.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/browser/main.ml | 26 | ||||
| -rw-r--r-- | otherlibs/labltk/browser/shell.ml | 8 |
3 files changed, 18 insertions, 18 deletions
diff --git a/otherlibs/labltk/browser/editor.ml b/otherlibs/labltk/browser/editor.ml index d042524c0..a4f194223 100644 --- a/otherlibs/labltk/browser/editor.ml +++ b/otherlibs/labltk/browser/editor.ml @@ -35,7 +35,7 @@ let compiler_preferences () = in let chkbuttons, setflags = List.split (List.map - fun:(fun (text, ref, invert) -> mk_chkbutton :text :ref :invert) + fun:(fun (text, ref, invert) -> mk_chkbutton :text :ref :invert) [ "No pervasives", Clflags.nopervasives, false; "No warnings", Typecheck.nowarnings, false; "Modern", Clflags.classic, true; diff --git a/otherlibs/labltk/browser/main.ml b/otherlibs/labltk/browser/main.ml index e59d65781..5caf9d564 100644 --- a/otherlibs/labltk/browser/main.ml +++ b/otherlibs/labltk/browser/main.ml @@ -20,20 +20,20 @@ let _ = Arg.parse keywords:[ "-I", Arg.String (fun s -> path := s :: !path), "<dir> Add <dir> to the list of include directories"; - "-modern", Arg.Unit (fun () -> Clflags.classic := false), - "Use strict label syntax"; - "-w", Arg.String (fun s -> Shell.warnings := s), + "-modern", Arg.Unit (fun () -> Clflags.classic := false), + "Use strict label syntax"; + "-w", Arg.String (fun s -> Shell.warnings := s), "<flags> Enable or disable warnings according to <flags>:\n\ - \032 A/a enable/disable all warnings\n\ - \032 C/c enable/disable suspicious comment\n\ - \032 F/f enable/disable partially applied function\n\ - \032 M/m enable/disable overriden method\n\ - \032 P/p enable/disable partial match\n\ - \032 S/s enable/disable non-unit statement\n\ - \032 U/u enable/disable unused match case\n\ - \032 V/v enable/disable hidden instance variable\n\ - \032 X/x enable/disable all other warnings\n\ - \032 default setting is A (all warnings enabled)" ] + \032 A/a enable/disable all warnings\n\ + \032 C/c enable/disable suspicious comment\n\ + \032 F/f enable/disable partially applied function\n\ + \032 M/m enable/disable overriden method\n\ + \032 P/p enable/disable partial match\n\ + \032 S/s enable/disable non-unit statement\n\ + \032 U/u enable/disable unused match case\n\ + \032 V/v enable/disable hidden instance variable\n\ + \032 X/x enable/disable all other warnings\n\ + \032 default setting is A (all warnings enabled)" ] others:(fun name -> raise(Arg.Bad("don't know what to do with " ^ name))) errmsg:"ocamlbrowser :"; Config.load_path := List.rev !path @ [Config.standard_library]; diff --git a/otherlibs/labltk/browser/shell.ml b/otherlibs/labltk/browser/shell.ml index 4f7dab265..aab1353dd 100644 --- a/otherlibs/labltk/browser/shell.ml +++ b/otherlibs/labltk/browser/shell.ml @@ -115,8 +115,8 @@ object (self) let buf = String.create :len in let len = Unix.read fd :buf pos:0 :len in if len > 0 then begin - self#insert (String.sub buf pos:0 :len); - Text.mark_set textw mark:"input" index:(`Mark"insert",[`Char(-1)]) + self#insert (String.sub buf pos:0 :len); + Text.mark_set textw mark:"input" index:(`Mark"insert",[`Char(-1)]) end; len with Unix.Unix_error _ -> 0 @@ -207,7 +207,7 @@ object (self) self#insert (Str.global_replace pat:~"\r\n" with:"\n" (Buffer.contents ibuffer)); Buffer.reset ibuffer; - Text.mark_set textw mark:"input" index:(`Mark"insert",[`Char(-1)]) + Text.mark_set textw mark:"input" index:(`Mark"insert",[`Char(-1)]) end; Mutex.unlock imutex; Timer.set ms:100 callback:read_buffer @@ -215,7 +215,7 @@ object (self) read_buffer () end else begin try - List.iter [in1;err1] fun: + List.iter [in1;err1] fun: begin fun fd -> Fileevent.add_fileinput :fd callback:(fun () -> ignore (self#read :fd len:1024)) |