Versione 3.6.8

.hidden/CHANGELOG

@@ -0,0 +1,5 @@
+* Mon Mar 15 2021 Astragalo <[email protected]> 0.0.76
+
+* Sat Mar 13 2021 Astragalo <[email protected]> 0.0.72
+- Versione iniziale
+

.lang/fr.po

@@ -0,0 +1,19 @@
+# /home/benoit/gambas/examples/Console/FConsole.class
+# Generated by Gambas compiler
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"POT-Creation-Date: 2002-11-01 04:27+0100\n"
+"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
+"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
+"Language-Team: LANGUAGE <[email protected]>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: FConsole.class:122
+msgid "Console"
+msgstr ""

.lang/ru.po

@@ -0,0 +1,46 @@
+# SOME DESCRIPTIVE TITLE.
+# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER
+# This file is distributed under the same license as the PACKAGE package.
+# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
+#
+# Translators:
+# Дмитрий Ошкало <[email protected]>, 2019
+# Kашицин Роман <[email protected]>, 2019
+# Олег o1hk <[email protected]>, 2019
+# AlexL <[email protected]>, 2019
+#
+#, fuzzy
+msgid ""
+msgstr ""
+"Project-Id-Version: PACKAGE VERSION\n"
+"Report-Msgid-Bugs-To: \n"
+"POT-Creation-Date: 2019-05-23 07:08+0300\n"
+"PO-Revision-Date: 2019-05-09 00:48+0000\n"
+"Last-Translator: AlexL <[email protected]>, 2019\n"
+"Language-Team: Russian (https://www.transifex.com/rus-open-source/teams/44267/ru/)\n"
+"Language: ru\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+"Plural-Forms: nplurals=4; plural=(n%10==1 && n%100!=11 ? 0 : n%10>=2 && n%10<=4 && (n%100<12 || n%100>14) ? 1 : n%10==0 || (n%10>=5 && n%10<=9) || (n%100>=11 && n%100<=14)? 2 : 3);\n"
+
+#: app/examples/Misc/Console/.project:18
+msgid "Console example"
+msgstr "Пример консоли"
+
+#: app/examples/Misc/Console/.src/FConsole.form:5
+msgid "Console"
+msgstr "Консоль"
+
+#: app/examples/Misc/Console/.src/FConsole.form:18
+msgid "^C"
+msgstr "^C"
+
+#: app/examples/Misc/Console/.src/FConsole.form:23
+msgid "^D"
+msgstr "^D"
+
+#: app/examples/Misc/Console/.src/FConsole.form:28
+msgid "^Z"
+msgstr "^Z"
+

.project

@@ -0,0 +1,21 @@
+# Gambas Project File 3.0
+Title=DnfDrake
+Startup=Fmain
+Icon=dnfdrake.svg
+Version=3.6.8
+Component=gb.image
+Component=gb.gui
+Component=gb.form
+Description="DnfDrake è un frontend a Dnf.\n\nTutto è iniziato partendo dalla base del programma di esempio Console per Gambas di Princeton"
+Authors="Autore: Mauro Carbini aka Astragalo\nMail: [email protected]"
+TabSize=2
+Translate=1
+Language=it
+ControlPublic=1
+Maintainer=Astragalo
+Vendor=Astragalo
+[email protected]
+License=General Public Licence
+PackageName=dnfdrake_1-4-0-0.0.76
+CreateEachDirectory=1
+Packager=1

.src/FABOUT.class

@@ -0,0 +1,28 @@
+' Gambas class file
+
+Public Sub Form_Open()
+
+BTNCLOSE.Text = Fmain.Btnclose.Text
+TextArea1.Text = File.Load("/usr/share/dnfdrake/dnfdrake-ABOUT-" & Fmain.$LANG)
+Fmain.Enabled = False
+
+End
+
+
+Public Sub BTNCLOSE_Click()
+  BTNCLOSE.Enabled = False
+  Me.Close
+
+End
+
+Public Sub Label1_MouseDown()
+End
+
+Public Sub TextArea1_KeyPress()
+End
+
+Public Sub Form_Close()
+
+  Fmain.Enabled = True
+
+End

.src/FABOUT.form

