Changeset 751

Show
Ignore:
Timestamp:
09/11/98 17:50:15 (16 years ago)
Author:
ucackha
Message:

Hack in update_src to stop it from trying to update sources that have been removed. Kris

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • vic/trunk/ui-main.tcl

    r745 r751  
    3434# 
    3535 
     36set updated 0 
    3637 
    3738proc session args { 
     
    793794 
    794795proc update_src src { 
    795         global ftext 
     796        global ftext updated 
    796797        if ![info exists ftext($src)] { 
    797798                return 
    798799        } 
     800        if {$updated==1} {return} 
    799801        update_rate $src 
    800802        #XXX 
    801803        update_source_info $src 
    802         after 1000 "update_src $src" 
     804        after 1000 "catch {update_src $src}" 
    803805} 
    804806