Commits

Ryan Macnak  committed 1e0ed35

Remove .orig file that somehow found its way into commits

  • Participants
  • Parent commits 3870fd0

Comments (0)

Files changed (1)

File VCSUI.ns3.orig

-Newspeak3
-
-'StructuredVCS'
-
-
-
-class VCSUI usingPlatform: p vcs: vcs ide: ide = NewspeakObject  ("The actual source control application
-
-Copyright (c) 2010-2011 Matthias Kleine
-
-Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the ''Software''), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED ''AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-"|
-
-FileDirectory = p FileDirectory.
-SmalltalkImage = p SmalltalkImage.
-
-ExternalLauncher = p ExternalLauncher.
-UIManager = p UIManager.
-FileStream = p FileStream.
-
-
-Set = p Set.
-OrderedCollection = p OrderedCollection.
-Color = p brazil Color.
-Gradient = p brazil plumbing Gradient.
-hopscotch = p hopscotch.
-Subject = hopscotch core Subject.
-Presenter = hopscotch core Presenter.
-RowComposer = hopscotch composers RowComposer.
-ColumnComposer = hopscotch composers ColumnComposer.
-BlankFragment = hopscotch fragments BlankFragment.
-TextEditorFragment = hopscotch fragments TextEditorFragment.
-SeparatorItem = hopscotch SeparatorItem.
-Menu = hopscotch Menu.
-MenuItem = hopscotch MenuItem.
-EditableLinePresenter = hopscotch fragments EditableLinePresenter.
-ProgrammingPresenter = ide tools ProgrammingPresenter. 
-HopscotchImages = p Hopscotch HopscotchImages.
-
-vcs = vcs.
-logger = Delay computation: [vcs core logger].
-sourceMirrors = vcs sourceMirrors.
-WordMerger = vcs diffing WordMerger.
-ClassSourceMirror = vcs sourceMirrors ClassSourceMirror.
-
-STPackageSourceMirror = Delay computation: [vcs stSourceMirrors STPackageSourceMirror].
-STClassSourceMirror = Delay computation: [vcs stSourceMirrors STClassSourceMirror].
-STExtensionClassSourceMirror = Delay computation: [vcs stSourceMirrors STExtensionClassSourceMirror].
-
-
-
-backgroundColor = Color white.
-frameColor ::= Color gray: 0.5.
-
-presenters = Presenters new.
-
-SourceControlPresenter = presenters SourceControlPresenter.
-LocalRepositoryPresenter = presenters LocalRepositoryPresenter.
-RemoteRepositoryPresenter = presenters RemoteRepositoryPresenter.
-
-LocalHistorianPresenter = presenters LocalHistorianPresenter.
-RemoteHistorianPresenter = presenters RemoteHistorianPresenter.
-
-IncomingOutgoingPresenter = presenters IncomingOutgoingPresenter.
-
-HistorianRelationPresenter = presenters HistorianRelationPresenter.
-
-ImageBasedChangePresenter = presenters ImageBasedChangePresenter.
-MergeHistorianPresenter = presenters MergeHistorianPresenter.
-
-LogPresenter = presenters LogPresenter.
-VersionPresenter = presenters VersionPresenter.
-
-theModel ::= OrderedCollection new.
-|)
-
-(
-
-
-
-class BasePresenter onSubject: subject = ProgrammingPresenter onSubject: subject (
-"Provides UI elements common for source control's presenters"|
-|)
-
-('accessing'
-
-h2Color = (
-
-
-
-mediumHeadingColor = (
-
-
-
-'combinators'
-
-h1: body = (
-
-
-
-h2: body = (
-
-
-
-h3: body = (
-
-
-
-h4: body = (
-
-
-
-listPresentersOf: subjects inIncrementsOf: limit = (
-
-
-
-remainingDefinitionFor: subjects limit: limit = (
-
-
-
-'actions'
-
-refreshSCAfter: block = (
-
-
-
-)
-
-
-
-class SourceControlSubject onModel: model = Subject onModel: model (|
-title = 'New Source Control'.
-	mergingUI = MergingUI new.
-	
-	
-|)
-
-(
-
-
-
-class LocalRepositorySubject onModel: model = Subject onModel: model (|
-
-|model refresh)
-
-(
-
-
-
-class MergeHistoriansSubject onModel: model = Subject onModel: model (|
-cachedMergeSubjects
-
-version = newVersion.
-|)
-
-('as yet unclassified'
-
-createPresenter = (
-
-
-
-destinationHistorian = (
-
-
-
-mergeDestinationName = (
-
-
-
-mergeIfFail: failBlock = (
-
-
-
-mergeSourceName = (
-
-
-
-mergeSubjects = (
-
-
-
-newVersion = (
-
-
-
-sourceHistorian = (
-
-
-
-) : (
-
-'as yet unclassified'
-
-merging: sourceHistorian into: destinationHistorian = (
-
-
-
-)
-
-
-
-class RemoteHistorianSubject onModel: model = HistorianSubject onModel: model (|
-|)
-
-('as yet unclassified'
-
-createPresenter = (
-
-
-
-isTracked = (
-
-
-
-trackAs: name = (
-
-
-
-)
-
-
-
-class LogSubject onModel: model = Subject onModel: model (|
-|)
-
-('as yet unclassified'
-
-createPresenter = (
-
-
-
-versions = (
-
-
-
-)
-
-
-
-class HistorianSubject onModel: model = Subject onModel: model (|
-|)
-
-('as yet unclassified'
-
-name = (
-
-
-
-)
-
-
-
-class RemoteRepositorySubject onModel: model = Subject onModel: model (|
-|)
-
-('as yet unclassified'
-
-createPresenter = (
-
-
-
-historianSubjects = (
-
-
-
-name = (
-
-
-
-)
-
-
-
-class ImageBasedChangeSubject onModel: model = Subject onModel: model (|
-	cachedMergeSubjects
-	cachedVersion
-	newlyAddedMirrors = Set new.
-|)
-
-('as yet unclassified'
-
-addMirror: mirror = (
-
-
-
-buildVersion = (
-
-
-
-changedDiffSubjects = (
-
-
-
-clearCaches = (
-
-
-
-commit: message = (
-
-
-
-createPresenter = (
-
-
-
-hasChanges = (
-
-
-
-historian = (
-
-
-
-historianName = (
-
-
-
-mergeSubjects= (
-
-
-
-revertImage = (
-
-
-
-unversionedImageMirrors = (
-
-
-
-version = (
-
-
-
-)
-
-
-
-class LocalHistorianSubject onModel: model = HistorianSubject onModel: model (|
-
-	public trackedHistorianAccessor = TrackedHistorianAccessor new.
-|)
-
-(
-
-
-
-class IncomingOutgoingSubject onModel: otherHistorian = Subject onModel: otherHistorian (|
-
-|)
-
-('as yet unclassified'
-
-createPresenter = (
-
-
-
-incomingVersionSubjects = (
-
-
-
-otherHistorian = (
-
-
-
-otherHistorianName = (
-
-
-
-outgoingVersionSubjects = (
-
-
-
-)
-
-
-
-class TrackedHistorianAccessor = (
-"Accessing a tracked historian can be slow. Funnel all access to it through this accessor to make it possibly slow commands explicit."|
-	private cachedTrackingState
-	private cachedTrackedHistorian
-|)
-
-('as yet unclassified'
-
-computeTrackedHistorian = (
-
-
-
-errorAccessingTrackingHistorian = (
-
-
-
-isTracking = (
-
-
-
-trackedHistorian = (
-
-
-
-trackingState = (
-
-
-
-)
-
-
-
-class HistorianRelationSubject onModel: oh = Subject onModel: oh (
-"Allows interacting with other historians"|
-
-|)
-
-('as yet unclassified'
-
-canForwardOtherHistorian = (
-
-
-
-canForwardToOtherHistorian = (
-
-
-
-canMerge = (
-
-
-
-createPresenter = (
-
-
-
-forwardOtherHistorian = (
-
-
-
-forwardToOtherHistorian = (
-
-
-
-historianIsImageHistorian = (
-
-
-
-incomingVersionSubjects = (
-
-
-
-mergeFromOtherHistorianSubject = (
-
-
-
-mergeIntoOtherHistorianSubject = (
-
-
-
-otherHistorian = (
-
-
-
-otherHistorianAndRepositoryName = (
-
-
-
-otherHistorianIsImageHistorian = (
-
-
-
-outgoingVersionSubjects = (
-
-
-
-runActionOn: receiver = (
-
-
-
-)'as yet unclassified'
-
-cloneAs: cloneName ifFail: failBlock = (
-
-
-
-createPresenter = (
-
-
-
-deleteHistorianIfFail: failBlock = (
-
-
-
-historian = (
-
-
-
-historianRelationSubjects = (
-
-
-
-isImageHistorian = (
-
-
-
-loadIntoImage = (
-
-
-
-shareNamesAndActionOf: remoteRepository = (
-
-
-
-shareNamesAndActions = (
-
-
-
-)
-
-
-
-class VersionSubject onModel: model = Subject onModel: model (|
-|)
-
-('as yet unclassified'
-
-author = (
-
-
-
-createPresenter = (
-
-
-
-internalId = (
-
-
-
-isParentOfImage = (
-
-
-
-loadIntoImage = (
-
-
-
-message = (
-
-
-
-unequaldiffsFromPrevious = (
-
-
-
-)'as yet unclassified'
-
-createPresenter = (
-
-
-
-imageHistorian = (
-
-
-
-loadIfImageHistorian: historian = (
-
-
-
-localHistorianSubjects = (
-
-
-
-logSubject = (
-
-
-
-modifiedInImageSubject = (
-
-
-
-remoteRepositories = (
-
-
-
-remoteRepositorySubjects = (
-
-
-
-repository = (
-
-
-
-repositoryName = (
-
-
-
-repositoryType = (
-
-
-
-)'as yet unclassified'
-
-= other = (
-
-
-
-createPresenter = (
-
-
-
-diffSubjectOn: diff = (
-
-
-
-hash = (
-
-
-
-mergeSubjectOn: diff = (
-
-
-
-modifiedLocalRepositorySubjects = (
-
-
-
-shutdown = (
-
-
-
-sourceControlSubject = (
-
-
-
-)
-
-
-
-class MergingUI = (
-"A Hopscotch-based UI for displaying and merging 2 or 3 Newspeak source mirrors.
-
-MergeSubjects have access to different versions of the object to be presented. If set to #diff mode, their presenters only show differences between the objects. If set to #merge mode, their presenters also provide tools to choose how to merge.
-
-Several specializations of MergeSubject exist that allow diffing/merging different kinds of objects. A MirrorMergeSubject merges 2 or 3 Newspeak mirrors, represented as a TreeDiff. Specializations exists for different kinds of mirrors. A TextMergeSubject allows diffing/merging plaing strings.
-
-The UIs for diffing and merging are very similar, with the merging UI adding some features to the diffing UI. One could think of implementing the two functionalities as two sets of classes (e.g. ClassMirrorDiffSubject/Presenter and ClassMirrorMergeSubject/Presenter). It seems to be easier with only one set of classes, though. Presenter methods usually have to add new UI elements for the merging case. Currently they can simply do so by adding using ifMerging:. Using one set of classes, the mode becomes part of the model."|
-|)
-
-(
-
-
-
-class MethodMirrorMergePresenter onSubject: subject = MirrorMergePresenter onSubject: subject (|
-
-
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-)
-
-
-
-class TextMergeSubject onModel: model = MergeSubject onModel: model (|
-	title
-	manualMergeResult = merger automaticMergedOut.
-	verificationBlock
-|)
-
-('as yet unclassified'
-
-createPresenter = (
-
-
-
-defaultResult = (
-
-
-
-finalMerge = (
-
-
-
-isAddition = (
-
-
-
-isConflict = (
-
-
-
-isDeletion = (
-
-
-
-isEquals = (
-
-
-
-merger = (
-
-
-
-storeManualMerge: mergeResult ifFail: failBlock = (
-
-
-
-)
-
-
-
-class MethodMirrorMergeSubject onModel: model <TreeDiff> = MirrorMergeSubject onModel: model (|
-mergedSource = textMergeSubjectFor: #source title: title verificationBlock: [:source :failBlock | createMirrorFrom: source ifFail: failBlock].
-category = textMergeSubjectFor: #category title: 'Category of ', title.
-cachedMirror
-
-|)
-
-('as yet unclassified'
-
-createMirrorFrom: source ifFail: failBlock = (
-
-
-
-createPresenter = (
-
-
-
-mirrorIfPresent: presentBlock ifRemoved: removedBlock ifFail: failBlock = (
-
-
-
-removedAfterMerge = (
-
-
-
-textMergeSubjects = (
-
-
-
-title = (
-
-
-
-)
-
-
-
-class ClassMirrorMergeSubject onModel: model <TreeDiff> = MirrorMergeSubject onModel: model (""|
-category = textMergeSubjectFor: #category title: 'Category'.
-accessModifier = textMergeSubjectFor: #accessModifier title: 'Access Modifier'.
-name = textMergeSubjectFor: #name title: 'Name'.
-constructor = textMergeSubjectFor: #constructor title: 'Constructor'.
-superclassClause = textMergeSubjectFor: #superclassClause title: 'Superclass Clause'.
-classComment = textMergeSubjectFor: #classComment title: 'Comment'.
-slotsSource = textMergeSubjectFor: #slotsSource title: 'Slots'.
-initExpressions = textMergeSubjectFor: #initExpressions title: 'Init Expressions'.
-classes = create: self class for: #classes.
-instanceMethods = create: MethodMirrorMergeSubject for: #instanceMethods.
-classMethods = create: MethodMirrorMergeSubject for: #classMethods.
-|)
-
-('as yet unclassified'
-
-canLoadTheirs = (
-
-
-
-create: klass for: nodeType = (
-
-
-
-createPresenter = (
-
-
-
-loadTheirs = (
-
-
-
-manualMergeMirrorIfFail: failBlock = (
-
-
-
-mirrorIfPresent: presentBlock ifRemoved: removedBlock ifFail: failBlock = (
-
-
-
-mirrorMergeSubjects = (
-
-
-
-textMergeSubjects = (
-
-
-
-unequalClassMethodSubjects = (
-
-
-
-unequalClassSubjects = (
-
-
-
-unequalInstanceMethodSubjects = (
-
-
-
-) : (
-
-'as yet unclassified'
-
-diffSubjectOn: treeDiff = (
-
-
-
-onModel: treeDiff withMode: mode = (
-
-
-
-mergeSubjectOn: treeDiff = (
-
-
-
-)
-
-
-
-class MergePresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-colorIndicatingSelectionStatusForSide: side = (
-
-
-
-elasticTextDisplay: text = (
-
-
-
-headingDefinition = (
-
-
-
-headingForSide: side labeled: sideLabel = (
-
-
-
-headingLabel = (
-
-
-
-ifConflict: block = (
-
-
-
-ifMerging: block = (
-
-
-
-linkToSelectSide: side = (
-
-
-
-textDiffPresenterFor: merger = (
-
-
-
-)
-
-
-
-class SmalltalkClassMirrorMergeSubject onModel: model <TreeDiff> = MirrorMergeSubject onModel: model (""|
-category = textMergeSubjectFor: #category title: 'Category'.
-name = textMergeSubjectFor: #name title: 'Name'.
-superclassName = textMergeSubjectFor: #superclassName title: 'Superclass'.
-classComment = textMergeSubjectFor: #classComment title: 'Comment'.
-
-instanceVariables = textMergeSubjectFor: #instanceVariablesString title: 'Instance Variables'.
-classInstanceVariables = textMergeSubjectFor: #classInstanceVariablesString title: 'Class Instance Variables'.
-classPoolVariables = textMergeSubjectFor: #classPoolVariablesString title: 'Class Pool Variables'.
-sharedPoolVariables = textMergeSubjectFor: #sharedPoolVariablesString title: 'Shared Pool Variables'.
-
-instanceMethods = create: MethodMirrorMergeSubject for: #instanceMethods.
-classMethods = create: MethodMirrorMergeSubject for: #classMethods.
-|)
-
-('as yet unclassified'
-
-canLoadTheirs = (
-
-
-
-create: klass for: nodeType = (
-
-
-
-createPresenter = (
-
-
-
-manualMergeMirrorIfFail: failBlock = (
-
-
-
-mirrorIfPresent: presentBlock ifRemoved: removedBlock ifFail: failBlock = (
-
-
-
-mirrorMergeSubjects = (
-
-
-
-textMergeSubjects = (
-
-
-
-unequalClassMethodSubjects = (
-
-
-
-unequalInstanceMethodSubjects = (
-
-
-
-)
-
-
-
-class SmalltalkClassMirrorMergePresenter onSubject: subject = MirrorMergePresenter onSubject: subject (|
-	toggle
-	headerHolder
-|)
-
-('as yet unclassified'
-
-chooseSide: side = (
-
-
-
-classHeadingLabeled: labels = (
-
-
-
-definition = (
-
-
-
-detailsDefinition = (
-
-
-
-headingForSide: side labeled: sideLabel = (
-
-
-
-revertSourceLink = (
-
-
-
-sortedPresenters: subjects = (
-
-
-
-sortedPresenters: presenters  labeledIfNotEmpty: label = (
-
-
-
-updateHolders = (
-
-
-
-)
-
-
-
-class ClassMirrorMergePresenter onSubject: subject = MirrorMergePresenter onSubject: subject (|
-	toggle
-	headerHolder
-|)
-
-('as yet unclassified'
-
-chooseSide: side = (
-
-
-
-classHeadingLabeled: labels = (
-
-
-
-definition = (
-
-
-
-detailsDefinition = (
-
-
-
-headingForSide: side labeled: sideLabel = (
-
-
-
-revertSourceLink = (
-
-
-
-sortedPresenters: subjects = (
-
-
-
-sortedPresenters: presenters  labeledIfNotEmpty: label = (
-
-
-
-updateHolders = (
-
-
-
-)
-
-
-
-class PackageMirrorMergeSubject onModel: model <TreeDiff> = MirrorMergeSubject onModel: model (""|
-
-name = textMergeSubjectFor: #name title: 'Name'.
-classes = create: SmalltalkClassMirrorMergeSubject for: #classes.
-extendedClasses = create: ExtendedClassMirrorMergeSubject for: #extendedClasses.
-
-|)
-
-('as yet unclassified'
-
-canLoadTheirs = (
-
-
-
-create: klass for: nodeType = (
-
-
-
-createPresenter = (
-
-
-
-loadTheirs = (
-
-
-
-manualMergeMirrorIfFail: failBlock = (
-
-
-
-mirrorIfPresent: presentBlock ifRemoved: removedBlock ifFail: failBlock = (
-
-
-
-mirrorMergeSubjects = (
-
-
-
-textMergeSubjects = (
-
-
-
-unequalClassSubjects = (
-
-
-
-unequalExtendedClassSubjects = (
-
-
-
-)
-
-
-
-class MergeSubject onModel: model = Subject onModel: model ("A merge subjects hold the state of an tree diff or text being merged or diffed
-"|
-	currentSelection = defaultResult.
-|)
-
-('as yet unclassified'
-
-childChoseSide: side = (
-
-
-
-chooseSide: side = (
-
-
-
-defaultResult = (
-
-
-
-isChange = (
-
-
-
-isMerge = (
-
-
-
-mergeModel = (
-
-
-
-mode = (
-
-
-
-parentSubject = (
-
-
-
-)
-
-
-
-class TextMergePresenter onSubject: subject = MergePresenter onSubject: subject (|
-theToggle
-theHolder
-|)
-
-('as yet unclassified'
-
-chooseSide: side = (
-
-
-
-definition = (
-
-
-
-details = (
-
-
-
-manualMergeEditor = (
-
-
-
-mergeEditor  = (
-
-
-
-updateHolders = (
-
-
-
-)
-
-
-
-class ExtendedClassMirrorMergeSubject onModel: model <TreeDiff> = MirrorMergeSubject onModel: model (""|
-
-name = textMergeSubjectFor: #name title: 'Name'.
-instanceMethods = create: MethodMirrorMergeSubject for: #instanceMethods.
-classMethods = create: MethodMirrorMergeSubject for: #classMethods.
-|)
-
-('as yet unclassified'
-
-canLoadTheirs = (
-
-
-
-create: klass for: nodeType = (
-
-
-
-createPresenter = (
-
-
-
-manualMergeMirrorIfFail: failBlock = (
-
-
-
-mirrorIfPresent: presentBlock ifRemoved: removedBlock ifFail: failBlock = (
-
-
-
-mirrorMergeSubjects = (
-
-
-
-textMergeSubjects = (
-
-
-
-title = (
-
-
-
-unequalClassMethodSubjects = (
-
-
-
-unequalInstanceMethodSubjects = (
-
-
-
-)
-
-
-
-class ExtendedClassMirrorMergePresenter onSubject: subject = MirrorMergePresenter onSubject: subject (|
-	toggle
-	headerHolder
-|)
-
-('as yet unclassified'
-
-chooseSide: side = (
-
-
-
-classHeadingLabeled: labels = (
-
-
-
-definition = (
-
-
-
-detailsDefinition = (
-
-
-
-headingForSide: side labeled: sideLabel = (
-
-
-
-revertSourceLink = (
-
-
-
-sortedPresenters: subjects = (
-
-
-
-sortedPresenters: presenters  labeledIfNotEmpty: label = (
-
-
-
-updateHolders = (
-
-
-
-)
-
-
-
-class PackageMirrorMergePresenter onSubject: subject = MirrorMergePresenter onSubject: subject (|
-	toggle
-	headerHolder
-|)
-
-('as yet unclassified'
-
-chooseSide: side = (
-
-
-
-classHeadingLabeled: labels = (
-
-
-
-definition = (
-
-
-
-detailsDefinition = (
-
-
-
-headingForSide: side labeled: sideLabel = (
-
-
-
-revertSourceLink = (
-
-
-
-sortedPresenters: subjects = (
-
-
-
-sortedPresenters: presenters  labeledIfNotEmpty: label = (
-
-
-
-updateHolders = (
-
-
-
-)
-
-
-
-class MirrorMergeSubject onModel: model <TreeDiff> = MergeSubject onModel: model (|
-
-|)
-
-('as yet unclassified'
-
-defaultResult = (
-
-
-
-interestingChange = (
-
-
-
-isAddition = (
-
-
-
-isConflict = (
-
-
-
-isDeletion = (
-
-
-
-isEquals = (
-
-
-
-mirrorMergeSubjects = (
-
-
-
-removedAfterMerge = (
-
-
-
-sortKey = (
-
-
-
-textMergeSubjectFor: selector = (
-
-
-
-textMergeSubjectFor: selector title: title = (
-
-
-
-textMergeSubjectFor: selector title: title verificationBlock: verificationBlock = (
-
-
-
-textMergeSubjects = (
-
-
-
-title = (
-
-
-
-treeDiff = (
-
-
-
-)
-
-
-
-class MirrorMergePresenter onSubject: subject = MergePresenter onSubject: subject (|
-	
-|)
-
-()'accessing'
-
-blank: size color: color = (
-
-
-
-vblank: size color: color = (
-
-
-
-'private'
-
-presentMirrorsOf: mergeSubjects ifFail: failBlock = (
-
-
-
-)
-
-
-
-class Presenters  =  ()
-
-(
-
-
-
-class MergeHistorianPresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-)
-
-
-
-class RemoteHistorianPresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-links = (
-
-
-
-)
-
-
-
-class HistorianRelationPresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-forwardOther = (
-
-
-
-forwardToOther = (
-
-
-
-inSynch = (
-
-
-
-merge = (
-
-
-
-otherHistorianAndRepositoryName = (
-
-
-
-)
-
-
-
-class UnversionedClassesPresenter onSubject: subject <ImageBasedChangeSubject> = BasePresenter onSubject: subject ("Allows adding unversioned classes to the current image based change"|
-	private unversionedImageMirrors = subject unversionedImageMirrors.|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-header = (
-
-
-
-mirrorEntry: mirror = (
-
-
-
-refreshImageBasedChangePresenter = (
-
-
-
-)
-
-
-
-class ImageBasedChangePresenter onSubject: subject = BasePresenter onSubject: subject (|
-commitFragmentHolder
-definitionHolder
-|)
-
-('as yet unclassified'
-
-beforeCommitFragment = (
-
-
-
-cleanDefinition = (
-
-
-
-commitFragment = (
-
-
-
-definition = (
-
-
-
-definitionHolderContents = (
-
-
-
-dirtyDefinition = (
-
-
-
-hackStoreMergeHeader = (
-
-
-
-linkForLog: showLog = (
-
-
-
-refreshImageBasedChangePresenter = (
-
-
-
-unversionedClassesPresenter = (
-
-
-
-)
-
-
-
-class RemoteRepositoryPresenter onSubject: subject = BasePresenter onSubject: subject (|
-	|)
-
-('as yet unclassified'
-
-deferredHistorianPresenters = (
-
-
-
-definition = (
-
-
-
-historianPresenters = (
-
-
-
-)
-
-
-
-class TextMergePresenter onSubject: subject = MergePresenter onSubject: subject (|
-theToggle
-theHolder
-|)
-
-('as yet unclassified'
-
-chooseSide: side = (
-
-
-
-definition = (
-
-
-
-details = (
-
-
-
-manualMergeEditor = (
-
-
-
-mergeEditor  = (
-
-
-
-updateHolders = (
-
-
-
-)
-
-
-
-class LocalRepositoryPresenter onSubject: subject = BasePresenter onSubject: subject (|
-changesNotification
-messagesContainer
-inspectionHolder
-statusOrLogHolder
-statusOrLogLinkHolder
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-linkForLog: showLog = (
-
-
-
-presentAge = (
-
-
-
-presentLocalHistorians = (
-
-
-
-presentModifiedInImage = (
-
-
-
-presentRemoteRepositories = (
-
-
-
-presentTitle = (
-
-
-
-repositoryEnterSubject: newSubject = (
-
-
-
-repositoryStatusPresenter = (
-
-
-
-)
-
-
-
-class SourceControlPresenter onSubject: subject = BasePresenter onSubject: subject (|
-helpHolder
-status
-deferredContent
-inspectionHolder
-modifiedList
-updatedList
-|)
-
-('as yet unclassified'
-
-createLocalHgRepoAt: relPath <String> = (
-
-
-
-definition = (
-
-
-
-noticeAbandonment = (
-
-
-
-openLocalHgRepoAt: path = (
-
-
-
-openRemoteHgRepoAt: url <String> = (
-
-
-
-presentAddRepositories = (
-
-
-
-presentDocumentation = (
-
-
-
-presentHelp = (
-
-
-
-presentLoadImageIfOld = (
-
-
-
-presentRepositories = (
-
-
-
-refreshSCAfter: block = (
-
-
-
-respondToCloseHelp = (
-
-
-
-respondToHelp = (
-
-
-
-)
-
-
-
-class VersionPresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-loadIntoImage = (
-
-
-
-)
-
-
-
-class LocalHistorianPresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-(
-
-
-
-class EditableClonePresenter onSubject: s = EditableLinePresenter onSubject: s (|
-|)
-
-('as yet unclassified'
-
-definitionText = (
-
-
-
-respondToAccept = (
-
-
-
-viewerDefinition = (
-
-
-
-)
-
-
-
-class ChooseShareDestinationPresenter onSubject: subject = BasePresenter onSubject: subject ()
-
-('as yet unclassified'
-
-definition = (
-
-
-
-shareActionFor: action = (
-
-
-
-shareMenu = (
-
-
-
-showMenu = (
-
-
-
-viewerDefinition = (
-
-
-
-)'as yet unclassified'
-
-actionCloneHistorian = (
-
-
-
-actionDeleteHistorian = (
-
-
-
-actionLoadHistorian = (
-
-
-
-actionShareHistorian = (
-
-
-
-arrangeContent = (
-
-
-
-cloneAs: forkName ifFail: failBlock = (
-
-
-
-definition = (
-
-
-
-details = (
-
-
-
-heading = (
-
-
-
-infoTrackedHistorian = (
-
-
-
-links = (
-
-
-
-)
-
-
-
-class IncomingOutgoingPresenter onSubject: subject = BasePresenter onSubject: subject (|
-	cachedPresenters
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-ifNotEmptyStreamPresentersFor: subjects labeled: label to: stream = (
-
-
-
-isEmpty = (
-
-
-
-presenters = (
-
-
-
-)
-
-
-
-class LogPresenter onSubject: subject = BasePresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-definition = (
-
-
-
-)
-
-
-
-class CurrentLocalHistorianPresenter onSubject: subject = LocalHistorianPresenter onSubject: subject (|
-|)
-
-('as yet unclassified'
-
-arrangeContent = (
-
-
-
-heading = (
-
-
-
-))'as yet unclassified'
-
-forkAndRemember: b= (
-
-
-
-mainSubject = (
-
-
-
-'accessing'
-
-columnSeparator = (
-
-
-
-halfColumnSeparator = (
-
-
-
-)