summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/plot.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/plot.pl')
-rw-r--r--Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/plot.pl28
1 files changed, 0 insertions, 28 deletions
diff --git a/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/plot.pl b/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/plot.pl
deleted file mode 100644
index 1f7d3d03904..00000000000
--- a/Master/tlpkg/tlperl/site/lib/Tk/demos/widget_lib/plot.pl
+++ /dev/null
@@ -1,28 +0,0 @@
-# plot.pl
-
-use Plot;
-use vars qw/$TOP/;
-
-sub plot {
-
- # Create a top-level window containing a canvas displaying a simple
- # graph with data points that can be dragged with the pointing device.
-
- my($demo) = @_;
- $TOP = $MW->WidgetDemo(
- -name => $demo,
- -text => "This window displays a canvas widget containing a simple 2-dimensional plot. You can doctor the data by dragging any of the points with mouse button 1.\n\nYou can also select a printable area with the mouse button 2.",
- -title => 'Plot Demonstration',
- -iconname => 'plot',
- );
-
- my $c = $TOP->Plot(
- -title_color => 'Brown',
- -inactive_highlight => 'Skyblue2',
- -active_highlight => 'red',
- );
- $c->pack(qw/-fill x/);
-
-} # end plot
-
-1;