"{ Package: 'jv:smallsense' }"

"{ NameSpace: SmallSense }"

SimpleDialog subclass:#AbstractDIalog
	instanceVariableNames:'buttons buttonsPanelView acceptEnabledHolder
		optionsVisibleLabelHolder optionsVisibleHolder'
	classVariableNames:''
	poolDictionaries:''
	category:'SmallSense-Core-Interface-Search'
!

!AbstractDIalog class methodsFor:'interface specs'!

dialogSpec
    "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:SmallSense::AbstractDIalog andSelector:#dialogSpec
     SmallSense::AbstractDIalog new openInterface:#dialogSpec
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: dialogSpec
       window: 
      (WindowSpec
         label: 'Search...'
         name: 'Search...'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 708 404)
         menu: mainMenuSpec
       )
       component: 
      (SpecCollection
         collection: (
          (VerticalPanelViewSpec
             name: 'ContentAndOptionsPanel'
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
             horizontalLayout: fit
             verticalLayout: topSpaceFit
             horizontalSpace: 3
             verticalSpace: 3
             elementsChangeSize: true
             component: 
            (SpecCollection
               collection: (
                (UISubSpecification
                   name: 'Content'
                   minorKey: contentPaneSpec
                   extent: (Point 708 350)
                 )
                (UISubSpecification
                   name: 'Options'
                   initiallyInvisible: true
                   visibilityChannel: optionsVisibleHolder
                   minorKey: optionsSpec
                   extent: (Point 708 40)
                 )
                )
              
             )
           )
          )
        
       )
     )

    "Modified: / 02-05-2014 / 00:40:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

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:SmallSense::AbstractSearchDialog andSelector:#windowSpec
     SmallSense::AbstractSearchDialog new openInterface:#windowSpec
     SmallSense::AbstractSearchDialog open
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: windowSpec
       window: 
      (WindowSpec
         label: 'Search...'
         name: 'Search...'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 708 404)
         menu: mainMenuSpec
       )
       component: 
      (SpecCollection
         collection: (
          (UISubSpecification
             name: 'ContentPane'
             layout: (LayoutFrame 10 0 0 0 -10 1 -40 1)
             minorKey: dialogSpec
           )
          (UISubSpecification
             name: 'ButtonsPane'
             layout: (LayoutFrame 10 0 -40 1 -10 1 0 1)
             minorKey: buttonsPaneSpec
           )
          )
        
       )
     )
! !

!AbstractDIalog class methodsFor:'interface specs-content'!

buttonsPaneSpec
    "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:SmallSense::AbstractDIalog andSelector:#buttonsPaneSpec
     SmallSense::AbstractDIalog new openInterface:#buttonsPaneSpec
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: buttonsPaneSpec
       window: 
      (WindowSpec
         label: 'Search...'
         name: 'Search...'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 708 38)
         menu: mainMenuSpec
       )
       component: 
      (SpecCollection
         collection: (
          (UISubSpecification
             name: 'ButtonOptionsShowOrHide'
             layout: (LayoutFrame 0 0 0 0 100 0 0 1)
             minorKey: optionsShowHideLeftAlignedPaneSpec
           )
          (HorizontalPanelViewSpec
             name: 'Buttons'
             layout: (LayoutFrame 100 0 0 0 0 1 0 1)
             horizontalLayout: right
             verticalLayout: center
             horizontalSpace: 3
             verticalSpace: 3
             reverseOrderIfOKAtLeft: true
             postBuildCallback: postBuildButtonsPanelView:
           )
          )
        
       )
     )
!

contentPaneSpec
    "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:SmallSense::AbstractSearchDialog andSelector:#optionsPaneSpec
     SmallSense::AbstractSearchDialog new openInterface:#optionsPaneSpec
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: contentPaneSpec
       window: 
      (WindowSpec
         label: 'Search ...'
         name: 'Search Options...'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 634 40)
       )
       component: 
      (SpecCollection
         collection: (
          (LabelSpec
             label: 'No content (override #contentPaneSpec)'
             name: 'NoOptionsLabel'
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
             translateLabel: true
           )
          )
        
       )
     )

    "Created: / 02-05-2014 / 00:17:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

optionsPaneSpec
    "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:SmallSense::AbstractSearchDialog andSelector:#optionsPaneSpec
     SmallSense::AbstractSearchDialog new openInterface:#optionsPaneSpec
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: optionsPaneSpec
       window: 
      (WindowSpec
         label: 'Search Options...'
         name: 'Search Options...'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 634 40)
       )
       component: 
      (SpecCollection
         collection: (
          (LabelSpec
             label: 'No options (override #optionsPaneSpec)'
             name: 'NoOptionsLabel'
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
             translateLabel: true
           )
          )
        
       )
     )
!

optionsShowHideLeftAlignedPaneSpec
    "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:SmallSense::AbstractDIalog andSelector:#optionsShowHideLeftAlignedPaneSpec
     SmallSense::AbstractDIalog new openInterface:#optionsShowHideLeftAlignedPaneSpec
    "

    <resource: #canvas>

    ^ 
    #(FullSpec
       name: optionsShowHideLeftAlignedPaneSpec
       window: 
      (WindowSpec
         label: 'Show / Hide options'
         name: 'Show / Hide options'
         min: (Point 10 10)
         bounds: (Rectangle 0 0 452 20)
       )
       component: 
      (SpecCollection
         collection: (
          (LinkButtonSpec
             label: 'Options'
             name: 'ShowHideOptions'
             layout: (LayoutFrame 0 0 0 0 0 1 0 1)
             translateLabel: true
             labelChannel: optionsVisibleLabelHolder
             adjust: left
             model: doOptionsShowOrHide
           )
          )
        
       )
     )
