diff options
author | lecoanet | 2003-01-15 12:29:27 +0000 |
---|---|---|
committer | lecoanet | 2003-01-15 12:29:27 +0000 |
commit | 953583b837f1560c8d50252b91e72870bd2b3581 (patch) | |
tree | 34954de5e60c9b9c1bf19aefbd95b220212be280 /generic | |
parent | d54b24f46460021e39468261ccf80e74a25a849f (diff) | |
download | tkzinc-953583b837f1560c8d50252b91e72870bd2b3581.zip tkzinc-953583b837f1560c8d50252b91e72870bd2b3581.tar.gz tkzinc-953583b837f1560c8d50252b91e72870bd2b3581.tar.bz2 tkzinc-953583b837f1560c8d50252b91e72870bd2b3581.tar.xz |
* (Clone): Rej�te toute tentative de cloner le top group.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/Group.c | 5 |
1 files changed, 5 insertions, 0 deletions
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 |