If you'd like to play around with how Factor receives various inputs, including the keyboard events, you can run the gesture-logger debug tool. It prints out a log of all gestures received by the window so you can see mouse movement, mouse clicks, key-up, key-down, etc:
IN: scratchpad "gesture-logger" run I don't have a keyboard with a separate numeric pad with me to test, but I find that behavior odd. See if the gesture logger has the same behavior, and also, whether a key-up is ever generated for those keys. On some platforms, you might see several key-down before a key-up for repeated keys (like holding down a letter to type it several times). Best, John. On Thu, Mar 7, 2019 at 5:01 PM KUSUMOTO Norio <kusum...@na.rim.or.jp> wrote: > Hello all, > > I noticed my program didn’t execute key-up hook words which were for some > keys > in numeric keypad on my Windows machine. It’s OK on my Mac. > For example, so is the 1 key which is in numeric keypad. But, the normal > 1 key is OK. > > When the 1 key which is in numeric keypad is hit several times, the app > written below > shows “down down down ...”. > But when the normal 1 key is hit, it shows “down up! down up! down up! …”. > > > test-key-up.factor : > > USING: > kernel models namespaces accessors sequences > ui ui.gadgets ui.gestures ui.commands > ui.gadgets.worlds ui.gadgets.labels ui.gadgets.tracks ; > > IN: test-key-up > > TUPLE: key-status < model ; > > : <key-status> ( -- model ) > "" key-status new-model ; > > SYMBOL: key-status-label > <key-status> key-status-label set-global > > TUPLE: key-up-gadget < track ; > > : <key-up-gadget> ( -- gadget ) > vertical key-up-gadget new-track > > key-status-label get-global <label-control> > f track-add ; > > : key-down-1 ( gadget -- ) > drop > key-status-label get-global > dup value>> "down " append swap set-model ; > > : key-up-1 ( gadget -- ) > drop > key-status-label get-global > dup value>> "up! " append swap set-model ; > > : key-up-RET ( gadget -- ) > drop > "" key-status-label get-global set-model ; > > key-up-gadget "gestures" f { > { T{ key-down f f "1" } key-down-1 } > { T{ key-up f f "1" } key-up-1 } > { T{ key-up f f "RET" } key-up-RET } > } define-command-map > > M: key-up-gadget pref-dim* drop { 800 50 } ; > > MAIN-WINDOW: key-up-window { > { title "key-up test hit 1 key (RET: clear)" } > { window-controls > { normal-title-bar close-button minimize-button } } > } <key-up-gadget> >>gadgets ; > > > > > -- > KUSUMOTO Norio > > > > > > > > _______________________________________________ > Factor-talk mailing list > Factor-talk@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/factor-talk >
_______________________________________________ Factor-talk mailing list Factor-talk@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/factor-talk