Click above to get retro games delivered to your door ever month!

Syntax

DO_IT( nChoice, aPrompts, aMsgs, aUdfs[, nRow1 ] )

Purpose

Generalised program executor based on ring menus.

Arguments

     nChoice -- default menu to; reflects value of chosen option

     aPrompts -- array of cues

     aMsgs -- array of messages

     aUdfs -- array of code blocks or udfs to execute

     nRow1 -- if passed, row on which to show menu, defaults to 0

Setup

If udfs is an array of strings to be macro-executed, functions listed
in them must be declared EXTERNAL. We suggest that you use code blocks
instead.

Example

     LOCAL cues := { " Arguments ", " Abuse ", ;
                     " Vacillate " }, ;
     udfs := { ;
         { || POP_MSG( "You don't wanna argue" ) }, ;
         { || VERIFY( "You disgusting vermin" ) }, ;
         { || YESNO( "No kidding, hurry up") } }, ;
     choice := 1

     ? choice := DO_IT( choice, cues, .F., udfs )

Returns

Number of menu selection (or 0 if ESC pressed)

Side Effects

None.

Artful Calls

L_MENU

Source File

AA_DOIT.PRG