Home | History | Annotate | Line # | Download | only in testm
menus.mc revision 1.3 
      1 /*	$NetBSD: menus.mc,v 1.3 1998/06/24 06:46:25 phil Exp $	*/
      2 
      3 /*
      4  * Copyright 1997 Piermont Information Systems Inc.
      5  * All rights reserved.
      6  *
      7  * Written by Philip A. Nelson for Piermont Information Systems Inc.
      8  *
      9  * Redistribution and use in source and binary forms, with or without
     10  * modification, are permitted provided that the following conditions
     11  * are met:
     12  * 1. Redistributions of source code must retain the above copyright
     13  *    notice, this list of conditions and the following disclaimer.
     14  * 2. Redistributions in binary form must reproduce the above copyright
     15  *    notice, this list of conditions and the following disclaimer in the
     16  *    documentation and/or other materials provided with the distribution.
     17  * 3. All advertising materials mentioning features or use of this software
     18  *    must display the following acknowledgement:
     19  *      This product includes software develooped for the NetBSD Project by
     20  *      Piermont Information Systems Inc.
     21  * 4. The name of Piermont Information Systems Inc. may not be used to endorse
     22  *    or promote products derived from this software without specific prior
     23  *    written permission.
     24  *
     25  * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
     26  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     27  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     28  * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
     29  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     30  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     31  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     32  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     33  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     34  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
     35  * THE POSSIBILITY OF SUCH DAMAGE.
     36  *
     37  */
     38 
     39 {
     40 
     41 /* Initial code for definitions and includes. */
     42 
     43 }
     44 
     45 default x=20, y=10;
     46 
     47 error action { fprintf (stderr, "Testm: Could not initialize curses.\n");
     48 	       exit(1); };
     49 
     50 menu root, title "  Main Menu of Test System";
     51 	option  "Do nothing option",
     52 		action  { }
     53 	;
     54 	option  "Try a sub menu",
     55 		sub menu  submenu
     56 	;
     57 	option  "Run a shell...",
     58 		action (endwin) { system ("/bin/sh"); }
     59 	;
     60 	exit action (endwin)  { printf ("Thanks for playing\n"); };
     61 	help {
     62                     Main Menu Help Screen
     63 
     64 This is help text for the main menu of the menu test system.  This
     65 text should appear verbatim when asked for by use of the ? key by
     66 the user.  This should allow scrolling, if needed.  If the first
     67 character in the help is the newline (as the case for this help),
     68 then that newline is not included in the help text.
     69 
     70 Now this tests lines for scrolling:
     71 10
     72 11
     73 12
     74 13
     75 14
     76 15
     77 16
     78 17
     79 18
     80 19
     81 20
     82 21
     83 22
     84 23
     85 24
     86 25
     87 26
     88 27
     89 28
     90 29
     91 30
     92 31
     93 32
     94 33
     95 34
     96 35
     97 36
     98 37
     99 38
    100 39
    101 40
    102 41
    103 42
    104 43
    105 44
    106 45
    107 46
    108 47
    109 48
    110 49
    111 50
    112 51
    113 52
    114 53
    115 54
    116 55
    117 56
    118 57
    119 58
    120 59
    121 60
    122 61
    123 62
    124 63
    125 64
    126 65
    127 66
    128 67
    129 68
    130 69
    131 70
    132 71
    133 72
    134 73
    135 74
    136 75
    137 76
    138 77
    139 78
    140 79
    141 80
    142 };
    143 
    144 menu submenu, title "  submenu test";
    145 	option  "upper right", sub menu  upperright;
    146 	option  "lower right", sub menu  lowerleft;
    147 	option  "middle, no title", sub menu middle;
    148 
    149 menu upperright, title "upper right", y=2, x=60, no exit;
    150 	option  "Just Exit!", exit;
    151 
    152 menu lowerleft, title "lower left", y=20, x=2, no exit;
    153 	option  "Just Exit!", exit;
    154 
    155 menu middle, no box;
    156 	option "Just Exit!", exit;
    157 
    158