1618 doApply

  1619     "user wants a change to be applied"

  1620 

  1621     self withSelectedChangesDo:[:changeNr |

  1622         (self applyChange:changeNr) ifFalse:[

  1623             ^ self "/ cancel

  1624         ].

  1625         self autoSelect:(changeNr + 1)

  1626     ]

  1627 !

  1628 

  1629 doApplyAll

  1630     "user wants all changes to be applied"

  1631 

  1632     self withExecuteCursorDo:[

  1633         |lastNr "{ Class: SmallInteger }" |

  1634 

  1635         self clearCodeView.

  1636         lastNr := self numberOfChanges.

  1637 

  1638         "if we apply multiple changes, and an error occurs,

  1639          ask the user if all operations should be aborted..."

  1640         multipleApply := lastNr > 1.

  1641 

  1642         1 to:lastNr do:[:changeNr |

  1643             changeListView setSelection:changeNr.

  1644             self applyChange:changeNr

  1645         ].

  1646         self autoSelectLast

  1647     ]

  1648 

  1649     "Modified: 21.1.1997 / 22:26:30 / cg"

  1650 !

  1651 

  1652 doApplyClassFromBeginning

  1653     "user wants all changes for this class from 1 to changeNr to be applied"

  1654 

  1655     self withSingleSelectedChangeDo:[:changeNr |

  1656         |thisClassName classNameToApply lastChange

  1657          lastNr "{ Class: SmallInteger }" |

  1658 

  1659         classNameToApply := self classNameOfChange:changeNr.

  1660         classNameToApply notNil ifTrue:[

  1661             self clearCodeView.

  1662 

  1663             "if we apply multiple changes, and an error occurs,

  1664              ask the user if all operations should be aborted..."

  1665             multipleApply := changeNr ~= 1.

  1666 

  1667             1 to:changeNr do:[:changeNr |

  1668                 thisClassName := self classNameOfChange:changeNr.

  1669                 thisClassName = classNameToApply ifTrue:[

  1670                     changeListView setSelection:changeNr.

  1671                     self applyChange:changeNr.

  1672                     lastChange := changeNr

  1673                 ].

  1674             ].

  1675             self autoSelect:changeNr+1.

  1676         ]

  1677     ]

  1678 

  1679     "Modified: 21.1.1997 / 22:26:04 / cg"

  1680 !

  1681 

  1682 doApplyClassRest

  1683     "user wants all changes for this class from changeNr to be applied"

  1684 

  1685     self withSingleSelectedChangeDo:[:changeNr |

  1686         |thisClassName classNameToApply lastChange

  1687          lastNr "{ Class: SmallInteger }" |

  1688 

  1689         classNameToApply := self classNameOfChange:changeNr.

  1690         classNameToApply notNil ifTrue:[

  1691             self clearCodeView.

  1692 

  1693             lastNr := self numberOfChanges.

  1694 

  1695             "if we apply multiple changes, and an error occurs,

  1696              ask the user if all operations should be aborted..."

  1697             multipleApply := (lastNr - changeNr) > 1.

  1698 

  1699             changeNr to:lastNr do:[:changeNr |

  1700                 thisClassName := self classNameOfChange:changeNr.

  1701                 thisClassName = classNameToApply ifTrue:[

  1702                     changeListView setSelection:changeNr.

  1703                     self applyChange:changeNr.

  1704                     lastChange := changeNr

  1705                 ].

  1706             ].

  1707             self autoSelect:lastChange.

  1708         ]

  1709     ]

  1710 

  1711     "Modified: 21.1.1997 / 22:26:04 / cg"

  1712 !

  1713 

  1714 doApplyFromBeginning

  1715     "user wants all changes from 1 to changeNr to be applied"

  1716 

  1717     self withSingleSelectedChangeDo:[:changeNr |

  1718         |lastNr "{ Class: SmallInteger }" |

  1719 

  1720         self clearCodeView.

  1721 

  1722         "if we apply multiple changes, and an error occurs,

  1723          ask the user if all operations should be aborted..."

  1724         multipleApply := changeNr ~= 1.

  1725 

  1726         1 to:changeNr do:[:changeNr |

  1727             changeListView setSelection:changeNr.

  1728             self applyChange:changeNr

  1729         ].

  1730         self autoSelect:changeNr+1.

  1731     ]

  1732 !

  1733 

  1734 doApplyRest

  1735     "apply all changes from changeNr to the end"

  1736 

  1737     self withSingleSelectedChangeDo:[:changeNr |

  1738         |lastNr "{ Class: SmallInteger }" |

  1739 

  1740         self clearCodeView.

  1741 

  1742         lastNr := self numberOfChanges.

  1743 

  1744         "if we apply multiple changes, and an error occurs,

  1745          ask the user if all operations should be aborted..."

  1746         multipleApply := (lastNr - changeNr) > 1.

  1747 

  1748         changeNr to:lastNr do:[:changeNr |

  1749             changeListView setSelection:changeNr.

  1750             self applyChange:changeNr

  1751         ].

  1752         self autoSelect:self numberOfChanges.

  1753     ]

  1754 

  1755     "Modified: 21.1.1997 / 22:25:29 / cg"

  1756 !

  1757 

  1758 doApplyToConflictOrEnd

  1759     "apply all changes from changeNr to either a conflict (i.e. method exists)

  1760      or the end."

  1761 

  1762     self withSingleSelectedChangeDo:[:changeNr |

  1763         |lastNr "{ Class: SmallInteger }"|

  1764 

  1765         self clearCodeView.

  1766 

  1767         lastNr := self numberOfChanges.

  1768 

  1769         "if we apply multiple changes, and an error occurs,

  1770          ask the user if all operations should be aborted..."

  1771         multipleApply := (lastNr - changeNr) > 1.

  1772 

  1773         changeNr to:lastNr do:[:changeNr |

  1774             | cls sel |

  1775             changeListView setSelection:changeNr.

  1776 

  1777             ((cls := self classOfChange:changeNr ifAbsent:[:className| nil]) notNil

  1778             and:[(sel := self selectorOfMethodChange:changeNr) notNil])

  1779             ifTrue:[

  1780                 (cls includesSelector:sel) ifTrue:[

  1781                     self autoSelect:changeNr.

  1782                     ^ self

  1783                 ].

  1784             ].

  1785             self applyChange:changeNr

  1786         ].

  1787         self autoSelect:self numberOfChanges.

  1788     ]

  1789 !

  1790 

  1791 doBrowse

  1792     "user wants a browser on the class of a change"

  1793 

  1794     self withSingleSelectedChangeDo:[:changeNr |

  1795 	|cls|

  1796 

  1797 	cls := self classOfChange:changeNr.

  1798 	cls notNil ifTrue:[

  1799 	    UserPreferences systemBrowserClass

  1800 		openInClass:cls

  1801 		selector:(self selectorOfMethodChange:changeNr)

  1802 	]

  1803     ]

  1804 !

  1805 

  1806 doBrowseImplementors

  1807     "open an implementors-browser"

  1808 

  1809     |changeNr initial selector|

  1810 

  1811     (changeNr := self theSingleSelection) notNil ifTrue:[

  1812 	initial := self selectorOfMethodChange:changeNr.

  1813     ].

  1814 

  1815     selector := Dialog

  1816 		    request:'Selector to browse implementors of:'

  1817 		    initialAnswer:(initial ? '').

  1818     selector size ~~ 0 ifTrue:[

  1819 	UserPreferences systemBrowserClass

  1820 	    browseImplementorsMatching:selector.

  1821     ]

  1822 !

  1823 

  1824 doBrowseSenders

  1825     "user wants a browser on the class of a change"

  1826 

  1827     |changeNr initial selector|

  1828 

  1829     (changeNr := self theSingleSelection) notNil ifTrue:[

  1830 	initial := self selectorOfMethodChange:changeNr.

  1831     ].

  1832 

  1833     selector := Dialog

  1834 		    request:'Selector to browse senders of:'

  1835 		    initialAnswer:(initial ? '').

  1836     selector size ~~ 0 ifTrue:[

  1837 	UserPreferences systemBrowserClass

  1838 	    browseAllCallsOn:selector asSymbol.

  1839     ]

  1840 !

  1841 

  1842 doCheckinAndDeleteClassAll

  1843     "first checkin the selected changes class then delete all changes

  1844      for it."

  1845 

  1846     |classes answer logTitle checkinInfo|

  1847 

  1848 "/    self theSingleSelection isNil ifTrue:[

  1849 "/        ^ self information:'Only possible if a single change is selected.'.

  1850 "/    ].

  1851 

  1852     self withExecuteCursorDo:[

  1853         classes := IdentitySet new.

  1854 

  1855         self withSelectedChangesDo:[:changeNr |

  1856             | className class |

  1857 

  1858             className := self classNameOfChange:changeNr.

  1859             className notNil ifTrue:[

  1860                 class := Smalltalk classNamed:className.

  1861                 class isNil ifTrue:[

  1862                     self error:'oops - no class: ', className mayProceed:true.

  1863                 ].

  1864                 class notNil ifTrue:[

  1865                     class := class theNonMetaclass.

  1866                     (classes includes:class) ifFalse:[

  1867                         class isPrivate ifTrue:[

  1868                             (classes includes:class owningClass) ifFalse:[

  1869                                 answer := self confirmWithCancel:('This is a private class.\\CheckIn the owner ''%1'' and all of its private classes ?'

  1870                                                                     bindWith:class owningClass name allBold) withCRs.

  1871                                 answer isNil ifTrue:[^ self].

  1872                                 answer ifTrue:[

  1873                                     classes add:class owningClass

  1874                                 ]

  1875                             ]

  1876                         ] ifFalse:[

  1877                             classes add:class

  1878                         ].

  1879                     ]

  1880                 ]

  1881             ]

  1882         ].

  1883 

  1884         classes size == 1 ifTrue:[

  1885             logTitle := classes first name.

  1886         ] ifFalse:[

  1887             logTitle := '%1 classes' bindWith:classes size.

  1888         ].

  1889         checkinInfo := SourceCodeManagerUtilities default

  1890                         getCheckinInfoFor:logTitle

  1891                         initialAnswer:nil.

  1892         checkinInfo isNil ifTrue:[^ self ].

  1893 

  1894         changeListView setSelection:nil.

  1895         classes do:[:eachClass |

  1896             (SourceCodeManagerUtilities default checkinClass:eachClass withInfo:checkinInfo)

  1897                 ifTrue:[

  1898                     self silentDeleteChangesForClassAndPrivateClasses:eachClass name

  1899                            from:1 to:(self numberOfChanges).

  1900                 ]

  1901         ].

  1902         self setChangeList.

  1903     ]

  1904 

  1905     "Modified: / 6.9.1995 / 17:11:16 / claus"

  1906     "Modified: / 17.11.2001 / 14:21:13 / cg"

  1907 !

  1908 

  1909 doCompare

  1910     "compare change with current system version"

  1911 

  1912     classesNotToBeAutoloaded removeAll.

  1913 

  1914     self withSingleSelectedChangeDo:[:changeNr |

  1915         self withExecuteCursorDo:[

  1916             self compareChange:changeNr

  1917         ].

  1918         self newLabel:''

  1919     ].

  1920 

  1921     "Modified: 24.2.1996 / 19:37:19 / cg"

  1922 !

  1923 

  1924 doCompareAndCompress

  1925     "remove all changes, which are equivalent to the current image version"

  1926 

  1927     |toDelete|

  1928 

  1929     classesNotToBeAutoloaded removeAll.

  1930     toDelete := OrderedCollection new.

  1931     self withExecuteCursorDo:[

  1932         1 to:self numberOfChanges do:[:changeNr |

  1933             (self compareChange:changeNr showResult:false) == true ifTrue:[

  1934                 toDelete add:changeNr

  1935             ]

  1936         ].

  1937     ].

  1938 

  1939     toDelete reverseDo:[:changeNr |

  1940         self silentDeleteChange:changeNr.

  1941     ].

  1942     self setChangeList.

  1943     "

  1944      scroll back a bit, if we are left way behind the list

  1945     "

  1946     changeListView firstLineShown > self numberOfChanges ifTrue:[

  1947         changeListView makeLineVisible:self numberOfChanges

  1948     ].

  1949     self clearCodeView.

  1950 

  1951     self newLabel:''.

  1952     classesNotToBeAutoloaded removeAll.

  1953 !

  1954 

  1955 doCompress

  1956     "compress the change-set; this replaces multiple method-changes by the last

  1957      (i.e. the most recent) change"

  1958 

  1959     self compressForClass:nil

  1960 

  1961     "Modified: / 29.10.1997 / 01:03:26 / cg"

  1962 !

  1963 

  1964 doCompressClass

  1965     "compress changes for the selected class.

  1966      this replaces multiple method-changes by the last (i.e. the most recent) change."

  1967 

  1968     self theSingleSelection isNil ifTrue:[

  1969 	^ self information:'Only possible if a single change is selected.'.

  1970     ].

  1971 

  1972     self selectedClassNames do:[:classNameToCompress |

  1973 	self compressForClass:classNameToCompress.

  1974     ]

  1975 

  1976     "Created: / 29.10.1997 / 01:05:16 / cg"

  1977     "Modified: / 19.11.2001 / 21:55:17 / cg"

  1978 !

  1979 

  1980 doCompressSelector

  1981     "compress changes for the selected class & selector.

  1982      this replaces multiple method-changes by the last (i.e. the most recent) change."

  1983 

  1984     |classSelectorPairs|

  1985 

  1986     self theSingleSelection isNil ifTrue:[

  1987 	^ self information:'Only possible if a single change is selected.'.

  1988     ].

  1989 

  1990     classSelectorPairs := Set new.

  1991     self withSelectedChangesDo:[:changeNr |

  1992 	| classNameToCompress selector |

  1993 

  1994 	classNameToCompress := self classNameOfChange:changeNr.

  1995 	classNameToCompress notNil ifTrue:[

  1996 	    selector := self selectorOfMethodChange:changeNr.

  1997 	    selector notNil ifTrue:[

  1998 		classSelectorPairs add:(classNameToCompress -> selector).

  1999 	    ]

  2000 	]

  2001     ].

  2002 

  2003     classSelectorPairs do:[:pair |

  2004 	self compressForClass:pair key selector:pair value.

  2005     ]

  2006 

  2007     "Created: / 19.11.2001 / 21:50:59 / cg"

  2008     "Modified: / 19.11.2001 / 22:10:08 / cg"

  2009 !

  2010 

  2011 doDelete

  2012     "delete currently selected change(s)"

  2013 

  2014     |rangeEnd rangeStart firstDeleted|

  2015 

  2016     changeListView selection size <= 5 ifTrue:[

  2017 	self withSelectedChangesReverseDo:[:changeNr |

  2018 	    self deleteChange:changeNr.

  2019 	    self autoSelectOrEnd:changeNr

  2020 	].

  2021 	^ self

  2022     ].

  2023 

  2024     self withSelectedChangesReverseDo:[:changeNr |

  2025 	rangeEnd isNil ifTrue:[

  2026 	    rangeEnd := rangeStart := changeNr

  2027 	] ifFalse:[

  2028 	    (changeNr = (rangeEnd + 1)) ifTrue:[

  2029 		rangeEnd := changeNr

  2030 	    ] ifFalse:[

  2031 		(changeNr = (rangeStart - 1)) ifTrue:[

  2032 		    rangeStart := changeNr

  2033 		] ifFalse:[

  2034 		    self deleteChangesFrom:rangeStart to:rangeEnd.

  2035 		    firstDeleted := (firstDeleted ? rangeStart) min:rangeStart.

  2036 		    rangeStart := rangeEnd := nil.

  2037 		].

  2038 	    ].

  2039 	].

  2040     ].

  2041     rangeStart notNil ifTrue:[

  2042 	self deleteChangesFrom:rangeStart to:rangeEnd.

  2043 	firstDeleted := (firstDeleted ? rangeStart) min:rangeStart.

  2044     ].

  2045     self autoSelectOrEnd:firstDeleted

  2046 !

  2047 

  2048 doDeleteAndSelectPrevious

  2049     "delete currently selected change(s)"

  2050 

  2051     self withSelectedChangesReverseDo:[:changeNr |

  2052 	self deleteChange:changeNr.

  2053 	self autoSelectOrEnd:changeNr-1

  2054     ]

  2055 !

  2056 

  2057 doDeleteClassAll

  2058     "delete all changes with same class as currently selected change"

  2059 

  2060     |classNamesToDelete lastChangeNr overAllNumDeletedBefore|

  2061 

  2062     lastChangeNr := -1.

  2063     classNamesToDelete := Set new.

  2064     self withSelectedChangesDo:[:changeNr |

  2065 	|classNameToDelete|

  2066 

  2067 	classNameToDelete := self classNameOfChange:changeNr.

  2068 	classNameToDelete notNil ifTrue:[

  2069 	    classNamesToDelete add:classNameToDelete.

  2070 	].

  2071 	lastChangeNr := lastChangeNr max:changeNr.

  2072     ].

  2073 

  2074     overAllNumDeletedBefore := 0.

  2075     changeListView setSelection:nil.

  2076 

  2077     self withExecuteCursorDo:[

  2078 	classNamesToDelete do:[:classNameToDelete |

  2079 	    |numDeletedBefore|

  2080 

  2081 	    self silentDeleteChangesFor:classNameToDelete

  2082 				   from:lastChangeNr

  2083 				     to:(self numberOfChanges).

  2084 	    numDeletedBefore := self

  2085 				   silentDeleteChangesFor:classNameToDelete

  2086 				   from:1

  2087 				   to:(lastChangeNr-1).

  2088 	    lastChangeNr := lastChangeNr - numDeletedBefore.

  2089 	    overAllNumDeletedBefore := overAllNumDeletedBefore + numDeletedBefore.

  2090 	].

  2091     ].

  2092 

  2093     self setChangeList.

  2094     self autoSelectOrEnd:lastChangeNr

  2095 

  2096     "Created: / 13.12.1995 / 16:07:14 / cg"

  2097     "Modified: / 28.1.1998 / 20:42:14 / cg"

  2098 !

  2099 

  2100 doDeleteClassAndPrivateClassesAll

  2101     "delete all changes with same class and private classes

  2102      as currently selected change"

  2103 

  2104     |lastChangeNr classNamesToDelete overAllNumDeletedBefore|

  2105 

  2106     lastChangeNr := -1.

  2107     classNamesToDelete := Set new.

  2108     self withSelectedChangesDo:[:changeNr |

  2109 	|classNameToDelete|

  2110 

  2111 	classNameToDelete := self ownerClassNameOfChange:changeNr.

  2112 	classNameToDelete notNil ifTrue:[

  2113 	    classNamesToDelete add:classNameToDelete.

  2114 	].

  2115 	lastChangeNr := lastChangeNr max:changeNr.

  2116     ].

  2117 

  2118     overAllNumDeletedBefore := 0.

  2119     changeListView setSelection:nil.

  2120 

  2121     self withExecuteCursorDo:[

  2122 	classNamesToDelete do:[:classNameToDelete |

  2123 	    | changeNr numDeletedBefore|

  2124 

  2125 	    classNameToDelete notNil ifTrue:[

  2126 		changeListView setSelection:nil.

  2127 		self silentDeleteChangesForClassAndPrivateClasses:classNameToDelete

  2128 				       from:lastChangeNr

  2129 					 to:(self numberOfChanges).

  2130 		numDeletedBefore := self

  2131 				       silentDeleteChangesForClassAndPrivateClasses:classNameToDelete

  2132 				       from:1

  2133 				       to:(lastChangeNr-1).

  2134 		lastChangeNr := lastChangeNr - numDeletedBefore.

  2135 		overAllNumDeletedBefore := overAllNumDeletedBefore + numDeletedBefore.

  2136 	    ]

  2137 	]

  2138     ].

  2139     self setChangeList.

  2140     self autoSelectOrEnd:lastChangeNr

  2141 

  2142     "Created: / 13.12.1995 / 16:07:14 / cg"

  2143     "Modified: / 28.1.1998 / 20:42:14 / cg"

  2144 !

  2145 

  2146 doDeleteClassFromBeginning

  2147     "delete changes with same class as currently selected change from the beginning

  2148      up to the selected change.

  2149      Useful to get rid of obsolete changes before a fileout or checkin entry."

  2150 

  2151     self withSingleSelectedChangeDo:[:changeNr |

  2152 	|classNameToDelete prevSelection numDeleted|

  2153 

  2154 	classNameToDelete := self classNameOfChange:changeNr.

  2155 	classNameToDelete notNil ifTrue:[

  2156 	    prevSelection := changeNr.

  2157 	    changeListView setSelection:nil.

  2158 	    numDeleted := self

  2159 				silentDeleteChangesFor:classNameToDelete

  2160 				from:1

  2161 				to:changeNr.

  2162 	    self setChangeList.

  2163 	    self autoSelectOrEnd:(changeNr + 1 - numDeleted)

  2164 	]

  2165     ].

  2166 

  2167     "Created: 13.12.1995 / 15:41:58 / cg"

  2168     "Modified: 25.5.1996 / 12:26:34 / cg"

  2169 !

  2170 

  2171 doDeleteClassRest

  2172     "delete rest of changes with same class as currently selected change"

  2173 

  2174     self withSingleSelectedChangeDo:[:changeNr |

  2175 	| classNameToDelete |

  2176 

  2177 	classNameToDelete := self classNameOfChange:changeNr.

  2178 	classNameToDelete notNil ifTrue:[

  2179 	    changeListView setSelection:nil.

  2180 	    self silentDeleteChangesFor:classNameToDelete

  2181 				   from:changeNr

  2182 				     to:(self numberOfChanges).

  2183 	    self setChangeList.

  2184 	    self autoSelectOrEnd:changeNr

  2185 	]

  2186     ]

  2187 

  2188     "Modified: / 18.5.1998 / 14:25:07 / cg"

  2189 !

  2190 

  2191 doDeleteClassSelectorAll

  2192     "delete all changes with same class and selector as currently selected change"

  2193 

  2194     |classNameSelectorPairsToDelete lastChangeNr overAllNumDeletedBefore|

  2195 

  2196     lastChangeNr := -1.

  2197     classNameSelectorPairsToDelete := Set new.

  2198     self withSelectedChangesDo:[:changeNr |

  2199 	|className selector|

  2200 

  2201 	className := self classNameOfChange:changeNr.

  2202 	selector := self selectorOfMethodChange:changeNr.

  2203 	selector notNil ifTrue:[

  2204 	    (className notNil and:[selector notNil]) ifTrue:[

  2205 		classNameSelectorPairsToDelete add:(className -> selector).

  2206 	    ]

  2207 	].

  2208 	lastChangeNr := lastChangeNr max:changeNr.

  2209     ].

  2210 

  2211     overAllNumDeletedBefore := 0.

  2212     changeListView setSelection:nil.

  2213 

  2214     self withExecuteCursorDo:[

  2215 	classNameSelectorPairsToDelete do:[:pair |

  2216 	    |numDeletedBefore className selector|

  2217 

  2218 	    className := pair key.

  2219 	    selector  := pair value.

  2220 	    self silentDeleteChangesFor:className selector:selector

  2221 				   from:lastChangeNr

  2222 				     to:(self numberOfChanges).

  2223 	    numDeletedBefore := self

  2224 				   silentDeleteChangesFor:className selector:selector

  2225 				   from:1

  2226 				   to:(lastChangeNr-1).

  2227 	    lastChangeNr := lastChangeNr - numDeletedBefore.

  2228 	    overAllNumDeletedBefore := overAllNumDeletedBefore + numDeletedBefore.

  2229 	].

  2230     ].

  2231 

  2232     self setChangeList.

  2233     self autoSelectOrEnd:lastChangeNr

  2234 

  2235     "Created: / 13.12.1995 / 16:07:14 / cg"

  2236     "Modified: / 28.1.1998 / 20:42:14 / cg"

  2237 !

  2238 

  2239 doDeleteFromBeginning

  2240     "delete all changes from 1 to the current"

  2241 

  2242     self withSingleSelectedChangeDo:[:changeNr |

  2243 	self deleteChangesFrom:1 to:changeNr.

  2244 	self clearCodeView.

  2245 	self autoSelectOrEnd:changeNr

  2246     ]

  2247 !

  2248 

  2249 doDeleteRest

  2250     "delete all changes from current to the end"

  2251 

  2252     self withSingleSelectedChangeDo:[:changeNr |

  2253 	self deleteChangesFrom:changeNr to:(self numberOfChanges).

  2254 	self clearCodeView.

  2255 	self autoSelectOrEnd:changeNr-1

  2256     ]

  2257 !

  2258 

  2259 doFileoutAndDeleteClassAll

  2260     "first fileOut the selected changes class then delete all changes

  2261      for it."

  2262 

  2263     self withSingleSelectedChangeDo:[:changeNr |

  2264 	| className class |

  2265 

  2266 	className := self classNameOfChange:changeNr.

  2267 	className notNil ifTrue:[

  2268 	    class := Smalltalk classNamed:className.

  2269 	    class notNil ifTrue:[

  2270 		Class fileOutErrorSignal handle:[:ex |

  2271 		    self warn:('fileout failed: ' , ex description).

  2272 		] do:[

  2273 		    class fileOut.

  2274 		    self doDeleteClassAll

  2275 		].

  2276 	    ].

  2277 

  2278 	].

  2279     ]

  2280 

  2281     "Modified: 6.9.1995 / 17:11:16 / claus"

  2282 !

  2283 

  2284 doMakePatch

  2285     "user wants a change to be made a patch

  2286      - copy it over to the patches file"

  2287 

  2288     self withSelectedChangesDo:[:changeNr |

  2289 	self makeChangeAPatch:changeNr.

  2290 	self autoSelect:(changeNr + 1)

  2291     ]

  2292 !

  2293 

  2294 doMakePermanent

  2295     "user wants a change to be made permanent

  2296      - rewrite the source file where this change has to go"

  2297 

  2298     |yesNoBox|

  2299 

  2300     (self theSingleSelection) isNil ifTrue:[

  2301         ^ self information:'Only possible if a single change is selected.'.

  2302     ].

  2303 

  2304     yesNoBox := YesNoBox new.

  2305     yesNoBox title:(resources string:'Warning: this operation cannot be undone').

  2306     yesNoBox okText:(resources string:'continue') noText:(resources string:'abort').

  2307     yesNoBox okAction:[   |changeNr|

  2308 

  2309                           changeNr := self theSingleSelection.

  2310                           changeNr notNil ifTrue:[

  2311                               self makeChangePermanent:changeNr.

  2312                               self autoSelect:(changeNr + 1)

  2313                           ]

  2314                       ].

  2315     yesNoBox showAtPointer.

  2316     yesNoBox destroy

  2317 

  2318     "Modified: 7.1.1997 / 23:03:33 / cg"

  2319 !

  2320 

  2321 doSave

  2322     "user wants a change to be appended to a file"

  2323 

  2324     |fileName|

  2325 

  2326     self withSelectedChangesDo:[:changeNr |

  2327         fileName := Dialog

  2328                         requestFileNameForSave:(resources string:'Append change to:')

  2329                         default:(lastSaveFileName ? '')

  2330                         ok:(resources string:'Append')

  2331                         abort:(resources string:'Abort')

  2332                         pattern:'*.chg'.

  2333 

  2334         fileName notNil ifTrue:[

  2335             lastSaveFileName := fileName.

  2336             self withCursor:(Cursor write) do:[

  2337                 self appendChange:changeNr toFile:fileName.

  2338             ].

  2339             self autoSelect:(changeNr + 1)

  2340         ].

  2341     ]

  2342 

  2343     "Modified: / 27-10-2010 / 11:30:07 / cg"

  2344 !

  2345 

  2346 doSaveClass

  2347     "user wants changes for some class from current to end to be appended to a file"

  2348 

  2349     (self theSingleSelection) isNil ifTrue:[

  2350 	^ self information:'Only possible if a single change is selected.'.

  2351     ].

  2352     self doSaveClassFrom:1

  2353 !

  2354 

  2355 doSaveClassAll

  2356     "user wants changes for some class from current to end to be appended to a file"

  2357 

  2358     (self theSingleSelection) isNil ifTrue:[

  2359 	^ self information:'Only possible if a single change is selected.'.

  2360     ].

  2361     self doSaveClassFrom:1

  2362 !

  2363 

  2364 doSaveClassFrom:startNr

  2365     "user wants changes from current to end to be appended to a file"

  2366 

  2367     |changeNr classNameToSave|

  2368 

  2369     (changeNr := self theSingleSelection) isNil ifTrue:[

  2370 	^ self information:'Only possible if a single change is selected.'.

  2371     ].

  2372     classNameToSave := self classNameOfChange:changeNr.

  2373     classNameToSave notNil ifTrue:[

  2374 	self saveClass:classNameToSave from:startNr

  2375     ]

  2376 !

  2377 

  2378 doSaveClassRest

  2379     "user wants changes for some class from current to end to be appended to a file"

  2380 

  2381     |changeNr|

  2382 

  2383     (changeNr := self theSingleSelection) isNil ifTrue:[

  2384         ^ self information:'Only possible if a single change is selected.'.

  2385     ].

  2386     self doSaveClassFrom:changeNr.

  2387 

  2388     changeListView setSelection:changeNr.

  2389     "/ self changeSelection:changeNr.

  2390 !

  2391 

  2392 doSaveRest

  2393     "user wants changes from current to end to be appended to a file"

  2394 

  2395     |changeNr fileName|

  2396 

  2397     (changeNr := self theSingleSelection) isNil ifTrue:[

  2398         ^ self information:(resources string:'Only possible if a single change is selected.').

  2399     ].

  2400 

  2401     fileName := Dialog

  2402                     requestFileNameForSave:(resources string:'Append changes to:')

  2403                     default:(lastSaveFileName ? '')

  2404                     ok:(resources string:'Append')

  2405                     abort:(resources string:'Abort')

  2406                     pattern:'*.chg'.

  2407 

  2408     fileName notNil ifTrue:[

  2409         lastSaveFileName := fileName.

  2410         self withCursor:(Cursor write) do:[

  2411             changeNr to:(self numberOfChanges) do:[:changeNr |

  2412                 changeListView setSelection:changeNr.

  2413                 (self appendChange:changeNr toFile:fileName) ifFalse:[

  2414                     ^ self

  2415                 ]

  2416             ]

  2417         ]

  2418     ]

  2419 

  2420     "Modified: / 27-10-2010 / 11:30:37 / cg"

  2421 !

  2422 

  2423 doUpdate

  2424     "reread the changes-file"

  2425 

  2426     self readChangesFileInBackground:true.

  2427     self newLabel:''.

  2428     realized ifTrue:[

  2429 	self setChangeList.

  2430     ]

  2431 !

  2432 

  2433 doWriteBack

  2434     "write back the list onto the changes file"

  2435 

  2436     anyChanges ifTrue:[

  2437         (self writeBackChanges) ifTrue:[

  2438             realized ifTrue:[

  2439                 self readChangesFile.

  2440                 realized ifTrue:[

  2441                     self setChangeList

  2442                 ]

  2443             ]

  2444         ]

  2445     ]

  2446 

  2447     "Modified: 5.9.1996 / 17:19:46 / cg"

  2448 !

  2449 

  2450 findClass

  2451     "findClass menu action: let user enter a classes name, and select the next change for that class"

  2452 

  2453     |current|

  2454 

  2455     changeNrShown notNil ifTrue:[

  2456         current := self classNameOfChange:changeNrShown.

  2457     ].

  2458 

  2459     self

  2460         askForSearch:'Class to search for:'

  2461         initialAnswer:current

  2462         thenSearchUsing:[:searchString :changeNr |

  2463                             |thisClassName|

  2464 

  2465                             thisClassName := self classNameOfChange:changeNr.

  2466                             thisClassName notNil

  2467                             and:[

  2468                                 (thisClassName sameAs: searchString)

  2469                                 or:[searchString includesMatchCharacters and:[searchString match:thisClassName ignoreCase:true]]]

  2470                         ]

  2471         onCancel:[^ self].

  2472 

  2473     lastSearchType := #class.

  2474     changeNrShown == 0 ifTrue:[changeNrShown := nil].

  2475 !

  2476 

  2477 findFirstForClass

  2478     "findNextForClass menu action: select the next change for the selected changes class"

  2479 

  2480     self findNextForClassStartingAt:1

  2481 

  2482     "Created: / 20-11-2006 / 16:37:56 / cg"

  2483 !

  2484 

  2485 findLastForClass

  2486     "findPreviousForClass menu action: select the previous change for the selected changes class"

  2487 

  2488     self findPreviousForClassStartingAt:(self numberOfChanges)

  2489 

  2490     "Created: / 20-11-2006 / 16:39:15 / cg"

  2491 !

  2492 

  2493 findLastSnapshot

  2494     "findLastSnapshot menu action: select the last change which is for a snapShot-image save action"

  2495 

  2496     "/ lastSearchType := #snapshot.

  2497 

  2498     self 

  2499         findPreviousForWhich: [:changeNr | self changeIsSnapShotInfo:changeNr ]

  2500         startingAt:(self numberOfChanges)

  2501 

  2502     "Created: / 06-10-2006 / 11:03:39 / cg"

  2503 !

  2504 

  2505 findNext

  2506     "findNext menu action: select the next change.

  2507      Searches for what the last search was for; i.e. either same class or same selector"

  2508 

  2509     lastSearchType == #selector ifTrue:[

  2510 	^ self findNextForSelector

  2511     ].

  2512     lastSearchType == #snapshot ifTrue:[

  2513 	^ self findNextSnapshot

  2514     ].

  2515     lastSearchType == #string ifTrue:[

  2516 	^ self findNextForString

  2517     ].

  2518     lastSearchType == #difference ifTrue:[

  2519 	^ self findNextDifference

  2520     ].

  2521 

  2522     ^ self findNextForClass

  2523 

  2524     "Created: / 18.6.1998 / 22:15:00 / cg"

  2525     "Modified: / 18.6.1998 / 22:15:25 / cg"

  2526 !

  2527 

  2528 findNextDifference

  2529     lastSearchType := #difference.

  2530     changeNrShown isNil ifTrue:[^ self].

  2531 

  2532     self findNextForWhich:[:changeNr |

  2533 	    (self compareChange:changeNr showResult:false) == true ifTrue:[

  2534 		"/ same

  2535 		false

  2536 	    ] ifFalse:[

  2537 		"/ different

  2538 		true

  2539 	    ]

  2540 	]

  2541 !

  2542 

  2543 findNextForClass

  2544     "findNextForClass menu action: select the next change for the selected changes class"

  2545 

  2546     self findNextForClassStartingAt: changeNrShown + 1

  2547 

  2548     "Modified: / 20-11-2006 / 16:37:49 / cg"

  2549 !

  2550 

  2551 findNextForClassStartingAt:startNr

  2552     "findNextForClass menu action: select the next change for the selected changes class"

  2553 

  2554     |cls|

  2555 

  2556     lastSearchType := #class.

  2557     changeNrShown isNil ifTrue:[^ self].

  2558 

  2559     cls := self classNameOfChange:changeNrShown.

  2560     cls isNil ifTrue:[^ self].

  2561 

  2562     self 

  2563         findNextForWhich:[:changeNr |

  2564                 |thisClass|

  2565 

  2566                 thisClass := self classNameOfChange:changeNr.

  2567                 (thisClass = cls

  2568                 or:[cls includesMatchCharacters and:[cls match:thisClass]])]

  2569         startingAt:startNr

  2570 

  2571     "Created: / 20-11-2006 / 16:37:37 / cg"

  2572 !

  2573 

  2574 findNextForSelector

  2575     "findNextForSelector menu action: select the next change for the selected changes selector"

  2576 

  2577     |sel|

  2578 

  2579     lastSearchType := #selector.

  2580     changeNrShown isNil ifTrue:[^ self].

  2581 

  2582     sel := self selectorOfMethodChange:changeNrShown.

  2583     sel isNil ifTrue:[^ self].

  2584 

  2585     self findNextForWhich: [:changeNr |

  2586 		|thisSelector|

  2587 

  2588 		thisSelector := self selectorOfMethodChange:changeNr.

  2589 		(thisSelector = sel or:[sel includesMatchCharacters and:[sel match:thisSelector]])

  2590 	]

  2591 

  2592 !

  2593 

  2594 findNextForString

  2595     lastSearchString isNil ifTrue:[

  2596 	^ self findString

  2597     ].

  2598     self findNextWithString:lastSearchString

  2599 !

  2600 

  2601 findNextForWhich:aBlock

  2602     "helper: select the next change for which aBlock evaluates to true"

  2603 

  2604     ^ self findNextForWhich:aBlock startingAt:changeNrShown + 1

  2605 

  2606     "Modified: / 20-11-2006 / 16:34:23 / cg"

  2607 !

  2608 

  2609 findNextForWhich:aBlock startingAt:changeNrToStartSearch

  2610     "helper: select the next change for which aBlock evaluates to true"

  2611 

  2612     ^ self     

  2613         findNextOrPrevious:#next 

  2614         forWhich:aBlock startingAt:changeNrToStartSearch

  2615 

  2616     "Created: / 20-11-2006 / 16:34:06 / cg"

  2617 !

  2618 

  2619 findNextOrPrevious:direction forWhich:aBlock startingAt:changeNrToStartSearch

  2620     "helper: find and select the next or previous change for which aBlock evaluates to true"

  2621 

  2622     self withCursor:Cursor questionMark do:[

  2623         Object userInterruptSignal handle:[:ex |

  2624             self beep.

  2625             ^ 0

  2626         ] do:[

  2627             |increment nr lastNr|

  2628 

  2629             increment := (direction == #previous) ifTrue:[-1] ifFalse:[1].

  2630             lastNr := self numberOfChanges.

  2631             nr := changeNrToStartSearch.

  2632             [ (direction == #previous and:[nr >= 1])

  2633               or:[ direction == #next and:[ nr <= lastNr]] 

  2634             ] whileTrue:[

  2635                 (aBlock value:nr) ifTrue:[

  2636                     changeListView setSelection:nr.

  2637                     self changeSelection:nr.

  2638                     ^ nr

  2639                 ].

  2640                 nr := nr + increment.

  2641             ].

  2642         ]

  2643     ].

  2644     self showNotFound.

  2645     self windowGroup sensor flushKeyboard. "/ avoid multiple beeps, in case of type ahead

  2646     ^ 0

  2647 

  2648     "Created: / 08-03-2012 / 11:57:26 / cg"

  2649 !

  2650 

  2651 findNextSnapshot

  2652     "findNextSnapshot menu action: select the next change which is for a snapShot-image save action"

  2653 

  2654     lastSearchType := #snapshot.

  2655     changeNrShown isNil ifTrue:[^ self].

  2656 

  2657     self findNextForWhich: [:changeNr | self changeIsSnapShotInfo:changeNr ]

  2658 !

  2659 

  2660 findNextWithString:searchString

  2661     lastSearchType := #string.

  2662 

  2663     lastSearchString := searchString.

  2664 

  2665     changeNrShown isNil ifTrue:[

  2666 	changeNrShown := 0.

  2667     ].

  2668 

  2669     self findNextForWhich:

  2670 	[:changeNr |

  2671 	    |s|

  2672 

  2673 	    s := self sourceOfMethodChange:changeNr.

  2674 	    s notNil and:[

  2675 		(searchString includesMatchCharacters not

  2676 			    and:[(s findString:searchString) ~~ 0])

  2677 		or:[ searchString includesMatchCharacters

  2678 			    and:[('*' , searchString , '*') match:s ]]]

  2679 	].

  2680 

  2681     changeNrShown == 0 ifTrue:[changeNrShown := nil].

  2682 

  2683     codeView setSearchPattern:searchString.

  2684     codeView

  2685 	searchFwd:searchString

  2686 	ignoreCase:false

  2687 	startingAtLine:1 col:0

  2688 	ifAbsent:nil.

  2689 

  2690 !

  2691 

  2692 findPrevious

  2693     "findPrevious menu action: select the previous change.

  2694      Searches for what the last search was for; i.e. either same class or same selector"

  2695 

  2696     lastSearchType == #selector ifTrue:[

  2697 	^ self findPreviousForSelector

  2698     ].

  2699     lastSearchType == #snapshot ifTrue:[

  2700 	^ self findPreviousSnapshot

  2701     ].

  2702     lastSearchType == #string ifTrue:[

  2703 	^ self findPreviousForString

  2704     ].

  2705     lastSearchType == #difference ifTrue:[

  2706 	^ self findPreviousDifference

  2707     ].

  2708 

  2709     ^ self findPreviousForClass

  2710 

  2711     "Created: / 18.6.1998 / 22:15:15 / cg"

  2712 !

  2713 

  2714 findPreviousDifference

  2715     lastSearchType := #difference.

  2716     changeNrShown isNil ifTrue:[^ self].

  2717 

  2718     self findPreviousForWhich:[:changeNr |

  2719 	    (self compareChange:changeNr showResult:false) == true ifTrue:[

  2720 		"/ same

  2721 		false

  2722 	    ] ifFalse:[

  2723 		"/ different

  2724 		true

  2725 	    ]

  2726 	]

  2727 !

  2728 

  2729 findPreviousForClass

  2730     "findPreviousForClass menu action: select the previous change for the selected changes class"

  2731 

  2732     self findPreviousForClassStartingAt:(changeNrShown - 1)

  2733 

  2734     "Modified: / 20-11-2006 / 16:39:04 / cg"

  2735 !

  2736 

  2737 findPreviousForClassStartingAt:startNr

  2738     "findPreviousForClass menu action: select the previous change for the selected changes class"

  2739 

  2740     |cls|

  2741 

  2742     lastSearchType := #class.

  2743     changeNrShown isNil ifTrue:[^ self].

  2744 

  2745     cls := self classNameOfChange:changeNrShown.

  2746     cls isNil ifTrue:[^ self].