From 8bf868cd3e3b06755276f285b50f2ca6838262ce Mon Sep 17 00:00:00 2001 From: jquelin Date: Fri, 9 Nov 2007 18:14:25 +0000 Subject: [PATCH] [project @ 177] r7709@merlin: jquelin | 2007-11-09 18:13:05 +0100 changing button states on file load --- lib/Language/Befunge/Debugger.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/Language/Befunge/Debugger.pm b/lib/Language/Befunge/Debugger.pm index 22ff350..0cae9d1 100644 --- a/lib/Language/Befunge/Debugger.pm +++ b/lib/Language/Befunge/Debugger.pm @@ -79,6 +79,9 @@ sub _do_open_file { # force rescanning of the playfield $tm->configure(-command => sub { _get_cell_value($h->{bef}->get_torus,@_[1,2]) }); $tm->tagCell("decay-$id-0", '0,0'); + $h->{w}{_b_pause}->configure( -state => 'disabled' ); + $h->{w}{_b_next}->configure( -state => 'normal' ); + $h->{w}{_b_continue}->configure( -state => 'normal' ); } @@ -138,8 +141,9 @@ sub _on_start { sub _on_b_continue { my ($k, $h) = @_[KERNEL, HEAP]; $h->{continue} = 1; - $h->{w}{_b_continue}->configure( -state => 'disabled' ); + $h->{w}{_b_pause}->configure( -state => 'normal' ); $h->{w}{_b_next}->configure( -state => 'disabled' ); + $h->{w}{_b_continue}->configure( -state => 'disabled' ); $k->yield('_b_next'); } -- 2.11.4.GIT