Mercurial Mercurial > hg > stx-libtool / comparison
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 11542 ee8d1edf2ce5
parent 11529 3d943384d373
child 11545 f2b972648fc5
equal deleted inserted replaced
11541:38db4600d050 11542:ee8d1edf2ce5 
    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:'navigationState bufferNameList selectedBuffer buffers
 
    17 	instanceVariableNames:'navigationState bufferNameList selectedBuffer buffers
 
    18                 bufferUsageOrder browserCanvas immediateUpdate showClassPackages
 
    18 		bufferUsageOrder browserCanvas immediateUpdate showClassPackages
 
    19                 lastMethodCategory lastMethodMoveClass browserCanvasType
 
    19 		lastMethodCategory lastMethodMoveClass browserCanvasType
 
    20                 syntaxColoringProcessRunning syntaxColoringProcess
 
    20 		syntaxColoringProcessRunning syntaxColoringProcess
 
    21                 methodInfoProcess browsletShowHideLabelHolder browserPageCanvas'
 
    21 		methodInfoProcess browsletShowHideLabelHolder browserPageCanvas'
 
    22         classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
 
    22 	classVariableNames:'LastNewProtocols LastProtocolRenames LastCategoryRenames
 
    23                 LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
 
    23 		LastCategoryRenameOld LastCategoryRenameNew LastProjectMoves
 
    24                 LastNameSpaceMove LastMethodMoveOrCopyTargetClass
 
    24 		LastNameSpaceMove LastMethodMoveOrCopyTargetClass
 
    25                 LastClassFilterBlockString LastMethodFilterBlockString
 
    25 		LastClassFilterBlockString LastMethodFilterBlockString
 
    26                 LastBreakPointConditionString LastIndividualChecks
 
    26 		LastBreakPointConditionString LastIndividualChecks
 
    27                 LastAcceptPackage LastVariableRenames LastVisitorClassName
 
    27 		LastAcceptPackage LastVariableRenames LastVisitorClassName
 
    28                 LastTemporaryVariableName BookMarks FindHistory
 
    28 		LastTemporaryVariableName BookMarks FindHistory
 
    29                 CheckForInstancesWhenRemovingClasses SynchronousUpdate
 
    29 		CheckForInstancesWhenRemovingClasses SynchronousUpdate
 
    30                 DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
 
    30 		DoubleClickIsOpenBrowser ShowMethodTemplateWhenProtocolIsSelected
 
    31                 DefaultShowMethodTemplate DefaultShowMethodInheritance
 
    31 		DefaultShowMethodTemplate DefaultShowMethodInheritance
 
    32                 DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
 
    32 		DefaultEmphasizeUnloadedClasses DefaultImmediateSyntaxColoring
 
    33                 DefaultImmediateExplaining DefaultSyntaxColoring
 
    33 		DefaultImmediateExplaining DefaultSyntaxColoring
 
    34                 DefaultToolBarVisible DefaultCodeInfoVisible
 
    34 		DefaultToolBarVisible DefaultCodeInfoVisible
 
    35                 DefaultShortNameInTabs DefaultHideUnloadedClasses
 
    35 		DefaultShortNameInTabs DefaultHideUnloadedClasses
 
    36                 DefaultMarkApplications DefaultAutoFormat
 
    36 		DefaultMarkApplications DefaultAutoFormat
 
    37                 DefaultShowMethodComplexity DefaultShowMethodTypeIcon
 
    37 		DefaultShowMethodComplexity DefaultShowMethodTypeIcon
 
    38                 DefaultShowSpecialResourceEditors SharedMethodCategoryCache
 
    38 		DefaultShowSpecialResourceEditors SharedMethodCategoryCache
 
    39                 LastMethodProcessingBlockString LastLoadedPackages
 
    39 		LastMethodProcessingBlockString LastLoadedPackages
 
    40                 DefaultShortAllClassesInNameSpaceOrganisation LastTag
 
    40 		DefaultShortAllClassesInNameSpaceOrganisation LastTag
 
    41                 LastBaseVersionTag DefaultShowPseudoProtocols
 
    41 		LastBaseVersionTag DefaultShowPseudoProtocols
 
    42                 DefaultShowMultitabMode LastRenamedOld LastRenamedNew
 
    42 		DefaultShowMultitabMode LastRenamedOld LastRenamedNew
 
    43                 LastImportedPackage LastLintRules NewNavigationHistory
 
    43 		LastImportedPackage LastLintRules NewNavigationHistory
 
    44                 DefaultSortByNameAndInheritance LastLiteralReplacementType
 
    44 		DefaultSortByNameAndInheritance LastLiteralReplacementType
 
    45                 LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
 
    45 		LastLiteralReplacementNewName LastLiteralReplacementOldLiteral
 
    46                 LastNewProjectType'
 
    46 		LastNewProjectType'
 
    47         poolDictionaries:''
 
    47 	poolDictionaries:''
 
    48         category:'Interface-Browsers-New'
 
    48 	category:'Interface-Browsers-New'
 
    49 !
 
    49 !
 
    50 
    50 
    51 !NewSystemBrowser class methodsFor:'documentation'!
 
    51 !NewSystemBrowser class methodsFor:'documentation'!
 
    52 
    52 
    53 aboutThisApplicationText
 
    53 aboutThisApplicationText
 
 14411             enabled: hasClassesSelectedAndPerforceRepositoryExistsHolder
 
 14411             enabled: hasClassesSelectedAndPerforceRepositoryExistsHolder
 
 14412             isVisible: perforceRepositoryMenusAreShown
 
 14412             isVisible: perforceRepositoryMenusAreShown
 
 14413             label: 'Perforce'
 
 14413             label: 'Perforce'
 
 14414             translateLabel: true
 
 14414             translateLabel: true
 
 14415             submenuChannel: classPerforceMenu
 
 14415             submenuChannel: classPerforceMenu
 
 14416             labelImage: (ResourceRetriever ToolbarIconLibrary repositorySVNIcon 'Perforce')
 
 14416             labelImage: (ResourceRetriever ToolbarIconLibrary repositoryP4Icon 'Perforce')
 
 14417           )
 
 14417           )
 
 14418          (MenuItem
 
 14418          (MenuItem
 
 14419             enabled: hasClassesSelectedAndFileBasedRepositoryExistsHolder
 
 14419             enabled: hasClassesSelectedAndFileBasedRepositoryExistsHolder
 
 14420             label: 'File Repository'
 
 14420             label: 'File Repository'
 
 14421             isVisible: fileBasedRepositoryMenusAreShown
 
 14421             isVisible: fileBasedRepositoryMenusAreShown
 
 14638             isVisible: hasNoSourceCodeManagerHolder
 
 14638             isVisible: hasNoSourceCodeManagerHolder
 
 14639           )
 
 14639           )
 
 14640          (MenuItem
 
 14640          (MenuItem
 
 14641             enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
 
 14641             enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
 
 14642             label: 'CheckIn...'
 
 14642             label: 'CheckIn...'
 
 14643             itemValue: classMenuCheckIn
 
 14643             itemValue: classMenuCheckInP4
 
 14644             translateLabel: true
 
 14644             translateLabel: true
 
 14645             labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
 
 14645             labelImage: (ResourceRetriever ToolbarIconLibrary repositoryCheckIn 'CheckIn...')
 
 14646             showBusyCursorWhilePerforming: true
 
 14646             showBusyCursorWhilePerforming: true
 
 14647           )
 
 14647           )
 
 14648          (MenuItem
 
 14648          (MenuItem
 
 14668           )
 
 14668           )
 
 14669          (MenuItem
 
 14669          (MenuItem
 
 14670             enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
 
 14670             enabled: hasProjectDefinitionSelectedAndSourceCodeManagerHolder
 
 14671             label: 'CheckIn Build Support Files...'
 
 14671             label: 'CheckIn Build Support Files...'
 
 14672             itemValue: classMenuCheckInBuildSupportFiles
 
 14672             itemValue: classMenuCheckInBuildSupportFiles
 
       
 14673             translateLabel: true
 
       
 14674             showBusyCursorWhilePerforming: true
 
       
 14675           )
 
       
 14676          (MenuItem
 
       
 14677             enabled: hasClassSelectedHolderAndSourceCodeManagerHolder
 
       
 14678             label: 'Submit...'
 
       
 14679             itemValue: classMenuPerforceSubmit
 
 14673             translateLabel: true
 
 14680             translateLabel: true
 
 14674             showBusyCursorWhilePerforming: true
 
 14681             showBusyCursorWhilePerforming: true
 
 14675           )
 
 14682           )
 
 14676          (MenuItem
 
 14683          (MenuItem
 
 14677             label: '-'
 
 14684             label: '-'
 
 16261       )
 
 16268       )
 
 16262 
 16269 
 16263     "Modified: / 29-09-2006 / 16:11:08 / cg"
 
 16270     "Modified: / 29-09-2006 / 16:11:08 / cg"
 
 16264 ! !
 
 16271 ! !
 
 16265 
 16272 
 16266 
       
 16267 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
 16273 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
 16268 
 16274 
 16269 categoryPopUpMenu
 
 16275 categoryPopUpMenu
 
 16270     "return the popUpMenu for the class-category-list view"
 
 16276     "return the popUpMenu for the class-category-list view"
 
 16271 
 16277 
 28836                           values:#(false #browse #renameAndBrowse #rename #renameAndRewrite )
 
 28842                           values:#(false #browse #renameAndBrowse #rename #renameAndRewrite )
 
 28837                           default:#renameAndRewrite
 
 28843                           default:#renameAndRewrite
 
 28838                           onCancel:false.
 
 28844                           onCancel:false.
 
 28839         ].
 
 28845         ].
 
 28840 
 28846 
 28841         (answer == #browse or:[answer == #renameAndBrowse]) ifTrue:[
 
 28847         (answer == #browse) ifTrue:[
 
 28842             browser := self 
 28848             browser := self 
 28843                             spawnMethodBrowserFor:referingMethods 
 28849                             spawnMethodBrowserFor:referingMethods 
 28844                             in:#newBuffer 
 28850                             in:#newBuffer 
 28845                             label:(resources string:'Methods referring to %1' with:oldSym)
 
 28851                             label:(resources string:'Methods referring to %1' with:oldSym)
 
 28846         ].
 
 28852         ].
 
 28847         (answer == #rename or:[answer == #renameAndBrowse]) ifTrue:[
 
 28853         (answer == #rename or:[answer == #renameAndBrowse]) ifTrue:[
 
 28848             Smalltalk renameClass:currentClass to:newNameString.
 
 28854             Smalltalk renameClass:currentClass to:newNameString.
 
 28849             browser := self 
 28855             answer == #renameAndBrowse ifTrue:[
 
       
 28856                 browser := self 
 28850                             spawnMethodBrowserFor:referingMethods 
 28857                             spawnMethodBrowserFor:referingMethods 
 28851                             in:#newBuffer 
 28858                             in:#newBuffer 
 28852                             label:(resources string:'Methods referring to %1 which was renamed to %2' with:oldSym with:newNameString)
 
 28859                             label:(resources string:'Methods referring to %1 which was renamed to %2' with:oldSym with:newNameString)
 
       
 28860             ].
 
 28853         ].
 
 28861         ].
 
 28854         answer == #renameAndRewrite ifTrue:[
 
 28862         answer == #renameAndRewrite ifTrue:[
 
 28855             refactoring := RenameClassRefactoring renameClassNamed:oldSym to:newNameString.
 
 28863             refactoring := RenameClassRefactoring renameClassNamed:oldSym to:newNameString.
 
 28856             self performRefactoring:refactoring.
 
 28864             self performRefactoring:refactoring.
 
 28857             referingMethods := SystemBrowser 
 28865             referingMethods := SystemBrowser 
 28875             currentClass setClassFilename:nil.
 
 28883             currentClass setClassFilename:nil.
 
 28876             SourceCodeManagerUtilities createSourceContainerForClass:(Smalltalk at:newNameString asSymbol)
 
 28884             SourceCodeManagerUtilities createSourceContainerForClass:(Smalltalk at:newNameString asSymbol)
 
 28877         ]
 
 28885         ]
 
 28878     ].
 
 28886     ].
 
 28879 
 28887 
 28880     "Modified: / 30-05-2012 / 09:47:53 / cg"
 
 28888     "Modified: / 01-06-2012 / 10:30:08 / cg"
 
 28881 !
 
 28889 !
 
 28882 
 28890 
 28883 classMenuRewrite
 
 28891 classMenuRewrite
 
 28884     MethodRewriter new
 
 28892     MethodRewriter new
 
 28885         classes: self selectedClassesValue;
 
 28893         classes: self selectedClassesValue;
 
 31249             buildSupport:false
 
 31257             buildSupport:false
 
 31250             askForMethodsInOtherPackages:false
 
 31258             askForMethodsInOtherPackages:false
 
 31251     ]
 
 31259     ]
 
 31252 
 31260 
 31253     "Modified: / 08-09-2011 / 04:07:58 / cg"
 
 31261     "Modified: / 08-09-2011 / 04:07:58 / cg"
 
       
 31262 !
 
       
 31263 
       
 31264 classMenuCheckInP4
 
       
 31265     "check a class into the source repository (with checks)"
 
       
 31266 
       
 31267     PerforceSourceCodeManager notNil ifTrue:[
 
       
 31268         self classMenuCheckInUsingManager:PerforceSourceCodeManager
 
       
 31269     ].
 
       
 31270 
       
 31271     "Modified: / 21-12-2011 / 18:20:40 / cg"
 
 31254 !
 
 31272 !
 
 31255 
 31273 
 31256 classMenuCheckInUsingManager:aManagerOrNil
 
 31274 classMenuCheckInUsingManager:aManagerOrNil
 
 31257     "check a class into the source repository (with checks)"
 
 31275     "check a class into the source repository (with checks)"
 
 31258 
 31276 
 35853     ^ brwsr
 
 35871     ^ brwsr
 
 35854 
 35872 
 35855     "Modified: / 28-02-2012 / 16:27:44 / cg"
 
 35873     "Modified: / 28-02-2012 / 16:27:44 / cg"
 
 35856 ! !
 
 35874 ! !
 
 35857 
 35875 
 35858 
       
 35859 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 35876 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 35860 
 35877 
 35861 nameSpaceMenuCheckOut
 
 35878 nameSpaceMenuCheckOut
 
 35862     "check-out all classes in the selected nameSpace from the source repository.
 
 35879     "check-out all classes in the selected nameSpace from the source repository.
 
 35863      Individually ask for class revisions.
 
 35880      Individually ask for class revisions.
 
 36093     self selectedNonMetaclassesDo:[:eachClass |
 
 36110     self selectedNonMetaclassesDo:[:eachClass |
 
 36094         eachClass isProjectDefinition ifTrue:[
 
 36111         eachClass isProjectDefinition ifTrue:[
 
 36095             self projectMenuFileOutBuildSupportFilesForProject:eachClass package
 
 36112             self projectMenuFileOutBuildSupportFilesForProject:eachClass package
 
 36096         ]
 
 36113         ]
 
 36097     ]
 
 36114     ]
 
       
 36115 !
 
       
 36116 
       
 36117 classMenuPerforceSubmit
 
       
 36118 
       
 36119     |utilities|
 
       
 36120 
       
 36121     PerforceSourceCodeManager notNil ifTrue:[
 
       
 36122         utilities := PerforceSourceCodeManager utilities.
 
       
 36123 
       
 36124         self withActivityNotificationsRedirectedToInfoLabelDo:[
 
       
 36125             utilities submit.
 
       
 36126         ].
 
       
 36127     ]
 
       
 36128     "Created: / 09-08-2006 / 19:04:52 / fm"
 
       
 36129     "Modified: / 12-09-2006 / 13:53:28 / cg"
 
 36098 !
 
 36130 !
 
 36099 
 36131 
 36100 generatePatchSetForClasses:classes
 
 36132 generatePatchSetForClasses:classes
 
 36101     "ask for two tags, generate a patchSet to bring a baseSystem (tag1) to the
 
 36133     "ask for two tags, generate a patchSet to bring a baseSystem (tag1) to the
 
 36102      level of the tag2 version"
 
 36134      level of the tag2 version"
 
 56760 ! !
 
 56792 ! !
 
 56761 
 56793 
 56762 !NewSystemBrowser class methodsFor:'documentation'!
 
 56794 !NewSystemBrowser class methodsFor:'documentation'!
 
 56763 
 56795 
 56764 version
 
 56796 version
 
 56765     ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1747 2012-05-31 10:15:15 cg Exp $'
 
 56797     ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1748 2012-06-01 11:07:23 cg Exp $'
 
 56766 !
 
 56798 !
 
 56767 
 56799 
 56768 version_CVS
 
 56800 version_CVS
 
 56769     ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1747 2012-05-31 10:15:15 cg Exp $'
 
 56801     ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1748 2012-06-01 11:07:23 cg Exp $'
 
 56770 !
 
 56802 !
 
 56771 
 56803 
 56772 version_SVN
 
 56804 version_SVN
 
 56773     ^ '§Id: Tools__NewSystemBrowser.st 7817 2011-08-18 09:38:28Z vranyj1 §'
 
 56805     ^ '§Id: Tools__NewSystemBrowser.st 7817 2011-08-18 09:38:28Z vranyj1 §'
 
 56774 ! !
 
 56806 ! !
hg/stx-libtool