Opened by helmut at 2003-10-05 01:24
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
oder so
(vgl. das entsprechende Snippet auf meiner Perlseite)\n\n
<!--EDIT|Crian|1070455107-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
my $MamaGUI = new MainWindow( -title => "Mein Programm");
# Größe des Fensters:
my $windowHeight = "600";
my $windowWidth = "800";
# Bildschirmgröße holen:
my $screenHeight = $MamaGUI->screenheight;
my $screenWidth = $MamaGUI->screenwidth;
# MamaGUI zentrieren:
$MamaGUI->geometry($windowWidth."x".$windowHeight);
$MamaGUI->geometry("+" .
int($screenWidth/2 - $windowWidth/2) .
"+" .
int($screenHeight/2 - $windowHeight/2)
);
(vgl. das entsprechende Snippet auf meiner Perlseite)\n\n
<!--EDIT|Crian|1070455107-->
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