21.19 Navigationkeys Interface

ORIGIN '~beta/basiclib/betaenv';
LIB_DEF 'guienvutilsnavkey' '../../lib';
BODY 'private/navigationkeysbody';
(*
 * COPYRIGHT
 *       Copyright (C) Mjolner Informatics, 1991-96
 *       All rights reserved.
 *)

-- lib: attributes --
leftArrow: 
  (# theChar: @char; ... exit theChar #);
rightArrow: 
  (# theChar: @char; ... exit theChar #);
upArrow: 
  (# theChar: @char; ... exit theChar #);
downArrow: 
  (# theChar: @char; ... exit theChar #)