— procedure: my-button-callback

This is what to do when the button is pressed. It can be any guile or coot function.

— procedure: my-top-level

define a simple window and put a button in it