1921 selectedVersionHolder onChangeSend:#selectedVersionHolderChanged to:self. |
1921 selectedVersionHolder onChangeSend:#selectedVersionHolderChanged to:self. |
1922 ]. |
1922 ]. |
1923 ^ selectedVersionHolder |
1923 ^ selectedVersionHolder |
1924 ! |
1924 ! |
1925 |
1925 |
|
1926 selectedVersionIndex |
|
1927 ^ self selectedVersionIndexHolder value ? 0 |
|
1928 |
|
1929 "Created: / 23-05-2018 / 11:35:50 / Claus Gittinger" |
|
1930 ! |
|
1931 |
1926 selectedVersionIndexHolder |
1932 selectedVersionIndexHolder |
1927 selectedVersionIndexHolder isNil ifTrue:[ |
1933 selectedVersionIndexHolder isNil ifTrue:[ |
1928 selectedVersionIndexHolder := nil asValue. |
1934 selectedVersionIndexHolder := nil asValue. |
1929 selectedVersionIndexHolder onChangeSend:#selectedVersionIndexHolderChanged to:self. |
1935 selectedVersionIndexHolder onChangeSend:#selectedVersionIndexHolderChanged to:self. |
1930 ]. |
1936 ]. |
2023 |
2029 |
2024 hasNextVersionInVersionList |
2030 hasNextVersionInVersionList |
2025 "versions are sorted youngest first. |
2031 "versions are sorted youngest first. |
2026 If the current selected one is the first, there is no next version" |
2032 If the current selected one is the first, there is no next version" |
2027 |
2033 |
2028 ^ (self selectedVersionIndexHolder value ? 0) > 1. |
2034 ^ (self selectedVersionIndex) > 1. |
2029 |
2035 |
2030 "Modified (comment): / 23-05-2018 / 11:33:29 / Claus Gittinger" |
2036 "Modified: / 23-05-2018 / 11:36:33 / Claus Gittinger" |
2031 ! |
2037 ! |
2032 |
2038 |
2033 hasPreviousVersionInVersionList |
2039 hasPreviousVersionInVersionList |
2034 "versions are sorted youngest first. |
2040 "versions are sorted youngest first. |
2035 If the current selected one is the last, there is no previous version" |
2041 If the current selected one is the last, there is no previous version" |
2036 |
2042 |
2037 ^ (self selectedVersionIndexHolder value ? 0) < versionList value size. |
2043 ^ (self selectedVersionIndex) < versionList value size. |
2038 |
2044 |
2039 "Modified: / 23-05-2018 / 11:33:59 / Claus Gittinger" |
2045 "Modified: / 23-05-2018 / 11:36:38 / Claus Gittinger" |
2040 ! |
2046 ! |
2041 |
2047 |
2042 showingClassChangeSet |
2048 showingClassChangeSet |
2043 ^ classChangeSet notNil |
2049 ^ classChangeSet notNil |
2044 |
2050 |
2052 m := self class versionsMenu. |
2058 m := self class versionsMenu. |
2053 m := m decodeAsLiteralArray. |
2059 m := m decodeAsLiteralArray. |
2054 m findGuiResourcesIn:self. |
2060 m findGuiResourcesIn:self. |
2055 |
2061 |
2056 self hasNextVersionInVersionList ifTrue:[ |
2062 self hasNextVersionInVersionList ifTrue:[ |
2057 nextVersion := self versionList at:(self selectedVersionIndexHolder value - 1). |
2063 nextVersion := self versionList at:(self selectedVersionIndex - 1). |
2058 item := m atNameKey:#CompareAgainstNextVersion. |
2064 item := m atNameKey:#CompareAgainstNextVersion. |
2059 item label:(resources string:(item label,' (%1)') with:nextVersion). |
2065 item label:(resources string:(item label,' (%1)') with:nextVersion). |
2060 ]. |
2066 ]. |
2061 self hasPreviousVersionInVersionList ifTrue:[ |
2067 self hasPreviousVersionInVersionList ifTrue:[ |
2062 prevVersion := self versionList at:(self selectedVersionIndexHolder value + 1). |
2068 prevVersion := self versionList at:(self selectedVersionIndex + 1). |
2063 item := m atNameKey:#CompareAgainstPreviousVersion. |
2069 item := m atNameKey:#CompareAgainstPreviousVersion. |
2064 item label:(resources string:(item label,'(%1)') with:prevVersion). |
2070 item label:(resources string:(item label,'(%1)') with:prevVersion). |
2065 ]. |
2071 ]. |
2066 m |
2072 m |
2067 ] |
2073 ] |
|
2074 |
|
2075 "Modified: / 23-05-2018 / 11:36:18 / Claus Gittinger" |
2068 ! ! |
2076 ! ! |
2069 |
2077 |
2070 !VersionDiffBrowser methodsFor:'change & update'! |
2078 !VersionDiffBrowser methodsFor:'change & update'! |
2071 |
2079 |
2072 filterChanged |
2080 filterChanged |
2981 |
2989 |
2982 versionMenuCompareAgainstNextVersion |
2990 versionMenuCompareAgainstNextVersion |
2983 |cls selectedVersion nextVersion| |
2991 |cls selectedVersion nextVersion| |
2984 |
2992 |
2985 selectedVersion := self selectedVersionHolder value. |
2993 selectedVersion := self selectedVersionHolder value. |
2986 nextVersion := self versionList at:(self selectedVersionIndexHolder value - 1). |
2994 nextVersion := self versionList at:(self selectedVersionIndex - 1). |
2987 cls := classHolder value. |
2995 cls := classHolder value. |
2988 |
2996 |
2989 self class openOnClass:cls versionA:selectedVersion versionB:nextVersion |
2997 self class openOnClass:cls versionA:selectedVersion versionB:nextVersion |
|
2998 |
|
2999 "Modified: / 23-05-2018 / 11:37:18 / Claus Gittinger" |
2990 ! |
3000 ! |
2991 |
3001 |
2992 versionMenuCompareAgainstPreviousVersion |
3002 versionMenuCompareAgainstPreviousVersion |
2993 |cls selectedVersion prevVersion| |
3003 |cls selectedVersion prevVersion| |
2994 |
3004 |
2995 selectedVersion := self selectedVersionHolder value. |
3005 selectedVersion := self selectedVersionHolder value. |
2996 prevVersion := self versionList at:(self selectedVersionIndexHolder value + 1). |
3006 selectedVersion isNil ifTrue:[ |
|
3007 self selectedVersionIndexHolder value:1 |
|
3008 ]. |
|
3009 prevVersion := self versionList at:(self selectedVersionIndex + 1). |
2997 cls := classHolder value. |
3010 cls := classHolder value. |
2998 |
3011 |
2999 self class openOnClass:cls versionA:prevVersion versionB:selectedVersion |
3012 self class openOnClass:cls versionA:prevVersion versionB:selectedVersion |
|
3013 |
|
3014 "Modified: / 23-05-2018 / 11:38:13 / Claus Gittinger" |
3000 ! ! |
3015 ! ! |
3001 |
3016 |
3002 !VersionDiffBrowser methodsFor:'menu action - filters'! |
3017 !VersionDiffBrowser methodsFor:'menu action - filters'! |
3003 |
3018 |
3004 currentFilterParameters |
3019 currentFilterParameters |