Add Identify Serial Ports

totalspectrum · Aug 12, 2023 · 0cb8186 · 0cb8186
1 parent 4a5e6f3
commit 0cb8186
Show file tree

Hide file tree

Showing 3 changed files with 15 additions and 0 deletions.
diff --git a/Changelog.txt b/Changelog.txt
@@ -1,5 +1,6 @@
 Version 6.3.0
 
+- Added "Identify Serial Ports" item to "Special" menu
 - Fixed shell sample to work correctly with various ramdisks,
 including P2 Edge 32MB PSRAM, Ray's logic 4 bit PSRAM board, and
 HyperRam

diff --git a/doc/help.txt b/doc/help.txt
@@ -118,6 +118,10 @@ Opens a terminal window connected to the built in P2 ROM debug monitor.
 
 Opens a terminal window. Does not scan for a P2, so the port to use must be explicitly set in the `Port` menu.
 
+#### Identify Serial Ports
+
+Checks for the Propeller version on each attached serial port, and shows a dialog box with the result.
+
 Configuring Commands
 --------------------
 

diff --git a/src/gui.tcl b/src/gui.tcl
@@ -1137,6 +1137,14 @@ proc doHelp { name } {
     }
 }
 
+proc doIdentify { } {
+    global ROOTDIR
+    global EXE
+    set ports [exec -ignorestderr $ROOTDIR/bin/proploader$EXE -v -P]
+
+    tk_messageBox -icon info -type ok -message "Serial Ports" -detail "$ports"
+}
+
 proc doSpecial {name extraargs} {
     global ROOTDIR
     global BINFILE
@@ -1669,6 +1677,8 @@ set comport_last [.mbar.comport index end]
 .mbar.special add separator
 .mbar.special add command -label "Enter P2 ROM monitor" -command { doSpecial "-xDEBUG" "" }
 .mbar.special add command -label "Terminal only" -command { doSpecial "-xTERM" "-t" }
+.mbar.special add separator
+.mbar.special add command -label "Identify Serial Ports" -command doIdentify
 
 .mbar add cascade -menu .mbar.help -label Help
 .mbar.help add command -label "GUI" -command { doGuiHelp }