# Ce fichier contients quelque(s:-) procédures utilisées exclusivent
# pour le debogage de stead
# 
# 
# $Id :            $
# $Date :          $
# $Revision :      $
# $Source :        $


package provide stead 2.0

## stead:debug -- surveille quelques variable globales
# 
# A modififier/compléter suivant les besoins
# 
proc stead:debug {} {
    global xtext
    set w .main.t
    
    toplevel .foo
    wm geometry .foo +0+0

    label .foo.count -width 15 -textvariable xtext($w,autoRepeatCount)
    label .foo.prefix -width 15 -textvariable xtext($w,autoRepeatActif)
    pack .foo.filename -in .foo
    pack .foo.count -in .foo
    pack .foo.prefix -in .foo
}

## per -- print erroInfo
proc per {}      {puts stderr $::errorInfo}

## per -- print auto_path
proc pap {}      {puts stderr $::auto_path}

## j -- print a list one element by line
proc j    L      {return [join  $L \n]}

## gr --  Extrait les lignes satisfaisants à un patterne   TODO
proc gr  args   {error "retoune liste lignes satisfaisant une patterne TODO}

## try -- print a list one element by line
proc try  args   {error "procédure réservée catch interactif}

# ./

