Tools__NewSystemBrowser.st
changeset 17082 f467b7bbb88c
parent 17081 becbe52d1c67
child 17089 11cd8ad86d5f
equal deleted inserted replaced
17081:becbe52d1c67 17082:f467b7bbb88c
    12 "{ Package: 'stx:libtool' }"
    12 "{ Package: 'stx:libtool' }"
    13 
    13 
    14 "{ NameSpace: Tools }"
    14 "{ NameSpace: Tools }"
    15 
    15 
    16 SystemBrowser subclass:#NewSystemBrowser
    16 SystemBrowser subclass:#NewSystemBrowser
    17 	instanceVariableNames:'environmentHolder environment navigationState bufferNameList
    17         instanceVariableNames:'environmentHolder environment navigationState bufferNameList
    18 		selectedBuffer buffers bufferUsageOrder browserCanvas
    18                 selectedBuffer buffers bufferUsageOrder browserCanvas
    19 		immediateUpdate showClassPackages lastMethodCategory
    19                 immediateUpdate showClassPackages lastMethodCategory
    20 		lastMethodMoveClass browserCanvasType
    20                 lastMethodMoveClass browserCanvasType
    21 		syntaxColoringProcessRunning syntaxColoringProcess
    21                 syntaxColoringProcessRunning syntaxColoringProcess
    22 		methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
    22                 methodInfoProcess browsletShowHideLabelHolder browserPageCanvas
    23 		isEmbedded hasNonEmptyEnvironmentSelectedHolder
    23                 isEmbedded hasNonEmptyEnvironmentSelectedHolder
    24 		smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
    24                 smalllintRulesOrAllHolder smalllintRulesOrDefaultHolder
    25 		explainProcess'
    25                 explainProcess'
    26 	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
    26         classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
    27 		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
    27                 LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
    28 		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
    28                 LastNameSpaceMove LastMethodMoveOrCopyTargetClass
    29 		LastClassFilterBlockString LastMethodFilterBlockString
    29                 LastClassFilterBlockString LastMethodFilterBlockString
    30 		LastBreakPointConditionString LastIndividualChecks
    30                 LastBreakPointConditionString LastIndividualChecks
    31 		LastAcceptPackage LastVariableRenames LastVisitorClassName
    31                 LastAcceptPackage LastVariableRenames LastVisitorClassName
    32 		LastTemporaryVariableName FindHistory SynchronousUpdate
    32                 LastTemporaryVariableName FindHistory SynchronousUpdate
    33 		DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
    33                 DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
    34 		DefaultShowMethodInheritance DefaultEmphasizeUnloadedClasses
    34                 DefaultShowMethodInheritance DefaultEmphasizeUnloadedClasses
    35 		DefaultImmediateSyntaxColoring DefaultImmediateExplaining
    35                 DefaultImmediateSyntaxColoring DefaultImmediateExplaining
    36 		DefaultSyntaxColoring DefaultToolBarVisible
    36                 DefaultSyntaxColoring DefaultToolBarVisible
    37 		DefaultCodeInfoVisible DefaultShortNameInTabs
    37                 DefaultCodeInfoVisible DefaultShortNameInTabs
    38 		DefaultHideUnloadedClasses DefaultMarkApplications
    38                 DefaultHideUnloadedClasses DefaultMarkApplications
    39 		DefaultAutoFormat DefaultShowMethodComplexity
    39                 DefaultAutoFormat DefaultShowMethodComplexity
    40 		DefaultShowMethodTypeIcon DefaultShowSpecialResourceEditors
    40                 DefaultShowMethodTypeIcon DefaultShowSpecialResourceEditors
    41 		DefaultShowSyntheticMethods SharedMethodCategoryCache
    41                 DefaultShowSyntheticMethods SharedMethodCategoryCache
    42 		LastMethodProcessingBlockString LastLoadedPackages
    42                 LastMethodProcessingBlockString LastLoadedPackages
    43 		DefaultShortAllClassesInNameSpaceOrganisation LastBaseVersionTag
    43                 DefaultShortAllClassesInNameSpaceOrganisation LastBaseVersionTag
    44 		LastTag DefaultShowPseudoProtocols DefaultShowMultitabMode
    44                 LastTag DefaultShowPseudoProtocols DefaultShowMultitabMode
    45 		LastRenamedOld LastRenamedNew LastImportedPackage
    45                 LastRenamedOld LastRenamedNew LastImportedPackage
    46 		LastLintRulesHolder NewNavigationHistory
    46                 LastLintRulesHolder NewNavigationHistory
    47 		LastLiteralReplacementType LastLiteralReplacementNewName
    47                 LastLiteralReplacementType LastLiteralReplacementNewName
    48 		LastLiteralReplacementOldLiteral LastNewProjectType
    48                 LastLiteralReplacementOldLiteral LastNewProjectType
    49 		LastClassProcessingBlockString RecentlyClosedList
    49                 LastClassProcessingBlockString RecentlyClosedList
    50 		LastClassSearchBoxShowedFullName CachedTagToRevisionMapping
    50                 LastClassSearchBoxShowedFullName CachedTagToRevisionMapping
    51 		CachedMethodsImplemented LastCypressDirectory
    51                 CachedMethodsImplemented LastCypressDirectory
    52 		LastClassSearchBoxShowedJavaOnly LastRemoteRepository
    52                 LastClassSearchBoxShowedJavaOnly LastRemoteRepository
    53 		LastClassDocDirectory DefaultShowCoverage LastLintedPackage
    53                 LastClassDocDirectory DefaultShowCoverage LastLintedPackage
    54 		LastSearchedImplementors LastSearchedSenders
    54                 LastSearchedImplementors LastSearchedSenders
    55 		LastComparedClassName'
    55                 LastComparedClassName'
    56 	poolDictionaries:''
    56         poolDictionaries:''
    57 	category:'Interface-Browsers-New'
    57         category:'Interface-Browsers-New'
    58 !
    58 !
    59 
    59 
    60 ListEntry subclass:#OwnershipGraph
    60 ListEntry subclass:#OwnershipGraph
    61 	instanceVariableNames:'ownershipInfo cachedForm'
    61         instanceVariableNames:'ownershipInfo cachedForm'
    62 	classVariableNames:''
    62         classVariableNames:''
    63 	poolDictionaries:''
    63         poolDictionaries:''
    64 	privateIn:NewSystemBrowser
    64         privateIn:NewSystemBrowser
    65 !
    65 !
    66 
    66 
    67 Object subclass:#RevisionOwnershipInfo
    67 Object subclass:#RevisionOwnershipInfo
    68 	instanceVariableNames:'revision author date lineOwnership'
    68         instanceVariableNames:'revision author date lineOwnership'
    69 	classVariableNames:''
    69         classVariableNames:''
    70 	poolDictionaries:''
    70         poolDictionaries:''
    71 	privateIn:NewSystemBrowser::OwnershipGraph
    71         privateIn:NewSystemBrowser::OwnershipGraph
    72 !
    72 !
    73 
    73 
    74 !NewSystemBrowser class methodsFor:'documentation'!
    74 !NewSystemBrowser class methodsFor:'documentation'!
    75 
    75 
    76 aboutThisApplicationText
    76 aboutThisApplicationText
 29789     "remove all changes for the selected class(es) from the changeSet"
 29789     "remove all changes for the selected class(es) from the changeSet"
 29790 
 29790 
 29791     UserPreferences current avoidConfirmationsForExperiencedUsers ifFalse:[
 29791     UserPreferences current avoidConfirmationsForExperiencedUsers ifFalse:[
 29792         DialogBox 
 29792         DialogBox 
 29793             withOptoutOption:[ UserPreferences current avoidConfirmationsForExperiencedUsers:true]
 29793             withOptoutOption:[ UserPreferences current avoidConfirmationsForExperiencedUsers:true]
 29794             labelled:'Do not show this confirmation again'
 29794             labelled:(resources string:'Do not show this confirmation again')
 29795             do:[
 29795             do:[
 29796                 (self confirm:'This will remove all changes for the selected class(es) from the changeSet.\\Really cleanup ?' withCRs)
 29796                 (self confirm:(resources stringWithCRs:'This will remove all changes for the selected class(es) from the changeSet.\\Really cleanup ?'))
 29797                      ifFalse:[ ^ self].
 29797                      ifFalse:[ ^ self].
 29798             ].
 29798             ].
 29799     ].
 29799     ].
 29800 
 29800 
 29801     self withWaitCursorDo:[
 29801     self withWaitCursorDo:[
 29802         self selectedClassesDo:[:eachClass |
 29802         self selectedClassesDo:[:eachClass |
 29803             ChangeSet current condenseChangesForClass:eachClass
 29803             ChangeSet current condenseChangesForClass:eachClass
 29804         ].
 29804         ].
 29805     ]
 29805     ]
 29806 
 29806 
 29807     "Modified: / 18-11-2016 / 01:44:30 / cg"
 29807     "Modified: / 18-11-2016 / 11:28:12 / cg"
 29808 !
 29808 !
 29809 
 29809 
 29810 classMenuComment
 29810 classMenuComment
 29811     "show a classes comment"
 29811     "show a classes comment"
 29812 
 29812