@@ -0,0 +1,25 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,64,64)
+  Icon = Picture["dnfdrake.svg"]
+  Resizable = False
+  { TextArea1 TextArea
+    MoveScaled(6,8,52,49)
+    Enabled = False
+    Foreground = Color.TextForeground
+    Alignment = Align.Center
+  }
+  { BTNCLOSE Button
+    MoveScaled(24,58,16,4)
+  }
+  { Panel1 Panel
+    MoveScaled(6.4286,2,51,5)
+    { Label1 Label
+      MoveScaled(1,1,50,4)
+      Font = Font["+7"]
+      Alignment = Align.Center
+      Text = ("DNFDRAKE 3.6.8")
+    }
+  }
+}

.src/FCONFIG.class

@@ -0,0 +1,134 @@
+' Gambas class file
+
+Public Sub Form_Open()
+        If Fmain.$SECUREMODE = "SECURE" Then
+           Fmain.Enabled = False   
+        Endif
+        TXTINSTALLCMD.Text = Fmain.$INSTALL
+        TXTUNINSTALLCMD.Text = Fmain.$UNINSTALL
+        TXTUPDATECMD.Text = Fmain.$UPDATE
+        'TXTUPDATECMD.Text = Fmain.$UPDATE
+        TXTUPDATEPKGCMD.Text = Fmain.$PKGUPDATE
+        TXTDOWNGRADECMD.Text = Fmain.$DOWNGRADE
+        TXTREINSTALLCMD.Text = Fmain.$REINSTALL
+        TXTCUSTOMCMD.Text = Fmain.$CUSTOMCMD
+
+        If Fmain.$COLORTEXT = "color" Then
+          CHKCOLORTEXT.Value = True
+          Else
+            CHKCOLORTEXT.Value = False
+        Endif
+
+        If Exist(User.Home &/ ".config/dnfdrake/distrosync") Then
+           TXTUPDATE.Text = "DistroSync command"
+           TXTUPDATECMD.Text = "sudo dnf clean all; dnf clean all; dnf repolist; sudo dnf --refresh --allowerasing distro-sync"
+           TXTUPDATECMD.Enabled = False
+        Else  
+           TXTUPDATECMD.Enabled = True
+        Endif
+
+        If Fmain.$LOG = "LOG" Then
+          CHKLOG.Value = True
+          Else 
+            CHKLOG.Value = False
+        Endif
+
+        If Fmain.$SECUREMODE = "SECURE" Then
+          CHKSECUREMODE.Value = True
+          Else 
+            CHKSECUREMODE.Value = False
+        Endif
+
+End
+
+Public Sub BTNDEFAULT_Click()
+  BTNDEFAULT.Enabled = False
+  Print #Fmain.$hProcess, "rm -f " & User.Home & "/.config/dnfdrake/dnfdrake-COMMAND" & gb.NewLine;
+  Message.Info("For Apply The Change Restart Dnfdrake", "OK")
+  Me.Close
+End
+
+Public Sub BTNCLOSE_Click()
+  BTNCLOSE.Enabled = False
+  Me.Close
+End
+
+Public Sub BTNOK_Click()
+ BTNOK.Enabled = False
+ If Not Exist(User.Home &/ ".config/dnfdrake/dnfdrake-COMMAND") Then
+ File.Save(User.Home &/ "/.config/dnfdrake/dnfdrake-COMMAND", "")
+ Endif 
+  Dim fl As File
+   fl = Open User.Home &/ "/.config/dnfdrake/dnfdrake-COMMAND" For Create
+   Print #fl, Replace(TXTINSTALLCMD.Text, " ", "_")
+   Print #fl, Replace(TXTUNINSTALLCMD.Text, " ", "_")
+'SERVE PER EVITARE DI SALVARE IL COMANDO DI DISTROSYNC*********************
+   If TXTUPDATECMD.Enabled = True Then
+      Print #fl, Replace(TXTUPDATECMD.Text, " ", "_")  
+   Else 
+      Print #fl, Replace(Fmain.$UPDATE, " ", "_")   
+   Endif
+'**************************************************************************
+   Print #fl, Replace(TXTUPDATEPKGCMD.Text, " ", "_")
+   Print #fl, Replace(TXTDOWNGRADECMD.Text, " ", "_")
+   Print #fl, Replace(TXTCUSTOMCMD.Text, " ", "_")
+   If CHKCOLORTEXT.Value = True Then
+     Print #fl, "color"
+     Else
+     Print #fl, "nero"  
+   Endif
+   Print #fl, Replace(TXTREINSTALLCMD.Text, " ", "_")
+   If CHKLOG.Value = True Then
+     Print #fl, "LOG"
+     Else 
+       Print #fl, "NOLOG"
+   Endif
+   If CHKSECUREMODE.Value = True Then
+     Print #fl, "SECURE"
+     Else 
+       Print #fl, "NOSECURE"
+   Endif
+  fl.Close
+
+  Message.Info("Restart DnfDrake for the changes to be applied", "OK")
+  Me.Close
+End
+
+Public Sub TXTUPDATEPKGCMD_KeyPress()
+End
+
+Public Sub CHKCOLORTEXT_Click()
+End
+
+Public Sub TXTREINSTALLCMD_KeyPress()
+End
+
+Public Sub TXTINSTALLCMD_KeyPress()
+End
+
+Public Sub Form_Close()
+
+  Fmain.Enabled = True
+
+End
+
+Public Sub CHKSECUREMODE_Click()
+If CHKSECUREMODE.Value = True Then
+  If CHKLOG.Value = False Then
+    Message.Info("Secure Mode work only whit Save Log active, DnfDrake have set it!", "Ok") 
+    CHKLOG.Value = True
+    FCONFIG.Show
+  Endif
+Endif
+End
+
+Public Sub CHKLOG_Click()
+If CHKLOG.Value = False Then
+  If CHKSECUREMODE.Value = True Then
+    Message.Info("Secure Mode work only whit Save Log active, DnfDrake have disable it!", "Ok") 
+    CHKSECUREMODE.Value = False
+    FCONFIG.Show
+  Endif
+Endif
+
+End

