equal
deleted
inserted
replaced
4921 "save the current default changeset as a patch file, |
4921 "save the current default changeset as a patch file, |
4922 after asking for a file name" |
4922 after asking for a file name" |
4923 |
4923 |
4924 |dir d changesFilename| |
4924 |dir d changesFilename| |
4925 |
4925 |
4926 dir := Filename currentDirectory. |
|
4927 |
|
4928 (d := Filename homeDirectory construct:'.smalltalk') exists ifTrue:[ |
4926 (d := Filename homeDirectory construct:'.smalltalk') exists ifTrue:[ |
4929 d := d construct:'userPatches'. |
4927 d := d construct:'userPatches'. |
4930 d exists ifFalse:[ |
4928 d exists ifFalse:[ |
4931 d makeDirectory. |
4929 d makeDirectory. |
4932 ]. |
4930 ]. |
4933 dir := d. |
4931 dir := d. |
|
4932 ] ifFalse:[ |
|
4933 dir := Filename currentDirectory. |
4934 ]. |
4934 ]. |
4935 |
4935 |
4936 changesFilename := Timestamp now |
4936 changesFilename := Timestamp now |
4937 printStringFormat:'changes_%(year)-%(month)-%(day)__%h:%m:%s.chg'. |
4937 printStringFormat:'changes_%(year)-%(month)-%(day)__%h:%m:%s.chg'. |
4938 OperatingSystem isMSWINDOWSlike ifTrue:[ changesFilename replaceAll:$: with:$_ ]. |
4938 OperatingSystem isMSWINDOWSlike ifTrue:[ changesFilename replaceAll:$: with:$_ ]. |
4945 default:changesFilename |
4945 default:changesFilename |
4946 pattern:'*.chg' |
4946 pattern:'*.chg' |
4947 fromDirectory:dir. |
4947 fromDirectory:dir. |
4948 |
4948 |
4949 changesFilename notEmptyOrNil ifTrue:[ |
4949 changesFilename notEmptyOrNil ifTrue:[ |
4950 self saveSessionChangesAs:changesFilename |
4950 self saveSessionChangesAs:changesFilename. |
|
4951 Transcript showCR:'session changes save in ',changesFilename asFilename pathName. |
4951 ]. |
4952 ]. |
4952 ! |
4953 ! |
4953 |
4954 |
4954 saveSessionChangesAs:changesFilename |
4955 saveSessionChangesAs:changesFilename |
4955 "save the current default changeset as a patch file" |
4956 "save the current default changeset as a patch file" |
5099 ! ! |
5100 ! ! |
5100 |
5101 |
5101 !NewLauncher class methodsFor:'documentation'! |
5102 !NewLauncher class methodsFor:'documentation'! |
5102 |
5103 |
5103 version |
5104 version |
5104 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.494 2014-10-19 12:20:53 cg Exp $' |
5105 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.495 2014-10-19 12:26:16 cg Exp $' |
5105 ! |
5106 ! |
5106 |
5107 |
5107 version_CVS |
5108 version_CVS |
5108 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.494 2014-10-19 12:20:53 cg Exp $' |
5109 ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.495 2014-10-19 12:26:16 cg Exp $' |
5109 ! |
5110 ! |
5110 |
5111 |
5111 version_SVN |
5112 version_SVN |
5112 ^ '$Id: NewLauncher.st,v 1.494 2014-10-19 12:20:53 cg Exp $' |
5113 ^ '$Id: NewLauncher.st,v 1.495 2014-10-19 12:26:16 cg Exp $' |
5113 ! ! |
5114 ! ! |
5114 |
5115 |