Add init repo

main2.pb

@@ -1190,6 +1190,16 @@ Procedure.i GetGitVersion()
   ProcedureReturn #False
 EndProcedure
 
+Procedure GitInit()
+  If Git("init") = 0
+    MessageRequester("Git init", "Répertoire initialisé." + #LF$ + SupTrim(main\gitCall\output), #PB_MessageRequester_Info)
+    ProcedureReturn #True
+  EndIf
+  MessageRequester("Git init", "Échec: " + #LF$ + SupTrim(main\gitCall\errors), #PB_MessageRequester_Error)
+  ProcedureReturn 0
+
+EndProcedure
+
 Procedure.i DoCommit()
   Protected code.i,nb.l=0,i.l
   Protected args.s = "add"
@@ -2028,7 +2038,8 @@ Procedure Main()
                   Case #Panel_Config
                 EndSelect
               EndIf 
-              
+            Case #GID_BtnInit
+                GitInit()
             Case #GID_BtnBrowseRepo
               ; FR: Sélection dossier / EN: select folder
               Protected path$ = PathRequester(T("Dlg.SelectRepo","Sélectionnez le dépôt local..."), GetCurrentDirectory(),WindowID(#WinMain))
@@ -2103,8 +2114,8 @@ EndProcedure
 Main()
 
 ; IDE Options = PureBasic 6.21 (Windows - x64)
-; CursorPosition = 776
+; CursorPosition = 1197
-; FirstLine = 721
+; FirstLine = 1190
 ; Folding = ---------
 ; EnableThread
 ; EnableXP