index e2551bae7ad58b17eec4aa4026c0dd5cd17e2b5f..1259898100b2b25ed7494d22d3de04abb17f79b8 100644 (file)
--- a/src/editor/f_packmap.pas
+++ b/src/editor/f_packmap.pas
uses
BinEditor, WADEDITOR, g_map, MAPREADER, MAPWRITER, MAPSTRUCT,
- f_main, math, g_language, g_resources, e_log;
+ f_main, math, g_language, g_resources, g_options, e_log;
{$R *.lfm}
if filename = '' then
g_GetResourceSection(OpenedMap, filename, us, un)
else
- filename := EditorDir + 'wads/' + filename;
+ filename := WadsDir + DirectorySeparator + filename;
e_WriteLog('ProcessResource: "' + wad_to + '" "' + section_to + '" "' + filename + '" "' + section + '" "' + resource + '"', MSG_NOTIFY);
if resource = '' then Exit;
procedure TPackMapForm.FormCreate(Sender: TObject);
begin
- SaveDialog.InitialDir := EditorDir;
+ SaveDialog.InitialDir := MapsDir;
end;
end.