Defining a dialogue box.
ArborX


Summary
An example of the wdb variable being used to define a dialogue box.

The example below shows a simple use of the ^wdb variable, along with ? macros, in a stripped down version of the script used in stuk.3ad to define the search/replace dialogue box.

 "ts", "320" 1
 $defstr 349,"@/ @|Search / Replace\n"<> 2
 $addstr 349,"--\n"<> 3
 $addstr 349,"Search for:\n"<> 4
 $addstr 349," ^_sr_s_str%1..40sn!?7,@\\\\%d\\\\!\n"<> 5
 $addstr 349,"Replace with (blank for Search only):\n"<> 6
 $addstr 349," ^_sr_r_str%0..40sn!?7,@\\\\%d\\\\!\n"<> 7
 $addstr 349,"Options: ^_sr_o_str%0..20snx!348!\n"<> 8
 $addstr 349,"--\n"<> 9
 $addstr 349,"|Keep above settings: ^_sr_k_keep%0..1B[Yes] [No]\n"<> 10
 $addstr 349,"--\n"<> 11
 $addstr 349,"|%2..1e [OK] [Cancel]"<> 12
 $defstr 348,"Search/Replace Options:\n"<> 13
 $addstr 348," t -- start from Top|@t\n"<> 14
 . . . . 15
 $addstr 348," num repeat num times\n"<> 16
 #if REGEXPS 17
 $addstr 348,"Standard search:\n"<> 18
 #endif 19
 $addstr 348," ? -- wildcard ? on|@?\n"<> 20
 $addstr 348," [ -- search/insert|@[\n"<> 21
 $addstr 348," ] -- search/append|@]\n"<> 22
 #if REGEXPS 23
 $addstr 348,"Regular expressions:\n"<> 24
 $addstr 348," r -- normal|@r\n"<> 25
 $addstr 348," x -- eXtended . matching|@x\n"<> 26
 #endif 27
 $wdb 349<> 28
 $^wdb----<> 29
 $?0^wdb trun 0<> 30
 $^blank=<> 31
 $?=^_sr_r_str,^blank /^_sr_s_str/^_sr_o_str^<> 32
 $?+^_sr_r_str,^blank /^_sr_s_str/^_sr_r_str/^_sr_o_str^<> 33

Document created on 08-Feb-2003 (revision 1)