From de42f9868f7325086d509049195235d4a439e0c4 Mon Sep 17 00:00:00 2001 From: dron Date: Wed, 8 Jan 2003 15:25:35 +0000 Subject: [PATCH] GUI font definition moved to the config file. --- etc/fgis.rc.in | 3 ++- tcl/hypermap | 4 ++-- tcl/mapview | 4 ++-- 3 files changed, 6 insertions(+), 5 deletions(-) diff --git a/etc/fgis.rc.in b/etc/fgis.rc.in index ca31f4c..44a1e01 100644 --- a/etc/fgis.rc.in +++ b/etc/fgis.rc.in @@ -1,4 +1,5 @@ -lappend auto_path @FGIS_SCRIPTS@ +lappend auto_path @FGIS_SCRIPTDIR@ +set gui_font -*-helvetica-medium-r-normal-*-*-120-*-*-p-*-*-* array set fgis_font { 1 -cronyx-times-medium-r-normal--10-100-75-75-p-54-koi8-r 1b -cronyx-times-bold-r-normal--10-100-75-75-p-54-koi8-r diff --git a/tcl/hypermap b/tcl/hypermap index 4440d72..285183d 100755 --- a/tcl/hypermap +++ b/tcl/hypermap @@ -1,6 +1,6 @@ #!/usr/bin/wish ## -## $ID: $ +## $Id: hypermap,v 1.3 2003-01-08 15:25:35 dron Exp $ ## ## Copyright (C) 1997, Victor Wagner ## Copyright (C) 2002, Andrey Kiselev @@ -74,7 +74,7 @@ proc show_hyper {planchet x y} { set planchet .map -option add *font -cronyx-times-bold-r-normal--10-* +option add *font $gui_font frame .menu -relief raised -bd 2 menubutton .menu.file -text "File" -menu [set m .menu.file.m] menu $m diff --git a/tcl/mapview b/tcl/mapview index a4aa6eb..f88ebda 100755 --- a/tcl/mapview +++ b/tcl/mapview @@ -1,6 +1,6 @@ #!/usr/bin/wish ## -## $ID: $ +## $Id: mapview,v 1.3 2003-01-08 15:25:35 dron Exp $ ## ## Copyright (C) 1997, Victor Wagner ## Copyright (C) 2002, Andrey Kiselev @@ -22,7 +22,7 @@ package require Fgis set planchet .map -option add *font -cronyx-times-bold-r-normal--10-* +option add *font $gui_font frame .menu -relief raised -bd 2 menubutton .menu.file -text "File" -menu [set m .menu.file.m] menu $m -- 2.39.2