Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

top aussi 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5097 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2002-08-12 05:31:21 +00:00
parent e5812bce87
commit 9b7e6b3385
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
otherlibs/labltk/browser/Makefile
View File

@ -1,6 +1,7 @@
include ../support/Makefile.common
LABLTKLIB=-I ../labltk -I ../lib -I ../support
#OTHERSLIB=-I $(OTHERS)/win32unix -I $(OTHERS)/systhreads -I $(OTHERS)/str
OTHERSLIB=-I $(OTHERS)/unix -I $(OTHERS)/str
OCAMLTOPLIB=-I $(TOPDIR)/parsing -I $(TOPDIR)/utils -I $(TOPDIR)/typing
INCLUDES=$(OTHERSLIB) $(LABLTKLIB) $(OCAMLTOPLIB)
@ -33,6 +34,9 @@ ocamlbrowser$(EXE): $(TOPDIR)/toplevel/toplevellib.cma jglib.cma $(OBJ) \
$(TOPDIR)/toplevel/toplevellib.cma \
unix.cma str.cma $(LIBNAME).cma jglib.cma $(OBJ)
ocamlbrowser.cma: jglib.cma $(OBJ)
$(CAMLC) -a -o $@ -linkall jglib.cma $(OBJ)
jglib.cma: $(JG)
$(CAMLCOMP) -a -o jglib.cma $(JG)

6
otherlibs/labltk/browser/editor.ml
View File

@ -395,14 +395,16 @@ class editor ~top ~menus = object (self)
error_messages <- Typecheck.f (List.hd windows)
method lex () =
Toplevel.configure top ~cursor:(`Xcursor "watch");
List.iter [ Widget.default_toplevel; top ]
~f:(Toplevel.configure ~cursor:(`Xcursor "watch"));
Text.configure current_tw ~cursor:(`Xcursor "watch");
ignore (Timer.add ~ms:1 ~callback:
begin fun () ->
Text.tag_remove current_tw ~tag:"error" ~start:tstart ~stop:tend;
Lexical.tag current_tw;
Text.configure current_tw ~cursor:(`Xcursor "xterm");
Toplevel.configure top ~cursor:(`Xcursor "")
List.iter [ Widget.default_toplevel; top ]
~f:(Toplevel.configure ~cursor:(`Xcursor ""))
end)
method save_text ?name:l txt =