Opened by Gast at 2007-05-26 19:52
User since
2007-03-26
47 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-03-26
47 Artikel
BenutzerIn
Hallo,
bei mir (804.027, AS-perl) tut der folgende code genau das, was er soll: Selektieren (und weiss auf blau darstellen). Es werden auch nicht die ganzen Zeilen markiert, sondern nur das, was zwischen den angegebenen Marken liegt:
Christoph\n\n
<!--EDIT|Sucher|1181474019-->
bei mir (804.027, AS-perl) tut der folgende code genau das, was er soll: Selektieren (und weiss auf blau darstellen). Es werden auch nicht die ganzen Zeilen markiert, sondern nur das, was zwischen den angegebenen Marken liegt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
use warnings;
use strict;
use Tk;
my $mw = tkinit;
my $t = $mw->Text->pack;
$mw->Button(-text => 'sel',
-command => sub{$t->tagAdd('sel','1.5','2.5')}
)->pack;
MainLoop;
Christoph\n\n
<!--EDIT|Sucher|1181474019-->