VERSIONE 3.6.21

astrgl · Jul 9, 2023 · fa01e3b · fa01e3b
1 parent cd66fd4
commit fa01e3b
Show file tree

Hide file tree

Showing 17 changed files with 102 additions and 72 deletions.
diff --git a/.project b/.project
@@ -2,7 +2,7 @@
 Title=DnfDrake
 Startup=Fmain
 Icon=dnfdrake.svg
-Version=3.6.20
+Version=3.6.21
 Component=gb.image
 Component=gb.gui
 Component=gb.form

diff --git a/.src/FABOUT.form b/.src/FABOUT.form
@@ -19,7 +19,7 @@
       MoveScaled(1,1,50,4)
       Font = Font["+7"]
       Alignment = Align.Center
-      Text = ("DNFDRAKE 3.6.20")
+      Text = ("DNFDRAKE 3.6.21")
     }
   }
 }
diff --git a/.src/FINSTALL.class b/.src/FINSTALL.class
@@ -1,7 +1,8 @@
-' Gambas class file
 
+' Gambas class file
 $TXTRPMPATH As String
 Public $SECURE As Integer
+Public $NAMEPGK As String
 
 Public Sub Form_Open()
 
@@ -31,10 +32,45 @@ BTNPKGREINSTALL.Text = Fmain.BTNREINSTALL.Text
 TXTRPMPATH.Text = $TXTRPMPATH & Right(Fmain.$RPMPATH, "-" & RInStr(Fmain.$RPMPATH, "/")) & " ?"
 If Fmain.$SECUREMODE = "SECURE" Then
   Fmain.Enabled = False  
+  CLEARNAME
+  CHECKINSTALL
 Endif
 $SECURE = 0
 End
 
+Private Sub CLEARNAME()
+  Dim i As Integer
+  i = 0
+  $NAMEPGK = Right(Fmain.$RPMPATH, "-" & RInStr(Fmain.$RPMPATH, "/")) 'LASCIA SOLO IL NOME DEL PACCHETTO COMPLETO DI ESTENSIONE
+  While i < 3
+      $NAMEPGK = Left($NAMEPGK, -1 + RInStr($NAMEPGK, "-")) 'LASCIA SOLO IL NOME PURO ELIMINA ESTENSIONE E ALTRI DATI
+      i = i + 1
+  Wend 
+End
+
+Private Sub CHECKINSTALL()
+
+   Dim s As String
+   Dim t As Stream
+   Dim CHK As Integer
+   CHK = 0
+
+     t = Open User.Home & "/.config/dnfdrake/installati.txt"
+     For Each s In t.Lines 
+       If InStr(s, RTrim$(LTrim$($NAMEPGK)), 0, gb.IgnoreCase) Then
+          'Message.Info("installato", "ok")
+          CHK = 1
+          Break 
+       Endif                     
+     Next
+     If CHK = 1 Then
+       BTNINSTALL.Enabled = False
+     Else 
+       BTNPKGUPDATE.Enabled = False
+       BTNPKGREINSTALL.Enabled = False     
+     Endif
+
+End
 
 Public Sub BTNANNULLA_Click()
 

diff --git a/.src/Fmain.class b/.src/Fmain.class
@@ -3820,3 +3820,9 @@ End
 Public Sub PICEXCLUDE_MouseDown()
   BTNEXCLUDE_Click
 End
+
+Public Sub PICLOGODISTRO_MouseDown()
+
+
+
+End
diff --git a/.src/Fmain.form b/.src/Fmain.form
@@ -136,7 +136,7 @@
     Move(770,112,28,27)
     Alignment = Align.Center
     Border = Border.Plain
-    BorderRadius = 12
+    BorderRadius = 14
     Text = ("US")
   }
   { BtnCFG Button
@@ -363,6 +363,6 @@
     Move(546,112,28,27)
     Alignment = Align.Center
     Border = Border.Plain
-    BorderRadius = 12
+    BorderRadius = 14
   }
 }
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-br_BR b/FILE-EXTRA/dnfdrake-ABOUT-br_BR
@@ -9,13 +9,12 @@ [email protected]
 
 Tradução e testes:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dedicado a todos os amigos do MIB!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-ca_ES b/FILE-EXTRA/dnfdrake-ABOUT-ca_ES
@@ -9,13 +9,12 @@ [email protected]
 
 Traducció i proves:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 Un agraïment especial al grup Gambas.it
-
 Dedicat a tots els amics del MIB!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-de_DE b/FILE-EXTRA/dnfdrake-ABOUT-de_DE
@@ -9,13 +9,12 @@ [email protected]
 
 Übersetzung und Test:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Allen MIB-Freunden gewidmet!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-en_GB b/FILE-EXTRA/dnfdrake-ABOUT-en_GB
@@ -9,13 +9,12 @@ [email protected]
 
 Translation and Testing:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dedicated to all MIB friends!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-en_US b/FILE-EXTRA/dnfdrake-ABOUT-en_US
@@ -9,13 +9,12 @@ [email protected]
 
 Translation and Testing:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dedicated to all MIB friends!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-es_ES b/FILE-EXTRA/dnfdrake-ABOUT-es_ES
@@ -9,13 +9,12 @@ [email protected]
 
 Traducción y pruebas:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 ¡Dedicado a todos los amigos del MIB!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-fr_FR b/FILE-EXTRA/dnfdrake-ABOUT-fr_FR
@@ -10,13 +10,12 @@ [email protected]
 
 Traduction et test :
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dédié à tous les amis de MIB !
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-gb_GB b/FILE-EXTRA/dnfdrake-ABOUT-gb_GB
@@ -9,13 +9,12 @@ [email protected]
 
 Translation and Testing:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dedicated to all MIB friends!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-it_IT b/FILE-EXTRA/dnfdrake-ABOUT-it_IT
@@ -9,14 +9,12 @@ [email protected]
 
 Traduzioni e Testing:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
-
+mandian
 
 Un ringraziamento al gruppo di Gambas.it
-
 Dedicato a tutti gli amici del MIB!
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-pl_PL b/FILE-EXTRA/dnfdrake-ABOUT-pl_PL
@@ -9,14 +9,13 @@ [email protected]
 
 Tłumaczenie i Testy:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dedykowane wszystkim przyjaciołom MIB!
 
diff --git a/FILE-EXTRA/dnfdrake-ABOUT-ru_RU b/FILE-EXTRA/dnfdrake-ABOUT-ru_RU
@@ -9,13 +9,12 @@ [email protected]
 
 Translation and Testing:
 rugyada
-Raphael
-AngryPenguin (Damian Marcin Szymański)
-Davidmp
-Panwar108
+raphael
+angrypenguin (Damian Marcin Szymański)
+davidmp
+panwar108
 Ben Bullard
-Mandian
+mandian
 
 A special thanks to the Gambas.it group
-
 Dedicated to all MIB friends!
diff --git a/OMA.png b/OMA.png