"
jv:vdb - Visual / VM Debugger
Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
"
"{ Package: 'jv:vdb' }"

"{ NameSpace: Smalltalk }"

VDBAbstractContainer subclass:#VDBTabbingContainer
	instanceVariableNames:'tabSelectionIndexHolder tabSelectionViewHolder'
	classVariableNames:''
	poolDictionaries:''
	category:'VDB-UI-Containers'
!

!VDBTabbingContainer class methodsFor:'documentation'!

copyright
"
jv:vdb - Visual / VM Debugger
Copyright (C) 2015-now Jan Vrany

This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'

You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
"
! !

!VDBTabbingContainer class methodsFor:'interface specs'!

windowSpec
    "This resource specification was automatically generated
     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,
     the UIPainter may not be able to read the specification."

    "
     UIPainter new openOnClass:VDBTabbingContainer andSelector:#windowSpec
     VDBTabbingContainer new openInterface:#windowSpec
     VDBTabbingContainer open
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: windowSpec
       window: 
      (WindowSpec
         label: 'Tabbed Dock'
         name: 'Tabbed Dock'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 733 447)
       )
       component: 
      (SpecCollection
         collection: (
          (NoteBookViewSpec
             name: 'Tabs'
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
             model: tabSelectionIndexHolder
             menu: tabLabelList
             useIndex: true
             canvas: tabSelectionViewHolder
             keepCanvasAlive: true
           )
          )
        
       )
     )
! !

!VDBTabbingContainer class methodsFor:'plugIn spec'!

aspectSelectors
    "This resource specification was automatically generated
     by the UIPainter of ST/X."

    "Do not manually edit this. If it is corrupted,
     the UIPainter may not be able to read the specification."

    "Return a description of exported aspects;
     these can be connected to aspects of an embedding application
     (if this app is embedded in a subCanvas)."

    ^ #(
        #debuggerHolder
      ).

! !

!VDBTabbingContainer methodsFor:'adding & removing components'!

addComponent: aView labeled: aString beforeIndex: anInteger
    super addComponent: aView labeled: aString beforeIndex: anInteger.

    "/ Sigh, this is not called when a sib-view is used in 
    "/ notebook. Why the hell it is so?
    aView isApplicationSubView ifTrue:[ 
        aView application commonPostBuild.
    ].

    "Created: / 07-10-2018 / 21:33:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!VDBTabbingContainer methodsFor:'aspects'!

tabLabelList
    <resource: #uiAspect>

    ^ labels

    "Modified: / 10-06-2014 / 17:00:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

tabSelectionIndexHolder
    "return/create the 'tabSelectionIndexHolder' value holder (automatically generated)"

    tabSelectionIndexHolder isNil ifTrue:[
        tabSelectionIndexHolder := ValueHolder new.
        tabSelectionIndexHolder addDependent:self.
    ].
    ^ tabSelectionIndexHolder
!

tabSelectionViewHolder
    <resource: #uiAspect>

    "automatically generated by UIPainter ..."

    "*** the code below creates a default model when invoked."
    "*** (which may not be the one you wanted)"
    "*** Please change as required and accept it in the browser."
    "*** (and replace this comment by something more useful ;-)"

    tabSelectionViewHolder isNil ifTrue:[
        tabSelectionViewHolder := ValueHolder new.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
"/       tabSelectionViewHolder addDependent:self.
"/       tabSelectionViewHolder onChangeSend:#tabSelectionViewHolderChanged to:self.
    ].
    ^ tabSelectionViewHolder.
! !

!VDBTabbingContainer methodsFor:'change & update'!

update:aspect with:param from:changedObject
    "Invoked when an object that I depend upon sends a change notification."

    "stub code automatically generated - please change as required"

    changedObject == components ifTrue:[
        self tabSelectionIndexHolder value isNil ifTrue:[ 
            components notEmpty ifTrue:[ 
                self tabSelectionIndexHolder value: 1.
            ].
        ].
        ^ self.
    ].
    changedObject == tabSelectionIndexHolder ifTrue:[            
        | i v |

        components notEmpty ifTrue:[ 
            i := self tabSelectionIndexHolder value ? 0.
            i := i max: 1.
            i := i min: components size.
            v := components at: i.
        ] ifFalse:[ 
            v := nil.
        ].
        self tabSelectionViewHolder value: v.
        ^ self.
    ].   

    super update:aspect with:param from:changedObject

    "Created: / 10-06-2014 / 15:53:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified (format): / 10-06-2014 / 17:08:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!VDBTabbingContainer methodsFor:'initialization & release'!

initialize
    super initialize.
    components addDependent: self.

    "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

    ^ '$Changeset: <not expanded> $'
! !