#lang scheme/gui
(require
framework
)
(provide frame-87943
menu-bar-87972
menu-87979
menu-item-87990)
(define frame-87943 #f)
(define menu-bar-87972 #f)
(define menu-87979 #f)
(define menu-item-87990 #f)
(define (project-87935-init
#:menu-bar-87972-demand-callback
(menu-bar-87972-demand-callback
(lambda (m) (void)))
#:menu-87979-demand-callback
(menu-87979-demand-callback
(lambda (m) (void)))
#:menu-item-87990-callback
(menu-item-87990-callback
(lambda (item event) (printf "plop\n")))
#:menu-item-87990-demand-callback
(menu-item-87990-demand-callback
(lambda (item) (void))))
(set! frame-87943
(new
frame%
(parent #f)
(label "Frame")
(width 412)
(height 264)
(x 352)
(y 371)
(style '())
(enabled #t)
(border 0)
(spacing 0)
(alignment (list 'center 'top))
(min-width 70)
(min-height 30)
(stretchable-width #t)
(stretchable-height #t)))
(set! menu-bar-87972
(new
menu-bar%
(parent frame-87943)
(demand-callback menu-bar-87972-demand-callback)))
(set! menu-87979
(new
menu%
(parent menu-bar-87972)
(label "&Menu")
(help-string "Menu")
(demand-callback menu-87979-demand-callback)))
(set! menu-item-87990
(new
menu-item%
(parent menu-87979)
(label "&Item")
(callback menu-item-87990-callback)
(shortcut #\F)
(help-string "Item")
(demand-callback menu-item-87990-demand-callback)
(shortcut-prefix '(ctl))))
(send frame-87943 show #t))