#include <hwim.rh>
#include <hwim.rg>

RESOURCE ACLIST_ARRAY kmac_ac_intro
    {
    button =
        {
        PUSH_BUT
            {
            keycode=W_KEY_ESCAPE;
            str="Continue";
            },
        PUSH_BUT
            {
            keycode=W_KEY_RETURN;
            str="Help";
            }
        };
    }                  

RESOURCE DIALOG kmac_dl_intro
    {
    title="Keyboard macro support enabled";
    flags=DLGBOX_REPORT_ACT_HORIZ;
    controls=
        {
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_CENTRE|DLGBOX_ITEM_DEAD;
            info=TXTMESS
                {
                str="Kmac v0.91a - released 25th April 1994";
                flags=IN_TEXTWIN_AL_CENTRE;
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_CENTRE|DLGBOX_ITEM_DEAD;
            info=TXTMESS
                {
                str="Copyright ¸ Psion PLC 1994";
                flags=IN_TEXTWIN_AL_CENTRE;
                };
            },
        CONTROL
            {
            class=C_ACLIST;
            info=ACLIST { rid=kmac_ac_intro; };
            }
        };
    }

RESOURCE DIALOG kmac_dl_help
    {
    controls=
        {
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_CENTRE|DLGBOX_ITEM_DEAD;
            info=TXTMESS
                {
                str="Summary of Kmac keypresses";
                flags=IN_TEXTWIN_AL_CENTRE;
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_CENTRE|DLGBOX_ITEM_DEAD|DLGBOX_ITEM_UNDERLINED;
            info=TXTMESS
                {
                str="(use Control and Shift modifiers in each case)";
                flags=IN_TEXTWIN_AL_CENTRE;
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="Space";
            info=TXTMESS
                {
                str="Start or stop macro recording";
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="Enter";
            info=TXTMESS
                {
                str="Play back last macro recorded";
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="";
            info=TXTMESS
                {
                str="Select macro to play back";
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="A-Z";
            info=TXTMESS
                {
                str="Play back macro with this hot key";
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="Menu";
            info=TXTMESS
                {
                str="Review existing hot key assignments";
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="Esc";
            info=TXTMESS
                {
                str="Interrupt a macro playing back";
                };
            },
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_DEAD;
            prompt="Help";
            info=TXTMESS
                {
                str="Show this Help screen";
                };
            }
        };
    }

RESOURCE DIALOG kmac_dl_mac_name
    {
    title="Record keyboard macro";
    flags=DLGBOX_NOTIFY_ENTER|DLGBOX_RBUF_FILLED;
    controls=
        {
        CONTROL
            {
            class=C_EDWIN;
            prompt="Name for macro";
            info=EDWIN 
                { 
                flags=IN_EDWIN_VULEN_CHARACTERS;
                vulen=16;                       
                maxlen=23;
                };
            }
        };
    }

RESOURCE DIALOG kmac_dl_playback
    {
    title="Play back keyboard macro";
    flags=DLGBOX_NOTIFY_ENTER|DLGBOX_RBUF_FILLED;
    controls=
        {
        CONTROL
            {
            class=C_CHLIST;
            prompt="Macro name";
            info=CHLIST { };
            }
        };
    }

RESOURCE DIALOG kmac_dl_revise
    {
    title="Revise hot key for";
    flags=DLGBOX_NOTIFY_ENTER|DLGBOX_RBUF_FILLED;
    controls=
        {
        CONTROL
            {
            class=C_CHLIST;
            prompt="Macro name";
            info=CHLIST { };
            }
        };
    }

RESOURCE MENU kmac_mn_revising
    {
    items =
        {
        CHOICE_ITEM { str="<None>";},
        CHOICE_ITEM { str="A";},
        CHOICE_ITEM { str="B";},
        CHOICE_ITEM { str="C";},
        CHOICE_ITEM { str="D";},
        CHOICE_ITEM { str="E";},
        CHOICE_ITEM { str="F";},
        CHOICE_ITEM { str="G";},
        CHOICE_ITEM { str="H";},
        CHOICE_ITEM { str="I";},
        CHOICE_ITEM { str="J";},
        CHOICE_ITEM { str="K";},
        CHOICE_ITEM { str="L";},
        CHOICE_ITEM { str="M";},
        CHOICE_ITEM { str="N";},
        CHOICE_ITEM { str="O";},
        CHOICE_ITEM { str="P";},
        CHOICE_ITEM { str="Q";},
        CHOICE_ITEM { str="R";},
        CHOICE_ITEM { str="S";},
        CHOICE_ITEM { str="T";},
        CHOICE_ITEM { str="U";},
        CHOICE_ITEM { str="V";},
        CHOICE_ITEM { str="W";},
        CHOICE_ITEM { str="X";},
        CHOICE_ITEM { str="Y";},
        CHOICE_ITEM { str="Z";}
        };
    }

RESOURCE DIALOG kmac_dl_revising
    {
    title="Revising hot key";
    flags=DLGBOX_NOTIFY_ENTER|DLGBOX_RBUF_FILLED;
    controls=
        {
        CONTROL
            {
            class=C_CHLIST;
            prompt="Change hot key to";
            info=CHLIST { };
            }
        };
    }

RESOURCE ACLIST_ARRAY kmac_ac_confirm
    {
    button =
        {
        PUSH_BUT
            {
            keycode=W_KEY_ESCAPE;
            str="Cancel";
            },
        PUSH_BUT
            {
            keycode=W_KEY_SPACE;
            str="Overwrite";
            },
        PUSH_BUT
            {
            keycode=W_KEY_DELETE_LEFT;
            str="Delete";
            }
        };
    }                  

RESOURCE DIALOG kmac_dl_confirm
    {
    title="Name already exists";
    flags=DLGBOX_REPORT_ACT_HORIZ;
    controls=
        {
        CONTROL
            {
            class=C_ACLIST;
            info=ACLIST { rid=kmac_ac_confirm; };
            }
        };
    }

RESOURCE ACLIST_ARRAY kmac_ac_query
    {
    button =
        {
        PUSH_BUT
            {
            keycode=-'n';
            str="No";
            },
        PUSH_BUT
            {
            keycode='y';
            str="Yes";
            }
        };
    }                  

RESOURCE ACLIST_ARRAY kmac_ac_notify
    {
    button =
        {
        PUSH_BUT
            {
            keycode=W_KEY_ESCAPE;
            str="Continue";
            }
        };
    }                  

RESOURCE DIALOG kmac_dl_notify
    {
    title="*";
    flags=DLGBOX_REPORT_ACT_HORIZ;
    controls=
        {
        CONTROL
            {
            class=C_TEXTWIN;
            flags=DLGBOX_ITEM_CENTRE|DLGBOX_ITEM_DEAD;
            info=TXTMESS
                {
                str="#";
                flags=IN_TEXTWIN_AL_CENTRE;
                };
            },
        CONTROL
            {
            class=C_ACLIST;
            info=ACLIST { rid=kmac_ac_notify; };
            }
        };
    }