From e41e8023e3d96bac3592d7ee676117e2d5b1d6a9 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 11 Apr 2002 09:41:21 +0000
Subject: *** empty log message ***

---
 debian/changelog    | 46 ++++++++++++++++++++++++++++++++++++++++++++++
 sandbox/testzinc.pl | 25 +++++++++++++++----------
 2 files changed, 61 insertions(+), 10 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 13839a0..2d4bb6b 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,49 @@
+zinc-tk (3.2.5a) unstable; urgency=low
+
+  * Correction d'un core dump lors de la destruction d'un
+    item text cloné dont on a modifié le texte.
+  * Le changement de fonte d'un texte (Text et Field) n'était
+    pas suivi d'effet en openGL, maintenant ça devrait aller
+    mieux.
+  * Tous les items peuvent avoir le focus, donc on peut utiliser
+    des bindings sur des evènements clavier sur tout item. C'est
+    également vrai pour les fields (extension de la commande focus).
+  * La selection et le curseur sont affiché en GL pour l'item Text
+  * La selection et le curseur sont affiché pour le texte dans les
+    fields (X et GL).
+  * L'édition de texte, la selection, et le curseur sont supportés
+    pour les fields.
+  * Restructuration du module Item, création du module Field et
+    suppression de l'ingérance de Item dans Group. Le code devrait
+    être plus clair et plus facile à maintenir (il reste à préfixer
+    toutes les fonctions externes par Zn).
+  * L'option -render n'est plus un booléen, elle peut prendre les
+    valeurs 0: rendu X, 1: rendu GL direct, 2: rendu GL indirect.
+  * Amélioration de ZincText.pm: correction de bugs, évolution des
+    bindings pour mieux gérer la sélection, intégration de l'édition
+    des textes dans les fields, possibilité d'aller en fin/début de
+    ligne, de monter/descendre d'une ligne (item text).
+  * Des nouveaux indices sont disponibles dans les items indexables:
+    bol, eol, bow, eow, up, down.
+  * Correction d'un core dans DeleteChars de Text (pointeur non
+    déréférencé).
+  * La commande currentpart prend un paramètre booléen optionnel
+    qui spécifie si elle doit reporter les parties privées de l'item
+    ou seulement les fields (elle retourne "" si le pointeur est
+    sur une partie privée).
+  * Toutes les commandes acceptant un paramètre field optionnel
+    comprennent un field index "" comme étant une absence de paramètre:
+    aucune erreur n'est générée et tout se passe comme si le paramètre
+    n'avait pas été spécifié.
+  * Les commandes 'focus' et 'select item' retournent une liste
+    (item, field) ou "" si pas d'item. La présence de field est
+    garantie (liste de longueur 2) mais peut être "", se qui veut
+    dire pas de field. On peut directement utiliser le résultat
+    de ces commandes comme paramètres pour les commandes prennant
+    un couple item, field.
+  
+ --
+
 zinc-tk (3.2.4) unstable; urgency=low
 
   * Correction de -lastasfirst, le bug était dû à un
diff --git a/sandbox/testzinc.pl b/sandbox/testzinc.pl
index 2b755fd..396a2be 100644
--- a/sandbox/testzinc.pl
+++ b/sandbox/testzinc.pl
@@ -3,12 +3,15 @@
 
 use Tk;
 use Tk::Zinc;
-
+use Tk::Photo;
+#use Tk::ZincText;
+use ZincText;
 use Controls;
 
 $map_path = "/usr/share/toccata/maps";
 
 $mw = MainWindow->new();
+$logo = $mw->Photo(-file => "logo.gif");
 
 
 ###################################################
@@ -24,13 +27,18 @@ $delay = 2000;
 $rate = 0.3;
 %tracks = ();
 
-$zinc = $mw->Zinc(-render => 0, -backcolor => 'gray65', -relief => 'sunken');
+$zinc = $mw->Zinc(-render => 2, -backcolor => 'gray65', -relief => 'sunken');
 $zinc->pack(-expand => 1, -fill => 'both');
 $zinc->configure(-width => $zinc_width, -height => $zinc_height);
 #$radar = $top;
 $radar = $zinc->add('group', $top, -tags => ['controls', 'radar']);
 $zinc->configure(-overlapmanager => $radar);
 
+new ZincText($zinc);
+###################################################
+# Création fonctions de contrôle à la souris
+###################################################
+new Controls($zinc);
 
 ###################################################
 # creation panneau controle
@@ -139,7 +147,7 @@ sub create_tracks {
 			     -historycolor => 'gray30',
 			     -filledhistory => 0,
 			     -circlehistory => 1,
-			     -labelformat => "x71x50+0+0 x50a0^0^0 x25a0^0>1 a0a0>2>1 x25a0>3>1 a0a0^0>2"
+			     -labelformat => "x71x50+0+0 a0a0^0^0 a0a0^0>1 a0a0>2>1 a0a0>3>1 a0a0^0>2"
 			    );
 	$zinc->itemconfigure($item, 0,
 			     -filled => 0,
@@ -356,12 +364,13 @@ sub stick_wp {
 			-position => [$x, $y],
 			-connectioncolor => 'red',
 			-symbolcolor => 'red',
-			-labelformat => 'a2a2+0+0');
+			-labelformat => 'a2a2+0+0',
+			-tags => ['text']);
     $zinc->itemconfigure($wp, 0,
 			 -text => "$x".'@'."$y",
 			 -color => 'red',
 			 -filled => 1,
-			     -backcolor => 'gray55');
+			 -backcolor => 'gray55');
     $zinc->bind($wp.':position', '<1>', [\&wipe_wp]);
 }
 
@@ -371,7 +380,7 @@ sub wipe_wp {
     $just_wiped = 1;
 }
 
-$zinc->Tk::bind('<1>', [\&stick_wp]);
+$zinc->Tk::bind('<2>', [\&stick_wp]);
 
 
 ###################################################
@@ -449,10 +458,6 @@ $zinc->itemconfigure($map3,
 #print join(' ', $zinc->coords($c, 0)), "\n";
 #print join(' ', $zinc->coords($c, 1)), "\n";
 
-###################################################
-# Création fonctions de contrôle à la souris
-###################################################
-new Controls($zinc);
 
 ###################################################
 # Rafraichissement des pistes
-- 
cgit v1.1