"{ Package: 'stx:libtool' }"

SourceCodeManagerUtilities subclass:#PerforceSourceCodeManagerUtilities

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'System-SourceCodeManagement'

!

SimpleDialog subclass:#P4CheckinInfoDialog

	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder

		quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage

		warningMessageHolder logHistory logHistoryHeadLineSelectionHolder

		submitHolder'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities

!

SimpleDialog subclass:#SubmitInfoDialog

	instanceVariableNames:'descriptionHolder logMessageHolder isStableHolder tagHolder

		quickCheckInHolder quickCheckInVisibleHolder allowEmptyLogMessage

		warningMessageHolder filesHolder tagItInHolder'

	classVariableNames:'LastSourceLogMessage'

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities

!

Object subclass:#WorkSpace

	instanceVariableNames:'client host owner root views perforceSettings temporaryWorkSpace

		tempDirectory'

	classVariableNames:'PerforceCommandSemaphore'

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities

!

Object subclass:#View

	instanceVariableNames:'depot local workspace type'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PerforceSourceCodeManagerUtilities::WorkSpace

!

!PerforceSourceCodeManagerUtilities class methodsFor:'class access'!

submitInfoDialogClass

    ^ SubmitInfoDialog

    "Created: / 01-06-2012 / 11:09:15 / cg"

!

workSpaceClass

    ^ WorkSpace

    "Created: / 01-06-2012 / 11:13:49 / cg"

! !

!PerforceSourceCodeManagerUtilities methodsFor:'utilities-cvs'!

checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:managerOrNil

    "check a class into the source repository.

     If the argument, aLogInfoOrNil isNil, ask interactively for log-message.

     If doCheckClass is true, the class is checked for send of halts etc."

    |logMessage checkinInfo mgr pri doSubmit|

    resources := self classResources.

    doSubmit := false.

    aClass isLoaded ifFalse:[

        self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name).

        ^ false.

    ].

    mgr := managerOrNil.

    mgr isNil ifTrue:[

        mgr := self sourceCodeManagerFor:aClass.

        mgr isNil ifTrue:[

            ^ false

        ]

    ].

    self ensureCorrectVersionMethodsInClass:aClass usingManager:mgr.

    mgr supportsCheckinLogMessages ifTrue:[

        (self 

            getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil 

            forClass:aClass

            valuesInto:[:logMessageRet :checkinInfoRet |

                logMessage := logMessageRet.

                checkinInfo := checkinInfoRet.

                checkinInfo notNil ifTrue:[

                    doSubmit := checkinInfo submitHolder value.

                ].

            ]

        ) ifFalse:[^ false].

    ].

    (self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[

        (self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[

"/            self warn:'did not create a container for ''' , aClass name , ''''.

            ^ false

        ].

        ^ true.

    ].

    self activityNotification:(resources string:'checking in %1' with:aClass name).

    pri := Processor activePriority.

    Processor activeProcess withPriority:pri-1 to:pri

    do:[

        |revision aborted|

        aborted := false.

        AbortOperationRequest handle:[:ex |

            aborted := true.

            ex return.

        ] do:[

            |checkinState cause|

            checkinState := false.

            cause := ''.

            [

                checkinState := mgr checkinClass:aClass logMessage:logMessage submit:doSubmit

            ] on:SourceCodeManagerError do:[:ex| 

self halt.

                cause := ex description.

                ex proceed.

            ].

            checkinState ifFalse:[

                Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.

                self warn:(resources stringWithCRs:'Checkin of "%1" failed\\' with:aClass name allBold),cause.

                ^ false.

            ].

            checkinInfo notNil ifTrue:[

                checkinInfo isStable ifTrue:[

                    "set stable tag for class that has been checked in"

                    self tagClass:aClass as:#stable.

                ].

                checkinInfo tagIt ifTrue:[

                    "set an additional tag for class that has been checked in"

                    self tagClass:aClass as:(checkinInfo tag).

                ].

            ].

        ].

        aborted ifTrue:[  |con|

            Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'.

            AbortAllOperationWantedQuery query ifTrue:[

                (Dialog 

                    confirm:(resources stringWithCRs:'Checkin of "%1" aborted.\\Cancel all ?' with:aClass name)

                    default:false)

                ifTrue:[

                    AbortAllOperationRequest raise.

                ]

            ].

            ^ false.

        ].

    ].

    ^ true

    "Created: / 21-12-2011 / 18:19:14 / cg"

! !

!PerforceSourceCodeManagerUtilities methodsFor:'utilities-p4'!

submit

    self defaultManager submit

! !

!PerforceSourceCodeManagerUtilities methodsFor:'utilities-p4-interaction'!

getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption

    "ask for a log message for checking in a class (plus checkinQuick state info),

     and other info (mark as stable, for example).

     Return the info-object (actually: the dialog) or nil if aborted."

    |logMsg infoDialog|

    infoDialog := self defaultManager checkInInfoDialogClass 

                getCheckinInfoFor:aClassNameOrPackageNameString 

                initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)

                withQuickOption:withQuickOption.

    infoDialog notNil ifTrue:[

        logMsg := infoDialog logMessage.

        logMsg notEmptyOrNil ifTrue:[

            LastSourceLogMessage := logMsg

        ].

    ].

    ^ infoDialog

    "

     SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'

    "

    "Modified: / 06-07-2010 / 11:21:28 / cg"

! !

!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog 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:]

"

! !

