equal
deleted
inserted
replaced
3943 , '\' |
3943 , '\' |
3944 , (excla , ' ' , excla) |
3944 , (excla , ' ' , excla) |
3945 , '\\'. |
3945 , '\\'. |
3946 |
3946 |
3947 code := code withCRs. |
3947 code := code withCRs. |
3948 (ReadStream on:code) fileIn. |
3948 Class packageQuerySignal answer:cls package do:[ |
|
3949 (ReadStream on:code) fileIn. |
|
3950 ]. |
3949 |
3951 |
3950 "/ self isStandAlone ifTrue: [self helpTool installHelpSpecsOnClass:self specClass]. |
3952 "/ self isStandAlone ifTrue: [self helpTool installHelpSpecsOnClass:self specClass]. |
3951 |
3953 |
3952 self updateHistory. |
3954 self updateHistory. |
3953 self updateInfoLabel. |
3955 self updateInfoLabel. |
3954 |
3956 |
3955 hasSaved := true. |
3957 hasSaved := true. |
3956 self clearModified. |
3958 self clearModified. |
|
3959 |
|
3960 "Modified: / 28-01-2014 / 21:57:35 / cg" |
3957 ! |
3961 ! |
3958 |
3962 |
3959 openDocumentation |
3963 openDocumentation |
3960 self openHTMLDocument:'tools/uipainter/DataSetBuilder.html'. |
3964 self openHTMLDocument:'tools/uipainter/DataSetBuilder.html'. |
3961 ! ! |
3965 ! ! |