View txt2c-cross.patch

1	diff -urN src/gtk2/gui/guiDownloads.ml src/gtk2/gui/guiDownloads.ml␊
2	--- src/gtk2/gui/guiDownloads.ml␉Mon Oct 24 17:46:18 2005␊
3	+++ src/gtk2/gui/guiDownloads.ml␉Mon Oct 24 17:50:21 2005␊
4	@@ -59,7 +59,9 @@␊
5	(* *)␊
6	(*************************************************************************)␊
7	␊
8	+(*␊
9	let downloaders_timerID = ref (GMain.Timeout.add ~ms:2000 ~callback:(fun _ -> true))␊
10	+*)␊
11	let (view_context : GPango.context option ref) = ref None␊
12	let interested_in_sources = ref false␊
13	let expanded_rows = ref 0␊
14	@@ -1189,7 +1191,7 @@␊
15	(fun _ ->␊
16	view_context := None;␊
17	expanded_rows := 0;␊
18	- Timeout.remove (!downloaders_timerID)␊
19	+ (* Timeout.remove (!downloaders_timerID) *)␊
20	));␊
21	␊
22	let hbox =␊
23	@@ -1229,11 +1231,6 @@␊
24	downloadview#set_on_expanded on_expanded_item;␊
25	downloadview#set_on_collapsed on_collapsed_item;␊
26	update_downloaders ();␊
27	- downloaders_timerID := Timeout.add ~ms:6000 ~callback:␊
28	- (fun _ ->␊
29	- ( if !!verbose then lprintf' "Update downloaders\n");␊
30	- update_downloaders ();␊
31	- true);␊
32	ignore (entry#event#connect#key_press ~callback:␊
33	(fun ev ->␊
34	GdkEvent.Key.keyval ev = GdkKeysyms._Return &&␊
35	@@ -1259,5 +1256,10 @@␊
36	GuiCom.send (InterestedInSources false);␊
37	true␊
38	end else true␊
39	+ ));␊
40	+ ignore (Timeout.add ~ms:6000 ~callback:␊
41	+ (fun _ ->␊
42	+ (if !!verbose then lprintf' "Update downloaders\n");␊
43	+ update_downloaders ();␊
44	+ true␊
45	))␊
46	-␊
47	diff -urN src/gtk2/gui/guiUploads.ml src/gtk2/gui/guiUploads.ml␊
48	--- src/gtk2/gui/guiUploads.ml␉Mon Oct 24 17:47:06 2005␊
49	+++ src/gtk2/gui/guiUploads.ml␉Mon Oct 24 17:52:36 2005␊
50	@@ -55,7 +55,9 @@␊
51	let (uploader_label : GMisc.label option ref) = ref None␊
52	let nuploading = ref 0␊
53	let show_pending = ref false␊
54	+(*␊
55	let uploaders_timerID = ref (GMain.Timeout.add ~ms:2000 ~callback:(fun _ -> true))␊
56	+*)␊
57	let (view_context : GPango.context option ref) = ref None␊
58	␊
59	(*************************************************************************)␊
60	@@ -923,7 +925,7 @@␊
61	view_context := None;␊
62	upload_label := None;␊
63	uploader_label := None;␊
64	- Timeout.remove (!uploaders_timerID);␊
65	+ (* Timeout.remove (!uploaders_timerID); *)␊
66	));␊
67	let vbox_uploads =␊
68	GPack.vbox ~homogeneous:false␊
69	@@ -994,12 +996,12 @@␊
70	uploader_label := Some uploaders_label;␊
71	update_uploads_label ();␊
72	update_uploaders_label ();␊
73	- ␊
74	- uploaders_timerID := (Timeout.add ~ms:6000 ~callback:␊
75	+ vpaned_uploads#coerce␊
76	+␊
77	+let _ =␊
78	+ ignore (Timeout.add ~ms:6000 ~callback:␊
79	(fun _ -> ␊
80	update_all (uploaderstore#all_items ());␊
81	refresh_uploadstats ();␊
82	true␊
83	- ));␊
84	-␊
85	- vpaned_uploads#coerce␊
86	+ ))␊

Download this file

monotone