xref: /freebsd/contrib/dialog/samples/radiolist4 (revision 4c8945a06b01a5c8122cdeb402af36bb46a06acc)
1*4c8945a0SNathan Whitehorn#! /bin/sh
2*4c8945a0SNathan Whitehorn# $Id: radiolist4,v 1.9 2010/01/13 10:20:03 tom Exp $
3*4c8945a0SNathan Whitehorn
4*4c8945a0SNathan Whitehorn. ./setup-vars
5*4c8945a0SNathan Whitehorn
6*4c8945a0SNathan Whitehorn. ./setup-tempfile
7*4c8945a0SNathan Whitehorn
8*4c8945a0SNathan Whitehorn$DIALOG --help-button --help-label "Hints" --item-help --ok-label Okay \
9*4c8945a0SNathan Whitehorn	--cancel-label 'Give Up' \
10*4c8945a0SNathan Whitehorn	--backtitle "No Such Organization" \
11*4c8945a0SNathan Whitehorn	--title "RADIOLIST BOX" --clear "$@" \
12*4c8945a0SNathan Whitehorn        --radiolist "Hi, this is a radiolist box. You can use this to \n\
13*4c8945a0SNathan Whitehornpresent a list of choices which can be turned on or \n\
14*4c8945a0SNathan Whitehornoff. If there are more items than can fit on the \n\
15*4c8945a0SNathan Whitehornscreen, the list will be scrolled. You can use the \n\
16*4c8945a0SNathan WhitehornUP/DOWN arrow keys, the first letter of the choice as a \n\
17*4c8945a0SNathan Whitehornhot key, or the number keys 1-9 to choose an option. \n\
18*4c8945a0SNathan WhitehornPress SPACE to toggle an option on/off. \n\n\
19*4c8945a0SNathan Whitehorn  Which of the following are fruits?" 20 61 5 \
20*4c8945a0SNathan Whitehorn        "Apple"  "It's an apple." off "Hint: this grows in a tree" \
21*4c8945a0SNathan Whitehorn        "Dog"    "No, that's not my dog." ON "Hint: this likes trees" \
22*4c8945a0SNathan Whitehorn        "Orange" "Yeah, that's juicy." off "Hint: this is green when picked" \
23*4c8945a0SNathan Whitehorn        "Chicken"    "Normally not a pet." off "Hint: not often in trees" \
24*4c8945a0SNathan Whitehorn        "Cat"    "No, never put a dog and a cat together!" off "Hint: may be found in trees" \
25*4c8945a0SNathan Whitehorn        "Fish"   "Cats like fish." off "Hint: usually not close to cats" \
26*4c8945a0SNathan Whitehorn        "Lemon"  "You know how it tastes." off "Hint: like an orange" 2> $tempfile
27*4c8945a0SNathan Whitehorn
28*4c8945a0SNathan Whitehornretval=$?
29*4c8945a0SNathan Whitehorn
30*4c8945a0SNathan Whitehorn. ./report-tempfile
31