Home | History | Annotate | Line # | Download | only in testm
menus.mc revision 1.2
      1  1.2  phil /*	$NetBSD: menus.mc,v 1.2 1997/11/09 20:59:20 phil Exp $	*/
      2  1.1  phil 
      3  1.1  phil /*
      4  1.1  phil  * Copyright 1997 Piermont Information Systems Inc.
      5  1.1  phil  * All rights reserved.
      6  1.1  phil  *
      7  1.1  phil  * Written by Philip A. Nelson for Piermont Information Systems Inc.
      8  1.1  phil  *
      9  1.1  phil  * Redistribution and use in source and binary forms, with or without
     10  1.1  phil  * modification, are permitted provided that the following conditions
     11  1.1  phil  * are met:
     12  1.1  phil  * 1. Redistributions of source code must retain the above copyright
     13  1.1  phil  *    notice, this list of conditions and the following disclaimer.
     14  1.1  phil  * 2. Redistributions in binary form must reproduce the above copyright
     15  1.1  phil  *    notice, this list of conditions and the following disclaimer in the
     16  1.1  phil  *    documentation and/or other materials provided with the distribution.
     17  1.1  phil  * 3. All advertising materials mentioning features or use of this software
     18  1.1  phil  *    must display the following acknowledgement:
     19  1.1  phil  *      This product includes software develooped for the NetBSD Project by
     20  1.1  phil  *      Piermont Information Systems Inc.
     21  1.1  phil  * 4. The name of Piermont Information Systems Inc. may not be used to endorse
     22  1.1  phil  *    or promote products derived from this software without specific prior
     23  1.1  phil  *    written permission.
     24  1.1  phil  *
     25  1.1  phil  * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
     26  1.1  phil  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     27  1.1  phil  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     28  1.1  phil  * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
     29  1.1  phil  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
     30  1.1  phil  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
     31  1.1  phil  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
     32  1.1  phil  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
     33  1.1  phil  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
     34  1.1  phil  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
     35  1.1  phil  * THE POSSIBILITY OF SUCH DAMAGE.
     36  1.1  phil  *
     37  1.1  phil  */
     38  1.1  phil 
     39  1.1  phil {
     40  1.1  phil 
     41  1.1  phil /* Initial code for definitions and includes. */
     42  1.1  phil 
     43  1.1  phil }
     44  1.1  phil 
     45  1.1  phil default x=20, y=10;
     46  1.2  phil 
     47  1.2  phil error action { fprintf (stderr, "Testm: Could not initialize curses.\n");
     48  1.2  phil 	       exit(1); };
     49  1.1  phil 
     50  1.1  phil menu root, title "  Main Menu of Test System";
     51  1.1  phil 	option  "Do nothing option",
     52  1.1  phil 		action  { }
     53  1.1  phil 	;
     54  1.1  phil 	option  "Try a sub menu",
     55  1.1  phil 		sub menu  submenu
     56  1.1  phil 	;
     57  1.1  phil 	option  "Run a shell...",
     58  1.1  phil 		action (endwin) { system ("/bin/sh"); }
     59  1.1  phil 	;
     60  1.1  phil 	exit action (endwin)  { printf ("Thanks for playing\n"); };
     61  1.1  phil 
     62  1.1  phil 
     63  1.1  phil menu submenu, title "  submenu test";
     64  1.1  phil 	option  "upper right", sub menu  upperright;
     65  1.1  phil 	option  "lower right", sub menu  lowerleft;
     66  1.1  phil 	option  "middle, no title", sub menu middle;
     67  1.1  phil 
     68  1.1  phil menu upperright, title "upper right", y=2, x=60, no exit;
     69  1.1  phil 	option  "Just Exit!", exit;
     70  1.1  phil 
     71  1.1  phil menu lowerleft, title "lower left", y=20, x=2, no exit;
     72  1.1  phil 	option  "Just Exit!", exit;
     73  1.1  phil 
     74  1.1  phil menu middle, no box;
     75  1.1  phil 	option "Just Exit!", exit;
     76  1.1  phil 
     77