Compare commits
2 Commits
c0148b8790
...
fa9db19bdc
| Author | SHA1 | Date | |
|---|---|---|---|
| fa9db19bdc | |||
| f8fc232de6 |
643
main.pb
643
main.pb
@@ -12,190 +12,190 @@
|
||||
#EnableDebug=#True
|
||||
|
||||
Global GitIgnoreHelpHTML.s = ~"<!DOCTYPE html>" + #LF$ +
|
||||
~"<html lang=\"fr\">" + #LF$ +
|
||||
~"<head>" + #LF$ +
|
||||
~" <meta charset=\"UTF-8\">" + #LF$ +
|
||||
~" <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">" + #LF$ +
|
||||
~" <title>Aide .gitignore</title>" + #LF$ +
|
||||
~" <style>" + #LF$ +
|
||||
~" body {" + #LF$ +
|
||||
~" font-family: 'Segoe UI', Tahoma, Geneva, Verdana, sans-serif;" + #LF$ +
|
||||
~" margin: 0;" + #LF$ +
|
||||
~" padding: 20px;" + #LF$ +
|
||||
~" background: linear-gradient(135deg, #667eea 0%, #764ba2 100%);" + #LF$ +
|
||||
~" color: #333;" + #LF$ +
|
||||
~" line-height: 1.6;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .container {" + #LF$ +
|
||||
~" max-width: 900px;" + #LF$ +
|
||||
~" margin: 0 auto;" + #LF$ +
|
||||
~" background: white;" + #LF$ +
|
||||
~" border-radius: 15px;" + #LF$ +
|
||||
~" padding: 30px;" + #LF$ +
|
||||
~" box-shadow: 0 20px 40px rgba(0,0,0,0.1);" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" h1 {" + #LF$ +
|
||||
~" color: #2c3e50;" + #LF$ +
|
||||
~" text-align: center;" + #LF$ +
|
||||
~" margin-bottom: 30px;" + #LF$ +
|
||||
~" font-size: 2.5em;" + #LF$ +
|
||||
~" background: linear-gradient(45deg, #667eea, #764ba2);" + #LF$ +
|
||||
~" -webkit-background-clip: text;" + #LF$ +
|
||||
~" -webkit-text-fill-color: transparent;" + #LF$ +
|
||||
~" background-clip: text;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" h2 {" + #LF$ +
|
||||
~" color: #34495e;" + #LF$ +
|
||||
~" border-left: 4px solid #667eea;" + #LF$ +
|
||||
~" padding-left: 15px;" + #LF$ +
|
||||
~" margin-top: 30px;" + #LF$ +
|
||||
~" font-size: 1.4em;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .syntax-box {" + #LF$ +
|
||||
~" background: #f8f9fa;" + #LF$ +
|
||||
~" border: 1px solid #e9ecef;" + #LF$ +
|
||||
~" border-radius: 8px;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" font-family: 'Consolas', 'Monaco', monospace;" + #LF$ +
|
||||
~" font-size: 0.9em;" + #LF$ +
|
||||
~" overflow-x: auto;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .example {" + #LF$ +
|
||||
~" background: linear-gradient(135deg, #667eea20, #764ba220);" + #LF$ +
|
||||
~" border-left: 4px solid #667eea;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" border-radius: 0 8px 8px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .tip {" + #LF$ +
|
||||
~" background: #e8f5e8;" + #LF$ +
|
||||
~" border: 1px solid #4caf50;" + #LF$ +
|
||||
~" border-radius: 8px;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .warning {" + #LF$ +
|
||||
~" background: #fff3e0;" + #LF$ +
|
||||
~" border: 1px solid #ff9800;" + #LF$ +
|
||||
~" border-radius: 8px;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" code {" + #LF$ +
|
||||
~" background: #f1f3f4;" + #LF$ +
|
||||
~" padding: 2px 6px;" + #LF$ +
|
||||
~" border-radius: 4px;" + #LF$ +
|
||||
~" font-family: 'Consolas', 'Monaco', monospace;" + #LF$ +
|
||||
~" color: #d73a49;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" ul {" + #LF$ +
|
||||
~" padding-left: 20px;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" li {" + #LF$ +
|
||||
~" margin: 8px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .pattern {" + #LF$ +
|
||||
~" display: inline-block;" + #LF$ +
|
||||
~" background: #667eea;" + #LF$ +
|
||||
~" color: white;" + #LF$ +
|
||||
~" padding: 3px 8px;" + #LF$ +
|
||||
~" border-radius: 4px;" + #LF$ +
|
||||
~" font-family: 'Consolas', 'Monaco', monospace;" + #LF$ +
|
||||
~" font-size: 0.9em;" + #LF$ +
|
||||
~" margin: 2px;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" </style>" + #LF$ +
|
||||
~"</head>" + #LF$ +
|
||||
~"<body>" + #LF$ +
|
||||
~" <div class=\"container\">" + #LF$ +
|
||||
~" <h1>📁 Guide .gitignore</h1>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <p>Le fichier <code>.gitignore</code> permet de spécifier quels fichiers et dossiers Git doit ignorer lors du versioning.</p>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🎯 Syntaxe de base</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"example\">" + #LF$ +
|
||||
~" <strong>Ignorer des fichiers spécifiques :</strong>" + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"config.txt # Ignore le fichier config.txt<br>" + #LF$ +
|
||||
~"*.log # Ignore tous les fichiers .log<br>" + #LF$ +
|
||||
~"temp/ # Ignore le dossier temp et tout son contenu" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🔧 Patterns et wildcards</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <ul>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">*</span> : correspond à n'importe quelle chaîne (sauf <code>/</code>)</li>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">**</span> : correspond à n'importe quel nombre de répertoires</li>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">?</span> : correspond à un seul caractère</li>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">[abc]</span> : correspond à a, b ou c</li>" + #LF$ +
|
||||
~" </ul>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🚫 Négation avec !</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"*.log<br>" + #LF$ +
|
||||
~"!important.log # Inclut ce fichier malgré la règle précédente" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>📍 Chemins</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"example\">" + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"/build # Ignore build à la racine uniquement<br>" + #LF$ +
|
||||
~"build/ # Ignore tous les dossiers build<br>" + #LF$ +
|
||||
~"docs/**/*.pdf # Ignore tous les PDF dans docs et ses sous-dossiers" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>💡 Exemples courants</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"# Fichiers de build<br>" + #LF$ +
|
||||
~"dist/<br>" + #LF$ +
|
||||
~"build/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Dépendances<br>" + #LF$ +
|
||||
~"node_modules/<br>" + #LF$ +
|
||||
~"vendor/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Configuration locale<br>" + #LF$ +
|
||||
~".env<br>" + #LF$ +
|
||||
~"config.local.json<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Logs et caches<br>" + #LF$ +
|
||||
~"*.log<br>" + #LF$ +
|
||||
~".cache/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Fichiers d'IDE<br>" + #LF$ +
|
||||
~".vscode/<br>" + #LF$ +
|
||||
~".idea/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Fichiers système<br>" + #LF$ +
|
||||
~".DS_Store<br>" + #LF$ +
|
||||
~"Thumbs.db" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"tip\">" + #LF$ +
|
||||
~" <strong>💡 Conseil :</strong> Utilisez des commentaires avec <code>#</code> pour documenter vos règles." + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"warning\">" + #LF$ +
|
||||
~" <strong>⚠️ Important :</strong> Le .gitignore ne s'applique qu'aux fichiers non-trackés. Pour ignorer des fichiers déjà versionnés, utilisez <code>git rm --cached <fichier></code>." + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🔍 Tester vos règles</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"git check-ignore -v <fichier> # Vérifie si un fichier est ignoré<br>" + #LF$ +
|
||||
~"git status --ignored # Affiche les fichiers ignorés" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~"</body>" + #LF$ +
|
||||
~"</html>"
|
||||
~"<html lang=\"fr\">" + #LF$ +
|
||||
~"<head>" + #LF$ +
|
||||
~" <meta charset=\"UTF-8\">" + #LF$ +
|
||||
~" <meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">" + #LF$ +
|
||||
~" <title>Aide .gitignore</title>" + #LF$ +
|
||||
~" <style>" + #LF$ +
|
||||
~" body {" + #LF$ +
|
||||
~" font-family: 'Segoe UI', Tahoma, Geneva, Verdana, sans-serif;" + #LF$ +
|
||||
~" margin: 0;" + #LF$ +
|
||||
~" padding: 20px;" + #LF$ +
|
||||
~" background: linear-gradient(135deg, #667eea 0%, #764ba2 100%);" + #LF$ +
|
||||
~" color: #333;" + #LF$ +
|
||||
~" line-height: 1.6;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .container {" + #LF$ +
|
||||
~" max-width: 900px;" + #LF$ +
|
||||
~" margin: 0 auto;" + #LF$ +
|
||||
~" background: white;" + #LF$ +
|
||||
~" border-radius: 15px;" + #LF$ +
|
||||
~" padding: 30px;" + #LF$ +
|
||||
~" box-shadow: 0 20px 40px rgba(0,0,0,0.1);" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" h1 {" + #LF$ +
|
||||
~" color: #2c3e50;" + #LF$ +
|
||||
~" text-align: center;" + #LF$ +
|
||||
~" margin-bottom: 30px;" + #LF$ +
|
||||
~" font-size: 2.5em;" + #LF$ +
|
||||
~" background: linear-gradient(45deg, #667eea, #764ba2);" + #LF$ +
|
||||
~" -webkit-background-clip: text;" + #LF$ +
|
||||
~" -webkit-text-fill-color: transparent;" + #LF$ +
|
||||
~" background-clip: text;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" h2 {" + #LF$ +
|
||||
~" color: #34495e;" + #LF$ +
|
||||
~" border-left: 4px solid #667eea;" + #LF$ +
|
||||
~" padding-left: 15px;" + #LF$ +
|
||||
~" margin-top: 30px;" + #LF$ +
|
||||
~" font-size: 1.4em;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .syntax-box {" + #LF$ +
|
||||
~" background: #f8f9fa;" + #LF$ +
|
||||
~" border: 1px solid #e9ecef;" + #LF$ +
|
||||
~" border-radius: 8px;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" font-family: 'Consolas', 'Monaco', monospace;" + #LF$ +
|
||||
~" font-size: 0.9em;" + #LF$ +
|
||||
~" overflow-x: auto;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .example {" + #LF$ +
|
||||
~" background: linear-gradient(135deg, #667eea20, #764ba220);" + #LF$ +
|
||||
~" border-left: 4px solid #667eea;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" border-radius: 0 8px 8px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .tip {" + #LF$ +
|
||||
~" background: #e8f5e8;" + #LF$ +
|
||||
~" border: 1px solid #4caf50;" + #LF$ +
|
||||
~" border-radius: 8px;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .warning {" + #LF$ +
|
||||
~" background: #fff3e0;" + #LF$ +
|
||||
~" border: 1px solid #ff9800;" + #LF$ +
|
||||
~" border-radius: 8px;" + #LF$ +
|
||||
~" padding: 15px;" + #LF$ +
|
||||
~" margin: 15px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" code {" + #LF$ +
|
||||
~" background: #f1f3f4;" + #LF$ +
|
||||
~" padding: 2px 6px;" + #LF$ +
|
||||
~" border-radius: 4px;" + #LF$ +
|
||||
~" font-family: 'Consolas', 'Monaco', monospace;" + #LF$ +
|
||||
~" color: #d73a49;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" ul {" + #LF$ +
|
||||
~" padding-left: 20px;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" li {" + #LF$ +
|
||||
~" margin: 8px 0;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" .pattern {" + #LF$ +
|
||||
~" display: inline-block;" + #LF$ +
|
||||
~" background: #667eea;" + #LF$ +
|
||||
~" color: white;" + #LF$ +
|
||||
~" padding: 3px 8px;" + #LF$ +
|
||||
~" border-radius: 4px;" + #LF$ +
|
||||
~" font-family: 'Consolas', 'Monaco', monospace;" + #LF$ +
|
||||
~" font-size: 0.9em;" + #LF$ +
|
||||
~" margin: 2px;" + #LF$ +
|
||||
~" }" + #LF$ +
|
||||
~" </style>" + #LF$ +
|
||||
~"</head>" + #LF$ +
|
||||
~"<body>" + #LF$ +
|
||||
~" <div class=\"container\">" + #LF$ +
|
||||
~" <h1>📁 Guide .gitignore</h1>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <p>Le fichier <code>.gitignore</code> permet de spécifier quels fichiers et dossiers Git doit ignorer lors du versioning.</p>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🎯 Syntaxe de base</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"example\">" + #LF$ +
|
||||
~" <strong>Ignorer des fichiers spécifiques :</strong>" + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"config.txt # Ignore le fichier config.txt<br>" + #LF$ +
|
||||
~"*.log # Ignore tous les fichiers .log<br>" + #LF$ +
|
||||
~"temp/ # Ignore le dossier temp et tout son contenu" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🔧 Patterns et wildcards</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <ul>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">*</span> : correspond à n'importe quelle chaîne (sauf <code>/</code>)</li>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">**</span> : correspond à n'importe quel nombre de répertoires</li>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">?</span> : correspond à un seul caractère</li>" + #LF$ +
|
||||
~" <li><span class=\"pattern\">[abc]</span> : correspond à a, b ou c</li>" + #LF$ +
|
||||
~" </ul>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🚫 Négation avec !</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"*.log<br>" + #LF$ +
|
||||
~"!important.log # Inclut ce fichier malgré la règle précédente" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>📍 Chemins</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"example\">" + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"/build # Ignore build à la racine uniquement<br>" + #LF$ +
|
||||
~"build/ # Ignore tous les dossiers build<br>" + #LF$ +
|
||||
~"docs/**/*.pdf # Ignore tous les PDF dans docs et ses sous-dossiers" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>💡 Exemples courants</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"# Fichiers de build<br>" + #LF$ +
|
||||
~"dist/<br>" + #LF$ +
|
||||
~"build/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Dépendances<br>" + #LF$ +
|
||||
~"node_modules/<br>" + #LF$ +
|
||||
~"vendor/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Configuration locale<br>" + #LF$ +
|
||||
~".env<br>" + #LF$ +
|
||||
~"config.local.json<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Logs et caches<br>" + #LF$ +
|
||||
~"*.log<br>" + #LF$ +
|
||||
~".cache/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Fichiers d'IDE<br>" + #LF$ +
|
||||
~".vscode/<br>" + #LF$ +
|
||||
~".idea/<br>" + #LF$ +
|
||||
~"<br>" + #LF$ +
|
||||
~"# Fichiers système<br>" + #LF$ +
|
||||
~".DS_Store<br>" + #LF$ +
|
||||
~"Thumbs.db" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"tip\">" + #LF$ +
|
||||
~" <strong>💡 Conseil :</strong> Utilisez des commentaires avec <code>#</code> pour documenter vos règles." + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"warning\">" + #LF$ +
|
||||
~" <strong>⚠️ Important :</strong> Le .gitignore ne s'applique qu'aux fichiers non-trackés. Pour ignorer des fichiers déjà versionnés, utilisez <code>git rm --cached <fichier></code>." + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <h2>🔍 Tester vos règles</h2>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" <div class=\"syntax-box\">" + #LF$ +
|
||||
~"git check-ignore -v <fichier> # Vérifie si un fichier est ignoré<br>" + #LF$ +
|
||||
~"git status --ignored # Affiche les fichiers ignorés" + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~" " + #LF$ +
|
||||
~" </div>" + #LF$ +
|
||||
~"</body>" + #LF$ +
|
||||
~"</html>"
|
||||
|
||||
|
||||
; =============================================================================
|
||||
@@ -401,6 +401,7 @@ Structure listFilesGit
|
||||
statusDescription.s
|
||||
indexStatus.s
|
||||
workingTreeStatus.s
|
||||
importance.i
|
||||
EndStructure
|
||||
|
||||
Structure GitStatus
|
||||
@@ -451,6 +452,8 @@ UseModule Translate
|
||||
;-FUNCTION DECLARATIONS / DÉCLARATIONS DE FONCTIONS
|
||||
; =============================================================================
|
||||
Declare RefreshFileList(null.i)
|
||||
Declare.i StatusImportance(status.s)
|
||||
|
||||
|
||||
Procedure.i RunExe(*call.RunProgramCall)
|
||||
Protected prg.i, line$, lineError$, out$, err$
|
||||
@@ -507,13 +510,56 @@ EndProcedure
|
||||
|
||||
; ---- Helpers ---------------------------------------------------------------
|
||||
|
||||
; --- Importance par statut Gitpour le trie de
|
||||
Procedure.i StatusImportance(status.s)
|
||||
Protected x.s = Left(status, 1)
|
||||
Protected y.s = Mid(status, 2, 1)
|
||||
Protected score.i = 0
|
||||
|
||||
; Conflits d'abord
|
||||
Select status
|
||||
Case "DD","AU","UD","UA","DU","AA","UU"
|
||||
ProcedureReturn 1000
|
||||
EndSelect
|
||||
If x = "U" Or y = "U" : ProcedureReturn 1000 : EndIf
|
||||
|
||||
; Cas simples
|
||||
If status = "??" : ProcedureReturn 300 : EndIf ; Non suivis
|
||||
If status = "!!" : ProcedureReturn 50 : EndIf ; Ignorés
|
||||
If status = " " : ProcedureReturn 0 : EndIf ; Propres
|
||||
|
||||
; Index > Worktree
|
||||
If x <> " " : score + 700 : EndIf
|
||||
If y <> " " And y <> "?" And y <> "!" : score + 600 : EndIf
|
||||
|
||||
; Raffinement (X puis Y)
|
||||
Select x
|
||||
Case "D" : score + 80
|
||||
Case "R" : score + 70
|
||||
Case "A" : score + 60
|
||||
Case "M" : score + 50
|
||||
Case "C" : score + 40
|
||||
Case "T" : score + 30
|
||||
EndSelect
|
||||
Select y
|
||||
Case "D" : score + 40
|
||||
Case "R" : score + 35
|
||||
Case "A" : score + 30
|
||||
Case "M" : score + 25
|
||||
Case "C" : score + 20
|
||||
Case "T" : score + 15
|
||||
EndSelect
|
||||
|
||||
ProcedureReturn score
|
||||
EndProcedure
|
||||
|
||||
Procedure.s _SupTrim(text.s)
|
||||
If text = "" : ProcedureReturn "" : EndIf
|
||||
|
||||
|
||||
Protected i.i = 1
|
||||
Protected j.i = Len(text)
|
||||
Protected c.l
|
||||
|
||||
|
||||
; Trim gauche : avancer tant que <= 32
|
||||
While i <= j
|
||||
c = Asc(Mid(text, i, 1))
|
||||
@@ -523,7 +569,7 @@ Procedure.s _SupTrim(text.s)
|
||||
Break
|
||||
EndIf
|
||||
Wend
|
||||
|
||||
|
||||
; Trim droite : reculer tant que <= 32
|
||||
While j >= i
|
||||
c = Asc(Mid(text, j, 1))
|
||||
@@ -533,7 +579,7 @@ Procedure.s _SupTrim(text.s)
|
||||
Break
|
||||
EndIf
|
||||
Wend
|
||||
|
||||
|
||||
If j < i
|
||||
ProcedureReturn ""
|
||||
Else
|
||||
@@ -595,11 +641,11 @@ EndProcedure
|
||||
Procedure _ScanAndFillAllFiles(dir$, root$)
|
||||
Protected did.i = ExamineDirectory(#PB_Any, dir$, "*")
|
||||
If did = 0 : ProcedureReturn : EndIf
|
||||
|
||||
|
||||
While NextDirectoryEntry(did)
|
||||
Protected name$ = DirectoryEntryName(did)
|
||||
If name$ = "." Or name$ = ".." : Continue : EndIf
|
||||
|
||||
|
||||
Protected full$ = dir$ + name$
|
||||
Debug full$
|
||||
If DirectoryEntryType(did) = #PB_DirectoryEntry_Directory
|
||||
@@ -612,7 +658,7 @@ Procedure _ScanAndFillAllFiles(dir$, root$)
|
||||
; Fichier : on ajoute une ligne dans main\listFilesGit()
|
||||
Protected rel$ = Mid(full$, Len(root$) + 1)
|
||||
rel$ = ReplaceString(rel$, "\", "/") ; chemins normalisés
|
||||
|
||||
|
||||
AddElement(main\listFilesGit())
|
||||
main\listFilesGit()\name = rel$
|
||||
main\listFilesGit()\status = " " ; 2 espaces = clean
|
||||
@@ -621,22 +667,22 @@ Procedure _ScanAndFillAllFiles(dir$, root$)
|
||||
main\listFilesGit()\statusDescription = "Unmodified"
|
||||
EndIf
|
||||
Wend
|
||||
|
||||
|
||||
FinishDirectory(did)
|
||||
EndProcedure
|
||||
|
||||
; --- API publique : appelle ceci pour remplir la liste
|
||||
Procedure.i FillAllFilesRecursively()
|
||||
|
||||
root$ = GetCurrentDirectory()
|
||||
|
||||
|
||||
|
||||
root$ = GetCurrentDirectory()
|
||||
|
||||
|
||||
; Normalise avec un séparateur de fin
|
||||
If Right(root$, 1) <> "\" And Right(root$, 1) <> "/" : root$ + "/" : EndIf
|
||||
|
||||
|
||||
; On n'efface pas ici pour laisser le choix à l'appelant
|
||||
_ScanAndFillAllFiles(root$, root$)
|
||||
|
||||
|
||||
ProcedureReturn ListSize(main\listFilesGit())
|
||||
EndProcedure
|
||||
|
||||
@@ -842,35 +888,35 @@ EndProcedure
|
||||
Procedure GetGitStatus()
|
||||
; Ne PAS vider la liste ici : on veut pouvoir mettre à jour des entrées existantes
|
||||
; ClearList(main\listFilesGit()) ; <-- laissé intentionnellement commenté
|
||||
|
||||
|
||||
; Configuration pour git status --porcelain --ignored
|
||||
main\Gitcall\args = "status --porcelain --ignored"
|
||||
code = RunExe(@main\Gitcall)
|
||||
|
||||
|
||||
If code = 0
|
||||
; Parser la sortie ligne par ligne
|
||||
output$ = main\Gitcall\output
|
||||
|
||||
|
||||
; Diviser en lignes
|
||||
Dim lines.s(0)
|
||||
lineCount = 0
|
||||
currentPos = 1
|
||||
|
||||
|
||||
; Compter les lignes
|
||||
For i = 1 To Len(output$)
|
||||
If Mid(output$, i, 1) = #LF$ Or Mid(output$, i, 1) = #CR$
|
||||
lineCount + 1
|
||||
EndIf
|
||||
Next
|
||||
|
||||
|
||||
; Redimensionner le tableau
|
||||
If lineCount > 0
|
||||
ReDim lines.s(lineCount)
|
||||
|
||||
|
||||
; Remplir le tableau avec les lignes
|
||||
lineIndex = 0
|
||||
startPos = 1
|
||||
|
||||
|
||||
For i = 1 To Len(output$)
|
||||
If Mid(output$, i, 1) = #LF$ Or Mid(output$, i, 1) = #CR$
|
||||
If i > startPos
|
||||
@@ -885,13 +931,13 @@ Procedure GetGitStatus()
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
|
||||
|
||||
; Traiter la dernière ligne si elle n'a pas de retour à la ligne
|
||||
If startPos <= Len(output$)
|
||||
lines(lineIndex) = Mid(output$, startPos)
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
; Parser chaque ligne
|
||||
For i = 0 To ArraySize(lines())
|
||||
line$ = lines(i)
|
||||
@@ -904,7 +950,7 @@ Procedure GetGitStatus()
|
||||
worktree$ = Mid(line$, 2, 1)
|
||||
name$ = Mid(line$, 4) ; chemin tel que renvoyé par Git
|
||||
name$ = ReplaceString(name$, "\", "/") ; normalisation (par sécurité)
|
||||
|
||||
|
||||
; ----- MODIF: chercher si l'entrée existe déjà -----
|
||||
found.b = #False
|
||||
ForEach main\listFilesGit()
|
||||
@@ -918,7 +964,7 @@ Procedure GetGitStatus()
|
||||
Break
|
||||
EndIf
|
||||
Next
|
||||
|
||||
|
||||
; Si non trouvée, on l'ajoute
|
||||
If Not found
|
||||
AddElement(main\listFilesGit())
|
||||
@@ -932,10 +978,10 @@ Procedure GetGitStatus()
|
||||
EndIf
|
||||
EndIf
|
||||
Next
|
||||
|
||||
|
||||
Debug "Récupération des status Git réussie. " + Str(ListSize(main\listFilesGit())) + " fichiers (maj/ajout)."
|
||||
ProcedureReturn #True
|
||||
|
||||
|
||||
Else
|
||||
Debug "Erreur Git ("+Str(code)+") "+main\GitCall\errors
|
||||
ProcedureReturn #False
|
||||
@@ -1261,23 +1307,30 @@ EndProcedure
|
||||
Procedure AddRemoteRepo(Url.s,name.s="origin")
|
||||
Url=_SupTrim(Url)
|
||||
name=_SupTrim(name)
|
||||
Debug "Url="+Url
|
||||
Debug "name="+name
|
||||
Protected add.b=#False
|
||||
;Check if this remote already exists
|
||||
main\Gitcall\args = "remote get-url "+name
|
||||
If RunExe(@main\Gitcall) = 0
|
||||
;if yes we remove it
|
||||
main\Gitcall\args = "remote remove "+name
|
||||
RunExe(@main\Gitcall)
|
||||
If Url<>_SupTrim(main\Gitcall\output)
|
||||
main\Gitcall\args = "remote remove "+name
|
||||
RunExe(@main\Gitcall)
|
||||
add=#True
|
||||
EndIf
|
||||
Else
|
||||
add=#True
|
||||
EndIf
|
||||
; We add a new remote
|
||||
main\Gitcall\args = "remote add "+name+" "+Url
|
||||
If RunExe(@main\Gitcall) = 0
|
||||
MessageRequester("Git Remote", "OK:" + #LF$ + main\Gitcall\output, #PB_MessageRequester_Info)
|
||||
If add=#True
|
||||
main\Gitcall\args = "remote add "+name+" "+Url
|
||||
If RunExe(@main\Gitcall) = 0
|
||||
;MessageRequester("Git Remote", "OK:" + #LF$ + main\Gitcall\output, #PB_MessageRequester_Info)
|
||||
ProcedureReturn #True
|
||||
Else
|
||||
MessageRequester("Git config", "Échec: " + #LF$ + main\Gitcall\errors, #PB_MessageRequester_Error)
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
ProcedureReturn #True
|
||||
Else
|
||||
MessageRequester("Git config", "Échec: " + #LF$ + main\Gitcall\errors, #PB_MessageRequester_Error)
|
||||
ProcedureReturn #False
|
||||
EndIf
|
||||
EndProcedure
|
||||
|
||||
@@ -1351,7 +1404,7 @@ Procedure.s GetParentPath(path.s)
|
||||
|
||||
; Supprimer le séparateur final si présent
|
||||
If Right(Path, 1) = "\" Or Right(Path, 1) = "/"
|
||||
Path = Left(Path, Len(Path) - 1)
|
||||
Path = Left(Path, Len(Path) - 1)
|
||||
EndIf
|
||||
|
||||
; Utiliser GetPathPart() qui retourne le chemin sans le fichier/dossier final
|
||||
@@ -1378,13 +1431,13 @@ Procedure DoClone()
|
||||
|
||||
; Demander à l'utilisateur où cloner
|
||||
choice = MessageRequester("Git Clone - Destination",
|
||||
"Où voulez-vous cloner le dépôt ?" + #LF$ + #LF$ +
|
||||
"OUI: Créer un répertoire '" + repoName + "' dans le répertoire courant" + #LF$ +
|
||||
" → " + currentDir + repoName + "/" + #LF$ + #LF$ +
|
||||
"NON: Cloner directement dans le répertoire courant" + #LF$ +
|
||||
" → " + currentDir + #LF$ + #LF$ +
|
||||
"ANNULER: Annuler l'opération",
|
||||
#PB_MessageRequester_YesNoCancel)
|
||||
"Où voulez-vous cloner le dépôt ?" + #LF$ + #LF$ +
|
||||
"OUI: Créer un répertoire '" + repoName + "' dans le répertoire courant" + #LF$ +
|
||||
" → " + currentDir + repoName + "/" + #LF$ + #LF$ +
|
||||
"NON: Cloner directement dans le répertoire courant" + #LF$ +
|
||||
" → " + currentDir + #LF$ + #LF$ +
|
||||
"ANNULER: Annuler l'opération",
|
||||
#PB_MessageRequester_YesNoCancel)
|
||||
|
||||
Select choice
|
||||
Case #PB_MessageRequester_Yes
|
||||
@@ -1408,12 +1461,12 @@ Procedure DoClone()
|
||||
If RunExe(@main\Gitcall) = 0
|
||||
If targetFolder = "."
|
||||
MessageRequester("Git Clone", "Succès:" + #LF$ +
|
||||
"Dépôt cloné dans le répertoire courant" + #LF$ + #LF$ +
|
||||
main\Gitcall\output, #PB_MessageRequester_Info)
|
||||
"Dépôt cloné dans le répertoire courant" + #LF$ + #LF$ +
|
||||
main\Gitcall\output, #PB_MessageRequester_Info)
|
||||
Else
|
||||
MessageRequester("Git Clone", "Succès:" + #LF$ +
|
||||
"Dépôt cloné dans le répertoire: " + targetFolder + "/" + #LF$ + #LF$ +
|
||||
main\Gitcall\output, #PB_MessageRequester_Info)
|
||||
"Dépôt cloné dans le répertoire: " + targetFolder + "/" + #LF$ + #LF$ +
|
||||
main\Gitcall\output, #PB_MessageRequester_Info)
|
||||
EndIf
|
||||
AddRemoteRepo(remoteUrl)
|
||||
SetCurrentDirectory(GetGadgetText(#GgtFieldRepo))
|
||||
@@ -1811,6 +1864,13 @@ Procedure RefreshFileList(null.i)
|
||||
|
||||
GetGitStatus()
|
||||
|
||||
ForEach main\listFilesGit()
|
||||
main\listFilesGit()\importance = StatusImportance(main\listFilesGit()\status)
|
||||
Next
|
||||
|
||||
; --- Tri par importance (du plus important au moins important)
|
||||
SortStructuredList(main\listFilesGit(), #PB_Sort_Descending, OffsetOf(listFilesGit\importance), #PB_Integer)
|
||||
|
||||
Protected n.l=n-1
|
||||
ForEach main\listFilesGit()
|
||||
n=n+1
|
||||
@@ -1819,10 +1879,13 @@ Procedure RefreshFileList(null.i)
|
||||
SetGadgetItemState(#GdtListStatus,n,#PB_ListIcon_Checked)
|
||||
EndIf
|
||||
Next
|
||||
|
||||
|
||||
DisableGadget(#GdtListStatus,#False)
|
||||
DisableGadget(#GdtBtnRefresh,#False)
|
||||
GetBranchesList()
|
||||
GetRemoteUrl()
|
||||
GetCommitHistory()
|
||||
EndProcedure
|
||||
|
||||
Procedure UpdateHelp(txt.s)
|
||||
@@ -1834,7 +1897,7 @@ Procedure _SetTooltips()
|
||||
GadgetToolTip(#GdtBtnInit, T("tip.init", "Initialiser un dépôt Git ici"))
|
||||
GadgetToolTip(#GdtBtnRefresh, T("tip.refresh", "Rafraîchir la liste des fichiers et l’état Git"))
|
||||
GadgetToolTip(#GgtFieldRepo, T("tip.repo.path", "Chemin du dossier projet (workdir)"))
|
||||
|
||||
|
||||
; Remote / Branch
|
||||
GadgetToolTip(#GdtFieldRemote, T("tip.remote", "URL du remote (ex.: https://... ou git@host:org/repo.git)"))
|
||||
GadgetToolTip(#GdtSlctBranch, T("tip.branch.select","Choisir la branche active"))
|
||||
@@ -1842,26 +1905,26 @@ Procedure _SetTooltips()
|
||||
GadgetToolTip(#GdtBtnClone, T("tip.clone", "Cloner depuis l’URL remote"))
|
||||
GadgetToolTip(#GdtBtnPull, T("tip.pull", "Récupérer et fusionner depuis le remote"))
|
||||
GadgetToolTip(#GdtBtnPush, T("tip.push", "Envoyer vos commits sur le remote"))
|
||||
|
||||
|
||||
; Fichiers & actions locales
|
||||
GadgetToolTip(#GdtListStatus, T("tip.files.list", "Fichiers du dépôt : cochez pour préparer un commit, sélectionnez pour agir"))
|
||||
GadgetToolTip(#GdtBtnRestore, T("tip.restore", "Restaurer les fichiers sélectionnés"))
|
||||
GadgetToolTip(#GdtBtnRename, T("tip.rename", "Renommer les fichiers sélectionnés"))
|
||||
GadgetToolTip(#GdtBtnDelete, T("tip.delete", "Supprimer les fichiers sélectionnés"))
|
||||
GadgetToolTip(#GdtBtnIgnore, T("tip.ignore", "Ajouter/retirer les fichiers sélectionnés dans .gitignore"))
|
||||
|
||||
|
||||
; Commit
|
||||
GadgetToolTip(#GdtFieldMessage,T("tip.message", "Message du commit"))
|
||||
GadgetToolTip(#GdtBtnCommit, T("tip.commit", "Committer tous les fichiers cochés avec le message"))
|
||||
|
||||
|
||||
; History
|
||||
GadgetToolTip(#GdtListHistory, T("tip.history", "Historique des commits"))
|
||||
GadgetToolTip(#GdtBtnRestoreCommit,T("tip.history.restore","Restaurer/checkout le commit sélectionné"))
|
||||
|
||||
|
||||
; .gitignore
|
||||
GadgetToolTip(#GdtTxtGitIgnore, T("tip.gitignore.edit","Éditeur du .gitignore"))
|
||||
GadgetToolTip(#GdtBtnSaveGitIgnore,T("tip.gitignore.save","Sauvegarder le .gitignore"))
|
||||
|
||||
|
||||
; Config
|
||||
GadgetToolTip(#GdtFieldUserName, T("tip.cfg.username","Nom d’utilisateur Git (user.name)"))
|
||||
GadgetToolTip(#GdtFieldUserEmail,T("tip.cfg.useremail","Email Git (user.email)"))
|
||||
@@ -1882,47 +1945,47 @@ Procedure InitGadget()
|
||||
Protected haveHistorySel.b = Bool(GetGadgetState(#GdtListHistory) >= 0)
|
||||
Protected userName$ = Trim(GetGadgetText(#GdtFieldUserName))
|
||||
Protected userEmail$ = Trim(GetGadgetText(#GdtFieldUserEmail))
|
||||
|
||||
|
||||
; Mémoriser l’état init global
|
||||
main\info\isInit = isInit
|
||||
|
||||
|
||||
; ---- Zone Dépôt ----------------------------------------------------------
|
||||
DisableGadget(#GdtBtnInit, Bool(Not (hasGit And repoDirOK And Not isInit)))
|
||||
DisableGadget(#GdtBtnRefresh, Bool(Not (hasGit And repoDirOK)))
|
||||
DisableGadget(#GgtFieldRepo, Bool(Not hasGit))
|
||||
|
||||
|
||||
; ---- Remote / Branch -----------------------------------------------------
|
||||
DisableGadget(#GdtFieldRemote, Bool(Not (hasGit And repoDirOK)))
|
||||
DisableGadget(#GdtSlctBranch, Bool(Not (hasGit And isInit)))
|
||||
DisableGadget(#GdtBtnNewBranch,Bool(Not (hasGit And isInit)))
|
||||
|
||||
|
||||
; Règle demandée : Clone/Pull/Push uniquement si une remote est définie
|
||||
DisableGadget(#GdtBtnClone, Bool(Not (hasGit And repoDirOK And hasRemote)))
|
||||
DisableGadget(#GdtBtnPull, Bool(Not (hasGit And isInit And hasRemote)))
|
||||
DisableGadget(#GdtBtnPush, Bool(Not (hasGit And isInit And hasRemote)))
|
||||
|
||||
|
||||
; ---- Fichiers & actions locales -----------------------------------------
|
||||
; Restaurer / Renommer / Supprimer / Ignorer : uniquement si des fichiers sont sélectionnés
|
||||
DisableGadget(#GdtBtnRestore, Bool(selCount = 0))
|
||||
DisableGadget(#GdtBtnRename, Bool(selCount = 0))
|
||||
DisableGadget(#GdtBtnDelete, Bool(selCount = 0))
|
||||
DisableGadget(#GdtBtnIgnore, Bool(selCount = 0))
|
||||
|
||||
|
||||
; Commit : uniquement si des fichiers sont cochés
|
||||
DisableGadget(#GdtBtnCommit, Bool(Not (hasGit And isInit And checkedCount > 0)))
|
||||
|
||||
|
||||
; ---- Onglet History ------------------------------------------------------
|
||||
DisableGadget(#GdtBtnRestoreCommit, Bool(Not (hasGit And isInit And haveHistorySel)))
|
||||
|
||||
|
||||
; ---- .gitignore ----------------------------------------------------------
|
||||
; On autorise la sauvegarde si le repo est initialisé (fichier créé si besoin)
|
||||
DisableGadget(#GdtBtnSaveGitIgnore, Bool(Not (hasGit And isInit)))
|
||||
|
||||
|
||||
; ---- Config --------------------------------------------------------------
|
||||
; Le bouton "Enregistrer" actif si au moins un champ non vide
|
||||
DisableGadget(#GdtBtnSaveCfg, Bool(userName$ = "" And userEmail$ = ""))
|
||||
|
||||
|
||||
|
||||
|
||||
EndProcedure
|
||||
|
||||
Macro RightGadget(GDT)
|
||||
@@ -2081,26 +2144,26 @@ Procedure OpenGUI()
|
||||
; --- Fin des onglets ---
|
||||
CloseGadgetList()
|
||||
|
||||
; ============================================================
|
||||
; Aide à droite du Panel (sans splitter)
|
||||
; ============================================================
|
||||
; On garde #PanelW / #PanelH tels quels
|
||||
|
||||
Define helpGap = 10 ; espace entre panel et aide
|
||||
Define helpX = #InPad + #PanelW + helpGap ; à droite du panel
|
||||
Define helpY = #InPad
|
||||
Define helpW = WindowWidth(#WinMain)-GadgetWidth(#gdtPnl)- #InPad*4 ; reste de largeur jusqu'à la marge droite
|
||||
Define helpH = #PanelH ; même hauteur que le panel
|
||||
|
||||
; (Optionnel) borne minimale si besoin
|
||||
If helpW < 100 : helpW = 100 : EndIf
|
||||
|
||||
; Soit en direct :
|
||||
WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
|
||||
; — ou, si tu veux un cadre :
|
||||
; FrameGadget(#GdtFrmHelp, helpX, helpY, helpW, helpH, T("GdtFrmHelp","Aide"))
|
||||
; WebViewGadget(#GdtHelp, helpX + 10, helpY + 25, helpW - 20, helpH - 35)
|
||||
; ============================================================
|
||||
; Aide à droite du Panel (sans splitter)
|
||||
; ============================================================
|
||||
; On garde #PanelW / #PanelH tels quels
|
||||
|
||||
Define helpGap = 10 ; espace entre panel et aide
|
||||
Define helpX = #InPad + #PanelW + helpGap ; à droite du panel
|
||||
Define helpY = #InPad
|
||||
Define helpW = WindowWidth(#WinMain)-GadgetWidth(#gdtPnl)- #InPad*4 ; reste de largeur jusqu'à la marge droite
|
||||
Define helpH = #PanelH ; même hauteur que le panel
|
||||
|
||||
; (Optionnel) borne minimale si besoin
|
||||
If helpW < 100 : helpW = 100 : EndIf
|
||||
|
||||
; Soit en direct :
|
||||
WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
|
||||
; — ou, si tu veux un cadre :
|
||||
; FrameGadget(#GdtFrmHelp, helpX, helpY, helpW, helpH, T("GdtFrmHelp","Aide"))
|
||||
; WebViewGadget(#GdtHelp, helpX + 10, helpY + 25, helpW - 20, helpH - 35)
|
||||
|
||||
|
||||
SetGadgetText(#GgtFieldRepo,main\GitCall\workdir)
|
||||
@@ -2108,13 +2171,13 @@ WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
InitGadget()
|
||||
_SetTooltips()
|
||||
If FileSize(".git")=-2:main\info\isInit=#True:EndIf
|
||||
If main\info\isInit=#True
|
||||
GetRemoteUrl("origin")
|
||||
GetCommitHistory()
|
||||
EndIf
|
||||
|
||||
;If main\info\isInit=#True
|
||||
; GetRemoteUrl("origin")
|
||||
; GetCommitHistory()
|
||||
;;EndIf
|
||||
|
||||
GetBranchesList()
|
||||
|
||||
|
||||
; =================== EVENT LOOP / BOUCLE ÉVÉNEMENTS ===================
|
||||
Quit=#False
|
||||
Repeat
|
||||
@@ -2124,7 +2187,8 @@ WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
Quit=#True
|
||||
Case #PB_Event_Gadget
|
||||
Select EventGadget()
|
||||
Case #gdtPnl
|
||||
Case #GdtPnl
|
||||
Debug "Click>#gdtPnl"
|
||||
If EventType()=#PB_EventType_Change
|
||||
ReadGitIgnorefile()
|
||||
Select GetGadgetState(#GdtPnl)
|
||||
@@ -2134,17 +2198,22 @@ WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
|
||||
EndIf
|
||||
Case #GdtBtnInit
|
||||
Debug "Click>#GdtBtnInit"
|
||||
DoInit()
|
||||
CreateThread(@RefreshFileList(),0)
|
||||
Case #GdtBtnRefresh
|
||||
Debug "Click>#GdtBtnRefresh"
|
||||
CreateThread(@RefreshFileList(),0)
|
||||
Case #GgtFieldRepo
|
||||
|
||||
If EventType()=#PB_EventType_LostFocus
|
||||
Debug "Click>#GgtFieldRepo"
|
||||
main\GitCall\workdir=GetGadgetText(#GgtFieldRepo)
|
||||
CreateThread(@RefreshFileList(),0)
|
||||
EndIf
|
||||
|
||||
Case #GdtBtnBrowseRepo
|
||||
Debug "Click>#GdtBtnBrowseRepo"
|
||||
Protected path.s=PathRequester("Select Folder",main\GitCall\workdir,WindowID(#WinMain))
|
||||
If path<>"" And FileSize(path)=-2
|
||||
main\GitCall\workdir=path
|
||||
@@ -2158,15 +2227,21 @@ WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
; EndIf
|
||||
|
||||
Case #GdtBtnClone
|
||||
DoClone()
|
||||
Debug "Click>#GdtBtnClone"
|
||||
DoClone()
|
||||
Case #GdtBtnPush
|
||||
Debug "Click>#GdtBtnPush"
|
||||
DoPush()
|
||||
Case #GdtBtnPull
|
||||
Debug "Click>#GdtBtnPull"
|
||||
DoPull()
|
||||
Case #GdtListStatus
|
||||
Debug "Click>#GdtListStatus"
|
||||
Case #GdtBtnIgnore
|
||||
Debug "Click>#GdtBtnIgnore"
|
||||
ToggleGitIgnoreForSelection()
|
||||
Case #GdtBtnSaveGitIgnore
|
||||
Debug "Click>#GdtBtnSaveGitIgnore"
|
||||
Protected hf.i=CreateFile(#PB_Any,".gitignore")
|
||||
If hf
|
||||
WriteString(hf,GetGadgetText(#GdtTxtGitIgnore))
|
||||
@@ -2174,18 +2249,26 @@ WebViewGadget(#GdtHelp, helpX, helpY, helpW, helpH)
|
||||
EndIf
|
||||
|
||||
Case #GdtBtnCommit
|
||||
Debug "Click>#GdtBtnCommit"
|
||||
DoCommit()
|
||||
SetGadgetText(#GdtFieldMessage,"")
|
||||
CreateThread(@RefreshFileList(),0)
|
||||
Case #GdtFieldRemote
|
||||
Debug "Click>#GdtFieldRemote"
|
||||
|
||||
Case #GdtListHistory
|
||||
Debug "Click>#GdtListHistory"
|
||||
If EventType() = #PB_EventType_Change
|
||||
ShowSelectedCommitInfo()
|
||||
EndIf
|
||||
|
||||
Case #GdtSlctBranch
|
||||
Debug "Click>#GdtSlctBranch"
|
||||
Case #GdtSlctScope
|
||||
Debug "Click>#GdtSlctScope"
|
||||
GetGitIdentity()
|
||||
Case #GdtBtnSaveCfg
|
||||
Debug "Click>#GdtBtnSaveCfg"
|
||||
SetGitIdentity()
|
||||
|
||||
|
||||
@@ -2202,8 +2285,8 @@ OpenGUI()
|
||||
|
||||
|
||||
; IDE Options = PureBasic 6.21 (Windows - x64)
|
||||
; CursorPosition = 541
|
||||
; FirstLine = 509
|
||||
; CursorPosition = 1871
|
||||
; FirstLine = 1867
|
||||
; Folding = ----------
|
||||
; Optimizer
|
||||
; EnableThread
|
||||
|
||||
Reference in New Issue
Block a user