DataMuseum.dk

top - download

    Length: 911 (0x38f)
    Types: TextFile
    Names: »XNEWS3_USER_COMMANDS«

└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦5d656759a⟧ 
            └─⟦this⟧ 

TextFile

-- This is a template for changing key bindings for the XNews3 keyboard.
-- Installing this procedure, with the desired case entries, will change the
-- actions caused by those keys for any sessions that are created with 
-- visibility to this procedure.

with XNews3_Key_Names;

procedure XNews3_Commands is 
    use XNews3_Key_Names;

    type Intent is (Prompt, Execute, Interrupt);

    Action : Intent;

    Key_1  : Key_Names;
    Key_2  : Key_Names;
         

begin
    case Action is

        when Prompt => 
            case Key_1 is
                when others => null;
            end case;

        when Execute => 
            case Key_1 is
                when others => null;
            end case;                         
            
        when Interrupt =>
            case Key_1 is
                when others => null;
            end case;
            
    end case;

end XNews3_Commands;