http://ftp.x.org/contrib/applications/xscreensaver-2.34.tar.gz
[xscreensaver] / driver / lock.c
index 92137aa821a70ec9077d19dbf29cdb3d5dfb5fee..7a3ed6a259ffbf3ca1a6a5a6da6fdae625f8c64f 100644 (file)
-/*    xscreensaver, Copyright (c) 1993 Jamie Zawinski <jwz@lucid.com>
+/* lock.c --- handling the password dialog for locking-mode.
+ * xscreensaver, Copyright (c) 1993-1998 Jamie Zawinski <jwz@jwz.org>
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
  * documentation for any purpose is hereby granted without fee, provided that
  * the above copyright notice appear in all copies and that both that
  * copyright notice and this permission notice appear in supporting
  * documentation.  No representations are made about the suitability of this
- * software for any purpose.  It is provided "as is" without express or
+ * software for any purpose.  It is provided "as is" without express or 
  * implied warranty.
  */
 
-#if __STDC__
-#include <stdlib.h>
-#include <unistd.h>
-#include <string.h>
-#endif
+/* Athena locking code contributed by Jon A. Christopher <jac8782@tamu.edu> */
+/* Copyright 1997, with the same permissions as above. */
 
-#ifdef  HAVE_SHADOW
-#include <shadow.h>
+#ifdef HAVE_CONFIG_H
+# include "config.h"
 #endif
 
-#include <pwd.h>
-#include <stdio.h>
+#ifndef NO_LOCKING   /* whole file */
 
 #include <X11/Intrinsic.h>
+#include "xscreensaver.h"
+#include "resources.h"
 
-#if !__STDC__
-# define _NO_PROTO
+#ifdef _VROOT_H_
+ERROR!  You must not include vroot.h in this file.
 #endif
 
-#include <Xm/Xm.h>
-#include <Xm/List.h>
-#include <Xm/TextF.h>
+#ifndef VMS
+# include <pwd.h>
+#else /* VMS */
 
-#include "xscreensaver.h"
+extern char *getenv(const char *name);
+extern int validate_user(char *name, char *password);
 
-Time passwd_timeout;
-#ifndef NO_LOCKING
+static Bool
+vms_passwd_valid_p(char *pw)
+{
+  return (validate_user (getenv("USER"), typed_passwd) == 1);
+}
+# undef passwd_valid_p
+# define passwd_valid_p vms_passwd_valid_p
 
+#endif /* VMS */
 
-extern char *screensaver_version;
-extern char *progname;
-extern XtAppContext app;
-extern Bool verbose_p;
 
-extern Widget passwd_dialog;
-extern Widget passwd_form;
-extern Widget roger_label;
-extern Widget passwd_label1;
-extern Widget passwd_label3;
-extern Widget passwd_text;
-extern Widget passwd_done;
-extern Widget passwd_cancel;
+#undef MAX
+#define MAX(a,b) ((a)>(b)?(a):(b))
 
-extern create_passwd_dialog ();
+enum passwd_state { pw_read, pw_ok, pw_fail, pw_cancel, pw_time };
 
