From 1df6d3f9d3a636fdd9037c2d021456400b72bc30 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 26 Jun 2009 20:46:47 -0500
Subject: better refreshing

---
 lib/Net/Termcast.pm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/Net/Termcast.pm b/lib/Net/Termcast.pm
index f5eb8d8..474a32f 100644
--- a/lib/Net/Termcast.pm
+++ b/lib/Net/Termcast.pm
@@ -85,10 +85,22 @@ sub BUILD {
     $self->_get_menu;
 }
 
-sub refresh {
+sub refresh_menu {
     my $self = shift;
+    my $name;
+    if ($self->location ne 'menu') {
+        $name = $self->session($self->location)->name;
+        $self->_sock->send('q', 0);
+    }
     $self->_sock->send(' ', 0);
     $self->_get_menu;
+    return unless $name;
+    for my $session (keys %{ $self->sessions }) {
+        if ($self->session($session)->name eq $name) {
+            $self->select_session($session);
+            return;
+        }
+    }
 }
 
 sub select_session {
-- 
cgit v1.2.3