let configure (() : unit) : unit =
ignore(get_font "guifont" ["verdana"; "lucida"; "bitstream vera sans"]);
ignore(get_font "textfont" ["lettergothic"; "lucida typewriter"; "bitstream vera sans mono"; "courier"]);
Option.add ~path:"*Menu.font" "guifont";
Option.add ~path:"*Label.font" "guifont";
Option.add ~path:"*Message.font" "guifont";
Option.add ~path:"*Button.font" "guifont";
Option.add ~path:"*Radiobutton.font" "guifont";
Option.add ~path:"*Checkbutton.font" "guifont";
Option.add ~path:"*Text.font" "textfont";
Option.add ~path:"*Canvas.font" "textfont";
Option.add ~path:"*Listbox.font" "textfont";
Option.add ~path:"*Entry.font" "textfont";
Option.add ~path:"*Text.borderWidth" "1";
Option.add ~path:"*Canvas.borderWidth" "1";
Option.add ~path:"*Button.borderWidth" "1";
Option.add ~path:"*Scrollbar.borderWidth" "1";
Option.add ~path:"*Entry.borderWidth" "1";
Option.add ~path:"*Listbox.borderWidth" "1";
Option.add ~path:"*Menu.borderWidth" "1";
Option.add ~path:"*Menu.activeBorderWidth" "1";
Option.add ~path:"*Menu.tearOff" "false";
Option.add ~path:"*Listbox.selectBorderWidth" "0";
Option.add ~path:"*Listbox.selectBackground" "#0000a0";
Option.add ~path:"*Listbox.selectForeground" "#ffffff";
Option.add ~path:"*Listbox.background" "#ffffff"