Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__NewSystemBrowser.st
changeset 19373 8aa4679dbe04
parent 19368 09321bc5411e
child 19379 256ba1955df7 
--- a/Tools__NewSystemBrowser.st	Wed Dec 18 18:58:44 2019 +0100
+++ b/Tools__NewSystemBrowser.st	Wed Dec 18 19:04:40 2019 +0100
@@ -16,66 +16,66 @@
 "{ NameSpace: Tools }"
 
 SystemBrowser subclass:#NewSystemBrowser
-        instanceVariableNames:'environmentHolder environment navigationState bufferNameList
-                selectedBuffer buffers bufferUsageOrder browserCanvas
-                immediateUpdate showClassPackages lastMethodCategory
-                lastMethodMoveClass browserCanvasType
-                syntaxColoringProcessRunning syntaxColoringProcess
-                methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
-                isEmbedded hasNonEmptyEnvironmentSelectedHolder
-                smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
-                explainProcess'
-        classVariableNames:'AutoCreateDocumentationMethod CachedMethodsImplemented
-                CachedTagToRevisionMapping DefaultAutoFormat
-                DefaultCodeInfoVisible DefaultEmphasizeUnloadedClasses
-                DefaultHideUnloadedClasses DefaultImmediateExplaining
-                DefaultImmediateSyntaxColoring DefaultMarkApplications
-                DefaultShortAllClassesInNameSpaceOrganisation
-                DefaultShortNameInTabs DefaultShowCoverage
-                DefaultShowImageResourceMethodsImages DefaultShowMethodComplexity
-                DefaultShowMethodInheritance DefaultShowMethodTypeIcon
-                DefaultShowMultitabMode DefaultShowPseudoProtocols
-                DefaultShowSpecialResourceEditors DefaultShowSyntheticMethods
-                DefaultSyntaxColoring DefaultToolBarVisible
-                DoubleClickIsOpenBrowser FindHistory LastAcceptPackage
-                LastBaseVersionTag LastBreakPointConditionString
-                LastBreakPointOnReturnConditionString LastCategoryRenameNew
-                LastCategoryRenameOld LastCategoryRenames LastClassDocDirectory
-                LastClassFilterBlockString LastClassProcessingBlockString
-                LastClassSearchBoxShowedFullName LastClassSearchBoxShowedJavaOnly
-                LastComparedClassName LastCypressDirectory LastImportedPackage
-                LastIndividualChecks LastLintRulesHolder LastLintedPackage
-                LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
-                LastLiteralReplacementType LastLoadedPackages
-                LastMethodFilterBlockString LastMethodMoveOrCopyTargetClass
-                LastMethodProcessingBlockString LastNameSpaceMove
-                LastNewProjectType LastNewProtocols LastProjectMoves
-                LastProtocolRenames LastRemoteRepository LastRenamedNew
-                LastRenamedOld LastSearchedImplementors LastSearchedSenders
-                LastShowNameFilter LastShowSelectorNameFilter LastTag
-                LastTemporaryVariableName LastVariableRenames
-                LastVisitorClassName NewNavigationHistory RecentlyClosedList
-                SharedMethodCategoryCache
-                ShowMethodTemplateWhenProtocolIsSelected
-                SkipCompilabilityChecksForFastCheckin SynchronousUpdate
-                ShowAboutToRewriteConfirmer AlwaysDoThisIfMethodNotInList
-                LastClassSearchPattern NewestRevisionPerClass'
-        poolDictionaries:''
-        category:'Interface-Browsers-New'
+	instanceVariableNames:'environmentHolder environment navigationState bufferNameList
+		selectedBuffer buffers bufferUsageOrder browserCanvas
+		immediateUpdate showClassPackages lastMethodCategory
+		lastMethodMoveClass browserCanvasType
+		syntaxColoringProcessRunning syntaxColoringProcess
+		methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
+		isEmbedded hasNonEmptyEnvironmentSelectedHolder
+		smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
+		explainProcess'
+	classVariableNames:'AutoCreateDocumentationMethod CachedMethodsImplemented
+		CachedTagToRevisionMapping DefaultAutoFormat
+		DefaultCodeInfoVisible DefaultEmphasizeUnloadedClasses
+		DefaultHideUnloadedClasses DefaultImmediateExplaining
+		DefaultImmediateSyntaxColoring DefaultMarkApplications
+		DefaultShortAllClassesInNameSpaceOrganisation
+		DefaultShortNameInTabs DefaultShowCoverage
+		DefaultShowImageResourceMethodsImages DefaultShowMethodComplexity
+		DefaultShowMethodInheritance DefaultShowMethodTypeIcon
+		DefaultShowMultitabMode DefaultShowPseudoProtocols
+		DefaultShowSpecialResourceEditors DefaultShowSyntheticMethods
+		DefaultSyntaxColoring DefaultToolBarVisible
+		DoubleClickIsOpenBrowser FindHistory LastAcceptPackage
+		LastBaseVersionTag LastBreakPointConditionString
+		LastBreakPointOnReturnConditionString LastCategoryRenameNew
+		LastCategoryRenameOld LastCategoryRenames LastClassDocDirectory
+		LastClassFilterBlockString LastClassProcessingBlockString
+		LastClassSearchBoxShowedFullName LastClassSearchBoxShowedJavaOnly
+		LastComparedClassName LastCypressDirectory LastImportedPackage
+		LastIndividualChecks LastLintRulesHolder LastLintedPackage
+		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
+		LastLiteralReplacementType LastLoadedPackages
+		LastMethodFilterBlockString LastMethodMoveOrCopyTargetClass
+		LastMethodProcessingBlockString LastNameSpaceMove
+		LastNewProjectType LastNewProtocols LastProjectMoves
+		LastProtocolRenames LastRemoteRepository LastRenamedNew
+		LastRenamedOld LastSearchedImplementors LastSearchedSenders
+		LastShowNameFilter LastShowSelectorNameFilter LastTag
+		LastTemporaryVariableName LastVariableRenames
+		LastVisitorClassName NewNavigationHistory RecentlyClosedList
+		SharedMethodCategoryCache
+		ShowMethodTemplateWhenProtocolIsSelected
+		SkipCompilabilityChecksForFastCheckin SynchronousUpdate
+		ShowAboutToRewriteConfirmer AlwaysDoThisIfMethodNotInList
+		LastClassSearchPattern NewestRevisionPerClass'
+	poolDictionaries:''
+	category:'Interface-Browsers-New'
 !
 
 ListEntry subclass:#OwnershipGraph
