Remove rogue debug statement
[u/mdw/putty] / windlg.c
index ca86914..840ca46 100644 (file)
--- a/windlg.c
+++ b/windlg.c
@@ -1,95 +1,39 @@
 #include <windows.h>
 #include <commctrl.h>
 #include <commdlg.h>
+#ifndef AUTO_WINSOCK
+#ifdef WINSOCK_TWO
+#include <winsock2.h>
+#else
 #include <winsock.h>
+#endif
+#endif
 #include <stdio.h>
 #include <stdlib.h>
 
 #include "ssh.h"
 #include "putty.h"
 #include "win_res.h"
+#include "storage.h"
 
-#define NPANELS 8
-#define MAIN_NPANELS 8
-#define RECONF_NPANELS 5
-
-static const char *const puttystr = PUTTY_REG_POS "\\Sessions";
+#define NPANELS 9
+#define MAIN_NPANELS 9
+#define RECONF_NPANELS 6
 
 static char **events = NULL;
 static int nevents = 0, negsize = 0;
 
 static HWND logbox = NULL, abtbox = NULL;
 
-static char hex[16] = "0123456789ABCDEF";
-
-static void mungestr(char *in, char *out) {
-    int candot = 0;
-
-    while (*in) {
-       if (*in == ' ' || *in == '\\' || *in == '*' || *in == '?' ||
-           *in == '%' || *in < ' ' || *in > '~' || (*in == '.' && !candot)) {
-           *out++ = '%';
-           *out++ = hex[((unsigned char)*in) >> 4];
-           *out++ = hex[((unsigned char)*in) & 15];
-       } else
-           *out++ = *in;
-       in++;
-       candot = 1;
-    }
-    *out = '\0';
-    return;
-}
-
-static void unmungestr(char *in, char *out) {
-    while (*in) {
-       if (*in == '%' && in[1] && in[2]) {
-           int i, j;
-
-           i = in[1] - '0'; i -= (i > 9 ? 7 : 0);
-           j = in[2] - '0'; j -= (j > 9 ? 7 : 0);
-
-           *out++ = (i<<4) + j;
-           in += 3;
-       } else
-           *out++ = *in++;
-    }
-    *out = '\0';
-    return;
-}
-
-static void wpps(HKEY key, LPCTSTR name, LPCTSTR value) {
-    RegSetValueEx(key, name, 0, REG_SZ, value, 1+strlen(value));
-}
-
-static void wppi(HKEY key, LPCTSTR name, int value) {
-    RegSetValueEx(key, name, 0, REG_DWORD,
-                 (CONST BYTE *)&value, sizeof(value));
-}
-
-static void gpps(HKEY key, LPCTSTR name, LPCTSTR def,
-                LPTSTR val, int len) {
-    DWORD type, size;
-    size = len;
-
-    if (key == NULL ||
-       RegQueryValueEx(key, name, 0, &type, val, &size) != ERROR_SUCCESS ||
-       type != REG_SZ) {
+static void gpps(void *handle, char *name, char *def, char *val, int len) {
+    if (!read_setting_s(handle, name, val, len)) {
        strncpy(val, def, len);
        val[len-1] = '\0';
     }
 }
 
-static void gppi(HKEY key, LPCTSTR name, int def, int *i) {
-    DWORD type, val, size;
-    size = sizeof(val);
-
-    if (key == NULL ||
-       RegQueryValueEx(key, name, 0, &type,
-                       (BYTE *)&val, &size) != ERROR_SUCCESS ||
-       size != sizeof(val) || type != REG_DWORD)
-       *i = def;
-    else
-       *i = val;
+static void gppi(void *handle, char *name, int def, int *i) {
+    *i = read_setting_i(handle, name, def);
 }
 
 static HINSTANCE hinst;
@@ -98,36 +42,29 @@ static int readytogo;
 
 static void save_settings (char *section, int do_host) {
     int i;
-    HKEY subkey1, sesskey;
     char *p;
+    void *sesskey;
 
-    p = malloc(3*strlen(section)+1);
-    mungestr(section, p);
-    
-    if (RegCreateKey(HKEY_CURRENT_USER, puttystr, &subkey1)!=ERROR_SUCCESS ||
-       RegCreateKey(subkey1, p, &sesskey) != ERROR_SUCCESS) {
-       sesskey = NULL;
-    }
+    sesskey = open_settings_w(section);
+    if (!sesskey)
+        return;
 
-    free(p);
-    RegCloseKey(subkey1);
-
-    wppi (sesskey, "Present", 1);
+    write_setting_i (sesskey, "Present", 1);
     if (do_host) {
-       wpps (sesskey, "HostName", cfg.host);
-       wppi (sesskey, "PortNumber", cfg.port);
+       write_setting_s (sesskey, "HostName", cfg.host);
+       write_setting_i (sesskey, "PortNumber", cfg.port);
         p = "raw";
         for (i = 0; backends[i].name != NULL; i++)
             if (backends[i].protocol == cfg.protocol) {
                 p = backends[i].name;
                 break;
             }
-        wpps (sesskey, "Protocol", p);
+        write_setting_s (sesskey, "Protocol", p);
     }
-    wppi (sesskey, "CloseOnExit", !!cfg.close_on_exit);
-    wppi (sesskey, "WarnOnClose", !!cfg.warn_on_close);
-    wpps (sesskey, "TerminalType", cfg.termtype);
-    wpps (sesskey, "TerminalSpeed", cfg.termspeed);
+    write_setting_i (sesskey, "CloseOnExit", !!cfg.close_on_exit);
+    write_setting_i (sesskey, "WarnOnClose", !!cfg.warn_on_close);
+    write_setting_s (sesskey, "TerminalType", cfg.termtype);
+    write_setting_s (sesskey, "TerminalSpeed", cfg.termspeed);
     {
       char buf[2*sizeof(cfg.environmt)], *p, *q;
        p = buf;
@@ -145,51 +82,53 @@ static void save_settings (char *section, int do_host) {
            q++;
        }
        *p = '\0';
-       wpps (sesskey, "Environment", buf);
+       write_setting_s (sesskey, "Environment", buf);
     }
-    wpps (sesskey, "UserName", cfg.username);
-    wppi (sesskey, "NoPTY", cfg.nopty);
-    wppi (sesskey, "AgentFwd", cfg.agentfwd);
-    wpps (sesskey, "RemoteCmd", cfg.remote_cmd);
-    wpps (sesskey, "Cipher", cfg.cipher == CIPHER_BLOWFISH ? "blowfish" :
+    write_setting_s (sesskey, "UserName", cfg.username);
+    write_setting_i (sesskey, "NoPTY", cfg.nopty);
+    write_setting_i (sesskey, "AgentFwd", cfg.agentfwd);
+    write_setting_s (sesskey, "RemoteCmd", cfg.remote_cmd);
+    write_setting_s (sesskey, "Cipher", cfg.cipher == CIPHER_BLOWFISH ? "blowfish" :
                              cfg.cipher == CIPHER_DES ? "des" : "3des");
-    wppi (sesskey, "AuthTIS", cfg.try_tis_auth);
-    wppi (sesskey, "SshProt", cfg.sshprot);
-    wpps (sesskey, "PublicKeyFile", cfg.keyfile);
-    wppi (sesskey, "RFCEnviron", cfg.rfc_environ);
-    wppi (sesskey, "BackspaceIsDelete", cfg.bksp_is_delete);
-    wppi (sesskey, "RXVTHomeEnd", cfg.rxvt_homeend);
-    wppi (sesskey, "LinuxFunctionKeys", cfg.funky_type);
-    wppi (sesskey, "ApplicationCursorKeys", cfg.app_cursor);
-    wppi (sesskey, "ApplicationKeypad", cfg.app_keypad);
-    wppi (sesskey, "NetHackKeypad", cfg.nethack_keypad);
-    wppi (sesskey, "AltF4", cfg.alt_f4);
-    wppi (sesskey, "AltSpace", cfg.alt_space);
-    wppi (sesskey, "LdiscTerm", cfg.ldisc_term);
-    wppi (sesskey, "BlinkCur", cfg.blink_cur);
-    wppi (sesskey, "Beep", cfg.beep);
-    wppi (sesskey, "ScrollbackLines", cfg.savelines);
-    wppi (sesskey, "DECOriginMode", cfg.dec_om);
-    wppi (sesskey, "AutoWrapMode", cfg.wrap_mode);
-    wppi (sesskey, "LFImpliesCR", cfg.lfhascr);
-    wppi (sesskey, "WinNameAlways", cfg.win_name_always);
-    wppi (sesskey, "TermWidth", cfg.width);
-    wppi (sesskey, "TermHeight", cfg.height);
-    wpps (sesskey, "Font", cfg.font);
-    wppi (sesskey, "FontIsBold", cfg.fontisbold);
-    wppi (sesskey, "FontCharSet", cfg.fontcharset);
-    wppi (sesskey, "FontHeight", cfg.fontheight);
-    wppi (sesskey, "FontVTMode", cfg.vtmode);
-    wppi (sesskey, "TryPalette", cfg.try_palette);
-    wppi (sesskey, "BoldAsColour", cfg.bold_colour);
+    write_setting_i (sesskey, "AuthTIS", cfg.try_tis_auth);
+    write_setting_i (sesskey, "SshProt", cfg.sshprot);
+    write_setting_s (sesskey, "PublicKeyFile", cfg.keyfile);
+    write_setting_s (sesskey, "RemoteCommand", cfg.remote_cmd);
+    write_setting_i (sesskey, "RFCEnviron", cfg.rfc_environ);
+    write_setting_i (sesskey, "BackspaceIsDelete", cfg.bksp_is_delete);
+    write_setting_i (sesskey, "RXVTHomeEnd", cfg.rxvt_homeend);
+    write_setting_i (sesskey, "LinuxFunctionKeys", cfg.funky_type);
+    write_setting_i (sesskey, "ApplicationCursorKeys", cfg.app_cursor);
+    write_setting_i (sesskey, "ApplicationKeypad", cfg.app_keypad);
+    write_setting_i (sesskey, "NetHackKeypad", cfg.nethack_keypad);
+    write_setting_i (sesskey, "AltF4", cfg.alt_f4);
+    write_setting_i (sesskey, "AltSpace", cfg.alt_space);
+    write_setting_i (sesskey, "LdiscTerm", cfg.ldisc_term);
+    write_setting_i (sesskey, "BlinkCur", cfg.blink_cur);
+    write_setting_i (sesskey, "Beep", cfg.beep);
+    write_setting_i (sesskey, "ScrollbackLines", cfg.savelines);
+    write_setting_i (sesskey, "DECOriginMode", cfg.dec_om);
+    write_setting_i (sesskey, "AutoWrapMode", cfg.wrap_mode);
+    write_setting_i (sesskey, "LFImpliesCR", cfg.lfhascr);
+    write_setting_i (sesskey, "WinNameAlways", cfg.win_name_always);
+    write_setting_s (sesskey, "WinTitle", cfg.wintitle);
+    write_setting_i (sesskey, "TermWidth", cfg.width);
+    write_setting_i (sesskey, "TermHeight", cfg.height);
+    write_setting_s (sesskey, "Font", cfg.font);
+    write_setting_i (sesskey, "FontIsBold", cfg.fontisbold);
+    write_setting_i (sesskey, "FontCharSet", cfg.fontcharset);
+    write_setting_i (sesskey, "FontHeight", cfg.fontheight);
+    write_setting_i (sesskey, "FontVTMode", cfg.vtmode);
+    write_setting_i (sesskey, "TryPalette", cfg.try_palette);
+    write_setting_i (sesskey, "BoldAsColour", cfg.bold_colour);
     for (i=0; i<22; i++) {
        char buf[20], buf2[30];
        sprintf(buf, "Colour%d", i);
        sprintf(buf2, "%d,%d,%d", cfg.colours[i][0],
                cfg.colours[i][1], cfg.colours[i][2]);
-       wpps (sesskey, buf, buf2);
+       write_setting_s (sesskey, buf, buf2);
     }
-    wppi (sesskey, "MouseIsXterm", cfg.mouse_is_xterm);
+    write_setting_i (sesskey, "MouseIsXterm", cfg.mouse_is_xterm);
     for (i=0; i<256; i+=32) {
        char buf[20], buf2[256];
        int j;
@@ -199,54 +138,26 @@ static void save_settings (char *section, int do_host) {
            sprintf(buf2+strlen(buf2), "%s%d",
                    (*buf2 ? "," : ""), cfg.wordness[j]);
        }
-       wpps (sesskey, buf, buf2);
+       write_setting_s (sesskey, buf, buf2);
     }
-    wppi (sesskey, "KoiWinXlat", cfg.xlat_enablekoiwin);
-    wppi (sesskey, "88592Xlat", cfg.xlat_88592w1250);
-    wppi (sesskey, "CapsLockCyr", cfg.xlat_capslockcyr);
-    wppi (sesskey, "ScrollBar", cfg.scrollbar);
-    wppi (sesskey, "ScrollOnKey", cfg.scroll_on_key);
-    wppi (sesskey, "LockSize", cfg.locksize);
-    wppi (sesskey, "BCE", cfg.bce);
-    wppi (sesskey, "BlinkText", cfg.blinktext);
-
-    RegCloseKey(sesskey);
-}
-
-static void del_session (char *section) {
-    HKEY subkey1;
-    char *p;
-
-    if (RegOpenKey(HKEY_CURRENT_USER, puttystr, &subkey1) != ERROR_SUCCESS)
-       return;
-
-    p = malloc(3*strlen(section)+1);
-    mungestr(section, p);
-    RegDeleteKey(subkey1, p);
-    free(p);
-
-    RegCloseKey(subkey1);
+    write_setting_i (sesskey, "KoiWinXlat", cfg.xlat_enablekoiwin);
+    write_setting_i (sesskey, "88592Xlat", cfg.xlat_88592w1250);
+    write_setting_i (sesskey, "CapsLockCyr", cfg.xlat_capslockcyr);
+    write_setting_i (sesskey, "ScrollBar", cfg.scrollbar);
+    write_setting_i (sesskey, "ScrollOnKey", cfg.scroll_on_key);
+    write_setting_i (sesskey, "LockSize", cfg.locksize);
+    write_setting_i (sesskey, "BCE", cfg.bce);
+    write_setting_i (sesskey, "BlinkText", cfg.blinktext);
+
+    close_settings_w(sesskey);
 }
 
 static void load_settings (char *section, int do_host) {
     int i;
-    HKEY subkey1, sesskey;
-    char *p;
     char prot[10];
+    void *sesskey;
 
-    p = malloc(3*strlen(section)+1);
-    mungestr(section, p);
-
-    if (RegOpenKey(HKEY_CURRENT_USER, puttystr, &subkey1) != ERROR_SUCCESS) {
-       sesskey = NULL;
-    } else {
-       if (RegOpenKey(subkey1, p, &sesskey) != ERROR_SUCCESS) {
-           sesskey = NULL;
-       }
-       RegCloseKey(subkey1);
-    }
-
-    free(p);
+    sesskey = open_settings_r(section);
 
     gpps (sesskey, "HostName", "", cfg.host, sizeof(cfg.host));
     gppi (sesskey, "PortNumber", default_port, &cfg.port);
@@ -301,6 +212,8 @@ static void load_settings (char *section, int do_host) {
     gppi (sesskey, "SshProt", 1, &cfg.sshprot);
     gppi (sesskey, "AuthTIS", 0, &cfg.try_tis_auth);
     gpps (sesskey, "PublicKeyFile", "", cfg.keyfile, sizeof(cfg.keyfile));
+    gpps (sesskey, "RemoteCommand", "", cfg.remote_cmd,
+          sizeof(cfg.remote_cmd));
     gppi (sesskey, "RFCEnviron", 0, &cfg.rfc_environ);
     gppi (sesskey, "BackspaceIsDelete", 1, &cfg.bksp_is_delete);
     gppi (sesskey, "RXVTHomeEnd", 0, &cfg.rxvt_homeend);
@@ -318,6 +231,7 @@ static void load_settings (char *section, int do_host) {
     gppi (sesskey, "AutoWrapMode", 1, &cfg.wrap_mode);
     gppi (sesskey, "LFImpliesCR", 0, &cfg.lfhascr);
     gppi (sesskey, "WinNameAlways", 0, &cfg.win_name_always);
+    gpps (sesskey, "WinTitle", "", cfg.wintitle, sizeof(cfg.wintitle));
     gppi (sesskey, "TermWidth", 80, &cfg.width);
     gppi (sesskey, "TermHeight", 24, &cfg.height);
     gpps (sesskey, "Font", "Courier", cfg.font, sizeof(cfg.font));
@@ -378,7 +292,7 @@ static void load_settings (char *section, int do_host) {
     gppi (sesskey, "BCE", 0, &cfg.bce);
     gppi (sesskey, "BlinkText", 0, &cfg.blinktext);
 
-    RegCloseKey(sesskey);
+    close_settings_r(sesskey);
 }
 
 static void force_normal(HWND hwnd)
@@ -425,6 +339,46 @@ static int CALLBACK LogProc (HWND hwnd, UINT msg,
            logbox = NULL;
            DestroyWindow (hwnd);
            return 0;
+          case IDN_COPY:
+           if (HIWORD(wParam) == BN_CLICKED ||
+               HIWORD(wParam) == BN_DOUBLECLICKED) {
+                int selcount;
+                int *selitems;
+                selcount = SendDlgItemMessage(hwnd, IDN_LIST,
+                                              LB_GETSELCOUNT, 0, 0);
+                selitems = malloc(selcount * sizeof(int));
+                if (selitems) {
+                    int count = SendDlgItemMessage(hwnd, IDN_LIST,
+                                                   LB_GETSELITEMS,
+                                                   selcount, (LPARAM)selitems);
+                    int i;
+                    int size;
+                    char *clipdata;
+                    static unsigned char sel_nl[] = SEL_NL;
+
+                    size = 0;
+                    for (i = 0; i < count; i++)
+                        size += strlen(events[selitems[i]]) + sizeof(sel_nl);
+
+                    clipdata = malloc(size);
+                    if (clipdata) {
+                        char *p = clipdata;
+                        for (i = 0; i < count; i++) {
+                            char *q = events[selitems[i]];
+                            int qlen = strlen(q);
+                            memcpy(p, q, qlen);
+                            p += qlen;
+                            memcpy(p, sel_nl, sizeof(sel_nl));
+                            p += sizeof(sel_nl);
+                        }
+                        write_clip(clipdata, size);
+                        term_deselect();
+                        free(clipdata);
+                    }
+                    free(selitems);
+                }
+            }
+            return 0;
        }
        return 0;
       case WM_CLOSE:
@@ -443,14 +397,12 @@ static int CALLBACK LicenceProc (HWND hwnd, UINT msg,
       case WM_COMMAND:
        switch (LOWORD(wParam)) {
          case IDOK:
-           abtbox = NULL;
-           DestroyWindow (hwnd);
+           EndDialog(hwnd, 1);
            return 0;
        }
        return 0;
       case WM_CLOSE:
-       abtbox = NULL;
-       DestroyWindow (hwnd);
+       EndDialog(hwnd, 1);
        return 0;
     }
     return 0;
@@ -490,18 +442,609 @@ static int CALLBACK AboutProc (HWND hwnd, UINT msg,
     return 0;
 }
 
+/* ----------------------------------------------------------------------
+ * Routines to self-manage the controls in a dialog box.
+ */
+
+#define GAPBETWEEN 3
+#define GAPWITHIN 1
+#define DLGWIDTH 168
+#define STATICHEIGHT 8
+#define CHECKBOXHEIGHT 8
+#define RADIOHEIGHT 8
+#define EDITHEIGHT 12
+#define COMBOHEIGHT 12
+#define PUSHBTNHEIGHT 14
+
+struct ctlpos {
+    HWND hwnd;
+    LONG units;
+    WPARAM font;
+    int ypos, width;
+};
+
+/* Used on self-constructed dialogs. */
+void ctlposinit(struct ctlpos *cp, HWND hwnd) {
+    RECT r;
+    cp->hwnd = hwnd;
+    cp->units = GetWindowLong(hwnd, GWL_USERDATA);
+    cp->font = GetWindowLong(hwnd, DWL_USER);
+    cp->ypos = GAPBETWEEN;
+    GetClientRect(hwnd, &r);
+    cp->width = (r.right * 4) / (cp->units & 0xFFFF) - 2*GAPBETWEEN;
+}
+
+/* Used on kosher dialogs. */
+void ctlposinit2(struct ctlpos *cp, HWND hwnd) {
+    RECT r;
+    cp->hwnd = hwnd;
+    r.left = r.top = 0;
+    r.right = 4;
+    r.bottom = 8;
+    MapDialogRect(hwnd, &r);
+    cp->units = (r.bottom << 16) | r.right;
+    cp->font = SendMessage(hwnd, WM_GETFONT, 0, 0);
+    cp->ypos = GAPBETWEEN;
+    GetClientRect(hwnd, &r);
+    cp->width = (r.right * 4) / (cp->units & 0xFFFF) - 2*GAPBETWEEN;
+}
+
+void doctl(struct ctlpos *cp, RECT r, char *wclass, int wstyle, int exstyle,
+           char *wtext, int wid) {
+    HWND ctl;
+    /*
+     * Note nonstandard use of RECT. This is deliberate: by
+     * transforming the width and height directly we arrange to
+     * have all supposedly same-sized controls really same-sized.
+     */
+
+    /* MapDialogRect, or its near equivalent. */
+    r.left = (r.left * (cp->units & 0xFFFF)) / 4;
+    r.right = (r.right * (cp->units & 0xFFFF)) / 4;
+    r.top = (r.top * ((cp->units>>16) & 0xFFFF)) / 8;
+    r.bottom = (r.bottom * ((cp->units>>16) & 0xFFFF)) / 8;
+
+    ctl = CreateWindowEx(exstyle, wclass, wtext, wstyle,
+                         r.left, r.top, r.right, r.bottom,
+                         cp->hwnd, (HMENU)wid, hinst, NULL);
+    SendMessage(ctl, WM_SETFONT, cp->font, MAKELPARAM(TRUE, 0));
+}
+
+/*
+ * Some edit boxes. Each one has a static above it. The percentages
+ * of the horizontal space are provided.
+ */
+void multiedit(struct ctlpos *cp, ...) {
+    RECT r;
+    va_list ap;
+    int percent, xpos;
+
+    percent = xpos = 0;
+    va_start(ap, cp);
+    while (1) {
+        char *text;
+        int staticid, editid, pcwidth;
+        text = va_arg(ap, char *);
+        if (!text)
+            break;
+        staticid = va_arg(ap, int);
+        editid = va_arg(ap, int);
+        pcwidth = va_arg(ap, int);
+
+        r.left = xpos + GAPBETWEEN;
+        percent += pcwidth;
+        xpos = (cp->width + GAPBETWEEN) * percent / 100;
+        r.right = xpos - r.left;
+
+        r.top = cp->ypos; r.bottom = STATICHEIGHT;
+        doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0,
+              text, staticid);
+        r.top = cp->ypos + 8 + GAPWITHIN; r.bottom = EDITHEIGHT;
+        doctl(cp, r, "EDIT",
+              WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL,
+              WS_EX_CLIENTEDGE,
+              "", editid);
+    }
+    va_end(ap);
+    cp->ypos += 8+GAPWITHIN+12+GAPBETWEEN;
+}
+
+/*
+ * A set of radio buttons on the same line, with a static above
+ * them. `nacross' dictates how many parts the line is divided into
+ * (you might want this not to equal the number of buttons if you
+ * needed to line up some 2s and some 3s to look good in the same
+ * panel).
+ */
+void radioline(struct ctlpos *cp, char *text, int id, int nacross, ...) {
+    RECT r;
+    va_list ap;
+    int group;
+    int i;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, text, id);
+    va_start(ap, nacross);
+    group = WS_GROUP;
+    i = 0;
+    while (1) {
+        char *btext;
+        int bid;
+        btext = va_arg(ap, char *);
+        if (!btext)
+            break;
+        bid = va_arg(ap, int);
+        r.left = GAPBETWEEN + i * (cp->width+GAPBETWEEN)/nacross;
+        r.right = (i+1) * (cp->width+GAPBETWEEN)/nacross - r.left;
+        r.top = cp->ypos; r.bottom = RADIOHEIGHT;
+        doctl(cp, r, "BUTTON",
+              BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP | group,
+              0,
+              btext, bid);
+        group = 0;
+        i++;
+    }
+    va_end(ap);
+    cp->ypos += r.bottom + GAPBETWEEN;
+}
+
+/*
+ * A set of radio buttons on multiple lines, with a static above
+ * them.
+ */
+void radiobig(struct ctlpos *cp, char *text, int id, ...) {
+    RECT r;
+    va_list ap;
+    int group;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, text, id);
+    va_start(ap, id);
+    group = WS_GROUP;
+    while (1) {
+        char *btext;
+        int bid;
+        btext = va_arg(ap, char *);
+        if (!btext)
+            break;
+        bid = va_arg(ap, int);
+        r.left = GAPBETWEEN; r.top = cp->ypos;
+        r.right = cp->width; r.bottom = STATICHEIGHT;
+        cp->ypos += r.bottom + GAPWITHIN;
+        doctl(cp, r, "BUTTON",
+              BS_AUTORADIOBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP | group,
+              0,
+              btext, bid);
+        group = 0;
+    }
+    va_end(ap);
+    cp->ypos += GAPBETWEEN - GAPWITHIN;
+}
+
+/*
+ * A single standalone checkbox.
+ */
+void checkbox(struct ctlpos *cp, char *text, int id) {
+    RECT r;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = CHECKBOXHEIGHT;
+    cp->ypos += r.bottom + GAPBETWEEN;
+    doctl(cp, r, "BUTTON",
+          BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 0,
+          text, id);
+}
+
+/*
+ * A button on the right hand side, with a static to its left.
+ */
+void staticbtn(struct ctlpos *cp, char *stext, int sid, char *btext, int bid) {
+    const int height = (PUSHBTNHEIGHT > STATICHEIGHT ?
+                        PUSHBTNHEIGHT : STATICHEIGHT);
+    RECT r;
+    int lwid, rwid, rpos;
+
+    rpos = GAPBETWEEN + 3 * (cp->width + GAPBETWEEN) / 4;
+    lwid = rpos - 2*GAPBETWEEN;
+    rwid = cp->width + GAPBETWEEN - rpos;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos + (height-STATICHEIGHT)/2;
+    r.right = lwid; r.bottom = STATICHEIGHT;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+
+    r.left = rpos; r.top = cp->ypos + (height-PUSHBTNHEIGHT)/2;
+    r.right = rwid; r.bottom = PUSHBTNHEIGHT;
+    doctl(cp, r, "BUTTON",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON,
+          0,
+          btext, bid);
+
+    cp->ypos += height + GAPBETWEEN;
+}
+
+/*
+ * An edit control on the right hand side, with a static to its left.
+ */
+void staticedit(struct ctlpos *cp, char *stext, int sid, int eid) {
+    const int height = (EDITHEIGHT > STATICHEIGHT ?
+                        EDITHEIGHT : STATICHEIGHT);
+    RECT r;
+    int lwid, rwid, rpos;
+
+    rpos = GAPBETWEEN + (cp->width + GAPBETWEEN) / 2;
+    lwid = rpos - 2*GAPBETWEEN;
+    rwid = cp->width + GAPBETWEEN - rpos;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos + (height-STATICHEIGHT)/2;
+    r.right = lwid; r.bottom = STATICHEIGHT;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+
+    r.left = rpos; r.top = cp->ypos + (height-EDITHEIGHT)/2;
+    r.right = rwid; r.bottom = EDITHEIGHT;
+    doctl(cp, r, "EDIT",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL,
+          WS_EX_CLIENTEDGE,
+          "", eid);
+
+    cp->ypos += height + GAPBETWEEN;
+}
+
+/*
+ * A tab-control substitute when a real tab control is unavailable.
+ */
+void ersatztab(struct ctlpos *cp, char *stext, int sid, int lid, int s2id) {
+    const int height = (COMBOHEIGHT > STATICHEIGHT ?
+                        COMBOHEIGHT : STATICHEIGHT);
+    RECT r;
+    int bigwid, lwid, rwid, rpos;
+    static const int BIGGAP = 15;
+    static const int MEDGAP = 3;
+
+    bigwid = cp->width + 2*GAPBETWEEN - 2*BIGGAP;
+    cp->ypos += MEDGAP;
+    rpos = BIGGAP + (bigwid + BIGGAP) / 2;
+    lwid = rpos - 2*BIGGAP;
+    rwid = bigwid + BIGGAP - rpos;
+
+    r.left = BIGGAP; r.top = cp->ypos + (height-STATICHEIGHT)/2;
+    r.right = lwid; r.bottom = STATICHEIGHT;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+
+    r.left = rpos; r.top = cp->ypos + (height-COMBOHEIGHT)/2;
+    r.right = rwid; r.bottom = COMBOHEIGHT*10;
+    doctl(cp, r, "COMBOBOX",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP |
+          CBS_DROPDOWNLIST | CBS_HASSTRINGS,
+          WS_EX_CLIENTEDGE,
+          "", lid);
+
+    cp->ypos += height + MEDGAP + GAPBETWEEN;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = 2;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE | SS_ETCHEDHORZ,
+          0, "", s2id);
+}
+
+/*
+ * A static line, followed by an edit control on the left hand side
+ * and a button on the right.
+ */
+void editbutton(struct ctlpos *cp, char *stext, int sid,
+                int eid, char *btext, int bid) {
+    const int height = (EDITHEIGHT > PUSHBTNHEIGHT ?
+                        EDITHEIGHT : PUSHBTNHEIGHT);
+    RECT r;
+    int lwid, rwid, rpos;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+
+    rpos = GAPBETWEEN + 3 * (cp->width + GAPBETWEEN) / 4;
+    lwid = rpos - 2*GAPBETWEEN;
+    rwid = cp->width + GAPBETWEEN - rpos;
+
+    r.left = GAPBETWEEN; r.top = cp->ypos + (height-EDITHEIGHT)/2;
+    r.right = lwid; r.bottom = EDITHEIGHT;
+    doctl(cp, r, "EDIT",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL,
+          WS_EX_CLIENTEDGE,
+          "", eid);
+
+    r.left = rpos; r.top = cp->ypos + (height-PUSHBTNHEIGHT)/2;
+    r.right = rwid; r.bottom = PUSHBTNHEIGHT;
+    doctl(cp, r, "BUTTON",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON,
+          0,
+          btext, bid);
+
+    cp->ypos += height + GAPBETWEEN;
+}
+
+/*
+ * Special control which was hard to describe generically: the
+ * session-saver assembly. A static; below that an edit box; below
+ * that a list box. To the right of the list box, a column of
+ * buttons.
+ */
+void sesssaver(struct ctlpos *cp, char *text,
+               int staticid, int editid, int listid, ...) {
+    RECT r;
+    va_list ap;
+    int lwid, rwid, rpos;
+    int y;
+    const int LISTDEFHEIGHT = 66;
+
+    rpos = GAPBETWEEN + 3 * (cp->width + GAPBETWEEN) / 4;
+    lwid = rpos - 2*GAPBETWEEN;
+    rwid = cp->width + GAPBETWEEN - rpos;
+
+    /* The static control. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = lwid; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, text, staticid);
+
+    /* The edit control. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = lwid; r.bottom = EDITHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "EDIT",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL,
+          WS_EX_CLIENTEDGE,
+          "", staticid);
+
+    /*
+     * The buttons (we should hold off on the list box until we
+     * know how big the buttons are).
+     */
+    va_start(ap, listid);
+    y = cp->ypos;
+    while (1) {
+        char *btext = va_arg(ap, char *);
+        int bid;
+        if (!btext) break;
+        bid = va_arg(ap, int);
+        r.left = rpos; r.top = y;
+        r.right = rwid; r.bottom = PUSHBTNHEIGHT;
+        y += r.bottom + GAPWITHIN;
+        doctl(cp, r, "BUTTON",
+              WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON,
+              0,
+              btext, bid);
+    }
+
+    /* Compute list box height. LISTDEFHEIGHT, or height of buttons. */
+    y -= cp->ypos;
+    y -= GAPWITHIN;
+    if (y < LISTDEFHEIGHT) y = LISTDEFHEIGHT;
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = lwid; r.bottom = y;
+    cp->ypos += y + GAPBETWEEN;
+    doctl(cp, r, "LISTBOX",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_VSCROLL | LBS_HASSTRINGS,
+          WS_EX_CLIENTEDGE,
+          "", listid);
+}
+
+/*
+ * Another special control: the environment-variable setter. A
+ * static line first; then a pair of edit boxes with associated
+ * statics, and two buttons; then a list box.
+ */
+void envsetter(struct ctlpos *cp, char *stext, int sid,
+               char *e1stext, int e1sid, int e1id,
+               char *e2stext, int e2sid, int e2id,
+               int listid, char *b1text, int b1id, char *b2text, int b2id) {
+    RECT r;
+    const int height = (STATICHEIGHT > EDITHEIGHT && STATICHEIGHT > PUSHBTNHEIGHT ?
+                        STATICHEIGHT :
+                        EDITHEIGHT > PUSHBTNHEIGHT ?
+                        EDITHEIGHT : PUSHBTNHEIGHT);
+    const static int percents[] = { 20, 35, 10, 25 };
+    int i, j, xpos, percent;
+    const int LISTHEIGHT = 42;
+
+    /* The static control. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+
+    /* The statics+edits+buttons. */
+    for (j = 0; j < 2; j++) {
+        percent = 10;
+        for (i = 0; i < 4; i++) {
+            xpos = (cp->width + GAPBETWEEN) * percent / 100;
+            r.left = xpos + GAPBETWEEN;
+            percent += percents[i];
+            xpos = (cp->width + GAPBETWEEN) * percent / 100;
+            r.right = xpos - r.left;
+            r.top = cp->ypos;
+            r.bottom = (i==0 ? STATICHEIGHT :
+                        i==1 ? EDITHEIGHT :
+                        PUSHBTNHEIGHT);
+            r.top += (height-r.bottom)/2;
+            if (i==0) {
+                doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0,
+                      j==0 ? e1stext : e2stext, j==0 ? e1sid : e2sid);
+            } else if (i==1) {
+                doctl(cp, r, "EDIT",
+                      WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL,
+                      WS_EX_CLIENTEDGE,
+                      "", j==0 ? e1id : e2id);
+            } else if (i==3) {
+                doctl(cp, r, "BUTTON",
+                      WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON,
+                      0,
+                      j==0 ? b1text : b2text, j==0 ? b1id : b2id);
+            }
+        }
+        cp->ypos += height + GAPWITHIN;
+    }
+
+    /* The list box. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = LISTHEIGHT;
+    cp->ypos += r.bottom + GAPBETWEEN;
+    doctl(cp, r, "LISTBOX",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_VSCROLL | LBS_HASSTRINGS |
+          LBS_USETABSTOPS,
+          WS_EX_CLIENTEDGE,
+          "", listid);
+}
+
+/*
+ * Yet another special control: the character-class setter. A
+ * static, then a list, then a line containing a
+ * button-and-static-and-edit. 
+ */
+void charclass(struct ctlpos *cp, char *stext, int sid, int listid,
+               char *btext, int bid, int eid, char *s2text, int s2id) {
+    RECT r;
+    const int height = (STATICHEIGHT > EDITHEIGHT && STATICHEIGHT > PUSHBTNHEIGHT ?
+                        STATICHEIGHT :
+                        EDITHEIGHT > PUSHBTNHEIGHT ?
+                        EDITHEIGHT : PUSHBTNHEIGHT);
+    const static int percents[] = { 30, 40, 30 };
+    int i, xpos, percent;
+    const int LISTHEIGHT = 66;
+
+    /* The static control. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+
+    /* The list box. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = LISTHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "LISTBOX",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_VSCROLL | LBS_HASSTRINGS |
+          LBS_USETABSTOPS,
+          WS_EX_CLIENTEDGE,
+          "", listid);
+
+    /* The button+static+edit. */
+    percent = xpos = 0;
+    for (i = 0; i < 3; i++) {
+        r.left = xpos + GAPBETWEEN;
+        percent += percents[i];
+        xpos = (cp->width + GAPBETWEEN) * percent / 100;
+        r.right = xpos - r.left;
+        r.top = cp->ypos;
+        r.bottom = (i==0 ? PUSHBTNHEIGHT :
+                    i==1 ? STATICHEIGHT :
+                    EDITHEIGHT);
+        r.top += (height-r.bottom)/2;
+        if (i==0) {
+            doctl(cp, r, "BUTTON",
+                  WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON,
+                  0, btext, bid);
+        } else if (i==1) {
+            doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE | SS_CENTER,
+                  0, s2text, s2id);
+        } else if (i==2) {
+            doctl(cp, r, "EDIT",
+                  WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL,
+                  WS_EX_CLIENTEDGE, "", eid);
+        }
+    }
+    cp->ypos += height + GAPBETWEEN;
+}
+
+/*
+ * A special control (horrors!). The colour editor. A static line;
+ * then on the left, a list box, and on the right, a sequence of
+ * two-part statics followed by a button.
+ */
+void colouredit(struct ctlpos *cp, char *stext, int sid, int listid,
+                char *btext, int bid, ...) {
+    RECT r;
+    int y;
+    va_list ap;
+    int lwid, rwid, rpos;
+    const int LISTHEIGHT = 66;
+
+    /* The static control. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = cp->width; r.bottom = STATICHEIGHT;
+    cp->ypos += r.bottom + GAPWITHIN;
+    doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, stext, sid);
+    
+    rpos = GAPBETWEEN + 2 * (cp->width + GAPBETWEEN) / 3;
+    lwid = rpos - 2*GAPBETWEEN;
+    rwid = cp->width + GAPBETWEEN - rpos;
+
+    /* The list box. */
+    r.left = GAPBETWEEN; r.top = cp->ypos;
+    r.right = lwid; r.bottom = LISTHEIGHT;
+    doctl(cp, r, "LISTBOX",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | WS_VSCROLL | LBS_HASSTRINGS |
+          LBS_USETABSTOPS,
+          WS_EX_CLIENTEDGE,
+          "", listid);
+
+    /* The statics. */
+    y = cp->ypos;
+    va_start(ap, bid);
+    while (1) {
+        char *ltext;
+        int lid, rid;
+        ltext = va_arg(ap, char *);
+        if (!ltext) break;
+        lid = va_arg(ap, int);
+        rid = va_arg(ap, int);
+        r.top = y; r.bottom = STATICHEIGHT;
+        y += r.bottom + GAPWITHIN;
+        r.left = rpos; r.right = rwid/2;
+        doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE, 0, ltext, lid);
+        r.left = rpos + r.right; r.right = rwid - r.right;
+        doctl(cp, r, "STATIC", WS_CHILD | WS_VISIBLE | SS_RIGHT, 0, "", rid);
+    }
+    va_end(ap);
+
+    /* The button. */
+    r.top = y + 2*GAPWITHIN; r.bottom = PUSHBTNHEIGHT;
+    r.left = rpos; r.right = rwid;
+    doctl(cp, r, "BUTTON",
+          WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON,
+          0, btext, bid);
+
+    cp->ypos += LISTHEIGHT + GAPBETWEEN;
+}
+
 static int GeneralPanelProc (HWND hwnd, UINT msg,
                             WPARAM wParam, LPARAM lParam) {
     switch (msg) {
+      case WM_SETFONT:
+        {
+            HFONT hfont = (HFONT)wParam;
+            HFONT oldfont;
+            HDC hdc;
+            TEXTMETRIC tm;
+            LONG units;
+
+            hdc = GetDC(hwnd);
+            oldfont = SelectObject(hdc, hfont);
+            GetTextMetrics(hdc, &tm);
+            units = (tm.tmHeight << 16) | tm.tmAveCharWidth;
+            SelectObject(hdc, oldfont);
+            DeleteDC(hdc);
+            SetWindowLong(hwnd, GWL_USERDATA, units);
+            SetWindowLong(hwnd, DWL_USER, wParam);
+        }
+        return 0;
       case WM_INITDIALOG:
        SetWindowPos (hwnd, HWND_TOP, 0, 0, 0, 0, SWP_NOMOVE | SWP_NOSIZE);
        return 1;
-/*      case WM_CTLCOLORDLG: */
-/*     return (int) GetStockObject (LTGRAY_BRUSH); */
-/*      case WM_CTLCOLORSTATIC: */
-/*      case WM_CTLCOLORBTN: */
-/*     SetBkColor ((HDC)wParam, RGB(192,192,192)); */
-/*     return (int) GetStockObject (LTGRAY_BRUSH); */
       case WM_CLOSE:
        DestroyWindow (hwnd);
        return 1;
@@ -514,9 +1057,32 @@ static char savedsession[2048];
 static int CALLBACK ConnectionProc (HWND hwnd, UINT msg,
                                    WPARAM wParam, LPARAM lParam) {
     int i;
+    struct ctlpos cp;
 
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] dehlnprstwx */
+        ctlposinit(&cp, hwnd);
+        multiedit(&cp,
+                  "Host &Name", IDC0_HOSTSTATIC, IDC0_HOST, 75,
+                  "&Port", IDC0_PORTSTATIC, IDC0_PORT, 25, NULL);
+        radioline(&cp, "Protocol:", IDC0_PROTSTATIC, 3,
+                  "&Raw", IDC0_PROTRAW,
+                  "&Telnet", IDC0_PROTTELNET,
+#ifdef FWHACK
+                  "SS&H/hack",
+#else
+                  "SS&H",
+#endif
+                  IDC0_PROTSSH, NULL);
+        sesssaver(&cp, "Stor&ed Sessions",
+                  IDC0_SESSSTATIC, IDC0_SESSEDIT, IDC0_SESSLIST,
+                  "&Load", IDC0_SESSLOAD,
+                  "&Save", IDC0_SESSSAVE,
+                  "&Delete", IDC0_SESSDEL, NULL);
+        checkbox(&cp, "Close Window on E&xit", IDC0_CLOSEEXIT);
+        checkbox(&cp, "&Warn on Close", IDC0_CLOSEWARN);
+
        SetDlgItemText (hwnd, IDC0_HOST, cfg.host);
        SetDlgItemText (hwnd, IDC0_SESSEDIT, savedsession);
        SetDlgItemInt (hwnd, IDC0_PORT, cfg.port, FALSE);
@@ -662,7 +1228,7 @@ static int CALLBACK ConnectionProc (HWND hwnd, UINT msg,
                    MessageBeep(0);
                    break;
                }
-               del_session(sessions[n]);
+               del_settings(sessions[n]);
                get_sesslist (FALSE);
                get_sesslist (TRUE);
                SendDlgItemMessage (hwnd, IDC0_SESSLIST, LB_RESETCONTENT,
@@ -679,9 +1245,34 @@ static int CALLBACK ConnectionProc (HWND hwnd, UINT msg,
 }
 
 static int CALLBACK KeyboardProc (HWND hwnd, UINT msg,
-                                   WPARAM wParam, LPARAM lParam) {
+                                  WPARAM wParam, LPARAM lParam) {
+    struct ctlpos cp;
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] 4?ehiklmnprsuvxy */
+        ctlposinit(&cp, hwnd);
+        radioline(&cp, "Action of Backspace:", IDC1_DELSTATIC, 2,
+                  "Control-&H", IDC1_DEL008,
+                  "Control-&? (127)", IDC1_DEL127, NULL);
+        radioline(&cp, "Action of Home and End:", IDC1_HOMESTATIC, 2,
+                  "&Standard", IDC1_HOMETILDE,
+                  "&rxvt", IDC1_HOMERXVT, NULL);
+        radioline(&cp, "Function key and keypad layout:", IDC1_FUNCSTATIC, 3,
+                  "&VT400", IDC1_FUNCTILDE,
+                  "&Linux", IDC1_FUNCLINUX,
+                  "&Xterm R6", IDC1_FUNCXTERM, NULL);
+        radioline(&cp, "Initial state of cursor keys:", IDC1_CURSTATIC, 2,
+                  "&Normal", IDC1_CURNORMAL,
+                  "A&pplication", IDC1_CURAPPLIC, NULL);
+        radioline(&cp, "Initial state of numeric keypad:", IDC1_KPSTATIC, 3,
+                  "Nor&mal", IDC1_KPNORMAL,
+                  "Appl&ication", IDC1_KPAPPLIC,
+                  "N&etHack", IDC1_KPNH, NULL);
+        checkbox(&cp, "ALT-F&4 is special (closes window)", IDC1_ALTF4);
+        checkbox(&cp, "ALT-Space is special (S&ystem menu)", IDC1_ALTSPACE);
+        checkbox(&cp, "&Use local terminal line discipline", IDC1_LDISCTERM);
+        checkbox(&cp, "Reset scrollback on &keypress", IDC1_SCROLLKEY);
+
        CheckRadioButton (hwnd, IDC1_DEL008, IDC1_DEL127,
                          cfg.bksp_is_delete ? IDC1_DEL127 : IDC1_DEL008);
        CheckRadioButton (hwnd, IDC1_HOMETILDE, IDC1_HOMERXVT,
@@ -772,14 +1363,29 @@ static void fmtfont (char *buf) {
 
 static int CALLBACK TerminalProc (HWND hwnd, UINT msg,
                                    WPARAM wParam, LPARAM lParam) {
+    struct ctlpos cp;
     CHOOSEFONT cf;
     LOGFONT lf;
     char fontstatic[256];
 
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] dghlmnprsw */
+        ctlposinit(&cp, hwnd);
+        multiedit(&cp,
+                  "&Rows", IDC2_ROWSSTATIC, IDC2_ROWSEDIT, 33,
+                  "Colu&mns", IDC2_COLSSTATIC, IDC2_COLSEDIT, 33,
+                  "&Scrollback", IDC2_SAVESTATIC, IDC2_SAVEEDIT, 33,
+                  NULL);
+        staticbtn(&cp, "", IDC2_FONTSTATIC, "C&hange...", IDC2_CHOOSEFONT);
+        checkbox(&cp, "Auto &wrap mode initially on", IDC2_WRAPMODE);
+        checkbox(&cp, "&DEC Origin Mode initially on", IDC2_DECOM);
+        checkbox(&cp, "Implicit CR in every &LF", IDC2_LFHASCR);
+        checkbox(&cp, "Bee&p enabled", IDC1_BEEP);
+        checkbox(&cp, "Use Back&ground colour erase", IDC2_BCE);
+        checkbox(&cp, "Enable bli&nking text", IDC2_BLINKTEXT);
+
        CheckDlgButton (hwnd, IDC2_WRAPMODE, cfg.wrap_mode);
-       CheckDlgButton (hwnd, IDC2_WINNAME, cfg.win_name_always);
        CheckDlgButton (hwnd, IDC2_DECOM, cfg.dec_om);
        CheckDlgButton (hwnd, IDC2_LFHASCR, cfg.lfhascr);
        SetDlgItemInt (hwnd, IDC2_ROWSEDIT, cfg.height, FALSE);
@@ -787,10 +1393,7 @@ static int CALLBACK TerminalProc (HWND hwnd, UINT msg,
        SetDlgItemInt (hwnd, IDC2_SAVEEDIT, cfg.savelines, FALSE);
        fmtfont (fontstatic);
        SetDlgItemText (hwnd, IDC2_FONTSTATIC, fontstatic);
-       CheckDlgButton (hwnd, IDC1_BLINKCUR, cfg.blink_cur);
         CheckDlgButton (hwnd, IDC1_BEEP, cfg.beep);
-        CheckDlgButton (hwnd, IDC2_SCROLLBAR, cfg.scrollbar);
-        CheckDlgButton (hwnd, IDC2_LOCKSIZE, cfg.locksize);
         CheckDlgButton (hwnd, IDC2_BCE, cfg.bce);
         CheckDlgButton (hwnd, IDC2_BLINKTEXT, cfg.blinktext);
        break;
@@ -801,11 +1404,6 @@ static int CALLBACK TerminalProc (HWND hwnd, UINT msg,
                HIWORD(wParam) == BN_DOUBLECLICKED)
                cfg.wrap_mode = IsDlgButtonChecked (hwnd, IDC2_WRAPMODE);
            break;
-         case IDC2_WINNAME:
-           if (HIWORD(wParam) == BN_CLICKED ||
-               HIWORD(wParam) == BN_DOUBLECLICKED)
-               cfg.win_name_always = IsDlgButtonChecked (hwnd, IDC2_WINNAME);
-           break;
          case IDC2_DECOM:
            if (HIWORD(wParam) == BN_CLICKED ||
                HIWORD(wParam) == BN_DOUBLECLICKED)
@@ -857,26 +1455,11 @@ static int CALLBACK TerminalProc (HWND hwnd, UINT msg,
                SetDlgItemText (hwnd, IDC2_FONTSTATIC, fontstatic);
            }
            break;
-          case IDC1_BLINKCUR:
-            if (HIWORD(wParam) == BN_CLICKED ||
-                HIWORD(wParam) == BN_DOUBLECLICKED)
-                cfg.blink_cur = IsDlgButtonChecked (hwnd, IDC1_BLINKCUR);
-            break;
           case IDC1_BEEP:
             if (HIWORD(wParam) == BN_CLICKED ||
                 HIWORD(wParam) == BN_DOUBLECLICKED)
                 cfg.beep = IsDlgButtonChecked (hwnd, IDC1_BEEP);
             break;
-          case IDC2_SCROLLBAR:
-            if (HIWORD(wParam) == BN_CLICKED ||
-                HIWORD(wParam) == BN_DOUBLECLICKED)
-                cfg.scrollbar = IsDlgButtonChecked (hwnd, IDC2_SCROLLBAR);
-            break;
-          case IDC2_LOCKSIZE:
-            if (HIWORD(wParam) == BN_CLICKED ||
-                HIWORD(wParam) == BN_DOUBLECLICKED)
-                cfg.locksize = IsDlgButtonChecked (hwnd, IDC2_LOCKSIZE);
-            break;
           case IDC2_BLINKTEXT:
             if (HIWORD(wParam) == BN_CLICKED ||
                 HIWORD(wParam) == BN_DOUBLECLICKED)
@@ -893,12 +1476,81 @@ static int CALLBACK TerminalProc (HWND hwnd, UINT msg,
     return GeneralPanelProc (hwnd, msg, wParam, lParam);
 }
 
+static int CALLBACK WindowProc (HWND hwnd, UINT msg,
+                                   WPARAM wParam, LPARAM lParam) {
+    struct ctlpos cp;
+    switch (msg) {
+      case WM_INITDIALOG:
+        /* Accelerators used: [aco] bikty */
+        ctlposinit(&cp, hwnd);
+        multiedit(&cp,
+                  "Initial window &title:", IDCW_WINTITLE, IDCW_WINEDIT, 100,
+                  NULL);
+        checkbox(&cp, "Avoid ever using &icon title", IDCW_WINNAME);
+        checkbox(&cp, "&Blinking cursor", IDCW_BLINKCUR);
+        checkbox(&cp, "Displa&y scrollbar", IDCW_SCROLLBAR);
+        checkbox(&cp, "Loc&k Window size", IDCW_LOCKSIZE);
+
+       SetDlgItemText (hwnd, IDCW_WINEDIT, cfg.wintitle);
+       CheckDlgButton (hwnd, IDCW_WINNAME, cfg.win_name_always);
+       CheckDlgButton (hwnd, IDCW_BLINKCUR, cfg.blink_cur);
+        CheckDlgButton (hwnd, IDCW_SCROLLBAR, cfg.scrollbar);
+        CheckDlgButton (hwnd, IDCW_LOCKSIZE, cfg.locksize);
+       break;
+      case WM_COMMAND:
+       switch (LOWORD(wParam)) {
+         case IDCW_WINNAME:
+           if (HIWORD(wParam) == BN_CLICKED ||
+               HIWORD(wParam) == BN_DOUBLECLICKED)
+               cfg.win_name_always = IsDlgButtonChecked (hwnd, IDCW_WINNAME);
+           break;
+          case IDCW_BLINKCUR:
+            if (HIWORD(wParam) == BN_CLICKED ||
+                HIWORD(wParam) == BN_DOUBLECLICKED)
+                cfg.blink_cur = IsDlgButtonChecked (hwnd, IDCW_BLINKCUR);
+            break;
+          case IDCW_SCROLLBAR:
+            if (HIWORD(wParam) == BN_CLICKED ||
+                HIWORD(wParam) == BN_DOUBLECLICKED)
+                cfg.scrollbar = IsDlgButtonChecked (hwnd, IDCW_SCROLLBAR);
+            break;
+          case IDCW_LOCKSIZE:
+            if (HIWORD(wParam) == BN_CLICKED ||
+                HIWORD(wParam) == BN_DOUBLECLICKED)
+                cfg.locksize = IsDlgButtonChecked (hwnd, IDCW_LOCKSIZE);
+            break;
+         case IDCW_WINEDIT:
+           if (HIWORD(wParam) == EN_CHANGE)
+               GetDlgItemText (hwnd, IDCW_WINEDIT, cfg.wintitle,
+                               sizeof(cfg.wintitle)-1);
+           break;
+       }
+       break;
+    }
+    return GeneralPanelProc (hwnd, msg, wParam, lParam);
+}
+
 static int CALLBACK TelnetProc (HWND hwnd, UINT msg,
                                    WPARAM wParam, LPARAM lParam) {
     int i;
+    struct ctlpos cp;
 
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] bdflrstuv */
+        ctlposinit(&cp, hwnd);
+        staticedit(&cp, "Terminal-&type string", IDC3_TTSTATIC, IDC3_TTEDIT);
+        staticedit(&cp, "Terminal-&speed string", IDC3_TSSTATIC, IDC3_TSEDIT);
+        staticedit(&cp, "Auto-login &username", IDC3_LOGSTATIC, IDC3_LOGEDIT);
+        envsetter(&cp, "Environment variables:", IDC3_ENVSTATIC,
+                  "&Variable", IDC3_VARSTATIC, IDC3_VAREDIT,
+                  "Va&lue", IDC3_VALSTATIC, IDC3_VALEDIT,
+                  IDC3_ENVLIST,
+                  "A&dd", IDC3_ENVADD, "&Remove", IDC3_ENVREMOVE);
+        radioline(&cp, "Handling of OLD_ENVIRON ambiguity:", IDC3_EMSTATIC, 2,
+                  "&BSD (commonplace)", IDC3_EMBSD,
+                  "R&FC 1408 (unusual)", IDC3_EMRFC, NULL);
+
        SetDlgItemText (hwnd, IDC3_TTEDIT, cfg.termtype);
        SetDlgItemText (hwnd, IDC3_TSEDIT, cfg.termspeed);
        SetDlgItemText (hwnd, IDC3_LOGEDIT, cfg.username);
@@ -1011,11 +1663,33 @@ static int CALLBACK TelnetProc (HWND hwnd, UINT msg,
 
 static int CALLBACK SshProc (HWND hwnd, UINT msg,
                             WPARAM wParam, LPARAM lParam) {
+    struct ctlpos cp;
     OPENFILENAME of;
     char filename[sizeof(cfg.keyfile)];
 
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] 123abdkmprtuw */
+        ctlposinit(&cp, hwnd);
+        staticedit(&cp, "Terminal-&type string", IDC3_TTSTATIC, IDC3_TTEDIT);
+        staticedit(&cp, "Auto-login &username", IDC3_LOGSTATIC, IDC3_LOGEDIT);
+        multiedit(&cp,
+                  "&Remote command:", IDC3_CMDSTATIC, IDC3_CMDEDIT, 100,
+                  NULL);
+        checkbox(&cp, "Don't allocate a &pseudo-terminal", IDC3_NOPTY);
+        checkbox(&cp, "Atte&mpt TIS or CryptoCard authentication",
+                 IDC3_AUTHTIS);
+        checkbox(&cp, "Allow &agent forwarding", IDC3_AGENTFWD);
+        editbutton(&cp, "Private &key file for authentication:",
+                    IDC3_PKSTATIC, IDC3_PKEDIT, "Bro&wse...", IDC3_PKBUTTON);
+        radioline(&cp, "Preferred SSH protocol version:",
+                  IDC3_SSHPROTSTATIC, 2,
+                  "&1", IDC3_SSHPROT1, "&2", IDC3_SSHPROT2, NULL);
+        radioline(&cp, "Preferred encryption algorithm:", IDC3_CIPHERSTATIC, 3,
+                  "&3DES", IDC3_CIPHER3DES,
+                  "&Blowfish", IDC3_CIPHERBLOWF,
+                  "&DES", IDC3_CIPHERDES, NULL);    
+
        SetDlgItemText (hwnd, IDC3_TTEDIT, cfg.termtype);
        SetDlgItemText (hwnd, IDC3_LOGEDIT, cfg.username);
        CheckDlgButton (hwnd, IDC3_NOPTY, cfg.nopty);
@@ -1028,6 +1702,7 @@ static int CALLBACK SshProc (HWND hwnd, UINT msg,
                          cfg.sshprot == 1 ? IDC3_SSHPROT1 : IDC3_SSHPROT2);
        CheckDlgButton (hwnd, IDC3_AUTHTIS, cfg.try_tis_auth);
        SetDlgItemText (hwnd, IDC3_PKEDIT, cfg.keyfile);
+       SetDlgItemText (hwnd, IDC3_CMDEDIT, cfg.remote_cmd);
        break;
       case WM_COMMAND:
        switch (LOWORD(wParam)) {
@@ -1084,6 +1759,11 @@ static int CALLBACK SshProc (HWND hwnd, UINT msg,
                GetDlgItemText (hwnd, IDC3_PKEDIT, cfg.keyfile,
                                sizeof(cfg.keyfile)-1);
            break;
+         case IDC3_CMDEDIT:
+           if (HIWORD(wParam) == EN_CHANGE)
+               GetDlgItemText (hwnd, IDC3_CMDEDIT, cfg.remote_cmd,
+                               sizeof(cfg.remote_cmd)-1);
+           break;
          case IDC3_PKBUTTON:
             /*
              * FIXME: this crashes. Find out why.
@@ -1117,10 +1797,21 @@ static int CALLBACK SshProc (HWND hwnd, UINT msg,
 
 static int CALLBACK SelectionProc (HWND hwnd, UINT msg,
                                    WPARAM wParam, LPARAM lParam) {
+    struct ctlpos cp;
     int i;
 
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] stwx */
+        ctlposinit(&cp, hwnd);
+        radiobig(&cp, "Action of mouse buttons:", IDC4_MBSTATIC,
+                 "&Windows (Right pastes, Middle extends)", IDC4_MBWINDOWS,
+                 "&xterm (Right extends, Middle pastes)", IDC4_MBXTERM,
+                 NULL);
+        charclass(&cp, "Character classes:", IDC4_CCSTATIC, IDC4_CCLIST,
+                  "&Set", IDC4_CCSET, IDC4_CCEDIT,
+                  "&to class", IDC4_CCSTATIC2);
+
        CheckRadioButton (hwnd, IDC4_MBWINDOWS, IDC4_MBXTERM,
                          cfg.mouse_is_xterm ? IDC4_MBXTERM : IDC4_MBWINDOWS);
        {
@@ -1195,8 +1886,21 @@ static int CALLBACK ColourProc (HWND hwnd, UINT msg,
        TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE,
        TRUE, FALSE, TRUE, FALSE, TRUE, FALSE, TRUE, FALSE
     };
+    struct ctlpos cp;
+
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] bmlu */
+        ctlposinit(&cp, hwnd);
+        checkbox(&cp, "&Bolded text is a different colour", IDC5_BOLDCOLOUR);
+        checkbox(&cp, "Attempt to use &logical palettes", IDC5_PALETTE);
+        colouredit(&cp, "Select a colo&ur and click to modify it:",
+                   IDC5_STATIC, IDC5_LIST,
+                   "&Modify...", IDC5_CHANGE,
+                   "Red:", IDC5_RSTATIC, IDC5_RVALUE,
+                   "Green:", IDC5_GSTATIC, IDC5_GVALUE,
+                   "Blue:", IDC5_BSTATIC, IDC5_BVALUE, NULL);
+
        CheckDlgButton (hwnd, IDC5_BOLDCOLOUR, cfg.bold_colour);
        CheckDlgButton (hwnd, IDC5_PALETTE, cfg.try_palette);
        {
@@ -1290,8 +1994,26 @@ static int CALLBACK ColourProc (HWND hwnd, UINT msg,
 
 static int CALLBACK TranslationProc (HWND hwnd, UINT msg,
                                  WPARAM wParam, LPARAM lParam) {
+    struct ctlpos cp;
+
     switch (msg) {
       case WM_INITDIALOG:
+        /* Accelerators used: [aco] beiknpsx */
+        ctlposinit(&cp, hwnd);
+        radiobig(&cp,
+                 "Handling of VT100 line drawing characters:", IDC2_VTSTATIC,
+                 "Font has &XWindows encoding", IDC2_VTXWINDOWS,
+                 "Use font in &both ANSI and OEM modes", IDC2_VTOEMANSI,
+                 "Use font in O&EM mode only", IDC2_VTOEMONLY,
+                 "&Poor man's line drawing (""+"", ""-"" and ""|"")",
+                 IDC2_VTPOORMAN, NULL);
+        radiobig(&cp,
+                 "Character set translation:", IDC6_XLATSTATIC,
+                 "&None", IDC6_NOXLAT,
+                 "&KOI8 / Win-1251", IDC6_KOI8WIN1251,
+                 "&ISO-8859-2 / Win-1250", IDC6_88592WIN1250, NULL);
+        checkbox(&cp, "CAP&S LOCK acts as cyrillic switch", IDC6_CAPSLOCKCYR);
+
        CheckRadioButton (hwnd, IDC6_NOXLAT, IDC6_88592WIN1250,
                          cfg.xlat_88592w1250 ? IDC6_88592WIN1250 :
                          cfg.xlat_enablekoiwin ? IDC6_KOI8WIN1251 :
@@ -1335,13 +2057,14 @@ static int CALLBACK TranslationProc (HWND hwnd, UINT msg,
 }
 
 static DLGPROC panelproc[NPANELS] = {
-    ConnectionProc, KeyboardProc, TerminalProc,
+    ConnectionProc, KeyboardProc, TerminalProc, WindowProc,
     TelnetProc, SshProc, SelectionProc, ColourProc, TranslationProc
 };
 static char *panelids[NPANELS] = {
     MAKEINTRESOURCE(IDD_PANEL0),
     MAKEINTRESOURCE(IDD_PANEL1),
     MAKEINTRESOURCE(IDD_PANEL2),
+    MAKEINTRESOURCE(IDD_PANELW),
     MAKEINTRESOURCE(IDD_PANEL3),
     MAKEINTRESOURCE(IDD_PANEL35),
     MAKEINTRESOURCE(IDD_PANEL4),
@@ -1350,17 +2073,38 @@ static char *panelids[NPANELS] = {
 };
 
 static char *names[NPANELS] = {
-    "Connection", "Keyboard", "Terminal", "Telnet",
+    "Connection", "Keyboard", "Terminal", "Window", "Telnet",
     "SSH", "Selection", "Colours", "Translation"
 };
 
-static int mainp[MAIN_NPANELS] = { 0, 1, 2, 3, 4, 5, 6, 7};
-static int reconfp[RECONF_NPANELS] = { 1, 2, 5, 6, 7};
+static int mainp[MAIN_NPANELS] = { 0, 1, 2, 3, 4, 5, 6, 7, 8};
+static int reconfp[RECONF_NPANELS] = { 1, 2, 3, 6, 7, 8};
+
+static HWND makesubdialog(HWND hwnd, int x, int y, int w, int h, int n) {
+    RECT r;
+    HWND ret;
+    WPARAM font;
+    r.left = x; r.top = y;
+    r.right = r.left + w; r.bottom = r.top + h;
+    MapDialogRect(hwnd, &r);
+    ret = CreateWindowEx(WS_EX_CONTROLPARENT,
+                           WC_DIALOG, "",   /* no title */
+                           WS_CHILD | WS_VISIBLE | DS_SETFONT,
+                           r.left, r.top,
+                           r.right-r.left, r.bottom-r.top,
+                           hwnd, (HMENU)(panelids[n]),
+                           hinst, NULL);
+    SetWindowLong (ret, DWL_DLGPROC, (LONG)panelproc[n]);
+    font = SendMessage(hwnd, WM_GETFONT, 0, 0);
+    SendMessage (ret, WM_SETFONT, font, MAKELPARAM(0, 0));
+    SendMessage (ret, WM_INITDIALOG, 0, 0);
+    return ret;
+}
 
 static int GenericMainDlgProc (HWND hwnd, UINT msg,
                               WPARAM wParam, LPARAM lParam,
                               int npanels, int *panelnums, HWND *page) {
-    HWND hw;
+    HWND hw, tabctl;
 
     switch (msg) {
       case WM_INITDIALOG:
@@ -1373,25 +2117,48 @@ static int GenericMainDlgProc (HWND hwnd, UINT msg,
                            (rs.bottom + rs.top + rd.top - rd.bottom)/2,
                            rd.right-rd.left, rd.bottom-rd.top, TRUE);
        }
+        {
+            RECT r;
+            r.left = 3; r.right = r.left + 174;
+            r.top = 3; r.bottom = r.top + 193;
+            MapDialogRect(hwnd, &r);
+            tabctl = CreateWindowEx(0, WC_TABCONTROL, "",
+                                    WS_CHILD | WS_VISIBLE |
+                                    WS_TABSTOP | TCS_MULTILINE,
+                                    r.left, r.top,
+                                    r.right-r.left, r.bottom-r.top,
+                                    hwnd, (HMENU)IDC_TAB, hinst, NULL);
+
+            if (!tabctl) {
+                struct ctlpos cp;
+                ctlposinit2(&cp, hwnd);
+                ersatztab(&cp, "Category:", IDC_TABSTATIC1, IDC_TABLIST,
+                          IDC_TABSTATIC2);
+            } else {
+                WPARAM font = SendMessage(hwnd, WM_GETFONT, 0, 0);
+                SendMessage(tabctl, WM_SETFONT, font, MAKELPARAM(TRUE, 0));
+            }
+        }
        *page = NULL;
-       {                              /* initialise the tab control */
+       if (tabctl) {                  /* initialise the tab control */
            TC_ITEMHEADER tab;
            int i;
 
-           hw = GetDlgItem (hwnd, IDC_TAB);
            for (i=0; i<npanels; i++) {
                tab.mask = TCIF_TEXT;
                tab.pszText = names[panelnums[i]];
-               TabCtrl_InsertItem (hw, i, &tab);
+               TabCtrl_InsertItem (tabctl, i, &tab);
            }
-/*         *page = CreateDialogIndirect (hinst, panels[panelnums[0]].temp,
-                                         hwnd, panelproc[panelnums[0]]);*/
-           *page = CreateDialog (hinst, panelids[panelnums[0]],
-                                 hwnd, panelproc[panelnums[0]]);
-           SetWindowLong (*page, GWL_EXSTYLE,
-                          GetWindowLong (*page, GWL_EXSTYLE) |
-                          WS_EX_CONTROLPARENT);
-       }
+        } else {
+           int i;
+
+           for (i=0; i<npanels; i++) {
+                SendDlgItemMessage(hwnd, IDC_TABLIST, CB_ADDSTRING,
+                                   0, (LPARAM)names[panelnums[i]]);
+           }
+            SendDlgItemMessage(hwnd, IDC_TABLIST, CB_SETCURSEL, 0, 0);
+        }
+        *page = makesubdialog(hwnd, 6, 30, 168, 163, panelnums[0]);
        SetFocus (*page);
        return 0;
       case WM_NOTIFY:
@@ -1400,21 +2167,24 @@ static int GenericMainDlgProc (HWND hwnd, UINT msg,
            int i = TabCtrl_GetCurSel(((LPNMHDR)lParam)->hwndFrom);
            if (*page)
                DestroyWindow (*page);
-/*         *page = CreateDialogIndirect (hinst, panels[panelnums[i]].temp,     
-                                         hwnd, panelproc[panelnums[i]]);*/
-           *page = CreateDialog (hinst, panelids[panelnums[i]],
-                                 hwnd, panelproc[panelnums[i]]);
-           SetWindowLong (*page, GWL_EXSTYLE,
-                          GetWindowLong (*page, GWL_EXSTYLE) |
-                          WS_EX_CONTROLPARENT);
+            *page = makesubdialog(hwnd, 6, 30, 168, 163, panelnums[i]);
            SetFocus (((LPNMHDR)lParam)->hwndFrom);   /* ensure focus stays */
            return 0;
        }
        break;
-/*      case WM_CTLCOLORDLG: */
-/*     return (int) GetStockObject (LTGRAY_BRUSH); */
       case WM_COMMAND:
        switch (LOWORD(wParam)) {
+          case IDC_TABLIST:
+            if (HIWORD(wParam) == CBN_SELCHANGE) {
+                HWND tablist = GetDlgItem (hwnd, IDC_TABLIST);
+                int i = SendMessage (tablist, CB_GETCURSEL, 0, 0);
+                if (*page)
+                    DestroyWindow (*page);
+                *page = makesubdialog(hwnd, 6, 30, 168, 163, panelnums[i]);
+                SetFocus(tablist);     /* ensure focus stays */
+                return 0;
+            }
+            break;
          case IDOK:
            if (*cfg.host)
                EndDialog (hwnd, 1);
@@ -1482,29 +2252,32 @@ static int CALLBACK ReconfDlgProc (HWND hwnd, UINT msg,
 }
 
 void get_sesslist(int allocate) {
+    static char otherbuf[2048];
     static char *buffer;
-    int buflen, bufsize, i, ret;
-    char otherbuf[2048];
-    char *p;
-    HKEY subkey1;
+    int buflen, bufsize, i;
+    char *p, *ret;
+    void *handle;
 
     if (allocate) {
-       if (RegCreateKey(HKEY_CURRENT_USER,
-                        puttystr, &subkey1) != ERROR_SUCCESS)
+        
+       if ((handle = enum_settings_start()) == NULL)
            return;
 
        buflen = bufsize = 0;
        buffer = NULL;
-       i = 0;
        do {
-           ret = RegEnumKey(subkey1, i++, otherbuf, sizeof(otherbuf));
-           if (ret == ERROR_SUCCESS) {
-               bufsize = buflen + 2048;
-               buffer = srealloc(buffer, bufsize);
-               unmungestr(otherbuf, buffer+buflen);
+            ret = enum_settings_next(handle, otherbuf, sizeof(otherbuf));
+           if (ret) {
+                int len = strlen(otherbuf)+1;
+                if (bufsize < buflen+len) {
+                    bufsize = buflen + len + 2048;
+                    buffer = srealloc(buffer, bufsize);
+                }
+               strcpy(buffer+buflen, otherbuf);
                buflen += strlen(buffer+buflen)+1;
            }
-       } while (ret == ERROR_SUCCESS);
+       } while (ret);
+        enum_settings_finish(handle);
        buffer = srealloc(buffer, buflen+1);
        buffer[buflen] = '\0';
 
@@ -1573,9 +2346,13 @@ void logevent (char *string) {
     events[nevents] = smalloc(1+strlen(string));
     strcpy (events[nevents], string);
     nevents++;
-    if (logbox)
+    if (logbox) {
+        int count;
        SendDlgItemMessage (logbox, IDN_LIST, LB_ADDSTRING,
                            0, (LPARAM)string);
+       count = SendDlgItemMessage (logbox, IDN_LIST, LB_GETCOUNT, 0, 0);
+       SendDlgItemMessage (logbox, IDN_LIST, LB_SETTOPINDEX, count-1, 0);
+    }
 }
 
 void showeventlog (HWND hwnd) {
@@ -1594,67 +2371,70 @@ void showabout (HWND hwnd) {
     }
 }
 
-void verify_ssh_host_key(char *host, char *keystr) {
-    char *otherstr, *mungedhost;
-    int len;
-    HKEY rkey;
+void verify_ssh_host_key(char *host, int port, char *keytype,
+                         char *keystr, char *fingerprint) {
+    int ret;
 
-    len = 1 + strlen(keystr);
+    static const char absentmsg[] =
+        "The server's host key is not cached in the registry. You\n"
+        "have no guarantee that the server is the computer you\n"
+        "think it is.\n"
+        "The server's key fingerprint is:\n"
+        "%s\n"
+        "If you trust this host, hit Yes to add the key to\n"
+        "PuTTY's cache and carry on connecting.\n"
+        "If you do not trust this host, hit No to abandon the\n"
+        "connection.\n";
+
+    static const char wrongmsg[] =
+        "WARNING - POTENTIAL SECURITY BREACH!\n"
+        "\n"
+        "The server's host key does not match the one PuTTY has\n"
+        "cached in the registry. This means that either the\n"
+        "server administrator has changed the host key, or you\n"
+        "have actually connected to another computer pretending\n"
+        "to be the server.\n"
+        "The new key fingerprint is:\n"
+        "%s\n"
+        "If you were expecting this change and trust the new key,\n"
+        "hit Yes to update PuTTY's cache and continue connecting.\n"
+        "If you want to carry on connecting but without updating\n"
+        "the cache, hit No.\n"
+        "If you want to abandon the connection completely, hit\n"
+        "Cancel. Hitting Cancel is the ONLY guaranteed safe\n"
+        "choice.\n";
+
+    static const char mbtitle[] = "PuTTY Security Alert";
+
+    
+    char message[160+                  /* sensible fingerprint max size */
+                 (sizeof(absentmsg) > sizeof(wrongmsg) ?
+                  sizeof(absentmsg) : sizeof(wrongmsg))];
 
     /*
-     * Now read a saved key in from the registry and see what it
-     * says.
+     * Verify the key against the registry.
      */
-    otherstr = smalloc(len);
-    mungedhost = smalloc(3*strlen(host)+1);
-    if (!otherstr || !mungedhost)
-       fatalbox("Out of memory");
-
-    mungestr(host, mungedhost);
-
-    if (RegCreateKey(HKEY_CURRENT_USER, PUTTY_REG_POS "\\SshHostKeys",
-                    &rkey) != ERROR_SUCCESS) {
-       if (MessageBox(NULL, "PuTTY was unable to open the host key cache\n"
-                      "in the registry. There is thus no way to tell\n"
-                      "if the remote host is what you think it is.\n"
-                      "Connect anyway?", "PuTTY Problem",
-                      MB_ICONWARNING | MB_YESNO) == IDNO)
-           exit(0);
-    } else {
-       DWORD readlen = len;
-       DWORD type;
-       int ret;
-
-       ret = RegQueryValueEx(rkey, mungedhost, NULL,
-                             &type, otherstr, &readlen);
-
-       if (ret == ERROR_MORE_DATA ||
-           (ret == ERROR_SUCCESS && type == REG_SZ &&
-            strcmp(otherstr, keystr))) {
-           if (MessageBox(NULL,
-                          "This host's host key is different from the\n"
-                          "one cached in the registry! Someone may be\n"
-                          "impersonating this host for malicious reasons;\n"
-                          "alternatively, the host key may have changed\n"
-                          "due to sloppy system administration.\n"
-                          "Replace key in registry and connect?",
-                          "PuTTY: Security Warning",
-                          MB_ICONWARNING | MB_YESNO) == IDNO)
-               exit(0);
-           RegSetValueEx(rkey, mungedhost, 0, REG_SZ, keystr,
-                         strlen(keystr)+1);
-       } else if (ret != ERROR_SUCCESS || type != REG_SZ) {
-           if (MessageBox(NULL,
-                          "This host's host key is not cached in the\n"
-                          "registry. Do you want to add it to the cache\n"
-                          "and carry on connecting?",
-                          "PuTTY: New Host",
-                          MB_ICONWARNING | MB_YESNO) == IDNO)
-               exit(0);
-           RegSetValueEx(rkey, mungedhost, 0, REG_SZ, keystr,
-                         strlen(keystr)+1);
-       }
-
-       RegCloseKey(rkey);
+    ret = verify_host_key(host, port, keytype, keystr);
+
+    if (ret == 0)                      /* success - key matched OK */
+        return;
+    if (ret == 2) {                    /* key was different */
+        int mbret;
+        sprintf(message, wrongmsg, fingerprint);
+        mbret = MessageBox(NULL, message, mbtitle,
+                           MB_ICONWARNING | MB_YESNOCANCEL);
+        if (mbret == IDYES)
+            store_host_key(host, port, keytype, keystr);
+        if (mbret == IDCANCEL)
+            exit(0);
+    }
+    if (ret == 1) {                    /* key was absent */
+        int mbret;
+        sprintf(message, absentmsg, fingerprint);
+        mbret = MessageBox(NULL, message, mbtitle,
+                           MB_ICONWARNING | MB_YESNO);
+        if (mbret == IDNO)
+            exit(0);
+        store_host_key(host, port, keytype, keystr);
     }
 }