* `edit.clear_state(state)` -- empties the editor of any text it may contain.

function edit.clear(State)
  State.lines = {{data=''}}
  Text.redraw_all(State)
  State.cursor1 = {line=1, pos=1}
  State.screen_top1 = {line=1, pos=1}
end

clear_handlers = function()
	for k in pairs(car) do
		car[k] = nil
	end
end

call_protected = function(f, ...)
	local args = {...}
	xpcall(
		function()
			f(unpack(args))
		end,
		send_errors_to_output)
end

send_errors_to_output = function(err)
	local callstack = debug.traceback('', 3)
	local error_with_callstack = cleaned_up_frame(tostring(err))..'\n'..cleaned_up_callstack(callstack)
	Text.insert_text(Current_pane.output_editor_state, error_with_callstack)
	Text.redraw_all(Current_pane.output_editor_state)
	clear_handlers()
end

		if car.mouse_wheel_move then car.mouse_wheel_move(dx,dy) end
		if car.wheelmoved then car.wheelmoved(dx,dy) end

		if car.mouse_wheel_move then
			call_protected(car.mouse_wheel_move, dx,dy)
		end
		if car.wheelmoved then
			call_protected(car.wheelmoved, dx,dy)
		end

			clear_handlers()

			Current_pane.output_editor_state.lines = {}
			Text.redraw_all(Current_pane.output_editor_state)

			edit.clear(Current_pane.output_editor_state)

			local status, result = live.eval(buf)

			local status, result = live.eval(buf, 'editor')

		if car.mouse_release then car.mouse_release(x,y, mouse_button) end
		if car.mousereleased then car.mousereleased(x,y, mouse_button) end

		if car.mouse_release then
			call_protected(car.mouse_release, x,y, mouse_button)
		end
		if car.mousereleased then
			call_protected(car.mousereleased, x,y, mouse_button)
		end

		if car.key_release then car.key_release(key, scancode) end
		if car.keyreleased then car.keyreleased(key, scancode) end

		if car.key_release then
			call_protected(car.key_release, key, scancode)
		end
		if car.keyreleased then
			call_protected(car.keyreleased, key, scancode)
		end

		if car.text_input then car.text_input(t) end
		if car.textinput then car.textinput(t) end

		if car.text_input then
			call_protected(car.text_input, t)
		end
		if car.textinput then
			call_protected(car.textinput, t)
		end

		if car.keychord_press then car.keychord_press(chord, key) end
		if car.keypressed then car.keypressed(key) end

		if car.keychord_press then
			call_protected(car.keychord_press, chord, key)
		end
		if car.keypressed then
			call_protected(car.keypressed, key)
		end

	if car.draw then car.draw() end  -- off canvas

	if car.draw then call_protected(car.draw) end  -- off canvas

	if car.update then car.update(dt) end

	if car.update then call_protected(car.update, dt) end