equal
deleted
inserted
replaced
2841 nextChunkPut:specCode; |
2841 nextChunkPut:specCode; |
2842 space; |
2842 space; |
2843 nextPutChunkSeparator; |
2843 nextPutChunkSeparator; |
2844 cr. |
2844 cr. |
2845 |
2845 |
2846 (ReadStream on:s contents) fileIn. |
2846 Class packageQuerySignal answer:cls package do:[ |
2847 |
2847 (ReadStream on:s contents) fileIn. |
|
2848 ]. |
2848 self isStandAlone ifTrue:[ |
2849 self isStandAlone ifTrue:[ |
2849 self helpTool doSave |
2850 self helpTool doSave |
2850 ]. |
2851 ]. |
2851 |
2852 |
2852 self updateHistory. |
2853 self updateHistory. |
2853 hasSaved := true. |
2854 hasSaved := true. |
2854 self clearModified. |
2855 self clearModified. |
2855 |
2856 |
2856 "Modified: / 24-08-2011 / 12:26:08 / cg" |
2857 "Modified: / 28-01-2014 / 21:57:24 / cg" |
2857 ! |
2858 ! |
2858 |
2859 |
2859 doSaveAs |
2860 doSaveAs |
2860 "save current editing menu to class and selector |
2861 "save current editing menu to class and selector |
2861 defined by the user. |
2862 defined by the user. |