--- a/Tools__NewSystemBrowser.st Thu Nov 03 14:52:10 2016 +0100
+++ b/Tools__NewSystemBrowser.st Thu Nov 03 14:55:50 2016 +0100
@@ -27575,6 +27575,8 @@
!
createBuffer
+ "create/add a new buffer (i.e. tab with its own browser)"
+
^ self createBufferWithSpec:#fullBrowserSpec
!
@@ -27594,6 +27596,8 @@
!
createBufferWithSpec:aSpec
+ "create/add a new buffer (i.e. tab with its own browser) with a particular spec"
+
^ self createBufferWithSpec:aSpec setupFromCurrentState:true
"Modified: / 27-02-2008 / 08:43:21 / janfrog"
@@ -27602,6 +27606,9 @@
!
createBufferWithSpec:aSpec setupFromCurrentState:doSetup
+ "create/add a new buffer (i.e. tab with its own browser) with a particular spec.
+ If doSetup is true, navigate to the current state's entity there"
+
|bNameList oldNavigationState|
bNameList := self bufferNameList. "/ for lazy setup
@@ -27646,6 +27653,8 @@
!
destroyTab:tabIndex
+ "destroy a buffer (i.e. tab)"
+
self bufferMenuRemoveBuffer:tabIndex
!