298 lines
12 KiB
Plaintext
298 lines
12 KiB
Plaintext
; --------------------------------------------------------------------------------
|
|
; @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"
|
|
)
|
|
; --------------------------------------------------------------------------------
|
|
; --------------------------------------------------------------------------------
|