Check-in [22aaec8852]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Perform different command depending on the status. If files have changed, show the changes (and the possibility to commit), if not, show the repository.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:22aaec885233254a5ab6b789a7be7075f71dd85d
User & Date: tinus 2015-11-26 13:56:59
Context
2015-11-29
13:08
Show the repository's root path as hint for the branch button. check-in: 9b77047e22 user: tinus tags: trunk
2015-11-26
13:56
Perform different command depending on the status. If files have changed, show the changes (and the possibility to commit), if not, show the repository. check-in: 22aaec8852 user: tinus tags: trunk
2015-11-25
21:42
Clicking on the VCS info menu item now opens a terminal in the current file's directory, and runs the VCS tool. Sync changesets are now limited to 9; if there are more, indicate this with a + sign. check-in: a512ab16be user: tinus tags: trunk
Changes

Changes to src/VCSInfoMenuWzrd.pas.

852
853
854
855
856
857
858




859
860
861

862

863
864




865
866
867
868
869
870
871
procedure TVCSInfoWizard.actStatusExecute(Sender: TObject);
var
  Repo: TRepoInfo;
begin
  Repo := GetActiveFileRepo;
  case IndexStr(Repo.RepoType, ['hg', 'fossil']) of
    0: begin // hg




      if not CreateProcess('thg log', Repo.Root) then
        RaiseLastOSError;
    end;

    1: begin // fossil

      if not CreateProcess('fossil gdiff', Repo.Root) then
        RaiseLastOSError;




    end;
  end;
end;

procedure TVCSInfoWizard.actStatusUpdate(Sender: TObject);
var
  actStatus: TAction;







>
>
>
>
|
|
|
>

>
|
|
>
>
>
>







852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
procedure TVCSInfoWizard.actStatusExecute(Sender: TObject);
var
  Repo: TRepoInfo;
begin
  Repo := GetActiveFileRepo;
  case IndexStr(Repo.RepoType, ['hg', 'fossil']) of
    0: begin // hg
      if Repo.Pending > 0 then begin
        if not CreateProcess('thg commit', Repo.Root) then
          RaiseLastOSError;
      end else begin
        if not CreateProcess('thg log', Repo.Root) then
          RaiseLastOSError;
      end;
    end;
    1: begin // fossil
      if Repo.Pending > 0 then begin
        if not CreateProcess('fossil gdiff', Repo.Root) then
          RaiseLastOSError;
      end else begin
        if not CreateProcess('fossil ui', Repo.Root) then
          RaiseLastOSError;
      end;
    end;
  end;
end;

procedure TVCSInfoWizard.actStatusUpdate(Sender: TObject);
var
  actStatus: TAction;