added:
#openForSinglePageDoing:
#openWithGlobalsInspector
#openWithWorkspaceVariableInspector
changed: #addWorkspaceVariableInspector
--- 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 $'
! !