| … | |
… | |
| 52 | erase; |
52 | erase; |
| 53 | |
53 | |
| 54 | my $data = $GPS->data; |
54 | my $data = $GPS->data; |
| 55 | |
55 | |
| 56 | move 0, 0; |
56 | move 0, 0; |
| 57 | addstr $frame++ . " $data->{lat} $data->{long} $data->{alt}"; |
57 | addstr $frame++ . ": " . localtime($data->{time}) . " $data->{lat} $data->{long} $data->{alt}m"; |
| 58 | |
58 | |
| 59 | for my $idx (0 .. $#menu) { |
59 | for my $idx (0 .. $#menu) { |
| 60 | move 1 + $idx, 0; |
60 | move 2 + $idx, 0; |
| 61 | standout if $idx == $menu_idx; |
61 | standout if $idx == $menu_idx; |
| 62 | addstr $menu[$idx][0]; |
62 | addstr $menu[$idx][0]; |
| 63 | standend if $idx == $menu_idx; |
63 | standend if $idx == $menu_idx; |
| 64 | } |
64 | } |
| 65 | |
65 | |
| 66 | move 2 + scalar@menu, 0; |
66 | move 3 + scalar@menu, 0; |
| 67 | eval { |
67 | eval { |
| 68 | $menu[$menu_idx][1]->(); |
68 | $menu[$menu_idx][1]->(); |
| 69 | }; |
69 | }; |
| 70 | |
70 | |
| 71 | refresh; |
71 | refresh; |
