--- a/VDBTabbingContainer.st	Fri Sep 28 10:09:50 2018 +0100
+++ b/VDBTabbingContainer.st	Mon Oct 01 12:11:59 2018 +0100
@@ -178,6 +178,54 @@
     "Created: / 10-06-2014 / 17:01:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!VDBTabbingContainer methodsFor:'selection'!
+
+selectApplication: anApplication
+    | component |
+
+    component := components detect:[ :each | each application == anApplication ].
+    self selectComponent: component.
+
+    "Created: / 01-10-2018 / 11:58:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectApplicationClass: aClass
+    | component |
+
+    component := components detect:[ :each | each application class == aClass ].
+    self selectComponent: component.
+
+    "Created: / 01-10-2018 / 11:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectComponent: aView
+    | index |
+
+    index := components indexOf: aView.
+    self assert: index ~= 0.
+    self tabSelectionIndexHolder value: index
+
+    "Created: / 01-10-2018 / 11:57:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectedApplication
+    ^ self selectedComponent application
+
+    "Created: / 01-10-2018 / 12:00:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectedApplicationClass
+    ^ self selectedApplication class
+
+    "Created: / 01-10-2018 / 12:00:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+selectedComponent
+    ^ components at: self tabSelectionIndexHolder value
+
+    "Created: / 01-10-2018 / 11:59:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !VDBTabbingContainer class methodsFor:'documentation'!
 
 version_HG