VDBDebuggerApplication.st
changeset 5 fac6e83fd5c0
parent 2 9741a7683808
child 10 a618018a2dab
--- a/VDBDebuggerApplication.st	Tue Jun 10 01:38:50 2014 +0100
+++ b/VDBDebuggerApplication.st	Tue Jun 10 17:46:14 2014 +0100
@@ -1,7 +1,7 @@
 "{ Package: 'jv:vdb' }"
 
 VDBAbstractApplication subclass:#VDBDebuggerApplication
-	instanceVariableNames:''
+	instanceVariableNames:'containerBottom'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'VGB-UI'
@@ -38,12 +38,12 @@
       (SpecCollection
          collection: (
           (SubCanvasSpec
-             name: 'SubCanvas1'
+             name: 'ContainerBottom'
              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
              level: 0
              hasHorizontalScrollBar: false
              hasVerticalScrollBar: false
-             majorKey: VDBDebuggerConsoleApplication
+             clientHolder: containerBottom
              subAspectHolders: 
             (Array
                
@@ -59,8 +59,6 @@
         
        )
      )
-
-    "Modified: / 09-06-2014 / 09:56:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !VDBDebuggerApplication class methodsFor:'plugIn spec'!
@@ -82,3 +80,17 @@
 
 ! !
 
+!VDBDebuggerApplication methodsFor:'aspects-containers'!
+
+containerBottom
+    containerBottom isNil ifTrue:[ 
+        containerBottom := VDBTabbingContainer new.
+        containerBottom addApplication: VDBDebuggerConsoleApplication new.
+        containerBottom addApplication: VDBInferiorConsoleApplication new.
+        containerBottom addApplication: VDBEventLogApplication new.
+    ].
+    ^ containerBottom
+
+    "Created: / 10-06-2014 / 17:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+