From 5849851a19380dbb62a47d9c4d868a81e42fa79b Mon Sep 17 00:00:00 2001 From: forsyth Date: Sat, 21 Aug 2010 18:01:11 +0100 Subject: 20100821-1800 --- libtk/packr.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'libtk/packr.c') 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; -- cgit v1.2.3