1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
/*****************************************************************************
* File Name: swisswatch.c
* Description: Swiss X Watch
* Author: Simon Leinen (simon@liasun5)
* Date Created: 10-Mar-92
* RCS $Header$
* RCS $Log$
****************************************************************************/
#include <X11/Intrinsic.h>
#include <X11/StringDefs.h>
#include "SwissWatch.h"
#include <stdio.h>
#include <stdlib.h>
#if NeedFunctionPrototypes
static Widget initialize_user_interface(int*argcp,char**argv);
static void quit(Widget,XEvent *,String *,Cardinal *);
#else /* not NeedFunctionPrototypes */
static Widget initialize_user_interface();
static void quit();
#endif /* not NeedFunctionPrototypes */
extern int
main(argc, argv)
int argc;
char *argv[];
{
(void) initialize_user_interface(& argc, argv);
XtMainLoop();
return 0;
}
static XrmOptionDescRec options[] =
{
{"-fg", "*Foreground", XrmoptionSepArg, NULL},
{"-bg", "*Background", XrmoptionSepArg, NULL},
{"-foreground", "*Foreground", XrmoptionSepArg, NULL},
{"-background", "*Background", XrmoptionSepArg, NULL},
{"-tick", "*swissWatch.tickTime", XrmoptionSepArg, NULL},
{"-railroad", "*swissWatch.railroad", XrmoptionNoArg, (XtPointer)"True"},
{"-sbb", "*swissWatch.railroad", XrmoptionNoArg, (XtPointer)"True"},
{"-cff", "*swissWatch.railroad", XrmoptionNoArg, (XtPointer)"True"},
{"-ffs", "*swissWatch.railroad", XrmoptionNoArg, (XtPointer)"True"},
{"-noshape", "*swissWatch.shapeWindow", XrmoptionNoArg, (XtPointer)"False"},
{"-circular", "*swissWatch.circular", XrmoptionNoArg, (XtPointer)"True"},
};
static XtActionsRec actions[] = {
{"quit", quit},
};
static Atom wm_delete_window;
static Widget
initialize_user_interface(argcp, argv)
int * argcp;
char ** argv;
{
Widget top_level;
XtAppContext app_c;
top_level = XtInitialize(argv[0], "SwissWatch",
options, XtNumber(options),
argcp, argv);
if (* argcp != 1)
{
fprintf (stderr, "usage: %s [toolkitoptions ...]\n", argv[0]);
exit (42);
}
app_c = XtWidgetToApplicationContext(top_level);
XtAppAddActions(app_c, actions, XtNumber(actions));
XtVaCreateManagedWidget("swissWatch",
swissWatchWidgetClass, top_level, NULL);
XtRealizeWidget(top_level);
XtOverrideTranslations
(top_level, XtParseTranslationTable ("<Message>WM_PROTOCOLS: quit()"));
wm_delete_window = XInternAtom(XtDisplay(top_level), "WM_DELETE_WINDOW",
False);
(void) XSetWMProtocols (XtDisplay(top_level), XtWindow(top_level),
&wm_delete_window, 1);
return top_level;
}
static void quit(w, event, params, num_params)
Widget w;
XEvent *event;
String *params;
Cardinal *num_params;
{
if (event->type == ClientMessage &&
event->xclient.data.l[0] != wm_delete_window) {
XBell(XtDisplay(w), 0);
} else {
XCloseDisplay(XtDisplay(w));
exit(0);
}
}
|
