Update after Init

main2.pb

@@ -2233,7 +2233,11 @@ Procedure Main()
     For n = 0 To CountProgramParameters() - 1
       param$ = ProgramParameter(n)
       Select LCase(param$)
-          Case "--project"   : If n + 1 < CountProgramParameters() : main\GitCall\workdir = ProgramParameter(n + 1) : EndIf
+        Case "--path" 
+          If n + 1 < CountProgramParameters()
+            main\GitCall\workdir = GetPathPart(ProgramParameter(n + 1))
+            
+          EndIf
       EndSelect
     Next n
   EndIf 
@@ -2326,11 +2330,18 @@ Procedure Main()
             Case #GID_BtnInit
               GitInit()
               RefreshHelp()
+              Refresh()
               
             Case #GID_BtnRefresh
               Refresh()
               RefreshHelp()
               
+            Case #GID_EdRemote  
+              If EventType()=#PB_EventType_LostFocus
+                AddRemoteRepo(SupTrim(GetGadgetText(#GID_EdRemote)))
+                Refresh()
+                RefreshHelp()
+              EndIf 
             Case #GID_BtnClone
               SetGadgetText(#GID_TxtAction, T("Action.Clone","Clone demandé"))
               ; TODO: git clone
@@ -2385,9 +2396,11 @@ EndProcedure
 Main()
 
 ; IDE Options = PureBasic 6.21 (Windows - x64)
-; CursorPosition = 2370
+; CursorPosition = 2340
-; FirstLine = 2311
+; FirstLine = 2308
 ; Folding = ----------
 ; EnableThread
 ; EnableXP
 ; DPIAware
+; UseIcon = GitCompanion.ico
+; Executable = GitCompanion.exe