equal
deleted
inserted
replaced
2781 nextChunkPut:specCode; |
2781 nextChunkPut:specCode; |
2782 space; |
2782 space; |
2783 nextPutChunkSeparator; |
2783 nextPutChunkSeparator; |
2784 cr. |
2784 cr. |
2785 |
2785 |
2786 self halt. |
|
2787 (ReadStream on:s contents) fileIn. |
2786 (ReadStream on:s contents) fileIn. |
2788 |
2787 |
2789 self isStandAlone ifTrue:[ |
2788 self isStandAlone ifTrue:[ |
2790 self helpTool doSave |
2789 self helpTool doSave |
2791 ]. |
2790 ]. |
2792 |
2791 |
2793 self updateHistory. |
2792 self updateHistory. |
2794 hasSaved := true. |
2793 hasSaved := true. |
2795 self clearModified. |
2794 self clearModified. |
2796 |
2795 |
2797 "Modified: / 22-08-2011 / 10:28:17 / cg" |
2796 "Modified: / 24-08-2011 / 12:26:08 / cg" |
2798 ! |
2797 ! |
2799 |
2798 |
2800 doSaveAs |
2799 doSaveAs |
2801 "save current editing menu to class and selector |
2800 "save current editing menu to class and selector |
2802 defined by the user. |
2801 defined by the user. |