Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-07 09:36:19 +08:00
Code Issues Actions 30 Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Antoine Drouin
2006-03-14 21:21:21 +00:00
parent 9a6a2f62b4
commit 870ae63f25
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/cockpit/cockpit.pl
+6 -5
View File
@@ -81,15 +81,16 @@ sub on_new_aircraft {
sub build_gui {
my ($self) = @_;
$self->{mw} = MainWindow->new();
my $size = 250;
my $top_frame = $self->{mw}->Frame()->pack(-side => 'top', -fill => 'both');
my ($stp_p, $stp_w, $stp_h) = ([0, 0], 300, 300);
my ($pfd_p, $pfd_w, $pfd_h) = ([$stp_w, 0] , 300, $stp_h);
my ($nd_p, $nd_w, $nd_h) = ([$pfd_p->[0]+ $pfd_w, 0], 300, 300);
my ($stp_p, $stp_w, $stp_h) = ([0, 0], $size, $size);
my ($pfd_p, $pfd_w, $pfd_h) = ([$stp_w, 0] , $size, $size);
my ($nd_p, $nd_w, $nd_h) = ([$pfd_p->[0]+ $pfd_w, 0], $size, $size);
my ($z_w, $z_h) = ($stp_w + $pfd_w + $nd_w, $nd_h);
if ($options->{vertical}) {
($pfd_p, $pfd_w, $pfd_h) = ([0, $stp_h] , $stp_w, 300);
($nd_p, $nd_w, $nd_h) = ([0, $pfd_p->[1]+ $pfd_h], 300, 300);
($pfd_p, $pfd_w, $pfd_h) = ([0, $stp_h] , $size, $size);
($nd_p, $nd_w, $nd_h) = ([0, $pfd_p->[1]+ $pfd_h], $size, $size);
($z_w, $z_h) = ($stp_w, $stp_h + $pfd_h + $nd_h)
}