diff options
Diffstat (limited to 'mdkwebadmin.pl')
-rwxr-xr-x | mdkwebadmin.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/mdkwebadmin.pl b/mdkwebadmin.pl index 85959189..60de0c06 100755 --- a/mdkwebadmin.pl +++ b/mdkwebadmin.pl @@ -39,16 +39,16 @@ unless ($::isEmbedded) { } gtkadd($w->{window}, - gtkpack_(Gtk2::VBox->new(0,5), - 1, Gtk2::Label->new(N("Enter the webmin address server below \n")), - 1, $ent = Gtk2::Entry->new(), - 0, Gtk2::HSeparator->new, + gtkpack_(Gtk3::VBox->new(0,5), + 1, Gtk3::Label->new(N("Enter the webmin address server below \n")), + 1, $ent = Gtk3::Entry->new(), + 0, Gtk3::HSeparator->new, 0, gtkpack(create_hbox(), - gtksignal_connect(Gtk2::Button->new(N("Connect")), clicked => sub { + gtksignal_connect(Gtk3::Button->new(N("Connect")), clicked => sub { $link = 'https://' . $ent->get_text() . ':10000/'; exec "$execbin $link"; }), - gtksignal_connect(Gtk2::Button->new(N("Abort")), clicked => \&quit)))); + gtksignal_connect(Gtk3::Button->new(N("Abort")), clicked => \&quit)))); $w->{window}->show_all; $w->main; |