"{ Package: 'jv:smallsense' }"

"{ NameSpace: SmallSense }"

SimpleDialog subclass:#AbstractDIalog

	instanceVariableNames:'buttons buttonsPanelView acceptEnabledHolder

	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: (

             layout: (LayoutFrame 0 0 0 0 0 1 0 1)

             component: 

            (SpecCollection

               collection: (

                (UISubSpecification

                   name: 'Content'

                   minorKey: contentPaneSpec

                 )

                (UISubSpecification

                   name: 'Options'

                   visibilityChannel: optionsVisibleHolder

                 )

                )

             )

           )

          )

       )

     )

!

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

! !

!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>"

!