#!/usr/bin/perl -w use strict; use Tk; my $mw=tkinit; $mw->optionAdd("*background"=>'lightblue','userDefault'); $mw->Listbox->pack->insert(0,qw/a listbox/); $mw->Text->pack->insert('1.0','text widget'); $mw->Entry->pack->insert(0,'entry widget'); MainLoop;
In reply to Re: Configure default widget options in Tk
by zentara
in thread Configure default widget options in Tk
by hangon
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |