log all actions in gui. mt

diff --git a/control/gui/Buttons2.pm b/control/gui/Buttons2.pm
index 187a52fef0bb3077b79286bbd014e8e148657a43..c6c839a1408f1c3aca0d3fcce37f6b53b3074c47 100644 (file)
--- a/control/gui/Buttons2.pm
+++ b/control/gui/Buttons2.pm
@@ -373,7 +373,7 @@ sub make_subroutine {
     # make subroutines
     #sub slot0Pressed { my $c = buttons->[0]; $c = "cd ../control; ./$c"; print "will execute: $c\n"; qx($c); }
 
-    my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; ./\$c &"; print "will execute: \$c\n"; system(\$c); }|;
+    my $str = qq|sub slot| . $i . qq|Pressed { my \$c = this->{self}->{ra_buttons}->[$i]; \$c = "cd $dir; control_gui_logger.sh \$c; ./\$c &"; print "will execute: \$c\n"; system(\$c); }|;
 #    my $str = qq|sub slot| . $i . qq|Pressed { print "$i pressed\n"; }|;
 #system(\$c); }|;
     #print "sub: $str\n";