$PBExportHeader$m_main.srm forward global type m_main from menu end type type m_file from menu within m_main end type type m_exit from menu within m_file end type type m_file from menu within m_main m_exit m_exit end type type m_profiles from menu within m_main end type type m_newprofile from menu within m_profiles end type type m_connect from menu within m_profiles end type type m_disconnect from menu within m_profiles end type type m_stopaction from menu within m_profiles end type type m_- from menu within m_profiles end type type m_profiles from menu within m_main m_newprofile m_newprofile m_connect m_connect m_disconnect m_disconnect m_stopaction m_stopaction m_- m_- end type type m_local from menu within m_main end type type m_uploadfiles from menu within m_local end type type m_uploaddeletefiles from menu within m_local end type type m_refreshlocal from menu within m_local end type type m_deletelocalfiles from menu within m_local end type type m_gotodirectory from menu within m_local end type type m_mydocuments from menu within m_local end type type m_cdrive from menu within m_local end type type m_local from menu within m_main m_uploadfiles m_uploadfiles m_uploaddeletefiles m_uploaddeletefiles m_refreshlocal m_refreshlocal m_deletelocalfiles m_deletelocalfiles m_gotodirectory m_gotodirectory m_mydocuments m_mydocuments m_cdrive m_cdrive end type type m_remote from menu within m_main end type type m_downloadfiles from menu within m_remote end type type m_refresh from menu within m_remote end type type m_deletefiles from menu within m_remote end type type m_renamefile from menu within m_remote end type type m_changedirectory from menu within m_remote end type type m_home from menu within m_remote end type type m_createdirectory from menu within m_remote end type type m_deletedirectories from menu within m_remote end type type m_sendcommand from menu within m_remote end type type m_remote from menu within m_main m_downloadfiles m_downloadfiles m_refresh m_refresh m_deletefiles m_deletefiles m_renamefile m_renamefile m_changedirectory m_changedirectory m_home m_home m_createdirectory m_createdirectory m_deletedirectories m_deletedirectories m_sendcommand m_sendcommand end type type m_help from menu within m_main end type type m_about from menu within m_help end type type m_help from menu within m_main m_about m_about end type global type m_main from menu m_file m_file m_profiles m_profiles m_local m_local m_remote m_remote m_help m_help end type end forward global type m_main from menu m_file m_file m_profiles m_profiles m_local m_local m_remote m_remote m_help m_help end type global m_main m_main type variables n_dynamicitem in_dyn end variables forward prototypes public subroutine mf_status (boolean ab_enabled) public subroutine mf_stopaction (boolean ab_enabled) end prototypes public subroutine mf_status (boolean ab_enabled);m_local.m_uploadfiles.Enabled = ab_enabled m_local.m_uploadfiles.ToolbarItemVisible = ab_enabled m_local.m_uploaddeletefiles.Enabled = ab_enabled m_remote.Enabled = ab_enabled m_remote.m_refresh.ToolbarItemVisible = ab_enabled m_remote.m_downloadfiles.ToolbarItemVisible = ab_enabled m_profiles.m_connect.Visible = Not ab_enabled m_profiles.m_connect.ToolbarItemVisible = Not ab_enabled m_profiles.m_disconnect.Visible = ab_enabled m_profiles.m_disconnect.ToolbarItemVisible = ab_enabled end subroutine public subroutine mf_stopaction (boolean ab_enabled);m_profiles.m_stopaction.Visible = ab_enabled m_profiles.m_stopaction.ToolbarItemVisible = ab_enabled end subroutine on m_main.create m_main=this call super::create this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_file=create m_file this.m_profiles=create m_profiles this.m_local=create m_local this.m_remote=create m_remote this.m_help=create m_help this.Item[UpperBound(this.Item)+1]=this.m_file this.Item[UpperBound(this.Item)+1]=this.m_profiles this.Item[UpperBound(this.Item)+1]=this.m_local this.Item[UpperBound(this.Item)+1]=this.m_remote this.Item[UpperBound(this.Item)+1]=this.m_help end on on m_main.destroy call super::destroy destroy(this.m_file) destroy(this.m_profiles) destroy(this.m_local) destroy(this.m_remote) destroy(this.m_help) end on type m_file from menu within m_main m_exit m_exit end type on m_file.create call super::create this.text = "File" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_exit=create m_exit this.Item[UpperBound(this.Item)+1]=this.m_exit end on on m_file.destroy call super::destroy destroy(this.m_exit) end on type m_exit from menu within m_file end type event clicked;Close(ParentWindow) end event on m_exit.create call super::create this.text = "Exit~tAlt+F4" this.shortcut = 627 this.microhelp = "Exit the program" this.toolbaritemname = "exit!" this.toolbaritemtext = "Exit,Exit the program" this.toolbaritemorder = 999 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_exit.destroy call super::destroy end on type m_profiles from menu within m_main m_newprofile m_newprofile m_connect m_connect m_disconnect m_disconnect m_stopaction m_stopaction m_- m_- end type on m_profiles.create call super::create this.text = "Profiles" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_newprofile=create m_newprofile this.m_connect=create m_connect this.m_disconnect=create m_disconnect this.m_stopaction=create m_stopaction this.m_-=create m_- this.Item[UpperBound(this.Item)+1]=this.m_newprofile this.Item[UpperBound(this.Item)+1]=this.m_connect this.Item[UpperBound(this.Item)+1]=this.m_disconnect this.Item[UpperBound(this.Item)+1]=this.m_stopaction this.Item[UpperBound(this.Item)+1]=this.m_- end on on m_profiles.destroy call super::destroy destroy(this.m_newprofile) destroy(this.m_connect) destroy(this.m_disconnect) destroy(this.m_stopaction) destroy(this.m_-) end on type m_newprofile from menu within m_profiles end type event clicked;// Add a new server profile // call window function to perform action ParentWindow.Dynamic wf_DynamicMenus(0) end event on m_newprofile.create call super::create this.text = "New Profile" this.microhelp = "Create a new profile" this.toolbaritemname = "new!" this.toolbaritemtext = "New,Create a new profile" this.toolbaritemorder = 1 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_newprofile.destroy call super::destroy end on type m_connect from menu within m_profiles end type event clicked;// call window function to perform action ParentWindow.Dynamic wf_Connect() end event on m_connect.create call super::create this.text = "Connect" this.microhelp = "Connect to favorite profile" this.toolbaritemname = "watcom!" this.toolbaritemtext = "Connect,Connect to favorite profile" this.toolbaritemorder = 2 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_connect.destroy call super::destroy end on type m_disconnect from menu within m_profiles end type event clicked;// call window function to perform action ParentWindow.Dynamic wf_Disconnect() end event on m_disconnect.create call super::create this.text = "Disconnect" this.microhelp = "Disconnect from the remote server" this.toolbaritemname = "close!" this.toolbaritemtext = "Disconnect,Disconnect from the remote server" this.toolbaritemorder = 3 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_disconnect.destroy call super::destroy end on type m_stopaction from menu within m_profiles end type on m_stopaction.create call super::create this.visible = false this.text = "Stop Action" this.microhelp = "Stop the current FTP action" this.toolbaritemvisible = false this.toolbaritemname = "retrievecancel!" this.toolbaritemtext = "Stop,Stop the current FTP action" this.toolbaritemorder = 4 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_stopaction.destroy call super::destroy end on event clicked;// call window function to perform action ParentWindow.Dynamic wf_StopAction() end event type m_- from menu within m_profiles end type on m_-.create call super::create this.text = "-" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_-.destroy call super::destroy end on type m_local from menu within m_main m_uploadfiles m_uploadfiles m_uploaddeletefiles m_uploaddeletefiles m_refreshlocal m_refreshlocal m_deletelocalfiles m_deletelocalfiles m_gotodirectory m_gotodirectory m_mydocuments m_mydocuments m_cdrive m_cdrive end type on m_local.create call super::create this.text = "Local" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_uploadfiles=create m_uploadfiles this.m_uploaddeletefiles=create m_uploaddeletefiles this.m_refreshlocal=create m_refreshlocal this.m_deletelocalfiles=create m_deletelocalfiles this.m_gotodirectory=create m_gotodirectory this.m_mydocuments=create m_mydocuments this.m_cdrive=create m_cdrive this.Item[UpperBound(this.Item)+1]=this.m_uploadfiles this.Item[UpperBound(this.Item)+1]=this.m_uploaddeletefiles this.Item[UpperBound(this.Item)+1]=this.m_refreshlocal this.Item[UpperBound(this.Item)+1]=this.m_deletelocalfiles this.Item[UpperBound(this.Item)+1]=this.m_gotodirectory this.Item[UpperBound(this.Item)+1]=this.m_mydocuments this.Item[UpperBound(this.Item)+1]=this.m_cdrive end on on m_local.destroy call super::destroy destroy(this.m_uploadfiles) destroy(this.m_uploaddeletefiles) destroy(this.m_refreshlocal) destroy(this.m_deletelocalfiles) destroy(this.m_gotodirectory) destroy(this.m_mydocuments) destroy(this.m_cdrive) end on type m_uploadfiles from menu within m_local event create ( ) event destroy ( ) end type on m_uploadfiles.create call super::create this.text = "Upload Files~tAlt+U" this.shortcut = 597 this.microhelp = "Upload the selected files" this.toolbaritemvisible = false this.toolbaritemname = "custom035!" this.toolbaritemtext = "Upload,Upload the selected files" this.toolbaritemorder = 3 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_uploadfiles.destroy call super::destroy end on event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event type m_uploaddeletefiles from menu within m_local event create ( ) event destroy ( ) end type on m_uploaddeletefiles.create call super::create this.text = "Upload/Delete Files~tAlt+D" this.shortcut = 580 this.microhelp = "Upload the selected files and then delete from local" this.toolbaritemvisible = false this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_uploaddeletefiles.destroy call super::destroy end on event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event type m_refreshlocal from menu within m_local end type event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event on m_refreshlocal.create call super::create this.text = "Refresh~tAlt+R" this.shortcut = 594 this.microhelp = "Refresh the current directory" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_refreshlocal.destroy call super::destroy end on type m_deletelocalfiles from menu within m_local end type event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event on m_deletelocalfiles.create call super::create this.text = "Delete Files~tAlt+Del" this.shortcut = 558 this.microhelp = "Delete the selected files" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_deletelocalfiles.destroy call super::destroy end on type m_gotodirectory from menu within m_local end type event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event on m_gotodirectory.create call super::create this.text = "Goto Directory~tAlt+G" this.shortcut = 583 this.microhelp = "Goto pre-defined directories" this.toolbaritemname = "open!" this.toolbaritemtext = "Goto,Goto pre-defined directories" this.toolbaritemorder = 1 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_gotodirectory.destroy call super::destroy end on type m_mydocuments from menu within m_local end type event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event on m_mydocuments.create call super::create this.text = "My Documents~tAlt+M" this.shortcut = 589 this.microhelp = "Goto My Documents" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_mydocuments.destroy call super::destroy end on type m_cdrive from menu within m_local end type event clicked;gw_frame.uo_local.of_menufunction(this.ClassName()) end event on m_cdrive.create call super::create this.text = "C Drive~tAlt+C" this.shortcut = 579 this.microhelp = "Goto C Drive Root" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_cdrive.destroy call super::destroy end on type m_remote from menu within m_main m_downloadfiles m_downloadfiles m_refresh m_refresh m_deletefiles m_deletefiles m_renamefile m_renamefile m_changedirectory m_changedirectory m_home m_home m_createdirectory m_createdirectory m_deletedirectories m_deletedirectories m_sendcommand m_sendcommand end type on m_remote.create call super::create this.text = "Remote" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_downloadfiles=create m_downloadfiles this.m_refresh=create m_refresh this.m_deletefiles=create m_deletefiles this.m_renamefile=create m_renamefile this.m_changedirectory=create m_changedirectory this.m_home=create m_home this.m_createdirectory=create m_createdirectory this.m_deletedirectories=create m_deletedirectories this.m_sendcommand=create m_sendcommand this.Item[UpperBound(this.Item)+1]=this.m_downloadfiles this.Item[UpperBound(this.Item)+1]=this.m_refresh this.Item[UpperBound(this.Item)+1]=this.m_deletefiles this.Item[UpperBound(this.Item)+1]=this.m_renamefile this.Item[UpperBound(this.Item)+1]=this.m_changedirectory this.Item[UpperBound(this.Item)+1]=this.m_home this.Item[UpperBound(this.Item)+1]=this.m_createdirectory this.Item[UpperBound(this.Item)+1]=this.m_deletedirectories this.Item[UpperBound(this.Item)+1]=this.m_sendcommand end on on m_remote.destroy call super::destroy destroy(this.m_downloadfiles) destroy(this.m_refresh) destroy(this.m_deletefiles) destroy(this.m_renamefile) destroy(this.m_changedirectory) destroy(this.m_home) destroy(this.m_createdirectory) destroy(this.m_deletedirectories) destroy(this.m_sendcommand) end on type m_downloadfiles from menu within m_remote event create ( ) event destroy ( ) end type on m_downloadfiles.create call super::create this.text = "Download Files~tCtrl+D" this.shortcut = 324 this.microhelp = "Download the selected files" this.toolbaritemvisible = false this.toolbaritemname = "custom036!" this.toolbaritemtext = "Download,Download the selected files" this.toolbaritemorder = 3 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_downloadfiles.destroy call super::destroy end on event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event type m_refresh from menu within m_remote end type event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event on m_refresh.create call super::create this.text = "Refresh~tCtrl+R" this.shortcut = 338 this.microhelp = "Refresh the current directory" this.toolbaritemvisible = false this.toolbaritemname = "continue!" this.toolbaritemtext = "Refresh,Refresh the current directory" this.toolbaritemorder = 3 this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_refresh.destroy call super::destroy end on type m_deletefiles from menu within m_remote event create ( ) event destroy ( ) end type on m_deletefiles.create call super::create this.text = "Delete Files~tCtrl+Del" this.shortcut = 302 this.microhelp = "Delete the selected files" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_deletefiles.destroy call super::destroy end on event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event type m_renamefile from menu within m_remote end type event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event on m_renamefile.create call super::create this.text = "Rename File~tCtrl+N" this.shortcut = 334 this.microhelp = "Rename the selected file" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_renamefile.destroy call super::destroy end on type m_changedirectory from menu within m_remote event create ( ) event destroy ( ) end type on m_changedirectory.create call super::create this.text = "Change Directory~tCtrl+G" this.shortcut = 327 this.microhelp = "Open the Change Directory window" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_changedirectory.destroy call super::destroy end on event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event type m_home from menu within m_remote end type event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event on m_home.create call super::create this.text = "Home~tCtrl+H" this.shortcut = 328 this.microhelp = "Go to the home directory" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_home.destroy call super::destroy end on type m_createdirectory from menu within m_remote event create ( ) event destroy ( ) end type on m_createdirectory.create call super::create this.text = "Create Directory" this.microhelp = "Open the Create Directory window" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_createdirectory.destroy call super::destroy end on event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event type m_deletedirectories from menu within m_remote event create ( ) event destroy ( ) end type on m_deletedirectories.create call super::create this.text = "Delete Directories" this.microhelp = "Delete the selected directories" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_deletedirectories.destroy call super::destroy end on event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event type m_sendcommand from menu within m_remote end type event clicked;gw_frame.uo_remote.of_menufunction(this.ClassName()) end event on m_sendcommand.create call super::create this.text = "Send Command" this.microhelp = "Send an FTP command to the server" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_sendcommand.destroy call super::destroy end on type m_help from menu within m_main m_about m_about end type on m_help.create call super::create this.text = "Help" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true this.m_about=create m_about this.Item[UpperBound(this.Item)+1]=this.m_about end on on m_help.destroy call super::destroy destroy(this.m_about) end on type m_about from menu within m_help end type event clicked;Open(w_about) end event on m_about.create call super::create this.text = "About" this.menutextcolor = 134217735 this.menubackcolor = 134217732 this.menuhighlightcolor = 134217741 this.textsize = 8 this.weight = 400 this.facename = "Tahoma" this.titlebackcolor = 134217730 this.bitmapbackcolor = 12632256 this.menubitmaps = true this.titlegradient = true this.toolbartextcolor = 134217746 this.toolbarbackcolor = 67108864 this.toolbarhighlightcolor = 134217741 this.toolbargradient = true this.bitmapgradient = true end on on m_about.destroy call super::destroy end on
File: m_main.srm
Size: 30968
Date: Mon, 11 Mar 2019 03:46:30 +0100
Size: 30968
Date: Mon, 11 Mar 2019 03:46:30 +0100
- menu m_main(srm)
- menu m_file
- menu m_profiles
- menu m_local
- menu m_uploadfiles
- menu m_uploaddeletefiles
- menu m_refreshlocal
- menu m_deletelocalfiles
- menu m_gotodirectory
- menu m_mydocuments
- menu m_cdrive
- menu m_remote
- menu m_downloadfiles
- menu m_refresh
- menu m_deletefiles
- menu m_renamefile
- menu m_changedirectory
- menu m_home
- menu m_createdirectory
- menu m_deletedirectories
- menu m_sendcommand
- menu m_help