move code in a main() sub

1 files changed, 18 insertions, 14 deletions

diff --git a/bin/draknetcenter b/bin/draknetcenter
index 280be2d..20a9e9f 100755
--- a/bin/draknetcenter
+++ b/bin/draknetcenter
@@ -25,17 +25,6 @@ use network::connection;
 use network::connection::wireless;
 use network::connection::cellular_card;
 
-my $title = N("Network Center");
-my $icon = '/usr/share/mcc/themes/default/drakroam-mdk.png';
-
-$ugtk2::wm_icon = $icon;
-my $w = ugtk2->new($title);
-#- so that transient_for is defined, for wait messages and popups to be centered
-$::main_window = $w->{real_window};
-
-my @connections = map { $_->get_connections(automatic_only => 1) } network::connection::get_types;
-@connections = reverse(uniq_ { $_->{device} } reverse(@connections));
-
 sub build_networks_list {
     my ($connection) = @_;
 
@@ -101,7 +90,19 @@ sub gtkset_image {
     $w;
 }
 
-gtkadd($w->{window},
+sub main() {
+    my $title = N("Network Center");
+    my $icon = '/usr/share/mcc/themes/default/drakroam-mdk.png';
+
+    $ugtk2::wm_icon = $icon;
+    my $w = ugtk2->new($title);
+    #- so that transient_for is defined, for wait messages and popups to be centered
+    $::main_window = $w->{real_window};
+
+    my @connections = map { $_->get_connections(automatic_only => 1) } network::connection::get_types;
+    @connections = reverse(uniq_ { $_->{device} } reverse(@connections));
+
+    gtkadd($w->{window},
        gtknew('VBox', spacing => 5, children => [
            $::isEmbedded ? () : (0, Gtk2::Banner->new($icon, $title)),
            1, gtknew('ScrolledWindow', width => 500, height => 300, child => gtknew('VBox', spacing => 5, children_tight => [
@@ -127,6 +128,9 @@ gtkadd($w->{window},
                } @connections,
            ])),
        ]),
-   );
+    );
+
+    $w->main;
+}
 
-$w->main;
+main();