From 953583b837f1560c8d50252b91e72870bd2b3581 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 15 Jan 2003 12:29:27 +0000
Subject:         * (Clone): Rej�te toute tentative de cloner le top group.

---
 generic/Group.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'generic/Group.c')

diff --git a/generic/Group.c b/generic/Group.c
index 3c061eb..4305353 100644
--- a/generic/Group.c
+++ b/generic/Group.c
@@ -158,6 +158,11 @@ Clone(Item	item)
   Tcl_HashEntry	*entry;
   int		new, num_items, i;
 
+  if (item == item->wi->top_group) {
+    /* Do not try to clone the top group */
+    return;
+  }
+
   current_item = group->tail;
   group->head = group->tail = ZN_NO_ITEM;
 #ifdef OM
-- 
cgit v1.1