--- a/AbstractLauncherApplication.st	Wed Jan 26 18:11:33 2005 +0100
+++ b/AbstractLauncherApplication.st	Thu Jan 27 12:41:47 2005 +0100
@@ -1149,6 +1149,18 @@
     self showDocumentation:'BOOK.html'
 !
 
+showPortInfo
+    |portNr url|
+
+    portNr := Dialog request:'Port Number:'.
+    portNr isEmptyOrNil ifTrue:[^ self].
+
+    url := 'http://www.grc.com/port_' , portNr printString , '.htm'.
+    self withWaitCursorDo:[
+        HTMLDocumentView openFullOnURL:url.
+    ]
+!
+
 showRFC
     |rfc url|
 
@@ -6495,5 +6507,5 @@
 !AbstractLauncherApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.320 2005-01-09 18:40:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.321 2005-01-27 11:41:47 cg Exp $'
 ! !

--- a/NewLauncher.st	Wed Jan 26 18:11:33 2005 +0100
+++ b/NewLauncher.st	Thu Jan 27 12:41:47 2005 +0100
@@ -1790,6 +1790,11 @@
                   #itemValue: #showRFC
                   #translateLabel: true
                 )
+               #(#MenuItem
+                  #label: 'TCP/UDP Ports...'
+                  #itemValue: #showPortInfo
+                  #translateLabel: true
+                )
                )
               nil
               nil
@@ -4039,5 +4044,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.321 2005-01-14 11:22:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.322 2005-01-27 11:41:37 cg Exp $'
 ! !