equal
deleted
inserted
replaced
121 |
121 |
122 HistoryManager new. |
122 HistoryManager new. |
123 " |
123 " |
124 |
124 |
125 "Modified: 11.08.1995 / 17:01:29 / robert" |
125 "Modified: 11.08.1995 / 17:01:29 / robert" |
|
126 ! ! |
|
127 |
|
128 !HistoryManager class methodsFor:'AEG-Extensions'! |
|
129 |
|
130 getLastHistoryLineFrom:someString |
|
131 "returns the last HistoryLine, if no HistoryLine available, return nil" |
|
132 |
|
133 |hist| |
|
134 hist := self getAllHistoriesFrom: someString. |
|
135 hist isEmpty ifTrue: [ ^nil]. |
|
136 ^hist last |
|
137 |
|
138 "Created: 19.1.1996 / 13:08:57 / werner" |
126 ! ! |
139 ! ! |
127 |
140 |
128 !HistoryManager class methodsFor:'accessing'! |
141 !HistoryManager class methodsFor:'accessing'! |
129 |
142 |
130 fullHistoryUpdate |
143 fullHistoryUpdate |
247 "returns anArray of HistoryLines from a string. |
260 "returns anArray of HistoryLines from a string. |
248 Usually, the argument is a methods source code." |
261 Usually, the argument is a methods source code." |
249 |
262 |
250 |position aReadWriteStream firstFound nextFound aHistoryString rcOC h| |
263 |position aReadWriteStream firstFound nextFound aHistoryString rcOC h| |
251 |
264 |
|
265 rcOC := OrderedCollection new. |
|
266 |
|
267 someString isNil ifTrue:[ |
|
268 ^ rcOC |
|
269 ]. |
|
270 |
252 "read begining from the end and look there for the first comment character. If there's none return" |
271 "read begining from the end and look there for the first comment character. If there's none return" |
253 |
272 |
254 rcOC := OrderedCollection new. |
|
255 position := someString size. |
273 position := someString size. |
256 firstFound := false. |
274 firstFound := false. |
257 nextFound := false. |
275 nextFound := false. |
258 |
276 |
259 someString reverseDo:[ :aChar| |
277 someString reverseDo:[ :aChar| |
875 HistoryLine deleted. |
893 HistoryLine deleted. |
876 " |
894 " |
877 ! |
895 ! |
878 |
896 |
879 version |
897 version |
880 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.67 2008-01-17 10:02:32 cg Exp $' |
898 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.68 2009-02-11 12:02:13 cg Exp $' |
881 ! ! |
899 ! ! |
882 |
900 |
883 !HistoryManager::HistoryLine class methodsFor:'filtering'! |
901 !HistoryManager::HistoryLine class methodsFor:'filtering'! |
884 |
902 |
885 filterHistoryLines: aCollectionOfHistoryLines |
903 filterHistoryLines: aCollectionOfHistoryLines |
1501 ! ! |
1519 ! ! |
1502 |
1520 |
1503 !HistoryManager class methodsFor:'documentation'! |
1521 !HistoryManager class methodsFor:'documentation'! |
1504 |
1522 |
1505 version |
1523 version |
1506 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.67 2008-01-17 10:02:32 cg Exp $' |
1524 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.68 2009-02-11 12:02:13 cg Exp $' |
1507 ! ! |
1525 ! ! |
1508 |
1526 |
1509 HistoryManager initialize! |
1527 HistoryManager initialize! |
1510 HistoryManager::HistoryLine initialize! |
1528 HistoryManager::HistoryLine initialize! |