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

diff --git a/tcl/hypermap b/tcl/hypermap
index 27f0bb4..285183d 100755
--- a/tcl/hypermap
+++ b/tcl/hypermap
@@ -1,4 +1,24 @@
-#!/usr/bin/wish8.0
+#!/usr/bin/wish
+##
+## $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>
+##
+## This program is free software; you can redistribute it and/or modify
+## it under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2, or (at your option)
+## any later version.
+##
+## This program is distributed in the hope that it will be useful,
+## but WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+## GNU General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with this program; if not, write to the Free Software
+## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
+## USA.
 
 package require Fgis
 
@@ -54,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