summaryrefslogtreecommitdiffstats
path: root/Doc/perl
diff options
context:
space:
mode:
authorFred Drake <fdrake@acm.org>2004-01-23 08:52:28 (GMT)
committerFred Drake <fdrake@acm.org>2004-01-23 08:52:28 (GMT)
commitf0f6d12cd4d2159cbe2473c6ff5aeb5f9d245e02 (patch)
treedec64d0de926fa60eca7813d640433d3dedbf819 /Doc/perl
parent226f697560af74985ee5ecf2fc4f6b1c991006dc (diff)
downloadcpython-f0f6d12cd4d2159cbe2473c6ff5aeb5f9d245e02.zip
cpython-f0f6d12cd4d2159cbe2473c6ff5aeb5f9d245e02.tar.gz
cpython-f0f6d12cd4d2159cbe2473c6ff5aeb5f9d245e02.tar.bz2
add \guilabel macro to mark labels that occur in user interfaces
Diffstat (limited to 'Doc/perl')
-rw-r--r--Doc/perl/python.perl7
1 files changed, 5 insertions, 2 deletions
diff --git a/Doc/perl/python.perl b/Doc/perl/python.perl
index 89e12d5..d5d000f 100644
--- a/Doc/perl/python.perl
+++ b/Doc/perl/python.perl
@@ -95,9 +95,12 @@ sub do_cmd_textless{ '&lt;' . $_[0]; }
sub do_cmd_textunderscore{ '_' . $_[0]; }
sub do_cmd_infinity{ '&infin;' . $_[0]; }
sub do_cmd_plusminus{ '&plusmn;' . $_[0]; }
+sub do_cmd_guilabel{
+ return use_wrappers($_[0]. '<span class="guilabel">', '</span>'); }
sub do_cmd_menuselection{
- return use_wrappers($_[0], '<span class="menuselection">', '</span>'); }
-sub do_cmd_sub{ ' > ' . $_[0]; }
+ return use_wrappers($_[0], '<span class="guilabel">', '</span>'); }
+sub do_cmd_sub{
+ return '</span> &gt; <span class="guilabel">' . $_[0]; }
# words typeset in a special way (not in HTML though)