-- Updated build.tk to use new character set options.

This commit is contained in:
dfs
1998-03-01 20:42:54 +00:00
parent 70ae23809f
commit 048638cdda
2 changed files with 22 additions and 10 deletions

View File

@@ -11,7 +11,7 @@
#
#--------------------------------------------------------------
# $Id: build.tk,v 1.4 1998-02-16 02:35:00 dfs Exp $
# $Id: build.tk,v 1.5 1998-03-01 20:42:54 dfs Exp $
# the next line restarts using wish \
exec wish "$0" "$@"
@@ -35,8 +35,10 @@ proc SetConfigDefaults {} {
set Config(DEFAULT_PAGE) "Letter"
set Config(DATESEP) "/"
set Config(TIMESEP) ":"
set Config(ISOLATIN1) 1
set Config(ISOLATIN1) 0
set Config(IBMEXTENDED) 0
set Config(ISOLATIN2) 0
set Config(IBM852) 0
set Config(NORTHERN_HEMISPHERE) 1
set Config(WESTERN_HEMISPHERE) 1
set Config(LANGUAGE) "English"
@@ -233,7 +235,9 @@ proc CreateOptionsDialog { w } {
-menu $w.char.menu
menu $w.char.menu -tearoff 0
$w.char.menu add command -label "ISO 8859-1" -command "$w.char configure -text {ISO 8859-1}"
$w.char.menu add command -label "ISO 8859-2" -command "$w.char configure -text {ISO 8859-2}"
$w.char.menu add command -label "IBM Extended" -command "$w.char configure -text {IBM Extended}"
$w.char.menu add command -label "IBM CPI-852" -command "$w.char configure -text {ISO 8859-2}"
$w.char.menu add command -label "Plain ASCII" -command "$w.char configure -text {Plain ASCII}"
grid configure $w.charlabel -row 3 -column 0 -sticky e
@@ -440,16 +444,16 @@ proc CreateCustomH {} {
switch -- [$Options.char cget -text] {
"ISO 8859-1" {
set Config(ISOLATIN1) 1
set Config(IBMEXTENDED) 0
}
"ISO 8859-2" {
set Config(ISOLATIN2) 1
}
"IBM CPI-852" {
set Config(IBM852) 1
}
"IBM Extended" {
set Config(ISOLATIN1) 0
set Config(IBMEXTENDED) 1
}
default {
set Config(ISOLATIN1) 0
set Config(IBMEXTENDED) 0
}
}
while {[gets $in line] != -1} {
@@ -490,6 +494,14 @@ proc CreateCustomH {} {
puts $out "#define ISOLATIN1 $Config(ISOLATIN1)"
.msgs insert end "#define ISOLATIN1 $Config(ISOLATIN1)\n"
}
"#define ISOLATIN2 *" {
puts $out "#define ISOLATIN2 $Config(ISOLATIN2)"
.msgs insert end "#define ISOLATIN2 $Config(ISOLATIN2)\n"
}
"#define IBM852 *" {
puts $out "#define IBM852 $Config(IBM852)"
.msgs insert end "#define IBM852 $Config(IBM852)\n"
}
"#define IBMEXTENDED *" {
puts $out "#define IBMEXTENDED $Config(IBMEXTENDED)"
.msgs insert end "#define IBMEXTENDED $Config(IBMEXTENDED)\n"

View File

@@ -1,6 +1,6 @@
Begin3
Title: Remind
Version: 03.00.18
Version: 03.00.19
Entered-date: 10 February 1997
Description: Full-featured calendar/reminder program featuring
sophisticated date calculation, moon phases, sunrise/sunset,
@@ -13,7 +13,7 @@ Keywords: calendar reminder alarm datebook PostScript www
Author: aa775@freenet.carleton.ca (David F. Skoll)
Maintained-by: aa775@freenet.carleton.ca (David F. Skoll)
Primary-site: ftp.doe.carleton.ca /pub/Remind-3.0
260kB remind-3.0.18.tgz
260kB remind-3.0.19.tgz
Alternate-site:
Original-site:
Platform: Linux, Solaris, SunOS, HP-UX -- virtually any UN*X-like