使用TAB在红色语言的字段之间移动

本文介绍了使用TAB在红色语言的字段之间移动的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

我有以下简单代码:

Red [] view [ text "Value of x:" f1: field "" return text "Value of y:" f2: field "" return text "Read Sum:" tt: text "" return button "Calculate" [ tt/text: to-string ((to-integer f1/text) + (to-integer f2/text)) ] button "Quit" [quit] ]

如何添加代码，以便可以使用TAB键在不同字段之间移动?显然，这适用于Rebol( www.rebol/how-to/fields.html )，但在这里不起作用.

How can I add code so that one can move between different fields using TAB key? Apparently, this works in Rebol ( www.rebol/how-to/fields.html ) but is not working here.

推荐答案

根据 gitter存档

handle-key: function [e prev-fld next-fld][ k: e/key if k = tab [ either e/shift? [win/selected: prev-fld][win/selected: next-fld] ] ] view [ text "Value of x:" f1: field "" on-key [handle-key event tt f2] return text "Value of y:" f2: field "" on-key [handle-key event f1 tt] return text "Read Sum:" tt: text "" on-key [handle-key event f2 f1] return button "Calculate" [ tt/text: to-string ((to-integer f1/text) + (to-integer f2/text)) ] button "Quit" [quit] do [win: self win/selected: f1] ]