代码之家 › 专栏 › 技术社区 › rnso

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

red rebol textbox user-interface

rnso · 技术社区 · 7 年前

我有以下简单代码:

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中有效( http://www.rebol.com/how-to/fields.html )但他不在这里工作。

1 回复 | 直到 5 年前

sqlab 7 年前

相符合的 gitter archive

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]
]

推荐文章

ftl · Rebol:块字的动态绑定

7 年前

user310291 · 有红色的解析行“”的等价物吗?

7 年前

user310291 · 将Rebol csv工具转换为红色

7 年前

user310291 · 将%%替换为<!-->

7 年前

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

7 年前

rnso · Rebol中的彩色文本控制台输出

7 年前

rnso · 为什么这个简单的红色计算的答案是错误的

7 年前

rnso · 如何在红色语言中打印双引号符号

7 年前

rnso · 以红色语言将多个列表中的值转换为一个列表

7 年前

rnso · 从红色语言的字符串中删除特殊字符

7 年前