Permalink
Browse files

Issue 657

  • Loading branch information...
pyscripter
pyscripter committed May 24, 2012
1 parent ace9d54 commit 0cc8ad4f8895a5129583d80f384d4d47fc0047d2
Showing with 5 additions and 5 deletions.
  1. +2 −2 PyScripter.dproj
  2. +1 −1 cRefactoring.pas
  3. +1 −1 frmFileExplorer.pas
  4. +1 −1 frmPyIDEMain.pas
View
@@ -318,7 +318,7 @@
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
- <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+ <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
@@ -372,5 +372,5 @@
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
- <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+ <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
</Project>
View
@@ -250,7 +250,7 @@ function TPyScripterRefactor.GetParsedModule(const ModuleName: string;
if not Assigned(Editor) and (FName <> '') then
Editor := GI_EditorFactory.GetEditorByName(FName);
- if Assigned(Editor) and Editor.HasPythonFile then
+ if Assigned(Editor) and Editor.HasPythonFile and Assigned(Editor.SourceScanner) then
begin
SourceScanner := Editor.SourceScanner;
fSourceScanners.Add(SourceScanner);
View
@@ -289,7 +289,7 @@ procedure TFileExplorerWindow.mnFavoritesPopup(Sender: TTBCustomItem;
Item.Caption := _(SEmptyList);
mnFavorites.Insert(0, Item);
end else
- for i := 0 to fFavorites.Count - 1 do begin
+ for i := fFavorites.Count - 1 downto 0 do begin
Item := TSpTBXItem.Create(mnFavorites);
Item.Caption := fFavorites[i];
Item.OnClick := PathItemClick;
View
@@ -378,7 +378,7 @@
History: v 2.5.1
New Features
Issues addressed
- 639
+ 639, 657
-----------------------------------------------------------------------------}
// Bugs and minor features

0 comments on commit 0cc8ad4

Please sign in to comment.