You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
402 B
20 lines
402 B
use Tk; |
|
use Tk::Text; |
|
|
|
$mw = MainWindow->new; |
|
|
|
$edit = $mw->TextUndo->pack; |
|
|
|
$edit->insert('end', 't'); |
|
|
|
$edit->tagConfigure('<b>', -font => $mw->Font(-family => 'times', -weight => 'bold')); |
|
$edit->tagConfigure('elide', -elide => 1); |
|
|
|
$tag = "<b>"; |
|
|
|
$mw->Button(-text => 'bold', -command => sub { |
|
$edit->insert('insert', 'de', [$tag, 'elide']); |
|
$edit->tagAdd($tag, 'insert'); |
|
})->pack; |
|
|
|
MainLoop; |