A: просто, чувство вовлечения срабатывает только для ключевых событий, когда лицо является фокусным лицом.
здесь - частичная перезапись вашего приложения (также более быстрая и удобочитаемая), в котором используется глобальный обработчик событий и «ПЕРЕКЛЮЧАТЕЛИ вместо» IF.
Обработчик ввода получает ВСЕ события ВСЕХ окон и может использоваться для выполнения глобальных трюков, таких как горячие клавиши.
очевидно, вы можете улучшить обработчик событий, чтобы он определял каждое окно и определял, где находится мышь, чтобы включать клавиши только тогда, когда это необходимо. Вы также можете создать альтернативное отслеживание фокуса, которое работает вне обычной обработки и не входит в режим редактирования текста.
Я добавил поле выше, чтобы вы могли поэкспериментировать с эффектом активизации сфокусированного лица и с тем, как его обнаружить в обработчике событий.
rebol []
plot: []
data: reduce [ ]
refresh: func [/local clr delta prev-pos pos] [
clear plot
prev-pos: 0x300
foreach [clr delta] data [
pos: prev-pos + (delta * 0x1) + 7x0
append plot compose [
pen (clr) line (prev-pos) (pos) fill-pen (clr) pen none circle dot-size (pos)
]
prev-pos: pos
]
show panel1
]
add-data: func [i][loop i [append data reduce [(random white * .85) + (white * .15) (-20 + random 40)]] refresh]
grid: [800 600]
step-grid: 5
max-n-points: (grid/1 / step-grid) - 1
x-axis-border: 20
Y-margin: 10
X0: 5
grid-color: coal
dot-size: 1
; open up console before vid window
prin "!"
main: layout [
origin 20x0
space 1x1
field 800
panel1: box 800x580 black effect [
line-pattern 4 4
grid 30x30 0x0 grid-color
draw plot
] feel [
engage: func [face action event] [
switch action [
down [
drag-start: event/offset
]
up [
drag-end: event/offset
scroll-size: to-integer abs ((pick (drag-start - drag-end) 1) / 5)
]
]
]
]
panel2: box 800x0 black
panel3: box 800x20 black
]
insert-event-func [
either all [
event/type = 'key
none? system/view/focal-face
][
print ["shortcut: " event/key]
switch event/key [
; escape
#"^[" [quit]
; enter/return
#"^M" [print "resampling data" clear data add-data 100]
up [dot-size: dot-size + 1 show panel1]
down [dot-size: dot-size - 1 show panel1]
left [clear skip tail plot -12 clear skip tail data -2 show panel1]
right [add-data 2]
]
none
][
event
]
]
add-data 100
refresh
view main
focus panel1
Обратите внимание, что нет необходимости уменьшать блок кода, когда вы используете слова внутри. VID автоматически разрешает ссылки на слова для вас, намного проще (и значительно быстрее) создавать динамические графические интерфейсы, как только вы это знаете. в качестве доказательства нажмите и удерживайте клавишу со стрелкой вверх или вниз, и вы увидите, что точки меняются довольно плавно, даже на полном графике.
Также обратите внимание, что возвращаемое значение функции-обработчика события - это событие, если вы хотите, чтобы view продолжал обрабатывать событие, или ничего, если ваш обработчик «потребляет» событие.
НТН!