Hello, I've managed to get what I *think* is correct. Really the CLOS side should track CLOS child objects when placed, gridded, and packed so it can be done without TCL. (defun tk-parent (w) "Returns a Wish understood representation of the CLOS object parent" (let* ((old-path (widget-path w)) (parent-path (subseq old-path 0 (search "." old-path :from-end t)))) parent-path)) (defun tk-destroy-widget (w) "Given a CLOS object destroys it on the Wish side" (send-wish (concatenate 'string "destroy " (widget-path w))) (setf w NIL)) (defun tk-destroy-children (w) "Given a CLOS object destroys the children on the Wish side" (let ((command-string "foreach w [winfo children \"~a\"] { destroy $w }")) (send-wish (format nil command-string (widget-path w))))) On 6/13/20 3:20 PM, Ryan wrote:
Good Afternoon All,
First thanks for a great way to make simple GUIs in Common Lisp. In my current application I have a tray of buttons. This currently gets populated from a directory path defined by the user. I keep this frame as a special variable in Common Lisp so I can easily access it across all functions.
Is there a way to get the parent of a widget currently? How about a list of all children?
I'd like to write a function that saves the frame's parent, deletes the frame on CL and Tcl sides, then binds and packs a new frame instance in it's place.
Here is a picture of my little launcher program.
https://i.imgur.com/GiOaez7.png
You can see how the frame exists inside a notebook and contains buttons. Thanks for any help!