+ (for tab-button = (make-instance 'button
+ :image (make-instance 'image :stock "gtk-close" :icon-size 1)
+ :relief :none))
+ (g-signal-connect tab-button "clicked"
+ (let ((page page))
+ (lambda (button)
+ (declare (ignore button))
+ (format t "Removing page ~A~%" page)
+ (notebook-remove-page notebook page))))