--- a/WorkspaceApplication.st	Mon Oct 26 17:19:31 2009 +0100
+++ b/WorkspaceApplication.st	Mon Oct 26 17:19:40 2009 +0100
@@ -1177,6 +1177,31 @@
     "Modified: / 25-09-2007 / 21:00:45 / cg"
 !
 
+openForSinglePageDoing:aBlock
+    |wsApp needRemove|
+
+    needRemove := true.
+
+    wsApp := self new.
+    wsApp allButOpen.
+
+    (wsApp builder componentAt:'NoteBook') destroyTabAction:nil.
+
+    wsApp window height:500.
+
+    aBlock value:wsApp.
+    wsApp removeWorkspace:1.  "/ the original Workspace
+    "/ wsApp renameWorkspace:1 to:'LICENCE README'.
+
+    wsApp openWindow.
+    wsApp selectedWorkspaceIndexHolder value:1.
+    ^ wsApp
+
+    "
+     self openWithGlobalsInspector
+    "
+!
+
 openMyWorkspace
     self openOnFile:'MyWorkspace.wsp'
 
@@ -1340,6 +1365,28 @@
     "
      WorkspaceApplication openWith:'Transcript showCR:''hello world'''
     "
+!
+
+openWithGlobalsInspector
+    "open a workspaceApp with a single initial pane, showing global variables.
+     Same as Smalltalk inspect, but looks nicer..."
+
+    ^ self openForSinglePageDoing:[:wsApp | wsApp addNamespaceInspectorFor:Smalltalk]
+
+    "
+     self openWithGlobalsInspector
+    "
+!
+
+openWithWorkspaceVariableInspector
+    "open a workspaceApp with a single initial pane, showing workspace variables.
+     Same as Workspace workspaceVariables inspect, but looks nicer..."
+
+    ^ self openForSinglePageDoing:[:wsApp | wsApp addWorkspaceVariableInspector]
+
+    "
+     self openWithWorkspaceVariableInspector
+    "
 ! !
 
 !WorkspaceApplication methodsFor:'aspects'!
@@ -2159,7 +2206,7 @@
     v := self addInspectorOn:(Workspace workspaceVariables) basic:false suppressPseudoSlots:true.
     v dereferenceValueHolders:true.
     v fieldListLabel:'Name'.
-    self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Variables'.
+    self renameWorkspace:(self selectedWorkspaceIndexHolder value) to:'Workspace Variables'.
 ! !
 
 !WorkspaceApplication methodsFor:'menu-actions-editing'!
@@ -2540,9 +2587,9 @@
 !WorkspaceApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.182 2009-10-23 09:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.183 2009-10-26 16:19:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.182 2009-10-23 09:20:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.183 2009-10-26 16:19:40 cg Exp $'
 ! !