if {$milliseconds > 0} then { 
        set afterForPageProgress [after $milliseconds \ 
            [namespace code [list pageProgress $channel $type \ 
            $milliseconds]]] 
      } else { 
        unset afterForPageProgress 
        unset -nocomplain afterForPageProgress 
      } 
    } 
 
    # 
    # NOTE: This procedure was stolen from the "getEagle.tcl" script.  It is 

      # 
      # NOTE: If there is a currently scheduled [after] event, cancel it. 
      # 
      if {[info exists afterForPageProgress]} then { 
        catch {after cancel $afterForPageProgress} 
        unset -nocomplain afterForPageProgress 
      } 
 
      # 
      # NOTE: If progress messages were emitted, start a fresh line. 
      #