gentoo/dev-util/visual-regexp/files/visual-regexp-3.1-help-font-fix.patch
Robin H. Johnson 56bd759df1
proj/gentoo: Initial commit
This commit represents a new era for Gentoo:
Storing the gentoo-x86 tree in Git, as converted from CVS.

This commit is the start of the NEW history.
Any historical data is intended to be grafted onto this point.

Creation process:
1. Take final CVS checkout snapshot
2. Remove ALL ChangeLog* files
3. Transform all Manifests to thin
4. Remove empty Manifests
5. Convert all stale $Header$/$Id$ CVS keywords to non-expanded Git $Id$
5.1. Do not touch files with -kb/-ko keyword flags.

Signed-off-by: Robin H. Johnson <robbat2@gentoo.org>
X-Thanks: Alec Warner <antarus@gentoo.org> - did the GSoC 2006 migration tests
X-Thanks: Robin H. Johnson <robbat2@gentoo.org> - infra guy, herding this project
X-Thanks: Nguyen Thai Ngoc Duy <pclouds@gentoo.org> - Former Gentoo developer, wrote Git features for the migration
X-Thanks: Brian Harring <ferringb@gentoo.org> - wrote much python to improve cvs2svn
X-Thanks: Rich Freeman <rich0@gentoo.org> - validation scripts
X-Thanks: Patrick Lauer <patrick@gentoo.org> - Gentoo dev, running new 2014 work in migration
X-Thanks: Michał Górny <mgorny@gentoo.org> - scripts, QA, nagging
X-Thanks: All of other Gentoo developers - many ideas and lots of paint on the bikeshed
2015-08-08 17:38:18 -07:00

33 lines
1.2 KiB
Diff

diff -ur a/visual_regexp.tcl b/visual_regexp.tcl
--- a/visual_regexp.tcl 2013-11-10 01:49:14.987065220 +0100
+++ b/visual_regexp.tcl 2013-11-10 01:49:04.177341077 +0100
@@ -740,10 +740,13 @@
frame .help.text;
if {$tcl_platform(platform) == "windows"} {
- text .help.text.t -borderwidth 2 -relief groove -font {Courier 10} -yscrollcommand [list .help.text.sy set];
+ set hfont {Courier 10}
+ set hbfont {Courier 10 bold}
} else {
- text .help.text.t -borderwidth 2 -relief groove -yscrollcommand [list .help.text.sy set];
+ set hfont {9x15}
+ set hbfont {9x15bold}
}
+ text .help.text.t -borderwidth 2 -relief groove -font $hfont -yscrollcommand [list .help.text.sy set];
scrollbar .help.text.sy \
-command ".help.text.t yview" \
@@ -755,10 +758,10 @@
pack .help.text -side top -fill both -expand 1 -padx 20
- .help.text.t tag configure bold -font "[.help.text.t cget -font] bold"
+ .help.text.t tag configure bold -font $hbfont
.help.text.t insert 1.0 "Version:" bold " $::version
-" normal "Usage:" bold " tkregexp <sampleFile>
+" normal "Usage:" bold " [file tail $::argv0] <sampleFile>
" normal "Key bindings:" bold " Alt-q exit
Alt-a toggle 'all' flag