Searched refs:kbdStatus (Results 1 – 2 of 2) sorted by relevance
684 sub kbdStatus (;$) {unpack 'x[S]SSSS', &_kbdStatus} subroutine685 my @kbdStatus = qw(state turnChar intCharFlags shifts);688 @h{@kbdStatus} = &kbdStatus;694 my $o = pack 'x[S]SSSS', @h{@kbdStatus};695 $o = pack 'SSSSS', length $o, @h{@kbdStatus};
720 kbdStatus