X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl%2Fhypermap;h=285183d486dbeb7cc5be6a2df4009b983ccf7e87;hb=2cc91b9f6889f9dde33a17eb6bd2c1859d7af1bf;hp=4440d72385ba174e4589e2a0b02a742f77bdb483;hpb=349ccc7f5d161a4d10ac72cf16ea5073fe071b4e;p=oss%2Ffgis.git

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