"

 COPYRIGHT (c) 2005 eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Tools }"

SimpleDialog subclass:#CheckinInfoDialog

	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder

		tagItHolder quickCheckInHolder quickCheckInVisibleHolder'

	classVariableNames:'LastSourceLogMessage'

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

!CheckinInfoDialog class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 2005 eXept Software AG

              All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    checkin-dialog.

    used to be private in SourceCodeManagerUtilites.

    moved to libtool because libbasic3 should not contain code inheriting from GUI classes.

    [author:]

    [see also:]

    [instance variables:]

    [class variables:]

"

! !

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

     Tools::CheckinInfoDialog new openInterface:#windowSpec

     Tools::CheckinInfoDialog open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Enter Log Message'

          name: 'Enter Log Message'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 563 327)

        )

        component: 

       (SpecCollection

          collection: (

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel2'

              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)

              horizontalLayout: left

              verticalLayout: center

              horizontalSpace: 0

              verticalSpace: 3

              component: 

             (SpecCollection

                collection: (

                 (LabelSpec

                    label: 'Enter checkIn log-message for: '

                    name: 'Label1'

                    translateLabel: true

                    resizeForLabel: true

                    useDefaultExtent: true

                  )

                 (LabelSpec

                    name: 'Label2'

                    translateLabel: true

                    labelChannel: descriptionHolder

                    useDefaultExtent: true

                  )

                 )

              )

            )

           (TextEditorSpec

              name: 'TextEditor1'

              layout: (LayoutFrame 2 0.0 38 0 -2 1 -119 1)

              model: logMessageHolder

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

            )

           (CheckBoxSpec

              label: 'Quick Checkin (Only Classes in ChangeSet)'

              name: 'CheckInChangedOnlyCheckbox'

              layout: (LayoutFrame 3 0 -114 1 -3 1 -92 1)

              visibilityChannel: quickCheckInVisibleHolder

              model: quickCheckInHolder

              translateLabel: true

            )

           (CheckBoxSpec

              label: 'Mark as Stable'

              name: 'MarkStableCheckBox'

              layout: (LayoutFrame 3 0 -87 1 -3 1 -65 1)

              model: isStableHolder

              translateLabel: true

            )

           (CheckBoxSpec

              label: 'Tag It'

              name: 'TagItCheckBox'

              layout: (LayoutFrame 3 0 -60 1 0 0.5 -38 1)

              model: tagItHolder

              translateLabel: true

            )

           (LabelSpec

              label: 'Tag:'

              name: 'TagLabel'

              layout: (LayoutFrame 1 0.25 265 0 0 0.5 287 0)

              translateLabel: true

              adjust: right

            )

           (InputFieldSpec

              name: 'TagEntryField'

              layout: (LayoutFrame 0 0.5 265 0 -3 1 287 0)

              enableChannel: tagItInHolder

              model: tagHolder

              acceptOnReturn: true

              acceptOnTab: true

              acceptOnLostFocus: true

              acceptOnPointerLeave: false

            )

           (HorizontalPanelViewSpec

              name: 'HorizontalPanel1'

              layout: (LayoutFrame 0 0.0 -40 1 0 1.0 0 1.0)

              horizontalLayout: fitSpace

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 2

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'OK'

                    name: 'Button1'

                    translateLabel: true

                    model: doAccept

                    extent: (Point 277 22)

                  )

                 (ActionButtonSpec

                    label: 'Cancel'

                    name: 'Button2'

                    translateLabel: true

                    model: doCancel

                    extent: (Point 277 22)

                  )

                 )

              )

            )

           )

        )

      )

! !

!CheckinInfoDialog class methodsFor:'opening'!

getCheckinInfoFor:aString initialAnswer:initialAnswer

    ^ self getCheckinInfoFor:aString initialAnswer:initialAnswer withQuickOption:false

    "

      self getCheckinInfoFor:'hello' initialAnswer:'bla'

    "

!

getCheckinInfoFor:aString initialAnswer:initialAnswer withQuickOption:withQuickOption

    |dialog|

    dialog := self new.

    dialog 

        description:aString; 

        logMessage:initialAnswer;

        withQuickOption:withQuickOption.

    dialog open.

    dialog accepted ifFalse:[

        ^ nil.

    ].

    ^ dialog    

    "

         self getCheckinInfoFor:'hello' initialAnswer:'bla'

    "

! !

!CheckinInfoDialog methodsFor:'accessing'!

description

    ^ self descriptionHolder value

!

description:aString

    self descriptionHolder value:aString

!

isStable

    ^ self isStableHolder value

!

isStable:aBoolean

    self isStableHolder value:aBoolean

!

logMessage

    ^ self logMessageHolder value

!

logMessage:aString

    self logMessageHolder value:aString

!

quickCheckIn

    ^ self quickCheckInHolder value

!

quickCheckIn:aBoolean

    self quickCheckInHolder value:aBoolean

!

tag

    ^ self tagHolder value withoutSeparators

!

tag:aString

    self tagHolder value:aString

!

tagIt

    ^ self tagItHolder value

!

tagIt:aBoolean

    self tagItHolder value:aBoolean

!

withQuickOption:aBoolean

    ^ self quickCheckInVisibleHolder value:aBoolean

! !

!CheckinInfoDialog methodsFor:'aspects'!

descriptionHolder

    descriptionHolder isNil ifTrue:[

        descriptionHolder := ValueHolder new.

    ].

    ^ descriptionHolder

!

isStableHolder

    isStableHolder isNil ifTrue:[

        isStableHolder := false asValue.

    ].

    ^ isStableHolder.

!

logMessageHolder

    logMessageHolder isNil ifTrue:[

        logMessageHolder := LastSourceLogMessage asValue.

    ].

    ^ logMessageHolder.

!

quickCheckInHolder

    quickCheckInHolder isNil ifTrue:[

        quickCheckInHolder := true asValue.

    ].

    ^ quickCheckInHolder

!

quickCheckInVisibleHolder

    quickCheckInVisibleHolder isNil ifTrue:[

        quickCheckInVisibleHolder := false asValue.

    ].

    ^ quickCheckInVisibleHolder

!

tagHolder

    tagHolder isNil ifTrue:[

        tagHolder := '' asValue.

    ].

    ^ tagHolder

!

tagItHolder

    tagItHolder isNil ifTrue:[

        tagItHolder := false asValue.

    ].

    ^ tagItHolder

! !

!CheckinInfoDialog class methodsFor:'documentation'!

version

    ^ '$Header: /cvs/stx/stx/libtool/Tools__CheckinInfoDialog.st,v 1.3 2006-08-24 22:12:36 cg Exp $'

! !