extensions.st
changeset 117 1ae8e04f5feb
parent 83 101ff2210613
child 171 39774c491dbf
--- a/extensions.st	Thu Oct 04 10:51:17 2018 +0100
+++ b/extensions.st	Fri Oct 05 09:11:56 2018 +0100
@@ -52,6 +52,41 @@
 
 !UserPreferences methodsFor:'accessing-vdb'!
 
+vdbDebuggerLayout
+    "Return default (initial) layout of debugger window."
+
+    ^ self at: #vdbDebuggerLayout ifAbsent:[ nil ].
+
+    "    
+    UserPreferences current vdbDebuggerLayout.
+    UserPreferences current vdbDebuggerLayout: #layoutSingleSpec.
+    UserPreferences current vdbDebuggerLayout: nil.
+    "
+
+    "Created: / 04-10-2018 / 11:13:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-vdb'!
+
+vdbDebuggerLayout: aSymbol
+    "Set default (initial) debugger window layout (as spec-selector).
+
+     For set of supported layouts, see VDBDebuggerApplication class,
+     protocol `interface specs-layouts`"
+
+    ^ self at: #vdbDebuggerLayout put: aSymbol
+
+    "    
+    UserPreferences current vdbDebuggerLayout.
+    UserPreferences current vdbDebuggerLayout: #layoutSingleSpec.
+    UserPreferences current vdbDebuggerLayout: nil.
+    "
+
+    "Created: / 04-10-2018 / 12:27:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!UserPreferences methodsFor:'accessing-vdb'!
+
 vdbFrameFiltersEnabled
     "Return true, if VDB should enable frame filters by default."