home *** CD-ROM | disk | FTP | other *** search
- #include <stdio.h>
- #include <sys/types.h>
- #include <sys/stat.h>
- #include <sys/dir.h>
- #include <sys/param.h>
- #include <X11/Intrinsic.h>
- #include <X11/Cardinals.h>
- #include <X11/List.h>
- #include <X11/StringDefs.h>
- #include "Browser.h"
-
-
- Arg args[20];
- Widget toplevel;
-
- static XrmOptionDescRec options[] = {
- {"-label", "*label", XrmoptionSepArg, NULL}
- };
-
-
- void Syntax(call)
- char *call;
- {
- (void) fprintf( stderr, "Usage: %s\n", call );
-
- return;
- }
-
-
- static void ss(wi, client_data, call_data)
- Widget wi;
- caddr_t client_data;
- caddr_t call_data;
- {
- (void) fprintf(stderr, "select %s\n", call_data);
-
- return;
- }
-
- static void cc(wi, client_data, call_data)
- Widget wi;
- caddr_t client_data;
- caddr_t call_data;
- {
- extern Widget toplevel;
-
- (void) fputs("cancel\n", stderr);
-
- XtDestroyWidget(toplevel);
-
- exit(0);
- }
-
- static void dd(wi, client_data, call_data)
- Widget wi;
- caddr_t client_data;
- caddr_t call_data;
- {
- (void) fprintf(stderr, "all is dead\n");
-
- return;
- }
-
- static Boolean tt(d)
- struct direct *d;
- {
- return !(d->d_name[0] == '.' && d->d_name[1]==0);
- }
-
- void main(argc, argv)
- unsigned int argc;
- char **argv;
- {
- register Cardinal n;
- Widget L_widget;
- extern Widget toplevel;
-
- static XtCallbackRec cancel_call[] = {
- { cc, (caddr_t) NULL},
- {(XtCallbackProc) NULL, (caddr_t) NULL}
- };
-
- static XtCallbackRec destroy_call[] = {
- { dd, (caddr_t) NULL},
- {(XtCallbackProc) NULL, (caddr_t) NULL}
- };
-
- static XtCallbackRec list_call[] = {
- { ss, (caddr_t) NULL},
- {(XtCallbackProc) NULL, (caddr_t) NULL}
- };
-
- toplevel = XtInitialize( NULL, "XLabel",
- options, XtNumber(options),
- &argc, argv );
-
- n = ZERO;
- XtSetArg(args[n], XtNvalue, "/usr"); n++;
- XtSetArg(args[n], XtNopenCallback, list_call); n++;
- XtSetArg(args[n], XtNcancelCallback,cancel_call); n++;
- XtSetArg(args[n], XtNheight, 350); n++;
- XtSetArg(args[n], XtNwidth, 400); n++;
- XtSetArg(args[n], XtNfunction, tt); n++;
- XtSetArg(args[n], XtNdestroyCallback, destroy_call); n++;
-
- L_widget = XtCreateManagedWidget( "browser", browserWidgetClass,
- toplevel, args, n );
-
-
- XtRealizeWidget(toplevel);
- XtMainLoop();
- }
-