--- 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 $'
 ! !