diff options
| author | forsyth <forsyth@vitanuova.com> | 2010-08-21 18:01:11 +0100 |
|---|---|---|
| committer | forsyth <forsyth@vitanuova.com> | 2010-08-21 18:01:11 +0100 |
| commit | 5849851a19380dbb62a47d9c4d868a81e42fa79b (patch) | |
| tree | 075bc8e4607ab67e67781fdad26dcb6d93491b1a /libtk/packr.c | |
| parent | 55b0bc0011ddae9df99d50fa0498110585d09a81 (diff) | |
20100821-1800
Diffstat (limited to 'libtk/packr.c')
| -rw-r--r-- | libtk/packr.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/libtk/packr.c b/libtk/packr.c index 14572e79..c5f2ac6d 100644 --- a/libtk/packr.c +++ b/libtk/packr.c @@ -80,7 +80,14 @@ TkOption opts[] = void tkdelpack(Tk *t) { - Tk *f, **l; + Tk *f, **l, *sub, *p; + + sub = tkfindsub(t); + if(sub != nil) { + p = sub->parent; + if(tkmethod[p->type]->forgetsub != nil) + tkmethod[p->type]->forgetsub(sub, t); + } if(t->master == nil) return; |