model_server/ui_browser/src/browserShell.h.cxx
//
// The main entry for the pull down menu of "file".
// Note that some of the entries have callbacks beginning
// with browser_;  these were moved from the Browser menu.
//
The main entry for the pull down menu of "file".
Note that some of the entries have callbacks beginning
with browser_;  these were moved from the Browser menu.
The main entry for the pull down menu of " file " . Note that some of the entries have callbacks beginning with browser_ ; these were moved from the Browser menu .
void browserShell::build_file_menu(gtMenuBar* menubar)
{
    Initialize(browserShell::build_file_menu);
#ifndef NEW_UI
    gtCascadeButton* cascade_btn = gtCascadeButton::create(
	menubar, "file", TXT("File"), NULL, NULL);
    if(isUpdateAvailable()) {
      cascade_btn->pulldown_menu(
	   "file_menu",
	   PUSHBUTTON(file,TXT("Save All Files..."),save_all_files),
	   SEPARATOR,
	   PUSHBUTTON(file,TXT("Load"),preload),
	   PUSHBUTTON(file,TXT("Update"),update),
	   PUSHBUTTON(file,TXT("Unload"),unload),
	   SEPARATOR,
	   PUSHBUTTON(browser,TXT("CM..."),cm),
	   PUSHBUTTON(browser,TXT("Preferences..."),preferences),
	   PUSHBUTTON(browser,TXT("Messages..."),messages),
	   SEPARATOR,
	   PUSHBUTTON(browser,TXT("New Browser"),new_browser_window),
	   PUSHBUTTON(browser,TXT("Close"),close_window),
	   SEPARATOR,
	   PUSHBUTTON(browser,TXT("Quit ParaSET"),quit),
	   ENDMENU);
    } else {
      cascade_btn->pulldown_menu(
	   "file_menu",
	   PUSHBUTTON(file,TXT("Save All Files..."),save_all_files),
	   SEPARATOR,
	   PUSHBUTTON(file,TXT("Load"),preload),
	   PUSHBUTTON(file,TXT("Unload"),unload),
	   SEPARATOR,
	   PUSHBUTTON(browser,TXT("CM..."),cm),
	   PUSHBUTTON(browser,TXT("Preferences..."),preferences),
	   PUSHBUTTON(browser,TXT("Messages..."),messages),
	   SEPARATOR,
	   PUSHBUTTON(browser,TXT("New Browser"),new_browser_window),
	   PUSHBUTTON(browser,TXT("Close"),close_window),
	   SEPARATOR,
	   PUSHBUTTON(browser,TXT("Quit ParaSET"),quit),
	   ENDMENU);
    }
    cascade_btn->manage();
#endif
}
void browserShell :: build_file_menu ( gtMenuBar * menubar ) { Initialize ( browserShell :: build_file_menu ) ; #ifndef NEW_UI gtCascadeButton * cascade_btn = gtCascadeButton :: create ( menubar , " " , TXT ( " " ) , NULL , NULL ) ; if ( isUpdateAvailable ( ) ) { cascade_btn -> pulldown_menu ( " " , PUSHBUTTON ( file , TXT ( " " ) , save_all_files ) , SEPARATOR , PUSHBUTTON ( file , TXT ( " " ) , preload ) , PUSHBUTTON ( file , TXT ( " " ) , update ) , PUSHBUTTON ( file , TXT ( " " ) , unload ) , SEPARATOR , PUSHBUTTON ( browser , TXT ( " " ) , cm ) , PUSHBUTTON ( browser , TXT ( " " ) , preferences ) , PUSHBUTTON ( browser , TXT ( " " ) , messages ) , SEPARATOR , PUSHBUTTON ( browser , TXT ( " " ) , new_browser_window ) , PUSHBUTTON ( browser , TXT ( " " ) , close_window ) , SEPARATOR , PUSHBUTTON ( browser , TXT ( " " ) , quit ) , ENDMENU ) ; } else { cascade_btn -> pulldown_menu ( " " , PUSHBUTTON ( file , TXT ( " " ) , save_all_files ) , SEPARATOR , PUSHBUTTON ( file , TXT ( " " ) , preload ) , PUSHBUTTON ( file , TXT ( " " ) , unload ) , SEPARATOR , PUSHBUTTON ( browser , TXT ( " " ) , cm ) , PUSHBUTTON ( browser , TXT ( " " ) , preferences ) , PUSHBUTTON ( browser , TXT ( " " ) , messages ) , SEPARATOR , PUSHBUTTON ( browser , TXT ( " " ) , new_browser_window ) , PUSHBUTTON ( browser , TXT ( " " ) , close_window ) , SEPARATOR , PUSHBUTTON ( browser , TXT ( " " ) , quit ) , ENDMENU ) ; } cascade_btn -> manage ( ) ; #endif }
The main entry for the pull down menu of "file".
The main entry for the pull down menu of " file " .