** END HEADER -- non togliere questa linea // // Generato il 13/02/2020 // parameter formObj new MAINMENU(formObj, "root") class MAINMENU(formObj, name) of MENUBAR(formObj, name) this.EXIT = new MENU(this) with (this.EXIT) onClick = class::EXIT_ONCLICK text = "&Exit" endwith function EXIT_onClick() return ( _app.framewin.app.close() ) endclass function OpenForm( oForm ) // set the top/left properties so the form isn't // *right* on top of the current one ... if type( "_app.framewin.currentForm" ) == "O" oForm.top := _app.framewin.currentForm.top + 40 // pixels oForm.left := _app.framewin.currentForm.left + 40 // pixels else oForm.top := 0 oForm.left := 10 endif oForm.open() oForm.setFocus() return