font configure TkDefaultFont -size [expr [font configure TkDefaultFont -size] * 3 / 2]