whitespace fix

This commit is contained in:
Stephen Dwyer
2012-05-20 16:41:41 -06:00
parent 9792696ad0
commit 70fcefcda2
+1 -1
View File
@@ -80,7 +80,7 @@ class canvas_text = fun ?(config=[]) canvas_group x y ->
format <- text_editor#entry_format#text in format <- text_editor#entry_format#text in
ignore (text_editor#entry_format#connect#activate ~callback); ignore (text_editor#entry_format#connect#activate ~callback);
let callback = fun () -> let callback = fun () ->
size <- text_editor#spinbutton_size#value in size <- text_editor#spinbutton_size#value in
ignore (text_editor#spinbutton_size#connect#value_changed ~callback); ignore (text_editor#spinbutton_size#connect#value_changed ~callback);
let callback = fun () -> let callback = fun () ->
color <- text_editor#comboboxentry_color#entry#text in color <- text_editor#comboboxentry_color#entry#text in