Bonne année !
Vincent Verdon
je suis le premier ? David, faudra penser � un "Youpi du premier �
souhaiter la bonne ann�e sur fr.comp.lang.tcl" !
Donc voici mon code :
proc bonne_annee {} {
puts {bonne ann�e � tous les Tcleurs de France et de Terre et qu'elle
vous apporte plein de bonnes choses de tous points de vues, et
r�ciproquement}
}
while {$mois == {janvier}} {
bonne_annee
after 10000
}
--
Amicalement, Vincent Verdon
gersoo
Vincent Verdon <vincent...@laposte.net> wrote:
> Bonjour à tous,
>
> je suis le premier ? David, faudra penser à un "Youpi du premier à
> souhaiter la bonne année sur fr.comp.lang.tcl" !
>
> Donc voici mon code :
>
> [....]
>
> --
> Amicalement, Vincent Verdon
>
Bonsoir,
Bonne année à tous les técleurs et aux autres aussi d'ailleurs.
Un petit code:
font create arialb -family Arial -size 20 -weight bold
proc Affiche {a x y} {
return [.can create text $x $y -anchor center \
-font arialb -justify center -text $a -fill orange]
}
proc BonneAnnee2011 {s W H T} {
set j 10; set t {}
foreach i [split $s] {
lappend t [set id [Affiche $i [set x [expr {2*$j}]] [set y [expr {$j}]]]]
set dx($id) $x; set dy($id) $y
incr j 10
}
set k 0
incr H -20; incr W -20
while {$k <= $T} {
foreach obj $t {
update idletasks
.can move $obj $dx($obj) $dy($obj)
foreach i {xmin ymin} j [.can coords $obj] {set $i $j}
if {$xmin>$W || $xmin<10} {set dx($obj) [expr {-$dx($obj)}]}
if {$ymin>$H || $ymin<10} {set dy($obj) [expr {-$dy($obj)}]}
}
after 140
incr k
}
}
canvas .can -width [set W 400] -height [set H 300] -bg blue
pack .can
button .b -text Quitter -command exit
pack .b -fill x
BonneAnnee2011 "BONNE ANNEE 2011 TCL-TK" $W $H 35
Amicalement,
GS
Kroc
--
David Zolli