new_pane_button = function(x, y, r)
	return overflowable_button('new', x, y, r,
		function()
			Show_menu = nil
			Current_pane_index = Current_pane_index+1
			table.insert(Panes, Current_pane_index, new_pane())
			Current_pane = Panes[Current_pane_index]
		end)
end