;
; *t* has 3 children, each of which should be able to kill it.  only l can.
; (3.0b2)
;
(define *t* (make <toplevel>))

(define l (make <label> :parent *t* :text "hi"))
(define e (make <entry> :parent *t* :value "hi"))
(define b (make <listbox> :parent *t* :value '("hi")))
(pack e l b)

(display (eid l)) (newline)
(display (eid e)) (newline)
(display (eid b)) (newline)

(bind l "<Double-1>" (lambda() (destroy *t*)))	; works
(bind e "<Double-1>" (lambda() (destroy *t*)))	; error
(bind b "<Double-1>" (lambda() (destroy *t*)))	; error