equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
5870 ok ifFalse:[ |
5872 ok ifFalse:[ |
5871 SnapshotError raise. |
5873 SnapshotError raise. |
5872 "not reached" |
5874 "not reached" |
5873 ]. |
5875 ]. |
5874 |
5876 |
5875 Transcript |
5877 Error catch:[ |
5876 show:'Snapshot '; show:snapshotFilename baseName allBold; |
5878 "be immune against errors when Stderr has been closed" |
5877 show:' saved '; show:Timestamp now; |
5879 Logger |
5878 show:' in '; show:snapshotFilename asAbsoluteFilename directoryName; |
5880 info:'Snapshot %1 saved %2 in %3."' |
5879 showCR:'.'. |
5881 with:snapshotFilename baseName allBold |
|
5882 with:Timestamp now |
|
5883 with:snapshotFilename asAbsoluteFilename directoryName. |
|
5884 ]. |
5880 |
5885 |
5881 ^ ok |
5886 ^ ok |
5882 |
5887 |
5883 " |
5888 " |
5884 ObjectMemory snapShotOn:'myimage.img' setImageName:false |
5889 ObjectMemory snapShotOn:'myimage.img' setImageName:false |
5885 ObjectMemory snapShotOn:'myimage.img' setImageName:true |
5890 ObjectMemory snapShotOn:'myimage.img' setImageName:true |
5886 " |
5891 " |
5887 |
5892 |
5888 "Modified: / 04-08-2006 / 18:14:45 / cg" |
5893 "Modified: / 04-08-2006 / 18:14:45 / cg" |
|
5894 "Modified: / 09-02-2018 / 19:14:08 / stefan" |
|
5895 "Modified (format): / 11-02-2018 / 20:07:55 / stefan" |
5889 ! |
5896 ! |
5890 |
5897 |
5891 suffixForSnapshot |
5898 suffixForSnapshot |
5892 "return the suffix used for snapshot files'" |
5899 "return the suffix used for snapshot files'" |
5893 |
5900 |