Task

Create a window that has:

   a label that says   "There have been no clicks yet" 
   a button that says   "click me"


Upon clicking the button with the mouse, the label should change and show the number of times the button has been clicked.




 
#lang racket/gui
 
(define frame (new frame% [label "There have been no clicks yet"]))
 
(define num-clicks 0)
(define (cb obj me)
  (set! num-clicks (add1 num-clicks))
  (send frame set-label (format "~a" num-clicks)))
 
(new button% [parent frame] [label "Click me"] [callback cb])
(send frame show #t)
 