create Menubar gsharp_1.MenuBar;
  create Menu gsharp_1.MenuBar.FileMenu
   ( XuNguiLabel = "File"
   );
  create Button gsharp_1.MenuBar.FileMenu.Exit
   ( XuNguiCallback = "GuiFileExit",
     XuNguiLabel = "Exit ..."
   );
  create Canvas gsharp_1.scrolledcanvas;
  create Popup gsharp_1.scrolledcanvas.Popup;
  create Button gsharp_1.scrolledcanvas.Popup.Repaint
   ( XuNguiCallback = "GuiViewRepaint"
   );

  create Command gsharp_1.command;
  create Popup gsharp_1.command.Popup;
  create Button gsharp_1.command.Popup.MessageClear
   ( XuNguiLabel = "Clear Messages",
     XuNguiCallback = "GuiMessageClear"
   );