! !

!AbstractDIalog class methodsFor:'testing'!

isAbstract
    ^ self == SmallSense::AbstractDIalog
! !

!AbstractDIalog methodsFor:'actions'!

doOptionsShowOrHide
    self optionsVisibleHolder value: self optionsVisibleHolder value not.

    "Modified: / 02-05-2014 / 00:27:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!AbstractDIalog methodsFor:'adding & removing components'!

addButton: aButton
    buttons add: aButton.
    buttonsPanelView notNil ifTrue:[ 
        buttonsPanelView addComponent: aButton.
    ].

    "Created: / 10-04-2012 / 20:49:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 28-04-2014 / 22:52:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

addButtonAccept

    ^self addButtonWithLabel: (resources string:'OK') action: [ self doAccept ] enablement: self acceptEnabledHolder.

    "Created: / 28-04-2014 / 22:51:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

addButtonCancel

    ^self addButtonWithLabel: (resources string:'Cancel') action: [ self doCancel ]

    "Created: / 28-04-2014 / 22:50:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

addButtonWithLabel: label action: action
    ^self addButtonWithLabel: label action: action enablement: true.

    "Created: / 10-04-2012 / 20:50:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    "Modified: / 28-04-2014 / 22:55:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

addButtonWithLabel: label action: action enablement: enablement
    | button |

    button := Button label: label action: action.
    button enableChannel: enablement.
    ^self addButton: button.

    "Created: / 28-04-2014 / 22:51:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!AbstractDIalog methodsFor:'aspects'!

acceptEnabledHolder
    <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 ;-)"

    acceptEnabledHolder isNil ifTrue:[
        acceptEnabledHolder := true asValue.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
"/       acceptEnabledHolder addDependent:self.
"/       acceptEnabledHolder onChangeSend:#acceptEnabledHolderChanged to:self.
    ].
    ^ acceptEnabledHolder.
!

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

    optionsVisibleHolder isNil ifTrue:[
        optionsVisibleHolder := false asValue.
        optionsVisibleHolder addDependent:self.
    ].
    ^ optionsVisibleHolder

    "Modified: / 02-05-2014 / 00:26:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

optionsVisibleHolder:something
    "set the 'optionsVisibleHolder' value holder (automatically generated)"

    |oldValue newValue|

    optionsVisibleHolder notNil ifTrue:[
        oldValue := optionsVisibleHolder value.
        optionsVisibleHolder removeDependent:self.
    ].
    optionsVisibleHolder := something.
    optionsVisibleHolder notNil ifTrue:[
        optionsVisibleHolder addDependent:self.
    ].
    newValue := optionsVisibleHolder value.
    oldValue ~~ newValue ifTrue:[
        self update:#value with:newValue from:optionsVisibleHolder.
    ].
!

optionsVisibleLabelHolder
    <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 ;-)"

    optionsVisibleLabelHolder isNil ifTrue:[
        optionsVisibleLabelHolder := (resources string: 'Options') asValue.
"/ if your app needs to be notified of changes, uncomment one of the lines below:
"/       optionsVisibleLabelHolder addDependent:self.
"/       optionsVisibleLabelHolder onChangeSend:#optionsVisibleLabelHolderChanged to:self.
    ].
    ^ optionsVisibleLabelHolder.

    "Modified: / 02-05-2014 / 00:25:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!AbstractDIalog methodsFor:'change & update'!

update:something with:aParameter from:changedObject
    changedObject == optionsVisibleHolder ifTrue:[
        self updateOptionsVisibleLabel.
        ^ self.
    ].     
    ^ super update:something with:aParameter from:changedObject

    "Created: / 02-05-2014 / 00:29:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

updateOptionsVisibleLabel
    | label |

    label := 
        self optionsVisibleHolder value 
            ifTrue:[ resources string: 'Hide options']
            ifFalse:[ resources string: 'Options'].
    self optionsVisibleLabelHolder value: label.

    "Created: / 02-05-2014 / 00:29:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!AbstractDIalog methodsFor:'hooks'!

postBuildButtonsPanelView: aHorizontalPanelView
    buttonsPanelView := aHorizontalPanelView.

    "Created: / 28-04-2014 / 22:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

postBuildWith: anUIBuilder
    | w |

    buttons isEmpty ifTrue:[ 
        | savedButtonsPanelView |

        savedButtonsPanelView := buttonsPanelView.
        buttonsPanelView := nil.                  
        self addButtonCancel.
        self addButtonAccept.
        buttonsPanelView := savedButtonsPanelView.
    ].

    w := buttons inject: 0 into: [ :width :button | width max: (button preferredExtent x) ].
    w := (w + 20) max: 100.
    buttons do:[:button | 
        button preferredExtent: w @ 25.
        buttonsPanelView addComponent: button.  
    ].

    "Created: / 28-04-2014 / 22:53:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!AbstractDIalog methodsFor:'initialization'!

initialize
    "Invoked when a new instance is created."

    "/ please change as required (and remove this comment)
    buttons := OrderedCollection new.
    "/ buttonsPanelView := nil.

    super initialize.

    "Modified: / 28-04-2014 / 22:49:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !