--- a/WorkspaceApplication.st	Fri Oct 10 13:45:59 2008 +0200
+++ b/WorkspaceApplication.st	Sat Oct 11 21:47:21 2008 +0200
@@ -12,11 +12,11 @@
 "{ Package: 'stx:libtool' }"
 
 MultiViewToolApplication subclass:#WorkspaceApplication
-        instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts'
-        classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime
-                DefaultToolBarVisible Sniplets'
-        poolDictionaries:''
-        category:'Interface-Smalltalk'
+	instanceVariableNames:'autoDefineVariables syntaxHolder poolsConsideredInDoIts'
+	classVariableNames:'LastFilterBlockString LastProcessingBlockString LastTeaWaitTime
+		DefaultToolBarVisible Sniplets'
+	poolDictionaries:''
+	category:'Interface-Smalltalk'
 !
 
 !WorkspaceApplication class methodsFor:'documentation'!
@@ -595,6 +595,11 @@
             translateLabel: true
           )
          (MenuItem
+            label: 'Documentation on Smalltalk/X'
+            itemValue: openSTXDocumentation
+            translateLabel: true
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -1748,6 +1753,12 @@
     self openHTMLDocument: 'tools/misc/TOP.html#WORKSPACE'
 !
 
+openSTXDocumentation
+    "opens the top documentation file"
+
+    self openHTMLDocument: 'TOP.html'
+!
+
 pasteAndExecute:aString
     self paste:aString.
     self printIt
@@ -2316,5 +2327,5 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.157 2008-10-01 18:35:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.158 2008-10-11 19:47:21 cg Exp $'
 ! !