########################################################################
# ATTENTION : MODIF FAITE POUR ADAPTATION A TK3.6 (POUR STEAD)
########################################################################

package provide xtk 1.0

## xtk_invokeButton -- actionne un bouton avec visualisation
# 
# 
proc xtk_invokeButton {but} {
    $but configure -state active -relief sunken
    update idletasks
    after 100
    $but invoke
    # button $but could no more exist if invoke destroye its parent !
    catch {$but configure -state normal -relief raised}
}


# ./
