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.
VersionDiffBrowser.st
branchjv
changeset 12254 b1237f76f501
parent 12229 5c129972b1fd
child 12262 d25ef6bb0ef3
equal deleted inserted replaced
12253:6d3eedcdb4c1 12254:b1237f76f501 
  1633 
  1633 
  1634     |m changeClassName useChangesString selectorString
 
  1634     |m changeClassName useChangesString selectorString
 
  1635      singleComparedClass singleComparedClassesName singleComparedMetaclassesName|
 
  1635      singleComparedClass singleComparedClassesName singleComparedMetaclassesName|
 
  1636 
  1636 
  1637     (singleComparedClass := self classBeingCompared) notNil ifTrue:[
 
  1637     (singleComparedClass := self classBeingCompared) notNil ifTrue:[
 
  1638 	singleComparedClassesName := singleComparedClass name.
 
  1638         singleComparedClassesName := singleComparedClass name.
 
  1639 	singleComparedMetaclassesName := singleComparedClass theMetaclass name.
 
  1639         singleComparedMetaclassesName := singleComparedClass theMetaclass name.
 
  1640     ].
 
  1640     ].
 
  1641 
  1641 
  1642     aChange isClassDefinitionChange ifTrue:[
 
  1642     aChange isClassDefinitionChange ifTrue:[
 
  1643 	^ aChange printStringWithoutClassName
 
  1643         ^ aChange printStringWithoutClassName
 
  1644     ].
 
  1644     ].
 
  1645     aChange isDoIt ifTrue:[
 
  1645     aChange isDoIt ifTrue:[
 
  1646 	^ aChange source , ' (doIt)'
 
  1646         ^ aChange source , ' (doIt)'
 
  1647     ].
 
  1647     ].
 
  1648     aChange isNameSpaceCreationChange ifTrue:[
 
  1648     aChange isNameSpaceCreationChange ifTrue:[
 
  1649 	^ aChange source
 
  1649         ^ aChange source
 
  1650     ].
 
  1650     ].
 
  1651 
  1651 
  1652     changeClassName := aChange className.
 
  1652     changeClassName := aChange className.
 
  1653     changeClassName isNil ifTrue:[
 
  1653     changeClassName isNil ifTrue:[
 
  1654 	^ aChange source
 
  1654         ^ aChange source
 
  1655     ].
 
  1655     ].
 
  1656     useChangesString := false.
 
  1656     useChangesString := false.
 
  1657 
  1657 
  1658     (changeClassName = singleComparedClassesName) ifTrue:[
 
  1658     (changeClassName = singleComparedClassesName) ifTrue:[
 
  1659 	changeClassName := ''.
 
  1659         changeClassName := ''.
 
  1660 	useChangesString := true.
 
  1660         useChangesString := true.
 
  1661     ] ifFalse:[
 
  1661     ] ifFalse:[
 
  1662 	(changeClassName = singleComparedMetaclassesName) ifTrue:[
 
  1662         (changeClassName = singleComparedMetaclassesName) ifTrue:[
 
  1663 	    changeClassName := 'class '.
 
  1663             changeClassName := 'class '.
 
  1664 	    useChangesString := true.
 
  1664             useChangesString := true.
 
  1665 	] ifFalse:[
 
  1665         ] ifFalse:[
 
  1666 	    ((changeClassName includes:$:) and:[ changeClassName startsWith:((singleComparedClassesName ? ''),'::') ]) ifTrue:[
 
  1666             ((changeClassName includes:$:) and:[ changeClassName startsWith:((singleComparedClassesName ? ''),'::') ]) ifTrue:[
 
  1667 		changeClassName := changeClassName copyFrom:(singleComparedClassesName,'::') size+1.
 
  1667                 changeClassName := changeClassName copyFrom:(singleComparedClassesName,'::') size+1.
 
  1668 	    ].
 
  1668             ].
 
  1669 	].
 
  1669         ].
 
  1670     ].
 
  1670     ].
 
  1671 
  1671 
  1672     selectorString := ''.
 
  1672     selectorString := ''.
 
  1673     (aChange isMethodChange
 
  1673     (aChange isMethodChange) ifTrue:[
 
  1674     and:[ aChange changeClass notNil ]) ifTrue:[
 
  1674         selectorString := aChange selector.
 
  1675 	selectorString := aChange selector.
 
  1675         aChange changeClass notNil ifTrue:[
 
  1676 	m := aChange changeMethod.
 
  1676             m := aChange changeMethod.
 
  1677 	m notNil ifTrue:[
 
  1677             m notNil ifTrue:[
 
  1678 	    m := m originalMethodIfWrapped.
 
  1678                 m := m originalMethodIfWrapped.
 
  1679 	    selectorString := m printStringForBrowserWithSelector:aChange selector inClass:aChange changeClass.
 
  1679                 selectorString := m printStringForBrowserWithSelector:aChange selector inClass:aChange changeClass.
 
  1680 	].
 
  1680             ].
 
  1681 	selectorString := ' ',selectorString
 
  1681         ].
 
       
  1682         selectorString := ' ',selectorString
 
  1682     ].
 
  1683     ].
 
  1683 
  1684 
  1684     aChange isMethodCategoryChange ifTrue:[
 
  1685     aChange isMethodCategoryChange ifTrue:[
 
  1685 	^ changeClassName,selectorString, ' (category)'
 
  1686         ^ changeClassName,selectorString, ' (category)'
 
  1686     ].
 
  1687     ].
 
  1687     ^ changeClassName,selectorString
 
  1688     ^ changeClassName,selectorString
 
  1688 
  1689 
  1689     "Modified: / 24-11-2011 / 12:11:02 / cg"
 
  1690     "Modified: / 01-06-2012 / 11:04:10 / cg"
 
  1690 !
 
  1691 !
 
  1691 
  1692 
  1692 resetSelectionHolders
 
  1693 resetSelectionHolders
 
  1693     "
 
  1694     "
 
  1694     reset all selection holders when a new change set is given.
 
  1695     reset all selection holders when a new change set is given.
 
  2293 ! !
 
  2294 ! !
 
  2294 
  2295 
  2295 !VersionDiffBrowser class methodsFor:'documentation'!
 
  2296 !VersionDiffBrowser class methodsFor:'documentation'!
 
  2296 
  2297 
  2297 version
 
  2298 version
 
  2298     ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.104 2012/03/22 08:32:02 cg Exp $'
 
  2299     ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.105 2012/06/01 10:43:13 cg Exp $'
 
  2299 !
 
  2300 !
 
  2300 
  2301 
  2301 version_CVS
 
  2302 version_CVS
 
  2302     ^ '§Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.104 2012/03/22 08:32:02 cg Exp §'
 
  2303     ^ '§Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.105 2012/06/01 10:43:13 cg Exp §'
 
  2303 !
 
  2304 !
 
  2304 
  2305 
  2305 version_SVN
 
  2306 version_SVN
 
  2306     ^ '$Id: VersionDiffBrowser.st 7978 2012-04-13 13:15:47Z vranyj1 $'
 
  2307     ^ '$Id: VersionDiffBrowser.st 8007 2012-06-05 14:49:00Z vranyj1 $'
 
  2307 ! !
 
  2308 ! !
hg/stx-libtool