From d3d8bc531cdf9e917c8f9bd80a2c4bbfd43567a7 Mon Sep 17 00:00:00 2001
From: jquelin <jquelin@merlin.mongueurs.net>
Date: Fri, 9 Nov 2007 11:55:24 +0000
Subject: [PATCH] [project @ 167]  r7685@merlin:  jquelin | 2007-11-09 12:53:01
 +0100  requesting file opening if no arg

---
 Changes                          | 3 +++
 lib/Language/Befunge/Debugger.pm | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index f131c7e..86f3127 100644
--- a/Changes
+++ b/Changes
@@ -11,6 +11,9 @@ High-level changelog
 Low-level changelog
 ===================
 
+0.2.1 Fri Nov  9 12:50:34 CET 2007
+ - file opening now works
+
 0.2.0 Wed Nov  7 18:03:34 CET 2007
  - dropping buttons for a toolbar 
  - adding a tick counter, with indication of current ip being processed
diff --git a/lib/Language/Befunge/Debugger.pm b/lib/Language/Befunge/Debugger.pm
index 79d32e6..70ff940 100644
--- a/lib/Language/Befunge/Debugger.pm
+++ b/lib/Language/Befunge/Debugger.pm
@@ -79,7 +79,7 @@ sub _on_start {
     my ($k, $h, $s, $opts) = @_[ KERNEL, HEAP, SESSION, ARG0 ];
 
     #-- load befunge file
-    $k->yield( '_do_open_file', $opts->{file} ) if $opts->{file};
+    $k->yield( $opts->{file} ? ('_do_open_file', $opts->{file}) : '_b_open' );
 
     #-- create gui
 
@@ -117,7 +117,6 @@ sub _on_start {
         -rows       => 25,
         -colwidth   => 3,
         -state      => 'disabled',
-        -command    => sub { _get_cell_value($h->{bef}->get_torus,@_[1,2]) },
         -browsecmd  => $s->postback('_tm_click'),
     )->pack(-side=>'left', -fill=>'both', -expand=>1);
     $h->{w}{tm} = $tm;
-- 
2.11.4.GIT