-static enum
-{
-  pw_read, pw_ok, pw_fail, pw_cancel, pw_time
-} passwd_state;
-static char typed_passwd[1024];
-
-static char root_passwd[255];
-static char user_passwd[255];
-
-#ifdef HAVE_SHADOW
-# define PWTYPE struct spwd *
-# define PWSLOT sp_pwdp
-# define GETPW  getspnam
-#else
-# define PWTYPE struct passwd *
-# define PWSLOT pw_passwd
-# define GETPW  getpwnam
-#endif
+struct passwd_dialog_data {
 
-Bool
-lock_init ()
-{
-  Bool ok = True;
-  char *u;
-  PWTYPE p = GETPW ("root");
+  enum passwd_state state;
+  char typed_passwd [80];
+  XtIntervalId timer;
+  int i_beam;
 
-  if (p && p->PWSLOT && p->PWSLOT[0] != '*')
-    strcpy (root_passwd, p->PWSLOT);
-  else
-  {
-    fprintf (stderr, "%s: couldn't get root's password\n", progname);
-    strcpy (root_passwd, "*");
-  }
+  float ratio;
+  Dimension width;
+  Dimension height;
 
-  /* It has been reported that getlogin() returns the wrong user id on some
-     very old SGI systems... */
-  u = (char *) getlogin ();
-  if (u)
-    p = GETPW (u);
-  else
-  {
-    /* getlogin() fails if not attached to a terminal;
-        in that case, use getpwuid(). */
-    p = getpwuid (getuid ());
-    u = p->pw_name;
-  }
+  char *heading_label;
+  char *body_label;
+  char *user_label;
+  char *passwd_label;
+  char *user_string;
+  char *passwd_string;
 
-  if (p && p->PWSLOT && p->PWSLOT[0] != '*')
-    strcpy (user_passwd, p->PWSLOT);
-  else
-  {
-    fprintf (stderr, "%s: couldn't get password of \"%s\"\n", progname, u);
-    strcpy (user_passwd, "*");
-    ok = False;
-  }
-  return ok;
-}
-\f
-#ifdef XmVersion
-# if (XmVersion >= 1002)       /* The `destroy' bug apears to be fixed as   */
-#  define DESTROY_WORKS                /* of Motif 1.2.1, but the `verify-callback' */
-# endif                                /* bug is still present. */
-#endif
+  XFontStruct *heading_font;
+  XFontStruct *body_font;
+  XFontStruct *label_font;
+  XFontStruct *passwd_font;
 
-static void
-passwd_cancel_cb (button, client_data, call_data)
-     Widget button;
-     XtPointer client_data, call_data;
-{
-  passwd_state = pw_cancel;
-}
+  Pixel foreground;
+  Pixel background;
+  Pixel passwd_foreground;
+  Pixel passwd_background;
+  Pixel logo_foreground;
+  Pixel logo_background;
+  Pixel shadow_top;
+  Pixel shadow_bottom;
 
-static void
-passwd_done_cb (button, client_data, call_data)
-     Widget button;
-     XtPointer client_data, call_data;
-{
-  if (passwd_state != pw_read)
-    return;                    /* already done */
-
-  if (!strcmp ((char *) crypt (typed_passwd, user_passwd), user_passwd))
-    passwd_state = pw_ok;
-  /* do not allow root to have empty passwd */
-  else if (typed_passwd[0] &&
-          !strcmp ((char *) crypt (typed_passwd, root_passwd), root_passwd))
-    passwd_state = pw_ok;
-  else
-    passwd_state = pw_fail;
-}
+  Dimension logo_width;
+  Dimension logo_height;
+  Dimension thermo_width;
+  Dimension internal_border;
+  Dimension shadow_width;
 
-#ifdef VERIFY_CALLBACK_WORKS
+  Dimension passwd_field_x, passwd_field_y;
+  Dimension passwd_field_width, passwd_field_height;
 
-/* ####  It looks to me like adding any modifyVerify callback causes
-     ####  Motif 1.1.4 to free the the TextF_Value() twice.  I can't see
-     ####  the bug in the Motif source, but Purify complains, even if
-     ####  check_passwd_cb() is a no-op.
+  Dimension thermo_field_x, thermo_field_y;
+  Dimension thermo_field_height;
+};
 
-     ####  Update: Motif 1.2.1 also loses, but in a different way: it
-     ####  writes beyond the end of a malloc'ed block in ModifyVerify().
-     ####  Probably this block is the text field's text.
-   */
 
-static void
-check_passwd_cb (button, client_data, call_data)
-     Widget button;
-     XtPointer client_data, call_data;
+void
+make_passwd_window (saver_info *si)
 {
-  XmTextVerifyCallbackStruct *vcb = (XmTextVerifyCallbackStruct *) call_data;
-
-  if (passwd_state != pw_read)
-    return;
-  else if (vcb->reason == XmCR_ACTIVATE)
-  {
-    passwd_done_cb (0, 0, 0);
-  }
-  else if (vcb->text->length > 1)      /* don't allow "paste" operations */
+  struct passwd *p = getpwuid (getuid ());
+  int x, y, bw;
+  XSetWindowAttributes attrs;
+  unsigned long attrmask = 0;
+  Screen *screen = si->default_screen->screen;
+  passwd_dialog_data *pw = (passwd_dialog_data *) calloc (1, sizeof(*pw));
+  Colormap cmap = DefaultColormapOfScreen (screen);
+  char *f;
+
+  pw->ratio = 1.0;
+
+  pw->heading_label = get_string_resource ("passwd.heading.label",
+                                          "Dialog.Label.Label");
+  pw->body_label = get_string_resource ("passwd.body.label",
+                                       "Dialog.Label.Label");
+  pw->user_label = get_string_resource ("passwd.user.label",
+                                       "Dialog.Label.Label");
+  pw->passwd_label = get_string_resource ("passwd.passwd.label",
+                                         "Dialog.Label.Label");
+
+  if (!pw->heading_label)
+    pw->heading_label = strdup("ERROR: REESOURCES NOT INSTALLED CORRECTLY");
+  if (!pw->body_label)
+    pw->body_label = strdup("ERROR: REESOURCES NOT INSTALLED CORRECTLY");
+  if (!pw->user_label) pw->user_label = strdup("ERROR");
+  if (!pw->passwd_label) pw->passwd_label = strdup("ERROR");
+
+  /* Put the version number in the label. */
   {
-    vcb->doit = False;
+    char *s = (char *) malloc (strlen(pw->heading_label) + 20);
+    sprintf(s, pw->heading_label, si->version);
+    free (pw->heading_label);
+    pw->heading_label = s;
   }
-  else if (vcb->text->ptr != 0)
-  {
-    int i;
 
-    strncat (typed_passwd, vcb->text->ptr, vcb->text->length);
-    typed_passwd[vcb->endPos + vcb->text->length] = 0;
-    for (i = 0; i < vcb->text->length; i++)
-      vcb->text->ptr[i] = '*';
-  }
-}
+  pw->user_string = (p->pw_name ? p->pw_name : "???");
+  pw->passwd_string = strdup("");
+
+  f = get_string_resource ("passwd.headingFont", "Dialog.Font");
+  pw->heading_font = XLoadQueryFont (si->dpy, (f ? f : "fixed"));
+  if (!pw->heading_font) pw->heading_font = XLoadQueryFont (si->dpy, "fixed");
+  if (f) free (f);
+
+  f = get_string_resource("passwd.bodyFont", "Dialog.Font");
+  pw->body_font = XLoadQueryFont (si->dpy, (f ? f : "fixed"));
+  if (!pw->body_font) pw->body_font = XLoadQueryFont (si->dpy, "fixed");
+  if (f) free (f);
+
+  f = get_string_resource("passwd.labelFont", "Dialog.Font");
+  pw->label_font = XLoadQueryFont (si->dpy, (f ? f : "fixed"));
+  if (!pw->label_font) pw->label_font = XLoadQueryFont (si->dpy, "fixed");
+  if (f) free (f);
+
+  f = get_string_resource("passwd.passwdFont", "Dialog.Font");
+  pw->passwd_font = XLoadQueryFont (si->dpy, (f ? f : "fixed"));
+  if (!pw->passwd_font) pw->passwd_font = XLoadQueryFont (si->dpy, "fixed");
+  if (f) free (f);
+
+  pw->foreground = get_pixel_resource ("passwd.foreground",
+                                      "Dialog.Foreground",
+                                      si->dpy, cmap);
+  pw->background = get_pixel_resource ("passwd.background",
+                                      "Dialog.Background",
+                                      si->dpy, cmap);
+
+  if (pw->foreground == pw->background)
+    {
+      /* Make sure the error messages show up. */
+      pw->foreground = BlackPixelOfScreen (screen);
+      pw->background = WhitePixelOfScreen (screen);
+    }
 
-#else /* !VERIFY_CALLBACK_WORKS */
+  pw->passwd_foreground = get_pixel_resource ("passwd.text.foreground",
+                                             "Dialog.Text.Foreground",
+                                             si->dpy, cmap);
+  pw->passwd_background = get_pixel_resource ("passwd.text.background",
+                                             "Dialog.Text.Background",
+                                             si->dpy, cmap);
+  pw->logo_foreground = get_pixel_resource ("passwd.logo.foreground",
+                                           "Dialog.Logo.Foreground",
+                                           si->dpy, cmap);
+  pw->logo_background = get_pixel_resource ("passwd.logo.background",
+                                           "Dialog.Logo.Background",
+                                           si->dpy, cmap);
+  pw->shadow_top = get_pixel_resource ("passwd.topShadowColor",
+                                      "Dialog.Foreground",
+                                      si->dpy, cmap);
+  pw->shadow_bottom = get_pixel_resource ("passwd.bottomShadowColor",
+                                         "Dialog.Background",
+                                         si->dpy, cmap);
+
+  pw->logo_width = get_integer_resource ("passwd.logo.width",
+                                        "Dialog.Logo.Width");
+  pw->logo_height = get_integer_resource ("passwd.logo.height",
+                                         "Dialog.Logo.Height");
+  pw->thermo_width = get_integer_resource ("passwd.thermometer.width",
+                                          "Dialog.Thermometer.Width");
+  pw->internal_border = get_integer_resource ("passwd.internalBorderWidth",
+                                             "Dialog.InternalBorderWidth");
+  pw->shadow_width = get_integer_resource ("passwd.shadowThickness",
+                                          "Dialog.ShadowThickness");
+
+  if (pw->logo_width == 0)  pw->logo_width = 150;
+  if (pw->logo_height == 0) pw->logo_height = 150;
+  if (pw->internal_border == 0) pw->internal_border = 15;
+  if (pw->shadow_width == 0) pw->shadow_width = 4;
+  if (pw->thermo_width == 0) pw->thermo_width = pw->shadow_width;
 
-static void keypress ();
-static void backspace ();
-static void kill_line ();
-static void done ();
+  {
+    int direction, ascent, descent;
+    XCharStruct overall;
+
+    pw->width = 0;
+    pw->height = 0;
+
+    /* Measure the heading_label. */
+    XTextExtents (pw->heading_font,
+                 pw->heading_label, strlen(pw->heading_label),
+                 &direction, &ascent, &descent, &overall);
+    if (overall.width > pw->width) pw->width = overall.width;
+    pw->height += ascent + descent;
+
+    /* Measure the body_label. */
+    XTextExtents (pw->body_font,
+                 pw->body_label, strlen(pw->body_label),
+                 &direction, &ascent, &descent, &overall);
+    if (overall.width > pw->width) pw->width = overall.width;
+    pw->height += ascent + descent;
 
-static XtActionsRec actions[] =
-{
-  {"keypress", keypress},
-  {"backspace", backspace},
-  {"kill_line", kill_line},
-  {"done", done}
-};
+    {
+      Dimension w2 = 0, w3 = 0;
+      Dimension h2 = 0, h3 = 0;
+      const char *passwd_string = "MMMMMMMMMMMM";
+
+      /* Measure the user_label. */
+      XTextExtents (pw->label_font,
+                   pw->user_label, strlen(pw->user_label),
+                   &direction, &ascent, &descent, &overall);
+      if (overall.width > w2)  w2 = overall.width;
+      h2 += ascent + descent;
+
+      /* Measure the passwd_label. */
+      XTextExtents (pw->label_font,
+                   pw->passwd_label, strlen(pw->passwd_label),
+                   &direction, &ascent, &descent, &overall);
+      if (overall.width > w2)  w2 = overall.width;
+      h2 += ascent + descent;
+
+      /* Measure the user_string. */
+      XTextExtents (pw->passwd_font,
+                   pw->user_string, strlen(pw->user_string),
+                   &direction, &ascent, &descent, &overall);
+      overall.width += (pw->shadow_width * 4);
+      ascent += (pw->shadow_width * 4);
+      if (overall.width > w3)  w3 = overall.width;
+      h3 += ascent + descent;
+
+      /* Measure the (maximally-sized, dummy) passwd_string. */
+      XTextExtents (pw->passwd_font,
+                   passwd_string, strlen(passwd_string),
+                   &direction, &ascent, &descent, &overall);
+      overall.width += (pw->shadow_width * 4);
+      ascent += (pw->shadow_width * 4);
+      if (overall.width > w3)  w3 = overall.width;
+      h3 += ascent + descent;
+
+      w2 = w2 + w3 + (pw->shadow_width * 2);
+      h2 = MAX (h2, h3);
+
+      if (w2 > pw->width)  pw->width  = w2;
+      pw->height += h2;
+    }
 
-#if 0                          /* oh fuck, why doesn't this work? */
-static char translations[] = "\
-<Key>BackSpace:                backspace()\n\
-<Key>Delete:           backspace()\n\
-Ctrl<Key>H:            backspace()\n\
-Ctrl<Key>U:            kill_line()\n\
-Ctrl<Key>X:            kill_line()\n\
-Ctrl<Key>J:            done()\n\
-Ctrl<Key>M:            done()\n\
-<Key>:                 keypress()\n\
-";
-
-#else
-static char translations[] = "<Key>:keypress()";
+    pw->width  += (pw->internal_border * 2);
+    pw->height += (pw->internal_border * 4);
 
-#endif
+    pw->width += pw->thermo_width + (pw->shadow_width * 3);
 
-static void
-keypress (w, event, argv, argc)
-     Widget w;
-     XEvent *event;
-     String *argv;
-     Cardinal *argc;
-{
-  int i, j;
-  char s[sizeof (typed_passwd)];
-  int size = XLookupString ((XKeyEvent *) event, s, sizeof (s), 0, 0);
+    if (pw->logo_height > pw->height)
+      pw->height = pw->logo_height;
+    else if (pw->height > pw->logo_height)
+      pw->logo_height = pw->height;
 
-  if (size != 1)
-    return;
+    pw->logo_width = pw->logo_height;
 
-  /* hack because I can't get translations to dance to my tune... */
-  if (*s == '\010')
-  {
-    backspace (w, event, argv, argc);
-    return;
-  }
-  if (*s == '\177')
-  {
-    backspace (w, event, argv, argc);
-    return;
-  }
-  if (*s == '\025')
-  {
-    kill_line (w, event, argv, argc);
-    return;
-  }
-  if (*s == '\030')
-  {
-    kill_line (w, event, argv, argc);
-    return;
-  }
-  if (*s == '\012')
-  {
-    done (w, event, argv, argc);
-    return;
+    pw->width += pw->logo_width;
   }
-  if (*s == '\015')
+
+  attrmask |= CWOverrideRedirect; attrs.override_redirect = True;
+  attrmask |= CWEventMask; attrs.event_mask = ExposureMask|KeyPressMask;
+
   {
-    done (w, event, argv, argc);
-    return;
+    Dimension w = WidthOfScreen(screen);
+    Dimension h = HeightOfScreen(screen);
+    if (si->prefs.debug_p) w /= 2;
+    x = ((w + pw->width) / 2) - pw->width;
+    y = ((h + pw->height) / 2) - pw->height;
+    if (x < 0) x = 0;
+    if (y < 0) y = 0;
   }
 
-  i = j = strlen (typed_passwd);
-  typed_passwd[i] = *s;
-  s[++i] = 0;
-  while (i--)
-    s[i] = '*';
-  XmTextFieldSetString (passwd_text, s);
-  XmTextFieldSetInsertionPosition (passwd_text, j + 1);
-}
+  bw = get_integer_resource ("passwd.borderWidth", "Dialog.BorderWidth");
 
-static void
-backspace (w, event, argv, argc)
-     Widget w;
-     XEvent *event;
-     String *argv;
-     Cardinal *argc;
-{
-  char s[sizeof (typed_passwd)];
-  int i = strlen (typed_passwd);
-  int j = i;
-
-  if (i == 0)
-    return;
-  typed_passwd[--i] = 0;
-  s[i] = 0;
-  while (i--)
-    s[i] = '*';
-  XmTextFieldSetString (passwd_text, s);
-  XmTextFieldSetInsertionPosition (passwd_text, j + 1);
-}
+  si->passwd_dialog =
+    XCreateWindow (si->dpy,
+                  RootWindowOfScreen(screen),
+                  x, y, pw->width, pw->height, bw,
+                  DefaultDepthOfScreen (screen), InputOutput,
+                  DefaultVisualOfScreen(screen),
+                  attrmask, &attrs);
+  XSetWindowBackground (si->dpy, si->passwd_dialog, pw->background);
 
-static void
-kill_line (w, event, argv, argc)
-     Widget w;
-     XEvent *event;
-     String *argv;
-     Cardinal *argc;
-{
-  memset (typed_passwd, 0, sizeof (typed_passwd));
-  XmTextFieldSetString (passwd_text, "");
-}
+  XMapRaised (si->dpy, si->passwd_dialog);
+  XSync (si->dpy, False);
 
-static void
-done (w, event, argv, argc)
-     Widget w;
-     XEvent *event;
-     String *argv;
-     Cardinal *argc;
-{
-  passwd_done_cb (w, 0, 0);
+  si->pw_data = pw;
+
+  draw_passwd_window (si);
+  XSync (si->dpy, False);
 }
 
-#endif /* !VERIFY_CALLBACK_WORKS */
 
-static void
-format_into_label (widget, string)
-     Widget widget;
-     char *string;
+void
+draw_passwd_window (saver_info *si)
 {
-  char *label;
-  char buf[255];
-  XmString xm_label = 0;
-  XmString new_xm_label;
-  Arg av[10];
-  int ac = 0;
-
-  XtSetArg (av[ac], XmNlabelString, &xm_label);
-  ac++;
-  XtGetValues (widget, av, ac);
-  XmStringGetLtoR (xm_label, XmSTRING_DEFAULT_CHARSET, &label);
-  if (!strcmp (label, XtName (widget)))
-    strcpy (buf, "ERROR: RESOURCES ARE NOT INSTALLED CORRECTLY");
-  else
-    sprintf (buf, label, string);
-  new_xm_label = XmStringCreate (buf, XmSTRING_DEFAULT_CHARSET);
-  ac = 0;
-  XtSetArg (av[ac], XmNlabelString, new_xm_label);
-  ac++;
-  XtSetValues (widget, av, ac);
-  XmStringFree (new_xm_label);
-  XtFree (label);
-}
+  passwd_dialog_data *pw = si->pw_data;
+  XGCValues gcv;
+  GC gc1, gc2;
+  int spacing, height;
+  int x1, x2, x3, y1, y2;
+  int sw;
+  int tb_height;
+
+  height = (pw->heading_font->ascent + pw->heading_font->descent +
+           pw->body_font->ascent + pw->body_font->descent +
+           (2 * MAX ((pw->label_font->ascent + pw->label_font->descent),
+                     (pw->passwd_font->ascent + pw->passwd_font->descent +
+                      (pw->shadow_width * 4)))));
+  spacing = ((pw->height - (2 * pw->shadow_width) -
+             pw->internal_border - height)) / 8;
+  if (spacing < 0) spacing = 0;
+
+  gcv.foreground = pw->foreground;
+  gc1 = XCreateGC (si->dpy, si->passwd_dialog, GCForeground, &gcv);
+  gc2 = XCreateGC (si->dpy, si->passwd_dialog, GCForeground, &gcv);
+  x1 = pw->logo_width + pw->thermo_width + (pw->shadow_width * 3);
+  x3 = pw->width - (pw->shadow_width * 2);
+  y1 = (pw->shadow_width * 2) + spacing + spacing;
+
+  /* top heading
+   */
+  XSetFont (si->dpy, gc1, pw->heading_font->fid);
+  sw = string_width (pw->heading_font, pw->heading_label);
+  x2 = (x1 + ((x3 - x1 - sw) / 2));
+  y1 += spacing + pw->heading_font->ascent + pw->heading_font->descent;
+  XDrawString (si->dpy, si->passwd_dialog, gc1, x2, y1,
+              pw->heading_label, strlen(pw->heading_label));
+
+  /* text below top heading
+   */
+  XSetFont (si->dpy, gc1, pw->body_font->fid);
+  y1 += spacing + pw->body_font->ascent + pw->body_font->descent;
+  sw = string_width (pw->body_font, pw->body_label);
+  x2 = (x1 + ((x3 - x1 - sw) / 2));
+  XDrawString (si->dpy, si->passwd_dialog, gc1, x2, y1,
+              pw->body_label, strlen(pw->body_label));
 
-#if __STDC__
-extern void skull (Display *, Window, GC, GC, int, int, int, int);
 
-#endif
+  tb_height = (pw->passwd_font->ascent + pw->passwd_font->descent +
+              (pw->shadow_width * 4));
 
-static void
-roger (button, client_data, call_data)
-     Widget button;
-     XtPointer client_data, call_data;
-{
-  Display *dpy = XtDisplay (button);
-  Screen *screen = XtScreen (button);
-  Window window = XtWindow (button);
-  Arg av[10];
-  int ac = 0;
-  XGCValues gcv;
-  Colormap cmap;
-  GC draw_gc, erase_gc;
-  unsigned int fg, bg;
-  int x, y, size;
-  XWindowAttributes xgwa;
-
-  XGetWindowAttributes (dpy, window, &xgwa);
-  cmap = xgwa.colormap;
-  if (xgwa.width > xgwa.height)
-    size = xgwa.height;
-  else
-    size = xgwa.width;
-  if (size > 40)
-    size -= 30;
-  x = (xgwa.width - size) / 2;
-  y = (xgwa.height - size) / 2;
-  XtSetArg (av[ac], XmNforeground, &fg);
-  ac++;
-  XtSetArg (av[ac], XmNbackground, &bg);
-  ac++;
-  XtGetValues (button, av, ac);
-  /* if it's black on white, swap it cause it looks better (hack hack) */
-  if (fg == BlackPixelOfScreen (screen) && bg == WhitePixelOfScreen (screen))
-    fg = WhitePixelOfScreen (screen), bg = BlackPixelOfScreen (screen);
-  gcv.foreground = bg;
-  erase_gc = XCreateGC (dpy, window, GCForeground, &gcv);
-  gcv.foreground = fg;
-  draw_gc = XCreateGC (dpy, window, GCForeground, &gcv);
-  XFillRectangle (dpy, window, erase_gc, 0, 0, xgwa.width, xgwa.height);
-  skull (dpy, window, draw_gc, erase_gc, x, y, size, size);
-  XFreeGC (dpy, draw_gc);
-  XFreeGC (dpy, erase_gc);
+  /* the "User:" prompt
+   */
+  y1 += spacing;
+  y2 = y1;
+  XSetForeground (si->dpy, gc1, pw->foreground);
+  XSetFont (si->dpy, gc1, pw->label_font->fid);
+  y1 += (spacing + tb_height);
+  x2 = (x1 + pw->internal_border +
+       MAX(string_width (pw->label_font, pw->user_label),
+           string_width (pw->label_font, pw->passwd_label)));
+  XDrawString (si->dpy, si->passwd_dialog, gc1,
+              x2 - string_width (pw->label_font, pw->user_label),
+              y1,
+              pw->user_label, strlen(pw->user_label));
+
+  /* the "Password:" prompt
+   */
+  y1 += (spacing + tb_height);
+  XDrawString (si->dpy, si->passwd_dialog, gc1,
+              x2 - string_width (pw->label_font, pw->passwd_label),
+              y1,
+              pw->passwd_label, strlen(pw->passwd_label));
+
+
+  XSetForeground (si->dpy, gc2, pw->passwd_background);
+
+  /* the "user name" text field
+   */
+  y1 = y2;
+  XSetForeground (si->dpy, gc1, pw->passwd_foreground);
+  XSetFont (si->dpy, gc1, pw->passwd_font->fid);
+  y1 += (spacing + tb_height);
+  x2 += (pw->shadow_width * 4);
+
+  pw->passwd_field_width = x3 - x2 - pw->internal_border;
+  pw->passwd_field_height = (pw->passwd_font->ascent +
+                            pw->passwd_font->descent +
+                            pw->shadow_width);
+
+  XFillRectangle (si->dpy, si->passwd_dialog, gc2,
+                 x2 - pw->shadow_width,
+                 y1 - (pw->passwd_font->ascent + pw->passwd_font->descent),
+                 pw->passwd_field_width, pw->passwd_field_height);
+  XDrawString (si->dpy, si->passwd_dialog, gc1, x2, y1,
+              pw->user_string, strlen(pw->user_string));
+
+  /* the "password" text field
+   */
+  y1 += (spacing + tb_height);
+
+  pw->passwd_field_x = x2 - pw->shadow_width;
+  pw->passwd_field_y = y1 - (pw->passwd_font->ascent +
+                            pw->passwd_font->descent);
+
+  /* The shadow around the text fields
+   */
+  y1 = y2;
+  y1 += (spacing + (pw->shadow_width * 3));
+  x1 = x2 - (pw->shadow_width * 2);
+  x2 = pw->passwd_field_width + (pw->shadow_width * 2);
+  y2 = pw->passwd_field_height + (pw->shadow_width * 2);
+
+  draw_shaded_rectangle (si->dpy, si->passwd_dialog,
+                        x1, y1, x2, y2,
+                        pw->shadow_width,
+                        pw->shadow_bottom, pw->shadow_top);
+
+  y1 += (spacing + pw->passwd_font->ascent + pw->passwd_font->descent +
+        (pw->shadow_width * 4));
+  draw_shaded_rectangle (si->dpy, si->passwd_dialog,
+                        x1, y1, x2, y2,
+                        pw->shadow_width,
+                        pw->shadow_bottom, pw->shadow_top);
+
+  /* the logo
+   */
+  XSetForeground (si->dpy, gc1, pw->logo_foreground);
+  XSetForeground (si->dpy, gc2, pw->logo_background);
+
+  x1 = pw->shadow_width * 3;
+  y1 = pw->shadow_width * 3;
+  x2 = pw->logo_width - (pw->shadow_width * 6);
+  y2 = pw->logo_height - (pw->shadow_width * 6);
+
+  XFillRectangle (si->dpy, si->passwd_dialog, gc2, x1, y1, x2, y2);
+  skull (si->dpy, si->passwd_dialog, gc1, gc2,
+        x1 + pw->shadow_width, y1 + pw->shadow_width,
+        x2 - (pw->shadow_width * 2), y2 - (pw->shadow_width * 2));
+
+  /* The thermometer
+   */
+  pw->thermo_field_x = pw->logo_width + pw->shadow_width;
+  pw->thermo_field_y = pw->shadow_width * 3;
+  pw->thermo_field_height = pw->height - (pw->shadow_width * 6);
+
+  /* Solid border inside the logo box. */
+  XSetForeground (si->dpy, gc1, pw->foreground);
+  XDrawRectangle (si->dpy, si->passwd_dialog, gc1, x1, y1, x2-1, y2-1);
+
+  /* The shadow around the logo
+   */
+  draw_shaded_rectangle (si->dpy, si->passwd_dialog,
+                        pw->shadow_width * 2,
+                        pw->shadow_width * 2,
+                        pw->logo_width - (pw->shadow_width * 4),
+                        pw->logo_height - (pw->shadow_width * 4),
+                        pw->shadow_width,
+                        pw->shadow_bottom, pw->shadow_top);
+
+  /* The shadow around the thermometer
+   */
+  draw_shaded_rectangle (si->dpy, si->passwd_dialog,
+                        pw->logo_width,
+                        pw->shadow_width * 2,
+                        pw->thermo_width + (pw->shadow_width * 2),
+                        pw->height - (pw->shadow_width * 4),
+                        pw->shadow_width,
+                        pw->shadow_bottom, pw->shadow_top);
+
+  /* Solid border inside the thermometer. */
+  XSetForeground (si->dpy, gc1, pw->foreground);
+  XDrawRectangle (si->dpy, si->passwd_dialog, gc1, 
+                 pw->logo_width + pw->shadow_width,
+                 pw->shadow_width * 3,
+                 pw->thermo_width - 1,
+                 pw->height - (pw->shadow_width * 6) - 1);
+
+  /* The shadow around the whole window
+   */
+  draw_shaded_rectangle (si->dpy, si->passwd_dialog,
+                        0, 0, pw->width, pw->height, pw->shadow_width,
+                        pw->shadow_top, pw->shadow_bottom);
+
+  XFreeGC (si->dpy, gc1);
+  XFreeGC (si->dpy, gc2);
+
+  update_passwd_window (si, pw->passwd_string, pw->ratio);
 }
 
-static void
-make_passwd_dialog (parent)
-     Widget parent;
+
+void
+update_passwd_window (saver_info *si, const char *printed_passwd, float ratio)
 {
-  struct passwd *pw;
+  passwd_dialog_data *pw = si->pw_data;
+  XGCValues gcv;
+  GC gc1, gc2;
+  int x, y;
 
-  create_passwd_dialog (parent);
+  pw->ratio = ratio;
+  gcv.foreground = pw->passwd_foreground;
+  gcv.font = pw->passwd_font->fid;
+  gc1 = XCreateGC (si->dpy, si->passwd_dialog, GCForeground|GCFont, &gcv);
+  gcv.foreground = pw->passwd_background;
+  gc2 = XCreateGC (si->dpy, si->passwd_dialog, GCForeground, &gcv);
 
-  XtAddCallback (passwd_done, XmNactivateCallback, passwd_done_cb, 0);
-  XtAddCallback (passwd_cancel, XmNactivateCallback, passwd_cancel_cb, 0);
-  XtAddCallback (roger_label, XmNexposeCallback, roger, 0);
+  if (printed_passwd)
+    {
+      char *s = strdup (printed_passwd);
+      if (pw->passwd_string) free (pw->passwd_string);
+      pw->passwd_string = s;
+    }
 
-#ifdef VERIFY_CALLBACK_WORKS
-  XtAddCallback (passwd_text, XmNmodifyVerifyCallback, check_passwd_cb, 0);
-  XtAddCallback (passwd_text, XmNactivateCallback, check_passwd_cb, 0);
-#else
-  XtAddCallback (passwd_text, XmNactivateCallback, passwd_done_cb, 0);
-  XtOverrideTranslations (passwd_text, XtParseTranslationTable (translations));
-#endif
+  /* the "password" text field
+   */
+  XFillRectangle (si->dpy, si->passwd_dialog, gc2,
+                 pw->passwd_field_x, pw->passwd_field_y,
+                 pw->passwd_field_width, pw->passwd_field_height);
+  XDrawString (si->dpy, si->passwd_dialog, gc1,
+              pw->passwd_field_x + pw->shadow_width,
+              pw->passwd_field_y + (pw->passwd_font->ascent +
+                                    pw->passwd_font->descent),
+              pw->passwd_string, strlen(pw->passwd_string));
+
+  /* The I-beam
+   */
+  if (pw->i_beam != 0)
+    {
+      x = (pw->passwd_field_x + pw->shadow_width +
+          string_width (pw->passwd_font, pw->passwd_string));
+      y = pw->passwd_field_y + pw->shadow_width;
+      XDrawLine (si->dpy, si->passwd_dialog, gc1, 
+                x, y, x, y + pw->passwd_font->ascent);
+    }
 
-  pw = getpwuid (getuid ());
-  format_into_label (passwd_label3, (pw->pw_name ? pw->pw_name : "???"));
-  format_into_label (passwd_label1, screensaver_version);
-}
+  pw->i_beam = (pw->i_beam + 1) % 4;
 
-extern void idle_timer ();
 
-static int passwd_idle_timer_tick;
-static XtIntervalId id;
+  /* the thermometer
+   */
+  y = pw->thermo_field_height * (1.0 - pw->ratio);
+  if (y > 0)
+    {
+      XFillRectangle (si->dpy, si->passwd_dialog, gc2,
+                     pw->thermo_field_x + 1,
+                     pw->thermo_field_y + 1,
+                     pw->thermo_width-2,
+                     y);
+      XSetForeground (si->dpy, gc1, pw->logo_foreground);
+      XFillRectangle (si->dpy, si->passwd_dialog, gc1,
+                     pw->thermo_field_x + 1,
+                     pw->thermo_field_y + 1 + y,
+                     pw->thermo_width-2,
+                     MAX (0, pw->thermo_field_height - y - 2));
+    }
 
-static void
-passwd_idle_timer (junk1, junk2)
-     void *junk1;
-     XtPointer junk2;
-{
-  Display *dpy = XtDisplay (passwd_form);
-  Window window = XtWindow (passwd_form);
-  static Dimension x, y, d, s, ss;
-  static GC gc = 0;
-  int max = passwd_timeout / 1000;
+  XFreeGC (si->dpy, gc1);
+  XFreeGC (si->dpy, gc2);
+  XSync (si->dpy, False);
+}
 
-  idle_timer (junk1, junk2);
 
-  if (passwd_idle_timer_tick == max)   /* first time */
-  {
-    Arg av[10];
-    int ac = 0;
-    XGCValues gcv;
-    unsigned long fg, bg;
-
-    XtSetArg (av[ac], XmNheight, &d);
-    ac++;
-    XtGetValues (passwd_done, av, ac);
-    ac = 0;
-    XtSetArg (av[ac], XmNwidth, &x);
-    ac++;
-    XtSetArg (av[ac], XmNheight, &y);
-    ac++;
-    XtSetArg (av[ac], XmNforeground, &fg);
-    ac++;
-    XtSetArg (av[ac], XmNbackground, &bg);
-    ac++;
-    XtGetValues (passwd_form, av, ac);
-    x -= d;
-    y -= d;
-    d -= 4;
-    gcv.foreground = fg;
-    if (gc)
-      XFreeGC (dpy, gc);
-    gc = XCreateGC (dpy, window, GCForeground, &gcv);
-    s = 360 * 64 / (passwd_idle_timer_tick - 1);
-    ss = 90 * 64;
-    XFillArc (dpy, window, gc, x, y, d, d, 0, 360 * 64);
-    XSetForeground (dpy, gc, bg);
-    x += 1;
-    y += 1;
-    d -= 2;
-  }
+void
+destroy_passwd_window (saver_info *si)
+{
+  passwd_dialog_data *pw = si->pw_data;
+  Screen *screen = si->default_screen->screen;
+  Colormap cmap = DefaultColormapOfScreen (screen);
+  Pixel black = BlackPixelOfScreen (screen);
+  Pixel white = WhitePixelOfScreen (screen);
 
-  if (--passwd_idle_timer_tick)
-  {
-    id = XtAppAddTimeOut (app, 1000, (XtTimerCallbackProc) passwd_idle_timer, 0);
-    XFillArc (dpy, window, gc, x, y, d, d, ss, s);
-    ss += s;
-  }
+  if (pw->timer)
+    XtRemoveTimeOut (pw->timer);
+
+  if (si->passwd_dialog)
+    {
+      XDestroyWindow (si->dpy, si->passwd_dialog);
+      si->passwd_dialog = 0;
+    }
+  
+  if (pw->heading_label) free (pw->heading_label);
+  if (pw->body_label)    free (pw->body_label);
+  if (pw->user_label)    free (pw->user_label);
+  if (pw->passwd_label)  free (pw->passwd_label);
+
+  if (pw->heading_font) XFreeFont (si->dpy, pw->heading_font);
+  if (pw->body_font)    XFreeFont (si->dpy, pw->body_font);
+  if (pw->label_font)   XFreeFont (si->dpy, pw->label_font);
+  if (pw->passwd_font)  XFreeFont (si->dpy, pw->passwd_font);
+
+  if (pw->foreground != black && pw->foreground != white)
+    XFreeColors (si->dpy, cmap, &pw->foreground, 1, 0L);
+  if (pw->background != black && pw->background != white)
+    XFreeColors (si->dpy, cmap, &pw->background, 1, 0L);
+  if (pw->passwd_foreground != black && pw->passwd_foreground != white)
+    XFreeColors (si->dpy, cmap, &pw->passwd_foreground, 1, 0L);
+  if (pw->passwd_background != black && pw->passwd_background != white)
+    XFreeColors (si->dpy, cmap, &pw->passwd_background, 1, 0L);
+  if (pw->logo_foreground != black && pw->logo_foreground != white)
+    XFreeColors (si->dpy, cmap, &pw->logo_foreground, 1, 0L);
+  if (pw->logo_background != black && pw->logo_background != white)
+    XFreeColors (si->dpy, cmap, &pw->logo_background, 1, 0L);
+  if (pw->shadow_top != black && pw->shadow_top != white)
+    XFreeColors (si->dpy, cmap, &pw->shadow_top, 1, 0L);
+  if (pw->shadow_bottom != black && pw->shadow_bottom != white)
+    XFreeColors (si->dpy, cmap, &pw->shadow_bottom, 1, 0L);
+
+  memset (pw, 0, sizeof(*pw));
+  free (pw);
+
+  si->pw_data = 0;
 }
 
-extern void pop_up_dialog_box ();
-extern int BadWindow_ehandler ();
+\f
+/* Interactions
+ */
 
-static Bool
-pop_passwd_dialog (parent)
-     Widget parent;
+static void
+passwd_animate_timer (XtPointer closure, XtIntervalId *id)
 {
-  Display *dpy = XtDisplay (passwd_dialog);
-  Window focus;
-  int revert_to;
-
-  typed_passwd[0] = 0;
-  passwd_state = pw_read;
-  XmTextFieldSetString (passwd_text, "");
-
-  XGetInputFocus (dpy, &focus, &revert_to);
-#ifndef DESTROY_WORKS
-  /* This fucker blows up if we destroy the widget.  I can't figure
-     out why.  The second destroy phase dereferences freed memory...
-     So we just keep it around; but unrealizing or unmanaging it
-     doesn't work right either, so we hack the window directly. FMH.
-   */
-  if (XtWindow (passwd_form))
-    XMapRaised (dpy, XtWindow (passwd_dialog));
-#endif
-  pop_up_dialog_box (passwd_dialog, passwd_form, 2);
+  saver_info *si = (saver_info *) closure;
+  int tick = 166;
+  passwd_dialog_data *pw = si->pw_data;
 
-  XtManageChild (passwd_form);
-  XSetInputFocus (dpy, XtWindow (passwd_dialog), revert_to, CurrentTime);
+  if (!pw) return;
 
-  /* #### This doesn't work in 1.2.1... Check return code... */
-  XmProcessTraversal (passwd_text, 0);
+  pw->ratio -= (1.0 / ((double) si->prefs.passwd_timeout / (double) tick));
+  if (pw->ratio < 0)
+    {
+      pw->ratio = 0;
+      if (pw->state == pw_read)
+       pw->state = pw_time;
+    }
 
-  passwd_idle_timer_tick = passwd_timeout / 1000;
-  id = XtAppAddTimeOut (app, 1000, (XtTimerCallbackProc) passwd_idle_timer, 0);
+  update_passwd_window (si, 0, pw->ratio);
 
-  XGrabServer (dpy);           /* ############ DANGER! */
+  if (pw->state == pw_read)
+    pw->timer = XtAppAddTimeOut (si->app, tick, passwd_animate_timer,
+                                (XtPointer) si);
+  else
+    pw->timer = 0;
 
-  while (passwd_state == pw_read)
-  {
-    XEvent event;
+  idle_timer ((XtPointer) si, id);
+}
 
-    XtAppNextEvent (app, &event);
-    /* wait for timer event */
-    if (event.xany.type == 0 && passwd_idle_timer_tick == 0)
-      passwd_state = pw_time;
-    XtDispatchEvent (&event);
-  }
-  XUngrabServer (dpy);
-  XSync (dpy, False);          /* ###### (danger over) */
 
-  if (passwd_state != pw_time)
-    XtRemoveTimeOut (id);
+static void
+handle_passwd_key (saver_info *si, XKeyEvent *event)
+{
+  passwd_dialog_data *pw = si->pw_data;
+  int pw_size = sizeof (pw->typed_passwd) - 1;
+  char *typed_passwd = pw->typed_passwd;
+  char s[2];
+  char *stars = 0;
+  int i;
+  int size = XLookupString (event, s, 1, 0, 0);
 
-  if (passwd_state != pw_ok)
-  {
-    char *lose;
+  if (size != 1) return;
 
-    switch (passwd_state)
+  s[1] = 0;
+
+  switch (*s)
     {
-    case pw_time:
-      lose = "Timed out!";
+    case '\010': case '\177':                          /* Backspace */
+      if (!*typed_passwd)
+       XBell (si->dpy, 0);
+      else
+       typed_passwd [strlen(typed_passwd)-1] = 0;
       break;
-    case pw_fail:
-      lose = "Sorry!";
+
+    case '\025': case '\030':                          /* Erase line */
+      memset (typed_passwd, 0, pw_size);
       break;
-    case pw_cancel:
-      lose = 0;
+
+    case '\012': case '\015':                          /* Enter */
+      if (pw->state != pw_read)
+       ;  /* already done? */
+      else if (passwd_valid_p (typed_passwd))
+       pw->state = pw_ok;
+      else
+       pw->state = pw_fail;
       break;
+
     default:
-      abort ();
+      i = strlen (typed_passwd);
+      if (i >= pw_size-1)
+       XBell (si->dpy, 0);
+      else
+       {
+         typed_passwd [i] = *s;
+         typed_passwd [i+1] = 0;
+       }
+      break;
     }
-    XmProcessTraversal (passwd_cancel, 0);     /* turn off I-beam */
-    if (lose)
-    {
-      XmTextFieldSetString (passwd_text, lose);
-      XmTextFieldSetInsertionPosition (passwd_text, strlen (lose) + 1);
-      passwd_idle_timer_tick = 1;
-      id = XtAppAddTimeOut (app, 3000, (XtTimerCallbackProc) passwd_idle_timer, 0);
-      while (1)
-      {
-       XEvent event;
 
-       XtAppNextEvent (app, &event);
-       if (event.xany.type == 0 &&     /* wait for timer event */
-           passwd_idle_timer_tick == 0)
-         break;
+  i = strlen(typed_passwd);
+  stars = (char *) malloc(i+1);
+  memset (stars, '*', i);
+  stars[i] = 0;
+  update_passwd_window (si, stars, pw->ratio);
+  free (stars);
+}
+
+
+static void
+passwd_event_loop (saver_info *si)
+{
+  char *msg = 0;
+  XEvent event;
+  passwd_animate_timer ((XtPointer) si, 0);
+
+  while (si->pw_data && si->pw_data->state == pw_read)
+    {
+      XtAppNextEvent (si->app, &event);
+      if (event.xany.window == si->passwd_dialog && event.xany.type == Expose)
+       draw_passwd_window (si);
+      else if (event.xany.type == KeyPress)
+       handle_passwd_key (si, &event.xkey);
+      else
        XtDispatchEvent (&event);
-      }
     }
-  }
-  memset (typed_passwd, 0, sizeof (typed_passwd));
-  XmTextFieldSetString (passwd_text, "");
-  XtSetKeyboardFocus (parent, None);
-
-#ifdef DESTROY_WORKS
-  XtDestroyWidget (passwd_dialog);
-  passwd_dialog = 0;
-#else
-  XUnmapWindow (XtDisplay (passwd_dialog), XtWindow (passwd_dialog));
-#endif
-  {
-    int (*old_handler) ();
-
-    old_handler = XSetErrorHandler (BadWindow_ehandler);
-    /* I don't understand why this doesn't refocus on the old selected
-       window when MWM is running in click-to-type mode.  The value of
-       `focus' seems to be correct. */
-    XSetInputFocus (dpy, focus, revert_to, CurrentTime);
-    XSync (dpy, False);
-    XSetErrorHandler (old_handler);
-  }
 
-  return (passwd_state == pw_ok ? True : False);
+  switch (si->pw_data->state)
+    {
+    case pw_ok:   msg = 0; break;
+    case pw_time: msg = "Timed out!"; break;
+    default:      msg = "Sorry!"; break;
+    }
+
+  if (msg)
+    {
+      si->pw_data->i_beam = 0;
+      update_passwd_window (si, msg, 0.0);
+      XBell (si->dpy, False);
+      XSync (si->dpy, False);
+      sleep (1);
+
+      /* Swallow all pending KeyPress/KeyRelease events. */
+      {
+       XEvent e;
+       while (XCheckMaskEvent (si->dpy, KeyPressMask|KeyReleaseMask, &e))
+         ;
+      }
+    }
 }
 
 Bool
-unlock_p (parent)
-     Widget parent;
+unlock_p (saver_info *si)
 {
-  static Bool initted = False;
+  Screen *screen = si->default_screen->screen;
+  Colormap cmap = DefaultColormapOfScreen (screen);
+  Bool status;
 
-  if (!initted)
-  {
-#ifndef VERIFY_CALLBACK_WORKS
-    XtAppAddActions (app, actions, XtNumber (actions));
-#endif
-    passwd_dialog = 0;
-    initted = True;
-  }
-  if (!passwd_dialog)
-    make_passwd_dialog (parent);
-  return pop_passwd_dialog (parent);
+  if (si->pw_data || si->passwd_dialog)
+    destroy_passwd_window (si);
+
+  make_passwd_window (si);
+  if (cmap) XInstallColormap (si->dpy, cmap);
+
+  passwd_event_loop (si);
+
+  status = (si->pw_data->state == pw_ok);
+  destroy_passwd_window (si);
+
+  cmap = si->default_screen->cmap;
+  if (cmap) XInstallColormap (si->dpy, cmap);
+
+  return status;
 }
 
-#endif /* !NO_LOCKING */
+#endif /* !NO_LOCKING -- whole file */