dc 30/11/05 Une petit procédure pour faire vibrer une fenêtre :
package require Tk wm title . "Faire vibrer sa fenêtre" button .b1 -text "petite vibration longue" -command "vibration . 20 1 2000" button .b2 -text "moyenne vibration moyenne" -command "vibration . 50 2 1000" button .b3 -text "grande vibration courte" -command "vibration . 80 3 500" pack .b1 .b2 .b3 -side left proc vibration {tl taux amplitude dureems} { set deltaT [expr {int(100*(1-$taux/100.))}] set pos [scan [wm geometry $tl] %dx%d+%d+%d w h a o] set debut [clock clicks -millisecond] set i 0 while {1} { set x [expr {$a+($i%2)*$amplitude}] set y [expr {$o+($i%2)*$amplitude}] incr i if {[clock clicks -millisecond]>=[expr {$debut+$dureems}]} break wm geometry $tl ${w}x${h}+${x}+${y} after $deltaT update } wm geometry $tl ${w}x${h}+${a}+${o} }
Bon ok ! ça sert à rien, mais l'activité du wiki en cette fin novembre est très limitée ;-)
ulis, 2005-12-01. :-)) Merci pour cette vibro-window !