Opened by Crian at 2004-12-16 12:47
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Mit
Kann ich in meinem Textwidget auf bestimmte Weise herumscrollen. Die Belegung von Alt-Up und Alt-Down würd ich (auch) gern auf das Mausrad legen, aber ich weiß nicht, wie der entsprechende Modifier heißt. In perldoc Tk::bind steht dazu nichts. Button-4 und Button-5 hab ich schon ohne Erfolg ausprobiert.
Hat das schonmal jemand gemacht, ptk vielleicht? =)
Edit: Mir ist klar, dass ich hier eigentlich nicht ans Text-Widget binde, sondern an das Main-Widget, aber das Programm besteht fast nur aus dem Text-Widget und dies ist so beabsichtigt.\n\n
<!--EDIT|Crian|1103194203-->
Code: (dl
)
1
2
3
4
5
6
$mw->bind('<Up>', sub { $Config{text_widget}->yviewScroll(-1, 'units') } );
$mw->bind('<Down>', sub { $Config{text_widget}->yviewScroll( 1, 'units') } );
$mw->bind('<Alt-Up>', sub { $Config{text_widget}->yviewScroll(-3, 'units') } );
$mw->bind('<Alt-Down>', sub { $Config{text_widget}->yviewScroll( 3, 'units') } );
$mw->bind('<Control-Prior>', sub { $Config{text_widget}->yviewScroll(-1, 'pages') } );
$mw->bind('<Control-Next>', sub { $Config{text_widget}->yviewScroll( 1, 'pages') } );Kann ich in meinem Textwidget auf bestimmte Weise herumscrollen. Die Belegung von Alt-Up und Alt-Down würd ich (auch) gern auf das Mausrad legen, aber ich weiß nicht, wie der entsprechende Modifier heißt. In perldoc Tk::bind steht dazu nichts. Button-4 und Button-5 hab ich schon ohne Erfolg ausprobiert.
Hat das schonmal jemand gemacht, ptk vielleicht? =)
Edit: Mir ist klar, dass ich hier eigentlich nicht ans Text-Widget binde, sondern an das Main-Widget, aber das Programm besteht fast nur aus dem Text-Widget und dies ist so beabsichtigt.\n\n
<!--EDIT|Crian|1103194203-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite
use strict; use warnings; Link zu meiner Perlseite