Changeset 1912 for trunk/mcgui.pl

Timestamp:

03/19/07 11:17:36 (5 years ago)

Author:

pkwi

Message:

Small hacks to allow built-in editor to run alone.

(mcgui --edit my_instrumentfile.instr)

Added corresponding hook in the File menu

Files:

• trunk/mcgui.pl (modified) (3 diffs)

trunk/mcgui.pl

@@ -194 +194 @@
     spawn_external($w,$cmd);
 }
+
+sub menu_spawn_internal_editor {
+    my ($w) = @_;
+    my $cmd = "mcgui$suffix --edit $current_sim_def";
+    if ($external_editor eq "no") { return 0; }
+    # Must be handled differently on Win32 vs. unix platforms...
+    spawn_external($w,$cmd);
+}
+
 
 sub menu_spawn_mcdaemon {
@@ -1430 +1439 @@
                        -underline => 0,
                        -command => \&menu_edit_current);
+    $filemenu->command(-label => 'Edit current/New (detached)',
+                       -underline => 0,
+                       -command => sub { menu_spawn_internal_editor($w) } );
     if($external_editor) {
         my $shortname = (split " ", $external_editor)[0];
@@ -1857 +1869 @@
             $open_editor = 1;
 #            menu_edit_current($win);
-        } else {
+        } elsif ($ARGV[$j] eq "--edit") {
+            $open_editor = 1;
+            $win->withdraw;
+        } else {
             $filenames = "$ARGV[$j]";
         }