Add Commit
This commit is contained in:
44
main2.pb
44
main2.pb
@@ -902,6 +902,44 @@ Procedure.i DoGitFetch(remote.s="origin",branch.s="main")
|
||||
ProcedureReturn #False
|
||||
EndProcedure
|
||||
|
||||
Procedure.i DoCommit()
|
||||
Protected code.i,nb.l=0,i.l
|
||||
Protected args.s = "add"
|
||||
For i = 0 To CountGadgetItems(#GID_ListStatus) - 1
|
||||
If GetGadgetItemState(#GID_ListStatus, i) & #PB_ListIcon_Checked
|
||||
nb+1
|
||||
args+" "+Chr(34)+StringField(GetGadgetItemText(#GID_ListStatus, i),1,Chr(10))+Chr(34)
|
||||
EndIf
|
||||
Next i
|
||||
If nb=0
|
||||
MessageRequester("Git add", "Échec: Vous devez selectionnez des fichiers à ajouter au commit", #PB_MessageRequester_Error)
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
|
||||
If Trim(GetGadgetText(#GID_EdMessage))=""
|
||||
MessageRequester("Git add", "Échec: Vous devez mettre un message", #PB_MessageRequester_Error)
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
|
||||
|
||||
If Git(args)<>0
|
||||
MessageRequester("Git add", "Échec: " + #LF$ + main\GitCall\errors, #PB_MessageRequester_Error)
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
|
||||
; Commit with message / Valider avec un message
|
||||
args = "commit -m " + Chr(34) + GetGadgetText(#GID_EdMessage) + Chr(34)
|
||||
|
||||
If Git(args)<>0
|
||||
MessageRequester("Git commit", "Échec ou rien à valider: " + #LF$ + main\GitCall\errors + #LF$ + main\GitCall\output, #PB_MessageRequester_Warning)
|
||||
ProcedureReturn 0
|
||||
Else
|
||||
MessageRequester("Git commit", "OK:" + #LF$ + main\GitCall\output, #PB_MessageRequester_Info)
|
||||
EndIf
|
||||
|
||||
ProcedureReturn #True
|
||||
EndProcedure
|
||||
|
||||
Procedure.s GetStatusDescription(status.s)
|
||||
Select status
|
||||
Case " "
|
||||
@@ -1326,7 +1364,7 @@ Procedure Main()
|
||||
; TODO: ignore
|
||||
|
||||
Case #GID_BtnCommit
|
||||
; TODO: commit with GetGadgetText(#GID_EdMessage)
|
||||
DoCommit()
|
||||
|
||||
Case #GID_BtnSaveGitIgnore
|
||||
; TODO: save .gitignore
|
||||
@@ -1344,8 +1382,8 @@ EndProcedure
|
||||
Main()
|
||||
|
||||
; IDE Options = PureBasic 6.21 (Windows - x64)
|
||||
; CursorPosition = 1191
|
||||
; FirstLine = 1159
|
||||
; CursorPosition = 932
|
||||
; FirstLine = 904
|
||||
; Folding = ------
|
||||
; EnableXP
|
||||
; DPIAware
|
Reference in New Issue
Block a user