-        instanceVariableNames:'ownershipInfo cachedForm'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:NewSystemBrowser
+	instanceVariableNames:'ownershipInfo cachedForm'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:NewSystemBrowser
 !
 
 Object subclass:#RevisionOwnershipInfo
-        instanceVariableNames:'revision author date lineOwnership'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:NewSystemBrowser::OwnershipGraph
+	instanceVariableNames:'revision author date lineOwnership'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:NewSystemBrowser::OwnershipGraph
 !
 
 !NewSystemBrowser class methodsFor:'documentation'!
@@ -16201,6 +16201,13 @@
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
+            enabled: hasProjectSelectedAndSourceCodeManagerHolder
+            label: 'CheckIn WinRC Files Only...'
+            itemValue: projectMenuCheckInWinRCSupportFilesUsingManagerNamed:
+            argument: CVSSourceCodeManager
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -16525,6 +16532,14 @@
             showBusyCursorWhilePerforming: true
           )
          (MenuItem
+            enabled: hasProjectSelectedAndSourceCodeManagerHolder
+            label: 'CheckIn WinRC File Only...'
+            itemValue: projectMenuCheckInWinRCSupportFilesUsingManagerNamed:
+            translateLabel: true
+            argument: SourceCodeManagerNamePlaceholder
+            showBusyCursorWhilePerforming: true
+          )
+         (MenuItem
             label: '-'
           )
          (MenuItem
@@ -43833,6 +43848,44 @@
     "Created: / 05-12-2017 / 19:58:29 / cg"
 !
 
+projectMenuCheckInWinRCSupportFilesForProject:packageID definition:defClass usingManager:mgr
+    (mgr ? (AbstractSourceCodeManager managerForPackage:packageID)) utilities
+        checkinPackage:packageID classes:false extensions:false 
+        buildSupport:true winRCOnly:true     
+        askForMethodsInOtherPackages:false
+        onBranch:nil.
+!
+
+projectMenuCheckInWinRCSupportFilesForProject:packageID usingManager: manager
+    |defClass|
+
+    defClass := ProjectDefinition definitionClassForPackage:packageID createIfAbsent:false.
+    defClass isNil ifTrue:[
+        defClass := self projectDefinitionDialogFor:packageID.
+        defClass isNil ifTrue:[ ^ self ].
+        defClass compileDescriptionMethods.
+    ].
+
+    self projectMenuCheckInWinRCSupportFilesForProject:packageID definition:defClass usingManager:manager
+
+
+!
+
+projectMenuCheckInWinRCSupportFilesUsingManager: manager
+    self selectedProjectsDo:[:packageToCheckIn |
+        self projectMenuCheckInWinRCSupportFilesForProject:packageToCheckIn usingManager: manager
+    ]
+
+    "Created: / 09-08-2006 / 19:04:52 / fm"
+    "Created: / 15-10-2011 / 22:31:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 21-12-2011 / 20:18:34 / cg"
+    "Modified: / 24-01-2012 / 13:02:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+projectMenuCheckInWinRCSupportFilesUsingManagerNamed: sourceCodeManagerClassName
+    ^self projectMenuCheckInWinRCSupportFilesUsingManager: (self sourceCodeManagerNamed:sourceCodeManagerClassName)
+!
+
 projectMenuCheckOntoBranchUsingManager: manager
     |branchesInAllPackages branchName first|
hg/stx-libtool