equal
deleted
inserted
replaced
1052 !NewChangesBrowser methodsFor:'accesssing - columns'! |
1052 !NewChangesBrowser methodsFor:'accesssing - columns'! |
1053 |
1053 |
1054 categoryColumn |
1054 categoryColumn |
1055 "returns whether the column for the category attribute of the changes is shown" |
1055 "returns whether the column for the category attribute of the changes is shown" |
1056 |
1056 |
1057 ^CategoryColumn ? (CategoryColumn := true) |
1057 ^CategoryColumn ? (CategoryColumn := false) |
1058 ! |
1058 ! |
1059 |
1059 |
1060 categoryColumn: aBoolean |
1060 categoryColumn: aBoolean |
1061 "sets whether the column for the category attribute of the changes is shown" |
1061 "sets whether the column for the category attribute of the changes is shown" |
1062 |
1062 |
1077 ! |
1077 ! |
1078 |
1078 |
1079 positionColumn |
1079 positionColumn |
1080 "returns whether the column for the position attribute of the changes is shown" |
1080 "returns whether the column for the position attribute of the changes is shown" |
1081 |
1081 |
1082 ^PositionColumn ? (PositionColumn := true) |
1082 ^PositionColumn ? (PositionColumn := false) |
1083 ! |
1083 ! |
1084 |
1084 |
1085 positionColumn: aBoolean |
1085 positionColumn: aBoolean |
1086 "sets whether the column for the position attribute of the changes is shown" |
1086 "sets whether the column for the position attribute of the changes is shown" |
1087 |
1087 |
1497 ifFalse: |
1497 ifFalse: |
1498 [ |
1498 [ |
1499 self listOfChangeColumns contents: (self listOfChangeColumns remove: |
1499 self listOfChangeColumns contents: (self listOfChangeColumns remove: |
1500 (self listOfChangeColumns detect: [:column| column label = aColumnLabel] ifNone: nil) ifAbsent: [self listOfChangeColumns]; yourself) |
1500 (self listOfChangeColumns detect: [:column| column label = aColumnLabel] ifNone: nil) ifAbsent: [self listOfChangeColumns]; yourself) |
1501 asArray |
1501 asArray |
1502 ] |
1502 ]. |
1503 |
1503 self autoSelectLast |
1504 |
1504 |
1505 |
1505 |
1506 ! |
1506 ! |
1507 |
1507 |
1508 changeFileName:aFileName |
1508 changeFileName:aFileName |
3208 ! ! |
3208 ! ! |
3209 |
3209 |
3210 !NewChangesBrowser class methodsFor:'documentation'! |
3210 !NewChangesBrowser class methodsFor:'documentation'! |
3211 |
3211 |
3212 version |
3212 version |
3213 ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.2 1998-04-14 19:14:54 tz Exp $' |
3213 ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.3 1998-04-16 23:03:20 tz Exp $' |
3214 |
3214 |
3215 ! ! |
3215 ! ! |