Fixed issue #155: Fix SVN Rebase sets upstream as remotes/trunk

[tortoisegit/TortoiseGitJp.git] / src / TortoiseProc / Commands / TagCommand.cpp

diff --git a/src/TortoiseProc/Commands/TagCommand.cpp b/src/TortoiseProc/Commands/TagCommand.cpp
index c577b38..ba9026e 100644 (file)
--- a/src/TortoiseProc/Commands/TagCommand.cpp
+++ b/src/TortoiseProc/Commands/TagCommand.cpp
@@ -25,36 +25,14 @@
 #include "Git.h"\r
 #include "DirFileEnum.h"\r
 #include "ShellUpdater.h"\r
+#include "AppUtils.h"\r
 \r
 bool TagCommand::Execute()\r
 {\r
-       CCreateBranchTagDlg dlg;\r
-       dlg.m_bIsTag=TRUE;\r
-       \r
-       if(dlg.DoModal()==IDOK)\r
-       {\r
-               CString cmd;\r
-               CString force;\r
-               CString track;\r
-               if(dlg.m_bTrack)\r
-                       track=_T("--track");\r
+       CString base=parser.GetVal(_T("rev"));\r
+       CString *p=&base;\r
+       if(base.IsEmpty())\r
+               p=NULL;\r
 \r
-               if(dlg.m_bForce)\r
-                       force=_T("-f");\r
-\r
-               cmd.Format(_T("git.exe tag %s %s %s %s"),\r
-                       track,\r
-                       force,\r
-                       dlg.m_BranchTagName,\r
-                       dlg.m_Base\r
-                       );\r
-               CString out;\r
-               if(g_Git.Run(cmd,&out))\r
-               {\r
-                       CMessageBox::Show(NULL,out,_T("TortoiseGit"),MB_OK);\r
-               }\r
-               return TRUE;\r
-               \r
-       }\r
-       return FALSE;\r
+       return CAppUtils::CreateBranchTag(TRUE,p);\r
 }\r