src/lua/forms.lua

403 	["KEY_UP"] = function(dialogue, key)
404 		if dialogue.focus then
405 			local f = dialogue.focus - 1
406 			while (f ~= dialogue.focus) do
408 					f = #dialogue
411 				local widget = dialogue[f]
413 					dialogue.focus = f
424 	["KEY_DOWN"] = function(dialogue, key)
425 		if dialogue.focus then
426 			local f = dialogue.focus + 1
427 			while (f ~= dialogue.focus) do
428 				if (f > #dialogue) then
432 				local widget = dialogue[f]
434 					dialogue.focus = f
465 function Form.Run(dialogue, redraw, helptext)
472 	if not dialogue.focus then
473 		for i, widget in ipairs(dialogue) do
475 				dialogue.focus = i
483 	for _, widget in ipairs(dialogue) do
497 	if (dialogue.width == Form.Large) then
498 		dialogue.realwidth = int(ScreenWidth * 6/7)
500 		dialogue.realwidth = dialogue.width
503 	if (dialogue.height == Form.Large) then
504 		dialogue.realheight = int(ScreenHeight * 5/6)
506 		dialogue.realheight = dialogue.height
511 	if dialogue.stretchy then
514 		for _, widget in ipairs(dialogue) do
516 				widget.realx1 = resolvesize(widget.x1, dialogue.realwidth)
517 				widget.realx2 = resolvesize(widget.x2, dialogue.realwidth)
525 				dialogue.realheight = dialogue.height + h
533 	dialogue.realx = int(ScreenWidth/2 - dialogue.realwidth/2)
534 	dialogue.realy = int(ScreenHeight/2 - dialogue.realheight/2)
538 	for _, widget in ipairs(dialogue) do
539 		widget.realx1 = resolvesize(widget.x1, dialogue.realwidth) + dialogue.realx
540 		widget.realy1 = resolvesize(widget.y1, dialogue.realheight) + dialogue.realy
541 		widget.realx2 = resolvesize(widget.x2, dialogue.realwidth) + dialogue.realx
542 		widget.realy2 = resolvesize(widget.y2, dialogue.realheight) + dialogue.realy
554 		DrawTitledBox(dialogue.realx - 1, dialogue.realy - 1,
555 			dialogue.realwidth, dialogue.realheight + sizeadjust,
556 			dialogue.title)
559 			CentreInField(dialogue.realx, dialogue.realy + dialogue.realheight,
560 				dialogue.realwidth, "<"..helptext..">")
567 	for i, widget in ipairs(dialogue) do
568 		widget.focus = (i == dialogue.focus)
579 			return Form.Run(dialogue, redraw, helptext)
583 		if dialogue.focus then
584 			local w = dialogue[dialogue.focus]
589 			action = findaction(dialogue, dialogue, key) or
590 				findaction(standard_actions, dialogue, key)
594 			return Form.Run(dialogue, redraw, helptext)