hedgewars/uCommandHandlers.pas
changeset 5238 46ddaf14509d
parent 5026 e83d4552625f
child 5247 bf6d4bc531d2
--- a/hedgewars/uCommandHandlers.pas	Sun Jun 12 14:45:26 2011 -0400
+++ b/hedgewars/uCommandHandlers.pas	Sun Jun 12 21:06:48 2011 -0400
@@ -447,6 +447,7 @@
 begin
 if isDeveloperMode then
 begin
+UserPathz[ptMapCurrent]:= UserPathz[ptMaps] + '/' + s;
 Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;
 InitStepsFlags:= InitStepsFlags or cifMap
 end
@@ -456,6 +457,7 @@
 begin
 if isDeveloperMode then
 begin
+UserPathz[ptCurrTheme]:= UserPathz[ptThemes] + '/' + s;
 Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;
 Theme:= s;
 InitStepsFlags:= InitStepsFlags or cifTheme