.src/FCONFIG.form

@@ -0,0 +1,106 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,83,82)
+  Icon = Picture["dnfdrake.svg"]
+  { Label3 Label
+    MoveScaled(46,10,34,4)
+    Border = Border.Plain
+  }
+  { Label1 Label
+    MoveScaled(3,69,34,4)
+    Border = Border.Plain
+  }
+  { TXTUPDATECMD TextBox
+    MoveScaled(3,6,77.1429,4)
+  }
+  { TXTINSTALL Label
+    MoveScaled(3,25,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Install command")
+  }
+  { TXTINSTALLCMD TextBox
+    MoveScaled(3,28,77.1429,4)
+  }
+  { TXTUNINSTALL Label
+    MoveScaled(3,34,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Uninstall command")
+  }
+  { TXTUNINSTALLCMD TextBox
+    MoveScaled(3,37,77.1429,4)
+  }
+  { BTNCLOSE Button
+    MoveScaled(5,76,16,4)
+    Text = ("Close")
+  }
+  { BTNOK Button
+    MoveScaled(61,76,16,4)
+    Text = ("Apply")
+  }
+  { BTNDEFAULT Button
+    MoveScaled(33,76,16,4)
+    Text = ("Reset Default")
+  }
+  { TXTUPDATEPKG Label
+    MoveScaled(3,16,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Update PKG command")
+  }
+  { TXTUPDATEPKGCMD TextBox
+    MoveScaled(3,19,77.1429,4)
+  }
+  { TXTUPDATE Label
+    MoveScaled(3,3,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Update SYS command")
+  }
+  { TXTDOWNGRADE Label
+    MoveScaled(3,43,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Downgrade command")
+  }
+  { TXTDOWNGRADECMD TextBox
+    MoveScaled(3,46,77.1429,4)
+  }
+  { TXTCUSTOM Label
+    MoveScaled(3,61,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Custom command")
+  }
+  { TXTCUSTOMCMD TextBox
+    MoveScaled(3,64,77.1429,4)
+  }
+  { CHKCOLORTEXT CheckBox
+    MoveScaled(3,69,33,4)
+    Text = ("  Color text active")
+  }
+  { TXTREINSTALL Label
+    MoveScaled(3,52,77,3)
+    Alignment = Align.Center
+    Border = Border.Plain
+    Text = ("Reinstall command")
+  }
+  { TXTREINSTALLCMD TextBox
+    MoveScaled(3,55,77.1429,4)
+  }
+  { Label2 Label
+    MoveScaled(3,10,34,4)
+    Border = Border.Plain
+  }
+  { CHKLOG CheckBox
+    MoveScaled(3,10,33,4)
+    Text = ("Save Log")
+    Value = CheckBox.True
+  }
+  { CHKSECUREMODE CheckBox
+    MoveScaled(46,10,34,4)
+    Text = ("Secure Mode")
+  }
+}