..I'm sorry.. I couldn't resist :)
perl -MTk -e "$w=tkinit;$w->optionAdd('*font','Courier 20 bold');$w->L +abel(-textvariable=>\$n,-background=>'lavender')->pack;$w->repeat(100 +,sub{$n=scalar localtime time});MainLoop"
L*
PS minimalistic version
perl -MTk -e "$w=tkinit;$w->geometry('400x1');$w->repeat(100,sub{$w->configure(-title=>scalar localtime time)});MainLoop"
There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Stylish Tk clock -- oneliner
by Tux (Canon) on May 12, 2021 at 12:58 UTC | |
by hippo (Bishop) on May 12, 2021 at 13:38 UTC | |
by bliako (Monsignor) on May 12, 2021 at 13:41 UTC | |
Re: Stylish Tk clock -- oneliner
by choroba (Cardinal) on May 12, 2021 at 15:38 UTC | |
by Tux (Canon) on May 14, 2021 at 08:50 UTC |
Back to
Cool Uses for Perl