X-Git-Url: https://git.distorted.org.uk/~mdw/sgt/putty/blobdiff_plain/122a5eeef02bde651543f51ee19cb416e6aaf0d3..fc6f0fc2d407ef98ab5e171210f840bd282cdaa8:/contrib/accel.pl

diff --git a/contrib/accel.pl b/contrib/accel.pl
index e37b029e..cfb079d4 100755
--- a/contrib/accel.pl
+++ b/contrib/accel.pl
@@ -1,9 +1,12 @@
 #! /usr/bin/perl -w
 
-# $Id: accel.pl,v 1.1 2002/03/10 21:56:55 jacob Exp $
+# $Id: accel.pl,v 1.2 2003/01/21 21:05:35 jacob Exp $
 # Grotty script to check for clashes in the PuTTY config dialog keyboard
 # accelerators in windlg.c, and to check the comments are still up to
-# date. Based on windlg.c:1.177 & win_res.rc:1.56.
+# date. Based on:
+#   windlg.c:1.201
+#   win_res.rc:1.59 (for global accelerators)
+#   winctrls.c:1.20 (for prefslist() hardcoded accelerators)
 # usage: accel.pl [-q] [-v] [-f windlg-alt.c]
 
 use strict;
@@ -130,6 +133,12 @@ while (<WINDLG>) {
             }
         }
 
+	# Hack: winctrls.c:prefslist() has hard-coded "&Up" and "&Down"
+	# buttons. Take this into account.
+	if (m/\bprefslist *\(/) {
+	    $real_accel .= "ud";
+	}
+
         # Look for accelerator comment.
         if (m#/\* .* Accelerators used: (.*) \*/#) {
             die "aiee, multiple comments in panel" if ($cmt_accel);