"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

"{ Package: 'stx:libscm/mercurial' }"

ApplicationModel subclass:#HGRevsetEditor

	instanceVariableNames:'revsetHolder revsetList revsetField revsetFieldBackground

		errorHolder'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX-Interface'

!

!HGRevsetEditor class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2015 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!HGRevsetEditor 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:HGRevsetEditor andSelector:#windowSpec

     HGRevsetEditor new openInterface:#windowSpec

     HGRevsetEditor open

    "

    <resource: #canvas>

    ^ 

    #(FullSpec

       name: windowSpec

       window: 

      (WindowSpec

         label: 'Revset Editor'

         name: 'Revset Editor'

         min: (Point 10 10)

         bounds: (Rectangle 0 0 300 25)

       )

       component: 

      (SpecCollection

         collection: (

          (ComboBoxSpec

             name: 'RevsetField'

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

             tabable: false

             model: revsetHolder

             converter: revsetToStringConverter

             acceptOnPointerLeave: false

             hasKeyboardFocusInitially: true

             comboList: revsetList

             postBuildCallback: postBuildRevsetField:

           )

          )

       )

     )

! !

!HGRevsetEditor 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)."

    ^ #(

        #revsetHolder

        #revsetList

        #errorHolder

      ).

    "Modified: / 25-03-2014 / 02:08:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevsetEditor methodsFor:'aspects'!

errorHolder

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

    errorHolder isNil ifTrue:[

        errorHolder := ValueHolder new.

        errorHolder addDependent:self.

    ].

    ^ errorHolder

!

errorHolder:valueModel

    "set the 'errorHolder' value holder (automatically generated)"

    |oldValue newValue|

    errorHolder notNil ifTrue:[

        oldValue := errorHolder value.

        errorHolder removeDependent:self.

    ].

    errorHolder := valueModel.

    errorHolder notNil ifTrue:[

        errorHolder addDependent:self.

    ].

    newValue := errorHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:errorHolder.

    ].

!

revsetHolder

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

    revsetHolder isNil ifTrue:[

        revsetHolder := ValueHolder new.

        revsetHolder addDependent:self.

    ].

    ^ revsetHolder

!

revsetHolder:aValueModel

    "set the 'revsetHolder' value holder (automatically generated)"

    |oldValue newValue|

    revsetHolder notNil ifTrue:[

        oldValue := revsetHolder value.

        revsetHolder removeDependent:self.

    ].

    revsetHolder := aValueModel.

    revsetHolder notNil ifTrue:[

        revsetHolder addDependent:self.

    ].

    newValue := revsetHolder value.

    oldValue ~~ newValue ifTrue:[

        self update:#value with:newValue from:revsetHolder.

    ].

!

revsetList

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

    revsetList isNil ifTrue:[

        revsetList := List new.

    ].

    ^ revsetList

    "Modified: / 24-03-2014 / 21:45:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

revsetList:something

    "set the 'revsetList' value holder (automatically generated)"

    revsetList := something.

!

revsetToStringConverter

    ^ (PluggableAdaptor on: self revsetHolder)

        getBlock:   [ :model | model value isNil ifTrue:[''] ifFalse:[model value asString] ]

        putBlock:   [ :model :string | model value: string asHGRevset ]

        updateBlock:[ :model :aspect :value|true]

    "Created: / 14-03-2014 / 23:17:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevsetEditor methodsFor:'change & update'!

update:something with:aParameter from:changedObject

    "Invoked when an object that I depend upon sends a change notification."

    "stub code automatically generated - please change as required"

    changedObject == errorHolder ifTrue:[

         self updateAfterErrorHolderChanged.

         ^ self.

    ].

    super update:something with:aParameter from:changedObject

    "Modified: / 25-03-2014 / 02:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

updateAfterErrorHolderChanged

    | error |

    error := self errorHolder value.

    error isNil ifTrue:[ 

        revsetField field backgroundColor: revsetFieldBackground  

    ] ifFalse:[ 

        revsetField field backgroundColor: Color red lighter  

    ].

    "Created: / 25-03-2014 / 02:02:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevsetEditor methodsFor:'hooks'!

postBuildRevsetField: aView

    revsetField := aView.

    revsetFieldBackground := revsetField field background.

    "Created: / 25-03-2014 / 02:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !