diff options
Diffstat (limited to 'Perl/demos/Tk/demos/zinc_lib/simpleradar.pl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_lib/simpleradar.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl index 796270f..8912092 100644 --- a/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl +++ b/Perl/demos/Tk/demos/zinc_lib/simpleradar.pl @@ -18,19 +18,21 @@ my $map_path = Tk->findINC('demos/zinc_data'); my $mw = MainWindow->new(); -my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true - -height 10 -scrollbars e/); +my $text = $mw->Text(-relief => 'sunken', -borderwidth => 2, + -height => 11); $text->pack(qw/-expand yes -fill both/); $text->insert('0.0', - 'This a very simple radar display, where you can see flight tracks, a so-called ministrip (green) and and extend flight label (tan background). + 'This a very simple radar display, where you can see flight tracks, + a so-called ministrip (green) and and extend flight label (tan background). The following operations are possible: Shift-Button 1 for using a squarre lasso (result in the terminal). Click Button 2 for identifiying the closest item (result in the terminal). Button 3 for dragging most items, but not the ministrip (not in the same group). Shift-Button 3 for zooming independently on X and Y axis. Ctrl-Button 3 for rotationg graphic objects. - Enter/Leave in flight label fields, speed vector, position and leader, and in the ministrip fields. + Enter/Leave in flight label fields, speed vector, position and leader, + and in the ministrip fields. Click Button 1 on flight track to display a route.'); |