nhyatt/putty-source
1
0
Fork 0
mirror of https://git.tartarus.org/simon/putty.git synced 2025-02-03 21:52:24 +00:00
Code Issues Projects Releases Wiki Activity

accel.pl knows about the accelerators added by winctrls.c:prefslist().

Browse Source 
(I'm amazed this still works...)

[originally from svn r2675]
This commit is contained in:
Jacob Nevins 2003-01-21 21:05:35 +00:00
parent 36f133b374
commit 25d65cd5b5
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
contrib/accel.pl
View File

@ -1,9 +1,12 @@
#! /usr/bin/perl -w #! /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 # 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 # 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] # usage: accel.pl [-q] [-v] [-f windlg-alt.c]
use strict; 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. # Look for accelerator comment.
if (m#/\* .* Accelerators used: (.*) \*/#) { if (m#/\* .* Accelerators used: (.*) \*/#) {
die "aiee, multiple comments in panel" if ($cmt_accel); die "aiee, multiple comments in panel" if ($cmt_accel);