Attachment #33484 for bug #54318

View | Details | Raw Unified | Return to bug 54318
Collapse All | Expand All

Lines 12-18 Link Here

(-)bin/TkWeather (-2 / +2 lines)
12		12
13	# 1.1.0 : added alert button, redid picture selection, fixed zombie problem	13	# 1.1.0 : added alert button, redid picture selection, fixed zombie problem
14		14
15	source ~/bin/blnhlp.tcl	15	source /usr/bin/blnhlp.tcl
16		16
17	global city date temp hum press wind winddir windlab weather picture forecast base alert	17	global city date temp hum press wind winddir windlab weather picture forecast base alert
18	global datetime	18	global datetime
Lines 503-509 Link Here
503	puts ">> no image for $weather <<"	503	puts ">> no image for $weather <<"
504	set picture unknown	504	set picture unknown
505	}	505	}
506	image create photo $code -file ~/bin/tkweatherlib/$images($picture)	506	image create photo $code -file /usr/lib/tkweatherlib/$images($picture)
507	$base.cities.g($code) create image 25 25 -image $code	507	$base.cities.g($code) create image 25 25 -image $code
508		508
509	# set up balloon help	509	# set up balloon help





proc readstates {} {
	 global state_code w_addus
	 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

proc readcities {state} {
	 global state_code city_code w_addus statecd
	 set statecd $state_code($state)
	 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 {:}]

Return to bug 54318

Lines 250-257 Link Here

(-)bin/TkWeather_setup.tcl (-4 / +4 lines)
250		250
251	proc readstates {} {	251	proc readstates {} {
252	global state_code w_addus	252	global state_code w_addus
253	if {[file exists "~/bin/tkweatherlib/state_codes"] == 1} {	253	if {[file exists "/usr/lib/tkweatherlib/state_codes"] == 1} {
254	set stfile [open "~/bin/tkweatherlib/state_codes" r]	254	set stfile [open "/usr/lib/tkweatherlib/state_codes" r]
255	while {[gets $stfile line] >= 0} {	255	while {[gets $stfile line] >= 0} {
256	set foo [split $line {:}]	256	set foo [split $line {:}]
257	set state_code([lindex $foo 1]) [lindex $foo 0]; # code-name array	257	set state_code([lindex $foo 1]) [lindex $foo 0]; # code-name array
Lines 264-271 Link Here
264	proc readcities {state} {	264	proc readcities {state} {
265	global state_code city_code w_addus statecd	265	global state_code city_code w_addus statecd
266	set statecd $state_code($state)	266	set statecd $state_code($state)
267	if {[file exists "~/bin/tkweatherlib/$state_code($state)"] == 1} {	267	if {[file exists "/usr/lib/tkweatherlib/$state_code($state)"] == 1} {
268	set cyfile [open "~/bin/tkweatherlib/$state_code($state)" r]	268	set cyfile [open "/usr/lib/tkweatherlib/$state_code($state)" r]
269	$w_addus.citylist delete 0 end	269	$w_addus.citylist delete 0 end
270	while {[gets $cyfile line] >= 0} {	270	while {[gets $cyfile line] >= 0} {
271	set foo [split $line {:}]	271	set foo [split $line {:}]