Skip to content
This repository has been archived by the owner on Jun 4, 2019. It is now read-only.

Commit

Permalink
Browse files Browse the repository at this point in the history
visual: splitted draw2.ml in many files.
  • Loading branch information
pad committed Oct 27, 2010
1 parent 736d08e commit 68c2a71
Show file tree
Hide file tree
Showing 23 changed files with 1,507 additions and 1,133 deletions.
8 changes: 3 additions & 5 deletions main_visual.ml
Expand Up @@ -83,7 +83,6 @@ let build_model2 root dbfile_opt =
(* let _x = Hashtbl.find hentities "kill" in *)
*)


model

let build_model a b =
Expand All @@ -107,7 +106,7 @@ let main_action xs =
Gc.set { (Gc.get()) with Gc.minor_heap_size = 2_000_000 };
Gc.set { (Gc.get()) with Gc.space_overhead = 200 };

let model = Model2.async_make () in
let model = Async.async_make () in

let dw = Model2.init_drawing treemap_generator model xs in

Expand Down Expand Up @@ -144,11 +143,11 @@ let main_action xs =
(if Cairo_helpers.is_old_cairo()
then
Thread.create (fun () ->
Model2.async_set (build_model root db_file) model;
Async.async_set (build_model root db_file) model;
) ()
+> ignore
else
Model2.async_set (build_model root db_file) model;
Async.async_set (build_model root db_file) model;
(*
GMain.Timeout.add ~ms:2000 ~callback:(fun () ->
Model2.async_set (build_model root dbfile_opt) model;
Expand All @@ -157,7 +156,6 @@ let main_action xs =
*)
);


Common.finalize (fun () ->
View2.mk_gui
~screen_size:!screen_size
Expand Down
8 changes: 4 additions & 4 deletions visual/Makefile
Expand Up @@ -4,15 +4,15 @@ TOP=..
##############################################################################
TARGET=lib

SRC=cairo_helpers.ml \
flag_visual.ml \
SRC=cairo_helpers.ml custom_list_generic.ml async.ml \
flag_visual.ml help.ml \
style2.ml \
parsing2.ml \
editor_connection.ml \
model2.ml \
custom_list_generic.ml \
completion2.ml \
draw2.ml \
draw_basics.ml draw_labels.ml draw_legend.ml \
draw_microlevel.ml draw_macrolevel.ml \
view2.ml

#experimental: future.ml \ ancient2.ml \ completion.ml \
Expand Down

0 comments on commit 68c2a71

Please sign in to comment.