DataMuseum.dk

top - download

    Length: 1029 (0x405)
    Types: TextFile
    Notes: @(#)Menu.choices 13.1 (RC International) 91/07/25
    Names: »Menu.choices«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/edmenu/Menu.choices« 

TextFile

#	@(#)Menu.choices	13.1 (RC International) 91/07/25

#ident	"@(#)oamintf:edsysadm/Menu.choices	1.2"
################################################################################
#	Module Name: Menu.choices
#	Date: March 1988
#
#	INPUTS:	ARG1 --> menu/task form object suffix
#		ARG2 --> package description file
#		ARG3 --> menu/task flag
#			->chgmenu
#			->chgtask
#			->addmenu
#			->addtask
################################################################################
menu="$ARG1 descriptions"

framemsg=`readfile $INTFBASE/ssmenu.msg`

`sort $GETINFO | regex '^(.*)$0' 'name="$m0"
action=`set -l "Form_Choice=$m0";

	message -w "Retrieving information from \"$ARG2\" file.";

	getpkgdesc -n "$Form_Choice" "$ARG2" > $GETINFO;

	if [ $RET -eq 0 ];
	then
		set -l CMD="OPEN FORM $EDSYSADM/Form.$ARG1 $ARG3";
	else if [ "$RET" -eq 1 ];
	then
		set -l CMD="OPEN MENU $EDSYSADM/Menu.choices $OBJ";
	else
		set -l CMD="OPEN TEXT $EDSYSADM/Text.gpderr $RET";
	fi;
	fi`$CMD'`

name=
button=1
action=

name=
button=7
action=