!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog 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:PerforceSourceCodeManager::P4CheckinInfoDialog andSelector:#windowSpec

     PerforceSourceCodeManager::P4CheckinInfoDialog new openInterface:#windowSpec

     PerforceSourceCodeManager::P4CheckinInfoDialog open

    "

    <resource: #canvas>

    ^ 

     #(FullSpec

        name: windowSpec

        window: 

       (WindowSpec

          label: 'Enter Log Message'

          name: 'Enter Log Message'

          min: (Point 10 10)

          bounds: (Rectangle 0 0 800 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 -125 1)

              model: logMessageHolder

              hasHorizontalScrollBar: true

              hasVerticalScrollBar: true

              hasKeyboardFocusInitially: false

            )

           (LabelSpec

              name: 'Label4'

              layout: (LayoutFrame 0 0.0 -119 1 0 1.0 -97 1)

              translateLabel: true

              labelChannel: warningMessageHolder

            )

           (CheckBoxSpec

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

              name: 'CheckInChangedOnlyCheckbox'

              layout: (LayoutFrame 3 0 -95 1 -3 0.5 -73 1)

              visibilityChannel: quickCheckInVisibleHolder

              model: quickCheckInHolder

              translateLabel: true

            )

           (CheckBoxSpec

              label: 'Mark as Stable'

              name: 'MarkStableCheckBox'

              layout: (LayoutFrame 3 0 -68 1 -3 1 -46 1)

              model: isStableHolder

              translateLabel: true

            )

           (LabelSpec

              label: 'Tag:'

              name: 'Label3'

              layout: (LayoutFrame -40 0.5 -67 1 0 0.5 -45 1)

              translateLabel: true

              adjust: right

            )

           (InputFieldSpec

              name: 'TagEntryField'

              layout: (LayoutFrame 0 0.5 -68 1 -3 1 -46 1)

              enableChannel: tagItInHolder

              model: tagHolder

              acceptOnReturn: true

              acceptOnTab: true

              acceptOnLostFocus: true

              acceptOnPointerLeave: false

            )

           (HorizontalPanelViewSpec

              name: 'ButtonPanel1'

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

              horizontalLayout: fitSpace

              verticalLayout: center

              horizontalSpace: 3

              verticalSpace: 2

              reverseOrderIfOKAtLeft: true

              component: 

             (SpecCollection

                collection: (

                 (ActionButtonSpec

                    label: 'Cancel'

                    name: 'Button2'

                    translateLabel: true

                    model: doCancel

                    extent: (Point 395 22)

                  )

                 (ActionButtonSpec

                    label: 'OK'

                    name: 'Button1'

                    translateLabel: true

                    model: doAccept

                    extent: (Point 396 22)

                  )

                 )

              )

            )

           (CheckBoxSpec

              label: 'Immediate Submit'

              name: 'CheckBox1'

              layout: (LayoutFrame 3 0.5 -95 1 -3 1 -73 1)

              model: submitHolder

              translateLabel: true

            )

           )

        )

      )

! !

!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog class methodsFor:'opening'!

getCheckinInfoFor:aString initialAnswer:initialAnswer

    ^ self 

        getCheckinInfoFor:aString 

        initialAnswer:initialAnswer 

        withQuickOption:false

    "

      self getCheckinInfoFor:'hello' initialAnswer:'bla'

    "

    "Modified (format): / 12-03-2012 / 12:38:48 / cg"

!

getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption

    ^ self

        getCheckinInfoFor:aClassNameOrPackageNameString 

        initialAnswer:initialAnswer 

        withQuickOption:withQuickOption

        logHistory:#()

    "

     self getCheckinInfoFor:'hello' initialAnswer:'bla'

    "

    "Modified: / 12-03-2012 / 12:39:00 / cg"

!

getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswer withQuickOption:withQuickOption logHistory:logHistoryArg

    |dialog warnMessage|

    warnMessage := nil.

    [

        dialog := self new.

        dialog 

            description:aClassNameOrPackageNameString; 

            logMessage:initialAnswer;

            withQuickOption:withQuickOption;

            logHistory:logHistoryArg.

        dialog warningMessageHolder value:warnMessage.

        dialog open.

        dialog accepted ifFalse:[ ^ nil ].

    ] doUntil:[

        |stopAsking|

        stopAsking := dialog allowEmptyLogMessage 

                      or:[ dialog logMessage withoutSeparators notEmptyOrNil ].

        stopAsking ifFalse:[

            warnMessage := (self resources string:'Please enter a description of your changes!!') 

                                asText 

                                    colorizeAllWith:Color red.

        ].

        stopAsking

    ].

    ^ dialog    

    "

     self getCheckinInfoFor:'hello' initialAnswer:'bla'

    "

    "Created: / 12-03-2012 / 12:36:26 / cg"

! !

!PerforceSourceCodeManagerUtilities::P4CheckinInfoDialog methodsFor:'accessing'!

allowEmptyLogMessage

    ^ allowEmptyLogMessage ? false

    "Created: / 06-07-2010 / 11:23:18 / cg"

!

allowEmptyLogMessage:aBoolean 

    allowEmptyLogMessage := aBoolean

    "Created: / 06-07-2010 / 11:23:31 / cg"

!

description

    ^ self descriptionHolder value

!

description:aString

    self descriptionHolder value:aString allBold

!

isStable

    ^ self isStableHolder value

!

isStable:aBoolean

    self isStableHolder value:aBoolean

!

logHistory:something

    logHistory := something.

!

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

    self tagHolder value:aStringOrNil