From 3d9196d7b4fa20a4f24257812121da113caff2f0 Mon Sep 17 00:00:00 2001
From: jquelin <jquelin@merlin.mongueurs.net>
Date: Mon, 26 Nov 2007 12:10:58 +0000
Subject: [PATCH] [project @ 221]  r7837@merlin:  jquelin | 2007-11-22 18:33:31
 +0100  forcing selection on newly inserted element

---
 lib/Language/Befunge/Debugger/Breakpoints.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Language/Befunge/Debugger/Breakpoints.pm b/lib/Language/Befunge/Debugger/Breakpoints.pm
index 81819d3..8e142ad 100644
--- a/lib/Language/Befunge/Debugger/Breakpoints.pm
+++ b/lib/Language/Befunge/Debugger/Breakpoints.pm
@@ -11,6 +11,7 @@ package Language::Befunge::Debugger::Breakpoints;
 use strict;
 use warnings;
 
+use List::MoreUtils qw[ firstidx ];
 use Readonly;
 use Tk; # should come before POE
 use Tk::Dialog;
@@ -65,6 +66,7 @@ sub _do_breakpoint_add {
 
     $h->{list}->delete(0, 'end');
     $h->{list}->insert(0, sort @elems);
+    $h->{list}->selectionSet( firstidx { $_ eq $brkpt } $h->{list}->get(0, 'end') );
     $h->{but_remove}->configure(-state => 'normal' );
 }
 
-- 
2.11.4.GIT