From: dron <dron>
Date: Wed, 8 Jan 2003 15:25:35 +0000 (+0000)
Subject: GUI font definition moved to the config file.
X-Git-Url: http://wagner.pp.ru/gitweb/?a=commitdiff_plain;h=de42f9868f7325086d509049195235d4a439e0c4;p=oss%2Ffgis.git
GUI font definition moved to the config file.
---
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 <vitus@ice.ru>
## Copyright (C) 2002, Andrey Kiselev <dron@remotesensing.org>
@@ -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 <vitus@ice.ru>
## Copyright (C) 2002, Andrey Kiselev <dron@remotesensing.org>
@@ -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