[patch] tkweather-pathupdate.patch

tkweather-pathupdate.patch (text/plain), 1.84 KB, created by Miles Lubin on 2004-06-18 08:29:12 UTC

diff -ur bin/TkWeather bin2/TkWeather
--- bin/TkWeather	2001-07-07 15:22:35.000000000 -0400
+++ bin2/TkWeather	2004-06-18 00:13:43.642183904 -0400
@@ -12,7 +12,7 @@
 
 #	1.1.0 : added alert button, redid picture selection, fixed zombie problem
 
-source ~/bin/blnhlp.tcl
+source /usr/bin/blnhlp.tcl
 
 global city date temp hum press wind winddir windlab weather picture forecast base alert
 global datetime
@@ -503,7 +503,7 @@
 		puts ">> no image for $weather <<"
 		set picture unknown
    }
-	image create photo $code -file ~/bin/tkweatherlib/$images($picture)
+	image create photo $code -file /usr/lib/tkweatherlib/$images($picture)
 	$base.cities.g($code) create image 25 25 -image $code
 
 	#	set up balloon help
diff -ur bin/TkWeather_setup.tcl bin2/TkWeather_setup.tcl
--- bin/TkWeather_setup.tcl	2000-07-09 21:49:38.000000000 -0400
+++ bin2/TkWeather_setup.tcl	2004-06-18 00:13:57.533072168 -0400
@@ -250,8 +250,8 @@
 
 proc readstates {} {
 	 global state_code w_addus
-	 if {[file exists "~/bin/tkweatherlib/state_codes"] == 1} {
-	 		set stfile [open "~/bin/tkweatherlib/state_codes" r]
+	 if {[file exists "/usr/lib/tkweatherlib/state_codes"] == 1} {
+	 		set stfile [open "/usr/lib/tkweatherlib/state_codes" r]
 			while {[gets $stfile line] >= 0} {
 				 set foo [split $line {:}]
 				 set state_code([lindex $foo 1]) [lindex $foo 0]; # code-name array
@@ -264,8 +264,8 @@
 proc readcities {state} {
 	 global state_code city_code w_addus statecd
 	 set statecd $state_code($state)
-	 if {[file exists "~/bin/tkweatherlib/$state_code($state)"] == 1} {
-	 		set cyfile [open "~/bin/tkweatherlib/$state_code($state)" r]
+	 if {[file exists "/usr/lib/tkweatherlib/$state_code($state)"] == 1} {
+	 		set cyfile [open "/usr/lib/tkweatherlib/$state_code($state)" r]
 		  $w_addus.citylist delete 0 end
 			while {[gets $cyfile line] >= 0} {
 				 set foo [split $line {:}]