checkInInfoDialogClass

    ^P4CheckinInfoDialog

!

askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer

    "open a dialog asking for a source container;

     return a dictionary containing module, package and filename,

     or nil if canceled."

    |box y component answer

     moduleHolder packageHolder fileNameHolder

     module package fileName

     knownContainers knownPackages packageUpdater

     packageBoxComponent fileNameBoxComponent fileNameUpdater|

    knownContainers := Set new.

    Smalltalk allClassesDo:[:cls | |pckg|

	pckg := cls package.

	pckg size > 0 ifTrue:[

	    knownContainers add:(pckg upTo:$:)

	]

    ].

    knownContainers := knownContainers asOrderedCollection.

    knownContainers := knownContainers select:[:module | module isBlank not].

    knownContainers sort.

    packageUpdater := [

	|theModulePrefix|

	theModulePrefix := moduleHolder value , ':'.

	Cursor wait showWhile:[

	    knownPackages := Set new.

	    Smalltalk allClassesDo:[:cls | |pckg idx|

		pckg := cls package.

		pckg size > 0 ifTrue:[

		    (pckg startsWith:theModulePrefix) ifTrue:[

			idx := pckg indexOf:$:.

			knownPackages add:(pckg copyFrom:idx + 1)

		    ]

		]

	    ].

	    knownPackages := knownPackages asOrderedCollection.

	    knownPackages := knownPackages select:[:package | package isBlank not].

	    knownPackages sort.

	    packageBoxComponent list:knownPackages.

	].

    ].

    fileNameUpdater := [

	|module package files|

	Cursor read showWhile:[

	    module := moduleHolder value ? (PackageId noProjectID).

	    package := packageHolder value ? (PackageId noProjectID).

	    files := PerforceSourceCodeManager getExistingContainersInModule:module directory:package.

	    files := files asOrderedCollection.

	    files := files select:[:eachFile | eachFile asFilename hasSuffix:'st'].

	    files sort.

	    fileNameBoxComponent list:files.

	].

    ].

    moduleHolder := initialModule asValue.

    packageHolder := initialPackage asValue.

    fileNameHolder := initialFileName asValue.

    resources := self classResources.

    "/

    "/ open a dialog for this

    "/

    box := DialogBox new.

    box label:title.

    component := box addTextLabel:boxText withCRs.

    component adjust:#left; borderWidth:0.

    box addVerticalSpace.

    box addVerticalSpace.

    y := box yPosition.

    component := box addTextLabel:(resources string:'Module:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    component := box addComboBoxOn:moduleHolder tabable:true.

    component list:knownContainers.

"/    component := box addInputFieldOn:moduleHolder tabable:true.

    component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.

    box addVerticalSpace.

    y := box yPosition.

    component := box addTextLabel:(resources string:'Package:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true.

"/    component := box addInputFieldOn:packageHolder tabable:true.

    component width:0.6; left:0.4; "immediateAccept:true; "acceptOnLeave:true; cursorMovementWhenUpdating:#beginOfLine.

    packageUpdater value.

    moduleHolder onChangeEvaluate:packageUpdater.

    box addVerticalSpace.

    y := box yPosition.

    component := box addTextLabel:(resources string:'Filename:').

    component width:0.4; adjust:#right.

    box yPosition:y.

    forNewContainer ifTrue:[

	component := box addInputFieldOn:fileNameHolder tabable:true.

	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.

    ] ifFalse:[

	fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true.

	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.

	fileNameUpdater value.

	packageHolder onChangeEvaluate:fileNameUpdater.

    ].

    box addVerticalSpace.

    notice notNil ifTrue:[

	component := box addTextLabel:notice.

	component adjust:#left; borderWidth:0.

    ].

    box addVerticalSpace.

    box addAbortAndOkButtons.

    (YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[

	component := Button label:'Yes to all'.

	component action:[

			    YesToAllNotification queryWith:true.

			    box doAccept.

			    box okPressed.

			 ].

	(DialogBox defaultOKButtonAtLeft) ifTrue:[

	    box addButton:component after:nil.

	] ifFalse:[

	    box addButton:component before:nil.

	].

    ].

    (AbortAllSignal isHandled) ifTrue:[

	component := Button label:'Cancel all'.

	component action:[

			    box hide.

			    AbortAllSignal raiseSignal.

			 ].

	(DialogBox defaultOKButtonAtLeft) ifTrue:[

	    box addButton:component before:nil.

	] ifFalse:[

	    box addButton:component after:nil.

	].

    ].

    (YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[

	answer := YesToAllQuery query.

    ].

    answer isNil ifTrue:[

	box showAtPointer.

	answer := box accepted

    ].

    box destroy.

    answer ifFalse:[

	^ nil

    ].

    module := moduleHolder value withoutSpaces.

    package := packageHolder value withoutSpaces.

    fileName := fileNameHolder value withoutSpaces.

    ^ Dictionary new

	at:#module put:module;

	at:#package put:package;

	at:#fileName put:fileName;

	yourself

    "

     self

	askForContainer:'enter container' title:'container' note:'some note'

	initialModule:'foo' initialPackage:'bar' initialFileName:'baz'

    "

    "Modified: / 23-08-2006 / 14:13:04 / cg"

!

    resources := self classResources.

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

	^ false.

	mgr := self sourceCodeManagerFor:aClass.

	mgr isNil ifTrue:[

	    ^ false

	]

	(self

	    getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil

	    forClass:aClass

	    valuesInto:[:logMessageRet :checkinInfoRet |

		logMessage := logMessageRet.

		checkinInfo := checkinInfoRet.

		checkinInfo notNil ifTrue:[

		    doSubmit := checkinInfo submitHolder value.

		].

	    ]

	) ifFalse:[^ false].

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

	    ^ false

	].

	^ true.

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

		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.

	].

!

defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer

    "let user specify the source-repository values for aClass"

    |className

     "oldModule oldPackage" oldFileName

     module directory fileName nameSpace nameSpacePrefix

     info project nm creatingNew msg

     answer doCheckinWithoutAsking forceCheckIn rslt note

     requiredPackage projectDefinitionClass packageId|

    mgr isNil ifTrue:[^  false].

    resources := self classResources.

    aClass isLoaded ifFalse:[

	self warn:(resources string:'Please load the %1-class first' with:aClass name).

	^ false.

    ].

    className := aClass name.

    aClass isProjectDefinition ifTrue:[

	"/ no way - their package is already known and fix.

	module := aClass module.

	directory := aClass moduleDirectory.

    ] ifFalse:[

	"/

	"/ defaults, if nothing at all is known

	"/

	projectDefinitionClass := aClass projectDefinitionClass.

	projectDefinitionClass notNil ifTrue:[

	    packageId := PackageId from:projectDefinitionClass package.

	    module := packageId module.

	    directory := packageId directory.

	] ifFalse:[

	    (module := LastModule) isNil ifTrue:[

		module := (OperatingSystem getLoginName).

	    ].

	    (directory := LastPackage) isNil ifTrue:[

		directory := 'private'.

	    ].

	].

    ].

    "/

    "/ try to extract some useful defaults from the current project

    "/

    (Project notNil and:[(project := Project current) notNil]) ifTrue:[

	directory isNil ifTrue:[

	    (nm := project repositoryDirectory) isNil ifTrue:[

		nm := project name

	    ].

	    directory := nm.

	].

	module isNil ifTrue:[

	    (nm := project repositoryModule) notNil ifTrue:[

		module := nm

	    ]

	].

    ].

    "/

    "/ ask the sourceCodeManager if it knows anything about that class

    "/ if so, take that as a default.

    "/

    info := mgr sourceInfoOfClass:aClass.

    info notNil ifTrue:[

	true "module ~= LastModule" ifTrue:[

	    (info includesKey:#module) ifTrue:[

		module := (info at:#module).

	    ].

	].

"/        true "package ~= LastPackage" ifTrue:[

"/            (info includesKey:#directory) ifTrue:[

"/                package := (info at:#directory).

"/            ].

"/        ].

	fileName := mgr containerFromSourceInfo:info.

	(nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[

	    nameSpacePrefix := nameSpace name , '::'.

	    (fileName startsWith:nameSpacePrefix) ifTrue:[

		fileName := fileName copyFrom:(nameSpacePrefix size + 1).

	    ]

	].

"/        (info includesKey:#fileName) ifTrue:[

"/            fileName := (info at:#fileName).

"/        ] ifFalse:[

"/            (info includesKey:#expectedFileName) ifTrue:[

"/                fileName := (info at:#expectedFileName).

"/            ] ifFalse:[

"/                (info includesKey:#classFileNameBase) ifTrue:[

"/                    fileName := (info at:#classFileNameBase) , '.st'.

"/                ]

"/            ]

"/        ]

    ].

    fileName isNil ifTrue:[

	fileName := (Smalltalk fileNameForClass:aClass) , '.st'.

    ].

    OperatingSystem isMSDOSlike ifTrue:[

	module replaceAll:$\ with:$/.

	directory replaceAll:$\ with:$/.

    ].

    "/

    "/ check for conflicts (i.e. if such a container already exists) ...

    "/

    doCheckinWithoutAsking := false.

"/false ifTrue:[

"/    (mgr checkForExistingContainer:fileName inModule:module directory:directory) ifTrue:[

"/        answer := Dialog confirmWithCancel:(resources

"/                            string:'About to change the source container.

"/

"/Notice: there is a container for %1 in:

"/

"/    %2 / %3 / %4

"/

"/Do you want to change it or check right into that container ?'

"/                            with:className

"/                            with:module

"/                            with:directory

"/                            with:fileName)

"/                labels:(resources array:#('Cancel' 'Check in' 'Change')).

"/        answer isNil ifTrue:[AbortSignal raise].

"/        answer ifTrue:[

"/            doCheckinWithoutAsking := false.

"/            oldModule := module.

"/            oldPackage := directory.

"/            oldFileName := fileName

"/        ] ifFalse:[

"/            doCheckinWithoutAsking := true.

"/            creatingNew := false.

"/        ].

"/    ].

"/].

    mgr isContainerBased ifTrue:[

	doCheckinWithoutAsking ifFalse:[

	    "/

	    "/ open a dialog for this

	    "/

	    (mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[

		note := 'Notice: class seems to have no container yet.'.

		creatingNew := true.

	    ] ifTrue:[

		creatingNew := false.

	    ].