Thread Scrolled-Text - Bildschirm löschen (5 answers)
Opened by silbersteine at 2004-08-15 23:46

renee
 2004-08-16 09:14
#42423 #42423
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das hier funktioniert bei mir:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#! /usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::TextUndo;

my $mw = MainWindow->new();
my $sc = $mw->Scrolled('Text',
-height => '1',
-width => '10',
-scrollbars => 'osoe',
)->pack();
$mw->Button(-text => 'del',-command => \&deleter)->pack();

$sc->insert('end','Test');

MainLoop;

sub deleter{
$sc->delete('1.0','end');
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View full thread Scrolled-Text - Bildschirm löschen