Menu
▾
▴
[frontierkernel-commits] odbs/frontierRoot/system/callbacks systemTrayIconRightClick,1.1.1.1,1.2
|
From: creedon <icr...@us...> - 2005-06-14 04:01:57
|
Update of /cvsroot/frontierkernel/odbs/frontierRoot/system/callbacks In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11984 Modified Files: systemTrayIconRightClick Log Message: disable trial version check Index: systemTrayIconRightClick =================================================================== RCS file: /cvsroot/frontierkernel/odbs/frontierRoot/system/callbacks/systemTrayIconRightClick,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** systemTrayIconRightClick 26 Mar 2005 19:41:19 -0000 1.1.1.1 --- systemTrayIconRightClick 14 Jun 2005 04:01:48 -0000 1.2 *************** *** 1,3 **** FrontierVcsFile:1:scpt:system.callbacks.systemTrayIconRightClick ! on systemTrayIconRightClick () { ÇChanges Ç9/10/02; 5:42:26 PM by JES ÇAdded trial version checks. Ç6/27/02; 2:36:56 PM by JES ÇChanged Frontier's Control Panel command to Open Admin Site. Ç12/24/01; 12:58:55 AM by JES ÇMerged the Frontier and Radio systemTrayIconRightClick scripts. Ç11/8/01; 4:42:21 PM by BS ÇThis script is called when the user right-clicks on the system tray icon. In turn it calls all the scripts in user.callbacks.systemTrayIconRightClick. ÇThe first callback that returns a menu consumes the event, and we return the address they return to us. bundle { //run callbacks -- if a callback generates the menu, return it local (adrscript, adrmenu = nil); if not defined (user.callbacks.systemTrayIconRightClick) { new (tableType, @user.callbacks.systemTrayIconRightClick)}; for adrscript in @user.callbacks.systemTrayIconRightClick { try { while typeOf (adrScript^) == addressType { adrScript = adrScript^}; adrscript^ (@adrmenu); if adrmenu != nil { return (adrmenu)}}}}; bundle { //default menu with Open, and Quit commands, and a Control Panel command if this is Frontier local (adrMenu = @system.temp.systemTrayRightClickMenu); new (menubartype, adrmenu); local (oldtarget = target.set (adrmenu)); local (menuname = "Right-Click Menu"); op.firstSummit (); op.setLineText (menuname); local (appName = "Frontier"); if system.environment.isRadio { appName = "Radio"}; on addCommand (itemName, scriptString) { menu.addMenuCommand (adrMenu, menuName, itemName, scriptString)}; on addSeparator () { op.insert ("-", down)}; if system.environment.isWindows { if system.environment.isRadio { addCommand ("Open " + appName, "Frontier.bringToFront ()")} else { //Frontier if not userland.trialVersionCheck (false) { addCommand ("Open " + appName, "Frontier.bringToFront ()")}}}; if not system.environment.isRadio { if userland.trialVersionCheck (false) { //expired? -- enter serial number command if defined (mainResponder.adminSite.urls.serialNumber) { addCommand ("Enter Serial Number", "webBrowser.openUrl (\"http://127.0.0.1:" + user.inetd.config.http2.port + "" + mainResponder.adminSite.urls.serialNumber + "\");webBrowser.bringToFront ()")} else { //control panel serial number page addCommand ("Enter Serial Number", "webBrowser.openUrl (\"http://127.0.0.1/controlPanel/serialNumber\");webBrowser.bringToFront ()")}} else { //open admin site command addCommand ("Open Admin Site", "webBrowser.openUrl (\"http://127.0.0.1:" + user.inetd.config.http2.port + "/\");webBrowser.bringToFront ()")}}; Çlocal (controlPanelUrl = "http://127.0.0.1") Çif not system.environment.isRadio Çif user.inetd.config.http.port != 80 ÇcontrolPanelUrl = controlPanelUrl + ":" + user.inetd.config.http.port ÇcontrolPanelUrl = controlPanelUrl + "/controlPanel/" ÇaddCommand ("Control Panel", "webBrowser.openUrl (\"" + controlPanelUrl + "\");webBrowser.bringToFront ()") if system.environment.isWindows { addSeparator (); addCommand ("Exit and Shut Down " + appName, "fileMenu.quit ()")}; try {target.set (oldTarget)}; return (adrMenu)}}; Çon systemTrayIconRightClick () Ç11/8/01; 4:42:21 PM by BS ÇThis script is called when the user right-clicks on the system tray icon. In turn it calls all the scripts in user.callbacks.systemTrayIconRightClick. ÇThe first callback that returns a menu consumes the event, and we return the address they return to us. Çlocal (adrscript, adrmenu = nil) Çif not defined (user.callbacks.systemTrayIconRightClick) Çnew (tableType, @user.callbacks.systemTrayIconRightClick) Çfor adrscript in @user.callbacks.systemTrayIconRightClick Çtry Çwhile typeOf (adrScript^) == addressType ÇadrScript = adrScript^ Çadrscript^ (@adrmenu) Çif adrmenu != nil Çreturn (adrmenu) \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:system.callbacks.systemTrayIconRightClick ! on systemTrayIconRightClick () { ÇChanges Ç11/26/04; 2:54:56 PM by TAC Çdisable trial version check Ç9/10/02; 5:42:26 PM by JES ÇAdded trial version checks. Ç6/27/02; 2:36:56 PM by JES ÇChanged Frontier's Control Panel command to Open Admin Site. Ç12/24/01; 12:58:55 AM by JES ÇMerged the Frontier and Radio systemTrayIconRightClick scripts. Ç11/8/01; 4:42:21 PM by BS ÇThis script is called when the user right-clicks on the system tray icon. In turn it calls all the scripts in user.callbacks.systemTrayIconRightClick. ÇThe first callback that returns a menu consumes the event, and we return the address they return to us. bundle { //run callbacks -- if a callback generates the menu, return it local (adrscript, adrmenu = nil); if not defined (user.callbacks.systemTrayIconRightClick) { new (tableType, @user.callbacks.systemTrayIconRightClick)}; for adrscript in @user.callbacks.systemTrayIconRightClick { try { while typeOf (adrScript^) == addressType { adrScript = adrScript^}; adrscript^ (@adrmenu); if adrmenu != nil { return (adrmenu)}}}}; bundle { //default menu with Open, and Quit commands, and a Control Panel command if this is Frontier local (adrMenu = @system.temp.systemTrayRightClickMenu); new (menubartype, adrmenu); local (oldtarget = target.set (adrmenu)); local (menuname = "Right-Click Menu"); op.firstSummit (); op.setLineText (menuname); local (appName = "Frontier"); if system.environment.isRadio { appName = "Radio"}; on addCommand (itemName, scriptString) { menu.addMenuCommand (adrMenu, menuName, itemName, scriptString)}; on addSeparator () { op.insert ("-", down)}; if system.environment.isWindows { if system.environment.isRadio { addCommand ("Open " + appName, "Frontier.bringToFront ()")} else { //Frontier Çif not userland.trialVersionCheck (false) // 11/26/04; 2:54:40 PM by TAC - disabled addCommand ("Open " + appName, "Frontier.bringToFront ()")}}; Çif not system.environment.isRadio // 11/28/04; 7:32:20 PM by TAC - ? disabled Çif userland.trialVersionCheck (false) //expired? -- enter serial number command Çif defined (mainResponder.adminSite.urls.serialNumber) ÇaddCommand ("Enter Serial Number", "webBrowser.openUrl (\"http://127.0.0.1:" + user.inetd.config.http2.port + "" + mainResponder.adminSite.urls.serialNumber + "\");webBrowser.bringToFront ()") Çelse //control panel serial number page ÇaddCommand ("Enter Serial Number", "webBrowser.openUrl (\"http://127.0.0.1/controlPanel/serialNumber\");webBrowser.bringToFront ()") Çelse //open admin site command ÇaddCommand ("Open Admin Site", "webBrowser.openUrl (\"http://127.0.0.1:" + user.inetd.config.http2.port + "/\");webBrowser.bringToFront ()") Çlocal (controlPanelUrl = "http://127.0.0.1") Çif not system.environment.isRadio Çif user.inetd.config.http.port != 80 ÇcontrolPanelUrl = controlPanelUrl + ":" + user.inetd.config.http.port ÇcontrolPanelUrl = controlPanelUrl + "/controlPanel/" ÇaddCommand ("Control Panel", "webBrowser.openUrl (\"" + controlPanelUrl + "\");webBrowser.bringToFront ()") if system.environment.isWindows { addSeparator (); addCommand ("Exit and Shut Down " + appName, "fileMenu.quit ()")}; try {target.set (oldTarget)}; return (adrMenu)}}; Çon systemTrayIconRightClick () Ç11/8/01; 4:42:21 PM by BS ÇThis script is called when the user right-clicks on the system tray icon. In turn it calls all the scripts in user.callbacks.systemTrayIconRightClick. ÇThe first callback that returns a menu consumes the event, and we return the address they return to us. Çlocal (adrscript, adrmenu = nil) Çif not defined (user.callbacks.systemTrayIconRightClick) Çnew (tableType, @user.callbacks.systemTrayIconRightClick) Çfor adrscript in @user.callbacks.systemTrayIconRightClick Çtry Çwhile typeOf (adrScript^) == addressType ÇadrScript = adrScript^ Çadrscript^ (@adrmenu) Çif adrmenu != nil Çreturn (adrmenu) \ No newline at end of file |
