1*ce321bb0Sblymninclude window 2*ce321bb0Sblymncall $FALSE is_keypad $win1 3*ce321bb0Sblymninput "\eOA" 4*ce321bb0Sblymncall 0x1b wgetch $win1 5*ce321bb0Sblymncall OK keypad $win1 $TRUE 6*ce321bb0Sblymninput "\eOA" 7*ce321bb0Sblymncall $KEY_UP wgetch $win1 8*ce321bb0Sblymn 9*ce321bb0Sblymn# disable assembly of KEY_UP; other multi-character keys should work 10*ce321bb0Sblymncall OK keyok $KEY_UP $FALSE 11*ce321bb0Sblymninput "\eOA" 12*ce321bb0Sblymncall 0x1b wgetch $win1 13*ce321bb0Sblymnnoinput 14*ce321bb0Sblymncall Ox4f wgetch $win1 15*ce321bb0Sblymnnoinput 16*ce321bb0Sblymncall 0x41 wgetch $win1 17*ce321bb0Sblymninput "\eOB" 18*ce321bb0Sblymncall $KEY_DOWN wgetch $win1 19