; -------------------------------------------------------------------------------- ; @Title: TRACE32 menu file for the interactive connection mode ; @Description: ; Programming file for standard pulldown menu and speedbar of TRACE32 GUI ; @Keywords: GUI ; @Author: rweiss ; @Copyright: (C) 1989-2024 Lauterbach GmbH, licensed for use with TRACE32(R) only ; -------------------------------------------------------------------------------- ; $Id: t32connection.men 22732 2024-05-03 12:32:29Z rweiss $ MENU ( ; -------------------------------------------------------------------------------- ; File pulldown submenue ; -------------------------------------------------------------------------------- POPUP "&File" ( MENUITEM "[:edit]&New Script" "PEDIT" MENUITEM "[:edit]&Edit Script..." ( DIALOG.File.open "*.cmm;*.py" ENTRY %LINE &filename IF "&filename"!="" ( PRIVATE &pwd &pwd=OS.PWD() IF OS.FILE.EXTENSION(&filename)==".py" ( PYthon.EDIT "&filename" HISTory.Set FILE ":edit" "B::PYthon.EDIT ""&filename""" "&pwd" ) ELSE ( PEDIT "&filename" HISTory.Set FILE ":edit" "B::PEDIT ""&filename""" "&pwd" ) ) ) MENUITEM "[:practice]&Run Script..." ( DIALOG.File.open "*.cmm;*.py" ENTRY %LINE &filename IF "&filename"!="" ( PRIVATE &pwd &pwd=OS.PWD() IF OS.FILE.EXTENSION(&filename)==".py" ( PYthon.RUN "&filename" HISTory.Set FILE ":practice" "B::PYthon.RUN ""&filename""" "&pwd" ) ELSE ( DO "&filename" HISTory.Set FILE ":practice" "B::DO ""&filename""" "&pwd" ) ) ) DEFAULT MENUITEM "[:practice]&ChangeDir and Run Script..." ( PRIVATE &dirname DIALOG.File.open "*.cmm;*.py" ENTRY %LINE &filename IF "&filename"!="" ( IF OS.FILE.EXTENSION(&filename)==".py" ( &dirname=OS.FILE.PATH("&filename") CD &dirname PYthon.RUN "&filename" HISTory.Set FILE ":practice" "B::PYthon.RUN ""&filename""" "&dirname" ) ELSE ( PRIVATE &pwd &pwd=OS.PWD() CD.DO "&filename" HISTory.Set FILE ":practice" "B::CD.DO ""&filename""" "&pwd" ) ) ) MENUITEM "[:pfind]&Search for Script..." "WELCOME.SCRIPTS" ADDHERE SEPARATOR MENUITEM "[:stop]Stop Command" "STOP" SEPARATOR MENUITEM "[:PRINTer]Printer Settings..." "PRinTer" IF ((VERSION.BUILD()>30330.)&&(OS.VERSION(0)==2.)&&(OS.VERSION(1)>4.)) ( MENUITEM "[:screenshot]Window Screenshot to File..." "SCreenShot" ) ELSE ( MENUITEM "[:camera]Window Print..." "PRinTer.HardCopy" ) SEPARATOR MENUITEM "[:connection]Connection Configuration" "CONNECTION" SEPARATOR MENUITEM "[:exit]E&xit" "QUIT" ) ; -------------------------------------------------------------------------------- ; Edit pulldown submenue ; -------------------------------------------------------------------------------- POPUP "&Edit" ( MENUITEM "[:save]Save &All Editor Files" "EDIT.SAVE" MENUITEM "[:edit]&List All Editor Files" "EDIT.List" SEPARATOR MENUITEM "[:find]&Grep in Source Files..." "Data.GREP """" """" /Word /Case" ) ; -------------------------------------------------------------------------------- ; Window pulldown submenue ; -------------------------------------------------------------------------------- POPUP "&Window" ( MENUITEM "Create Duplicate window" "winduplicate" MENUITEM "[:remove]Clear Windows on &Page" "winclear" MENUITEM "[:removeall]Clear &all Windows" "Winpage.Reset" SEPARATOR MENUITEM "[:save]S&tore Windows..." "STOre * Win" MENUITEM "[:load]&Load Windows..." "DO *" ) ; -------------------------------------------------------------------------------- ; Help pulldown submenue ; -------------------------------------------------------------------------------- POPUP "&Help" ( DEFAULT MENUITEM "[:help]&Contents" "HELP.Topics" MENUITEM "[:index]&Index" "HELP.Index" MENUITEM "[:find]&Find..." "HELP.Find" MENUITEM "[:tree]T&ree" "HELP.Tree" SEPARATOR MENUITEM "[:manual]PowerView User's Guide" "HELP __IDE_USER_" SEPARATOR MENUITEM "[:config]Setup PDF &Viewer..." "SETUP.PDFViewer" SEPARATOR IF VERSION.BUILD()>5540. ( IF OS.VERSION(0)<0x20 ( MENUITEM "Lauterbach &Homepage" ( IF OS.VERSION(0)<0x10 OS.Hidden start "" "https://www.lauterbach.com" ELSE OS.screen xdg-open "https://www.lauterbach.com" ) ) POPUP "&Support" ( MENUITEM "[:config]&System Information..." ( PRIVATE &file &file= "~~/demo/etc/diagnosis/environment/support.cmm" IF !OS.FILE("&file") &file="" IF (VERSION.BUILD()<12409.)&&("&file"!="") ( PRIVATE &line OPEN #1 "&file" /Read READ #1 %LINE &line CLOSE #1 IF STRing.MID("&line",0,26.)=="trace32 encrypted cmm file" &file="" ) IF "&file"=="" ( PRIVATE &src &dst &launch &src="http://www.lauterbach.com/support/static/support.cmm" &dst=OS.PSD()+"/demo/etc/diagnosis/environment" WinPOS ,,,,,,,"TRACE32 System Information for Technical Support" IF (VERSION.BUILD()>=70945.)&&(OS.VERSION(0)<0x20) ( IF OS.VERSION(0)<0x10 &launch="OS.Hidden start """"""""" ELSE &launch="OS.screen xdg-open" DIALOG.view (&+ POS 1.0 0.50 50. 0.75 TEXT "Please download" TEXTBUTTON ""+CONVert.CHAR(2)+CONVert.CHAR(76.+1.)+"&src" "&launch &src" TEXT "to" TEXTBUTTON ""+CONVert.CHAR(2)+CONVert.CHAR(76.+1.)+OS.FILE.ABSPATH(&dst) "&launch ""&dst""" TEXT "and try again." POS 40.5 4.50 9. 1. DEFBUTTON "OK" "DIALOG.END" ) ) ELSE ( DIALOG.OK "Please download" "&src" "to" "&dst" "and try again." ) ) ELSE ( DO "&file" ) ) IF OS.FILE("~~/demo/etc/t32update.cmm")&&(((OS.VERSION(0)==0x02)&&((SOFTWARE.64BIT()&&OS.FILE("~~/bin/windows64/t32update.exe"))||(OS.FILE("~~/bin/windows/t32update.exe"))))||((OS.VERSION(0)>=0x10)&&(OS.VERSION(0)<=0x11)&&((SOFTWARE.64BIT()&&OS.FILE("~~/bin/pc_linux64/t32update"))||(!SOFTWARE.64BIT()&&OS.FILE("~~/bin/pc_linux/t32update"))))||((OS.VERSION(0)==0x40)&&OS.FILE("~~/bin/macosx64/t32update"))) ( MENUITEM "[:eload]&Update TRACE32..." ( DO "~~/demo/etc/t32update.cmm" ) ) IF OS.VERSION(0)<0x20 ( MENUITEM "[,3@2 10@,@s@ @w8Sw@,@s@ @2Sw4@w2S@,@S@ @10S@,@S@ @2Sw4@w2S@,@S@ @10S@,@S@ @2Sw4@w2S@,@S@ @w8Sw@,@S@2 2@w3S4@,@S@4 @2S@w,@S@4 @S@w,@s@4 2@w,w@w4 @w, @5 w, w]&Technical Support Contacts" ( IF OS.VERSION(0)<0x10 OS.Hidden start "" "https://support.lauterbach.com/new-ticket" ELSE OS.screen xdg-open "https://support.lauterbach.com/new-ticket" ) ) IF (VERSION.BUILD()>12239.)&&(VERSION.BUILD()<24341.) ( MENUITEM "License details" "LICENSE.List" ) IF (VERSION.BUILD()>15282.)&&(BDM()) ( IF VERSION.BUILD.BASE()>16962. ( MENUITEM "Program maintenance license into cable..." ( LICENSE.UPDATE license*.t32 LICENSE.List ) ) ) IF VERSION.BUILD()>7807. ( IF (AUTOFOCUS())&&(PowerTrace())&&(OS.FILE("~~/demo/etc/diagnosis/autofocus/afdiagnosis.cmm")) ( MENUITEM "[:afocus]&AutoFocus Diagnosis" ( DO "~~/demo/etc/diagnosis/autofocus/afdiagnosis.cmm" ) ) ) ; v POPUP "&Support" ) ; v IF VERSION.BUILD()>5540. ) MENUITEM "[:t32]&About TRACE32" "VERSION" ; v POPUP "&Help" ) ) ;^ MENU ; -------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------- ; Additional speedbar buttons for dedicated windows ; -------------------------------------------------------------------------------- ; -------------------------------------------------------------------------------- ADD ; Buttons for SYStem.DETECT SHOWChain BUTTONS "sys.detect.showc" ( IF SIMULATOR() ( MENUITEM "[:refresh]refresh" "SYStem.DETECT SHOWChain" ) ELSE ( MENUITEM "[:refresh]refresh" ( PRIVATE &cmd &cmd=WINdow.COMMAND(WinTOP) &cmd ) ) IF VERSION.BUILD.BASE()>69398. ( WIDTH WIDER ) MENUITEM "[:config]SYStem" "SYStem.state" MENUITEM "debug port" "SYStem.CONFIG /DebugPort" MENUITEM "pre / post" "SYStem.CONFIG /JTAG" ) ; -------------------------------------------------------------------------------- ; --------------------------------------------------------------------------------