/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License, Version 1.0 only * (the "License"). You may not use this file except in compliance * with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */ /* All Rights Reserved */ /* * Copyright (c) 1985 AT&T * All Rights Reserved */ #ident "%Z%%M% %I% %E% SMI" /* SVr4.0 1.8 */ #include <stdio.h> #include "wish.h" #include "token.h" #include "slk.h" #include "actrec.h" #include "terror.h" #include "ctl.h" #include "menudefs.h" #include "vtdefs.h" #include "moremacros.h" extern menu_id menu_make(); static int list_ctl(a, cmd, arg1, arg2, arg3, arg4, arg5, arg6) struct actrec *a; int cmd, arg1, arg2, arg3, arg4, arg5, arg6; { struct actrec *menline_to_ar(); if (cmd == CTGETARG) { int line; struct actrec *rec, *menline_to_ar(); (void) menu_ctl(a->id, CTGETPOS, &line); rec = menline_to_ar(line); **((char ***)(&arg1)) = strsave(rec->path); return(SUCCESS); } else return(menu_ctl(a->id, cmd, arg1, arg2, arg3, arg4, arg5, arg6)); } static token list_odsh(a, t) struct actrec *a; token t; { int line; struct actrec *menline_to_ar(); extern int Arg_count; t = menu_stream(t); if ((t == TOK_OPEN || t == TOK_ENTER) && Arg_count <= 1) { (void) menu_ctl(a->id, CTGETPOS, &line); ar_current(menline_to_ar(line), TRUE); /* abs k15 */ t = TOK_NOP; } else if (t == TOK_CANCEL) { ar_backup(); t = TOK_NOP; } else if (t == TOK_NEXT) t = TOK_NOP; /* returned when new item is navigated to */ return(t); } static int list_help(a) struct actrec *a; { return(objop("OPEN", "TEXT", "$VMSYS/OBJECTS/Text.mfhelp", "T.m.frmlist", "Frame List", NULL)); } int list_create() { struct actrec a; struct menu_line ar_menudisp(); a.id = (int) menu_make(-1, "Open Frames", VT_NONUMBER | VT_CENTER, VT_UNDEFINED, VT_UNDEFINED, 0, 0, ar_menudisp, NULL); ar_menu_init(&a); a.fcntbl[AR_CTL] = list_ctl; a.fcntbl[AR_HELP] = list_help; a.fcntbl[AR_ODSH] = (int (*)())list_odsh; /* added cast abs 9/9/88 */ a.flags = 0; return(ar_current(ar_create(&a), FALSE)); /* abs k15 */ }