#lang scheme/gui

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

(provide project-2648
         frame-menu
         menu-bar-one
         menu-file
         menu-item-open
         menu-item-save
         menu-item-save-as
         separator-menu-item-2685
         menu-item-exit
         menu-edit
         menu-help)
(define project-2648 #f)
(define frame-menu #f)
(define menu-bar-one #f)
(define menu-file #f)
(define menu-item-open #f)
(define menu-item-save #f)
(define menu-item-save-as #f)
(define separator-menu-item-2685 #f)
(define menu-item-exit #f)
(define menu-edit #f)
(define menu-help #f)
(define (project-2648-init
         #:menu-bar-one-demand-callback
         (menu-bar-one-demand-callback
          (lambda (m) (void)))
         #:menu-file-demand-callback
         (menu-file-demand-callback
          (lambda (m) (void)))
         #:menu-item-open-callback
         (menu-item-open-callback
          (lambda (item event) (void)))
         #:menu-item-open-demand-callback
         (menu-item-open-demand-callback
          (lambda (item) (void)))
         #:menu-item-save-callback
         (menu-item-save-callback
          (lambda (item event) (void)))
         #:menu-item-save-demand-callback
         (menu-item-save-demand-callback
          (lambda (item) (void)))
         #:menu-item-save-as-callback
         (menu-item-save-as-callback
          (lambda (item event) (void)))
         #:menu-item-save-as-demand-callback
         (menu-item-save-as-demand-callback
          (lambda (item) (void)))
         #:menu-item-exit-callback
         (menu-item-exit-callback
          (lambda (item event) (void)))
         #:menu-item-exit-demand-callback
         (menu-item-exit-demand-callback
          (lambda (item) (void)))
         #:menu-edit-demand-callback
         (menu-edit-demand-callback
          (lambda (m) (void)))
         #:menu-help-demand-callback
         (menu-help-demand-callback
          (lambda (m) (void))))
  (set! project-2648
    (new
     frame%
     (parent #f)
     (label "")
     (style (list 'no-resize-border 'no-caption))))
  (set! frame-menu
    (new
     frame%
     (parent project-2648)
     (label "Frame")
     (width #f)
     (height #f)
     (x 457)
     (y 286)
     (style '())
     (enabled #t)
     (border 0)
     (spacing 0)
     (alignment (list 'center 'top))
     (min-width 200)
     (min-height 70)
     (stretchable-width #t)
     (stretchable-height #t)))
  (set! menu-bar-one
    (new
     menu-bar%
     (parent frame-menu)
     (demand-callback menu-bar-one-demand-callback)))
  (set! menu-file
    (new
     menu%
     (parent menu-bar-one)
     (label "&File")
     (help-string "File menu")
     (demand-callback menu-file-demand-callback)))
  (set! menu-item-open
    (new
     menu-item%
     (parent menu-file)
     (label "&Open")
     (callback menu-item-open-callback)
     (shortcut #f)
     (help-string "Open")
     (demand-callback menu-item-open-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-save
    (new
     menu-item%
     (parent menu-file)
     (label "&Save")
     (callback menu-item-save-callback)
     (shortcut #f)
     (help-string "Save file")
     (demand-callback menu-item-save-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-item-save-as
    (new
     menu-item%
     (parent menu-file)
     (label "&Save as...")
     (callback menu-item-save-as-callback)
     (shortcut #f)
     (help-string "Save file as ...")
     (demand-callback
      menu-item-save-as-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! separator-menu-item-2685
    (new separator-menu-item% (parent menu-file)))
  (set! menu-item-exit
    (new
     menu-item%
     (parent menu-file)
     (label "&Exit")
     (callback menu-item-exit-callback)
     (shortcut #\B)
     (help-string "Exit Application")
     (demand-callback menu-item-exit-demand-callback)
     (shortcut-prefix '(ctl))))
  (set! menu-edit
    (new
     menu%
     (parent menu-bar-one)
     (label "&Edit")
     (help-string "Edit menu")
     (demand-callback menu-edit-demand-callback)))
  (set! menu-help
    (new
     menu%
     (parent menu-bar-one)
     (label "&Help")
     (help-string "Help menu")
     (demand-callback menu-help-demand-callback)))
  (send project-2648 show #t)
  (send frame-menu show #t))