ado@elsie.UUCP (Arthur David Olson) (02/13/90)
My father (Merrill Arthur) keeps clocks and watches five minutes ahead of
"real time" to avoid being late for appointments. The trick has never worked
for me, but if it works for you, the needed changes to "oclock" are attached.
--
Arthur David Olson ado@alw.nih.gov ADO is a trademark of Ampex.
*** 1.1/mit/clients/oclock/Clock.h Mon Feb 12 16:44:03 1990
--- 1.2/mit/clients/oclock/Clock.h Mon Feb 12 16:44:04 1990
***************
*** 16,19 ****
--- 16,20 ----
Name Class RepType Default Value
---- ----- ------- -------------
+ ahead Interval int 0 (seconds)
background Background pixel White
border BorderColor pixel Black
***************
*** 33,36 ****
--- 34,38 ----
#define XtNhour "hour"
#define XtNjewel "jewel"
+ #define XtNahead "ahead"
#ifdef SHAPE
*** 1.1/mit/clients/oclock/ClockP.h Mon Feb 12 16:44:06 1990
--- 1.2/mit/clients/oclock/ClockP.h Mon Feb 12 16:44:07 1990
***************
*** 14,17 ****
--- 14,18 ----
/* New fields for the clock widget instance record */
typedef struct {
+ int ahead; /* seconds to run ahead of true time */
Pixel minute; /* minute hand pixel */
Pixel hour; /* hour hand pixel */
*** 1.1/mit/clients/oclock/Clock.c Mon Feb 12 16:44:09 1990
--- 1.2/mit/clients/oclock/Clock.c Mon Feb 12 16:44:09 1990
***************
*** 20,23 ****
--- 20,25 ----
static XtResource resources[] = {
+ {XtNahead, XtCInterval, XtRInt, sizeof(int),
+ offset(ahead), XtRImmediate, (caddr_t) 0 },
{XtNwidth, XtCWidth, XtRDimension, sizeof(Dimension),
goffset(width), XtRString, "120"},
***************
*** 349,352 ****
--- 351,355 ----
}
(void) time (&now);
+ now += w->clock.ahead;
tm = localtime (&now);
if (tm->tm_hour >= 12)
*** 1.1/mit/clients/oclock/oclock.c Mon Feb 12 16:44:13 1990
--- 1.2/mit/clients/oclock/oclock.c Mon Feb 12 16:44:13 1990
***************
*** 31,34 ****
--- 31,36 ----
" [-minute {color}] [-hour {color}] [-jewel {color}]\n");
fprintf(stderr,
+ " [-ahead {seconds}]\n");
+ fprintf(stderr,
" [-backing {backing-store}]\n");
exit(1);
***************
*** 44,47 ****
--- 46,50 ----
{"-jewel", "*clock.jewel", XrmoptionSepArg, NULL},
{"-backing", "*clock.backingStore", XrmoptionSepArg, NULL},
+ {"-ahead", "*clock.ahead", XrmoptionSepArg, NULL},
#ifdef SHAPE
{"-shape", "*clock.shapeWindow", XrmoptionNoArg, "TRUE"},
*** 1.1/mit/clients/oclock/oclock.man Mon Feb 12 16:44:16 1990
--- 1.2/mit/clients/oclock/oclock.man Mon Feb 12 16:44:16 1990
***************
*** 44,47 ****
--- 44,50 ----
causes the clock to not reshape itself and ancestors to exactly
fit the outline of the clock.
+ .TP 8
+ .B \-ahead \fIseconds\fB
+ causes the clock to run the given number of seconds ahead of true time.
.SH COLORS
Although the default colors for the Clock widget are black and white, therusty@garnet.berkeley.edu (rusty wright) (02/13/90)
Can the "ahead" value be negative? I always like to be late. -- -------------------------------------- rusty c. wright rusty@violet.berkeley.edu ucbvax!violet!rusty