mirror of
https://github.com/paparazzi/paparazzi.git
synced 2026-06-04 22:17:01 +08:00
"make" works without any variable setting
This commit is contained in:
@@ -38,11 +38,13 @@ let _ =
|
||||
Hardware.create_sheet sheets;
|
||||
Radio.create_sheet sheets;
|
||||
Airframe.create_sheet sheets;
|
||||
(***
|
||||
Flightplan.create_sheet sheets;
|
||||
Upload.create_sheet sheets;
|
||||
Simulator.create_sheet sheets;
|
||||
Monitor.create_sheet sheets;
|
||||
Logalizer.create_sheet sheets;
|
||||
***)
|
||||
|
||||
let quit_button = Button.create ~relief:`Sunken ~text:"Quit" ~command:exit sheets
|
||||
and (n, _) = Grid.size sheets in
|
||||
|
||||
@@ -53,7 +53,7 @@ let _ =
|
||||
end;
|
||||
true in
|
||||
|
||||
ignore (Glib.Io.add_watch `IN cb (Glib.Io.channel_of_descr fd)) in
|
||||
ignore (Glib.Io.add_watch [`IN] cb (Glib.Io.channel_of_descr fd)) in
|
||||
|
||||
let handle_pprz_message = fun (msg_id, values) ->
|
||||
let msg = Tele_Pprz.message_of_id msg_id in
|
||||
|
||||
@@ -112,7 +112,7 @@ sub build_compile_page {
|
||||
@pl = qw/-side top -expand yes -pady 2 -anchor w/;
|
||||
my $mode_txt = 'Mode : '. (defined $paparazzi_src ? "Source tree" : "System install");
|
||||
my $mode_label = $ground_frame->Label(-text => $mode_txt)->pack(@pl);
|
||||
my $paparazzi_src_txt = 'location : '.$paparazzi_src;
|
||||
my $paparazzi_src_txt = 'location : '. (defined $paparazzi_src ? $paparazzi_src : "/usr/share/paparazzi");
|
||||
my $paparazzi_src_label = $ground_frame->Label(-text => $paparazzi_src_txt)->pack(@pl);
|
||||
my $make_button = $ground_frame->Button(
|
||||
-text => "Compile",
|
||||
|
||||
@@ -7,7 +7,7 @@ BEGIN {
|
||||
$ENV{PAPARAZZI_SRC}."/sw/lib/perl" : "/usr/lib/paparazzi/";
|
||||
}
|
||||
use lib ($paparazzi_lib);
|
||||
use lib ($ENV{PAPARAZZI_SRC}."/sw/supervision");
|
||||
# use lib ($ENV{PAPARAZZI_SRC}."/sw/supervision");
|
||||
|
||||
use Paparazzi::CpGui;
|
||||
@ISA = qw(Paparazzi::CpGui);
|
||||
|
||||
Reference in New Issue
Block a user