simplifiaction du code (suppression de l'ascenseur

dans les zones text Tk ou passage du texte d'explication
directement dans le Zinc

1 files changed, 10 insertions, 13 deletions

diff --git a/Perl/demos/Tk/demos/zinc_lib/counter.pl b/Perl/demos/Tk/demos/zinc_lib/counter.pl
index 1ef3295..45b5208 100644
--- a/Perl/demos/Tk/demos/zinc_lib/counter.pl
+++ b/Perl/demos/Tk/demos/zinc_lib/counter.pl
@@ -15,19 +15,6 @@ my $boldfont = '-adobe-helvetica-bold-r-normal--20-240-100-100-p-182-iso8859-1';
 
 my $mw = MainWindow->new();
 
-###########################################
-# Text zone
-###########################################
-
-my $text = $mw->Scrolled(qw/Text -relief sunken -borderwidth 2 -setgrid true
-	      -height 6 -scrollbars e/);
-$text->pack(qw/-expand yes -fill both/);
-
-$text->insert('0.0',
-	      'This toy-appli shows a simple counter.It is made thanks to clips and contours : this is the only way to do this.
-The following operations are possible:
-   Drag and drop the counter to move it. Observe that the colour of the backgound of the counter is the same as the one of the window (use of clips)' );
-
 ###################################################
 # Zinc
 ###################################################
@@ -45,6 +32,16 @@ my $r = $zinc->add('rectangle', 1,
 		     -fillcolor => "red:40|green:40 50|blue:40/90"
 		     );
 
+# The explanation displayed when running this demo
+$zinc->add('text', 1,
+	   -position=> [10,10],
+	   -text => 'This toy-appli shows a simple counter. It is made thanks to clipping
+and contours : this is the only way to do this.
+You can drag the counter. Observe that the colour of the backgound of the
+counter is the same as the one of the window (use of clips)',
+	   -font => "9x15",
+	   );
+
 ###################################################
 # Les positions
 ###################################################