From 3925840fb4e0a4a1ef128beb1ab4d339377d25dd Mon Sep 17 00:00:00 2001
From: Olivier Blin <blino@mageia.org>
Date: Tue, 7 May 2013 01:59:19 +0000
Subject: connection manager: move more gtk code in specific module

---
 lib/network/connection_manager.pm     | 12 ------------
 lib/network/connection_manager/gtk.pm | 16 ++++++++++++++++
 2 files changed, 16 insertions(+), 12 deletions(-)

(limited to 'lib')

diff --git a/lib/network/connection_manager.pm b/lib/network/connection_manager.pm
index 9b920a7..fdfe5ca 100644
--- a/lib/network/connection_manager.pm
+++ b/lib/network/connection_manager.pm
@@ -242,21 +242,9 @@ sub toggle_connection {
     }
 }
 
-sub select_network {
-    my ($cmanager) = @_;
-
-    if ($cmanager->{connection}) {
-        my ($selected) = $cmanager->{gui}{networks_list}->get_selected_indices;
-        $cmanager->{connection}{network} = defined $selected && $cmanager->{gui}{networks_list}{data}[$selected][0];
-    }
-    $cmanager->update_on_status_change;
-}
-
 sub update_networks {
     my ($cmanager) = @_;
 
-    @{$cmanager->{gui}{networks_list}{data}} = ();
-
     if ($cmanager->{connection}) {
         $cmanager->check_setup || $cmanager->setup_connection or return;
 
diff --git a/lib/network/connection_manager/gtk.pm b/lib/network/connection_manager/gtk.pm
index 7f90d7d..2872839 100644
--- a/lib/network/connection_manager/gtk.pm
+++ b/lib/network/connection_manager/gtk.pm
@@ -37,6 +37,16 @@ sub stop_connection {
     gtkset_mousecursor_normal($cmanager->{gui}{w}{window}->window);
 }
 
+sub select_network {
+    my ($cmanager) = @_;
+
+    if ($cmanager->{connection}) {
+        my ($selected) = $cmanager->{gui}{networks_list}->get_selected_indices;
+        $cmanager->{connection}{network} = defined $selected && $cmanager->{gui}{networks_list}{data}[$selected][0];
+    }
+    $cmanager->update_on_status_change;
+}
+
 sub create_networks_list {
     my ($cmanager) = @_;
 
@@ -151,6 +161,12 @@ sub filter_networks {
     } values %{$connection->{networks}};
 }
 
+sub update_networks {
+    my ($cmanager) = @_;
+    @{$cmanager->{gui}{networks_list}{data}} = ();
+    $cmanager->SUPER::update_networks;
+}
+
 sub update_networks_list {
     my ($cmanager) = @_;
 
-- 
cgit v1.2.1