#lang scheme/gui

;;==========================================================================
;;===                Code generated with MrEd Designer 3.0               ===
;;===                 http://mred-designer.origo.ethz.ch                 ===
;;==========================================================================

(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))