equal
deleted
inserted
replaced
8 inclusion of the above copyright notice. This software may not |
8 inclusion of the above copyright notice. This software may not |
9 be provided or otherwise made available to, or used by, any |
9 be provided or otherwise made available to, or used by, any |
10 other person. No title to or ownership of the software is |
10 other person. No title to or ownership of the software is |
11 hereby transferred. |
11 hereby transferred. |
12 " |
12 " |
13 |
|
14 "{ Package: 'stx:libbasic3' }" |
13 "{ Package: 'stx:libbasic3' }" |
15 |
14 |
16 Object subclass:#HistoryManager |
15 Object subclass:#HistoryManager |
17 instanceVariableNames:'historyMode fullHistoryUpdate' |
16 instanceVariableNames:'historyMode fullHistoryUpdate' |
18 classVariableNames:'TheOneAndOnlyInstance' |
17 classVariableNames:'TheOneAndOnlyInstance' |
810 convertAStringToATime: aString |
809 convertAStringToATime: aString |
811 "kludge while not having the Time and Date format spec Class" |
810 "kludge while not having the Time and Date format spec Class" |
812 |
811 |
813 |h m s| |
812 |h m s| |
814 |
813 |
815 h := (aString copyFrom:1 to:2) asNumber. |
814 h := Number readFromString:(aString copyFrom:1 to:2) onError:[^ Time now]. |
816 m := (aString copyFrom:4 to:5) asNumber. |
815 m := Number readFromString:(aString copyFrom:4 to:5) onError:[^ Time now]. |
817 aString size >= 8 ifTrue:[ |
816 aString size >= 8 ifTrue:[ |
818 s := (aString copyFrom:7 to:8) asNumber. |
817 s := (aString copyFrom:7 to:8) asNumber. |
819 ] ifFalse:[ |
818 ] ifFalse:[ |
820 s := 0. |
819 s := 0. |
821 ]. |
820 ]. |
825 " |
824 " |
826 HistoryLine convertAStringToATime:'18:23:15' |
825 HistoryLine convertAStringToATime:'18:23:15' |
827 " |
826 " |
828 |
827 |
829 "Modified: / 15-08-1995 / 18:56:18 / robert" |
828 "Modified: / 15-08-1995 / 18:56:18 / robert" |
830 "Modified: / 07-08-2006 / 09:52:07 / cg" |
829 "Modified: / 19-02-2007 / 23:35:49 / cg" |
831 ! ! |
830 ! ! |
832 |
831 |
833 !HistoryManager::HistoryLine class methodsFor:'documentation'! |
832 !HistoryManager::HistoryLine class methodsFor:'documentation'! |
834 |
833 |
835 copyright |
834 copyright |
877 HistoryLine deleted. |
876 HistoryLine deleted. |
878 " |
877 " |
879 ! |
878 ! |
880 |
879 |
881 version |
880 version |
882 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.64 2006-09-18 19:47:20 cg Exp $' |
881 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.65 2007-02-20 09:40:22 cg Exp $' |
883 ! ! |
882 ! ! |
884 |
883 |
885 !HistoryManager::HistoryLine class methodsFor:'filtering'! |
884 !HistoryManager::HistoryLine class methodsFor:'filtering'! |
886 |
885 |
887 filterHistoryLines: aCollectionOfHistoryLines |
886 filterHistoryLines: aCollectionOfHistoryLines |
1503 ! ! |
1502 ! ! |
1504 |
1503 |
1505 !HistoryManager class methodsFor:'documentation'! |
1504 !HistoryManager class methodsFor:'documentation'! |
1506 |
1505 |
1507 version |
1506 version |
1508 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.64 2006-09-18 19:47:20 cg Exp $' |
1507 ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.65 2007-02-20 09:40:22 cg Exp $' |
1509 ! ! |
1508 ! ! |
1510 |
1509 |
1511 HistoryManager initialize! |
1510 HistoryManager initialize! |
1512 HistoryManager::HistoryLine initialize! |
1511 HistoryManager::HistoryLine initialize! |