The R Project SVN R

Rev

Rev 62763 | Rev 81360 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 62763 Rev 63077
Line 161... Line 161...
161 
begin
 161 
begin
162 
  changed := false;
 162 
  changed := false;
163 
  filename := ExpandConstant(CurrentFilename);
 163 
  filename := ExpandConstant(CurrentFilename);
164 
  LoadStringsFromFile(filename, lines);
 164 
  LoadStringsFromFile(filename, lines);
165
165
166 
  changed := changed or SetCommentMarker(lines, 'MDI = yes', MDISDIPage.SelectedValueIndex = 0);
 166 
  if SetCommentMarker(lines, 'MDI = yes', MDISDIPage.SelectedValueIndex = 0) then changed := true;
167 
  changed := changed or SetCommentMarker(lines, 'MDI = no', MDISDIPage.SelectedValueIndex = 1);
 167 
  if SetCommentMarker(lines, 'MDI = no', MDISDIPage.SelectedValueIndex = 1) then changed := true;
168
168
169 
  changed := changed or SetCommentMarker(lines, 'options(help_type="text"', HelpStylePage.SelectedValueIndex = 0);
 169 
  if SetCommentMarker(lines, 'options(help_type="text"', HelpStylePage.SelectedValueIndex = 0) then changed := true;
170 
  changed := changed or SetCommentMarker(lines, 'options(help_type="html"', HelpStylePage.SelectedValueIndex = 1);
 170 
  if SetCommentMarker(lines, 'options(help_type="html"', HelpStylePage.SelectedValueIndex = 1) then changed := true;
171
171
172 
  if changed then
 172 
  if changed then
173 
    SaveStringsToFile(filename, lines, False);
 173 
    SaveStringsToFile(filename, lines, False);
174 
end;
 174 
end;
175 
 
 175