NB. Shows vkey names

NB.*vkeyshow v shows vkey names

require 'gl2'
coinsert 'jgl2'

VKEYSHOW=: 0 : 0
pc vkeyshow closeok;
xywh 66 27 34 12;cc cancel button;cn "Close";
xywh 6 6 95 15;cc g isigraph;
xywh 6 28 42 10;cc s static;cn "";
pas 6 6;pcenter;
rem form end;
)

vkeyshow_run=: 3 : 0
NB. if. IFJAVA do.
NB.   wdinfo 'vkey not supported in Java' return.
NB. end.
wd VKEYSHOW
wd 'setfocus g'
clr=. 64 192 192
glrgb clr
glbrush''
glrect 0 0 1000 1000
glrgb clr
glbkcolor ''
glrgb 0 0 0
gltextcolor''
glfont '"MS Sans Serif" 8'
gltextxy 50 700
gltext 'Press keys to see the key numbers'
glshow''
wd 'pshow;'
)

vkeyshow_cancel_button=: 3 : 0
wd 'pclose;'
)

vkeyshow_g_char=: 3 : 0
a=. a. i. sysdata
wd 'set s *',":a
wd 'setfocus g'
)

vkeyshow_run''
