Section Header

    + name := INPUT_KEYBOARD;

    - comment :="X11 - Keyboard Driver";

    - version := 1;

    - date :="2003/04";

Section Inherit

    + parent_input:Expanded INPUT;

Section Public

Get Character (Interrupt #21)


    - key key:UINTEGER_8 press p:BOOLEAN <-

Section Public

    - make <-
        Install keyboard.

    - get_event <-

    - get_key:UINTEGER_16 <-
        Use without interface running: text mode

Guru section.


    - acknowledge <-

Key code generate.

0:CTRL 1:AltGr 2:Alt 3:Cmd 4:Shift 5:Cap 6:NumLock 7:Scrolllock

    - key_ctrl :UINTEGER_16 :=

    - key_alt_gr:UINTEGER_16 :=

    - key_alt :UINTEGER_16 :=

    - key_of c:CHARACTER :UINTEGER_16 <-

    - key_to_string k:UINTEGER_16 :STRING <-