Add new Experimental GUI, Test run i-nex.gambas --dev

src/i-nex/.lang/FinfosysNew.pot

@@ -0,0 +1,16 @@
+# /home/michal/Baazar/i-nex/src/i-nex/.src/FinfosysNew.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 <LL@li.org>\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+

src/i-nex/.settings

@@ -22,14 +22,13 @@ SearchString=True
 
 [OpenFile]
 File[1]=".src/Finfosys.form"
-Active=2
 File[2]=".src/Finfosys.class:595.35"
 File[3]=".src/Global.class:6.65"
 File[4]=".src/About.form"
 File[5]=".src/About.class:63.30"
 File[6]=".src/distrodetect.class:18.8"
 File[7]=".src/battery.module:71.42"
-File[8]=".src/Disk_Drives.module:133.112"
+File[8]=".src/Disk_Drives.module:32.1"
 File[9]=".src/ScreenShot.form"
 File[10]=".src/ScreenShot.class:12.63"
 File[11]=".src/ScreenShotM.module:7.0"
@@ -40,14 +39,17 @@ File[15]=".src/Reportm.module:319.10"
 File[16]=".src/FReport_Gen.form"
 File[17]=".src/FReport_Gen.class:33.1"
 File[18]=".src/Start_App_Args.form"
-File[19]=".src/Start_App_Args.class:44.12"
+Active=19
+File[19]=".src/Start_App_Args.class:47.15"
 File[20]=".src/ChkPrm.module:15.0"
 File[21]=".src/BIOS_microcode_update_recommended.module:2.19"
 File[22]=".src/thermal_zone.module:15.6"
 File[23]=".src/FModules.form"
 File[24]=".src/FModules.class:15.28"
 File[25]=".src/Input_Devices.module:0.0"
-Count=25
+File[26]=".src/FinfosysNew.form"
+File[27]=".src/FinfosysNew.class:28.32"
+Count=27
 
 [Watches]
 Count=0

src/i-nex/.src/FinfosysNew.class

@@ -0,0 +1,34 @@
+' Gambas class file
+
+
+Public Sub Form_Open()
+
+ TreeView1.Add("First", "CPU",, "", "")
+ TreeView1.Add("Two", "CPU1",, "First", "")
+ TreeView1.Add("Dyski", "Dyski / Partycje",, "", "")
+ Devices()
+End
+
+Public Sub Devices()
+
+  Dim sdx, sdz As String
+  Dim Avail_HDD, Drives_in_sdx As Integer 
+  Dim Max_HDD, Max_Drives_in_sdx As Integer
+  Dim cache, cache2 As String
+  Debug "Add Drives to ComboBox"
+  Shell "ls /sys/block/ | grep 'sd' | wc -l" Wait To cache
+  Max_HDD = Replace(Replace(cache, " ", ""), "\n", "")
+  For Avail_HDD = 1 To Max_HDD
+   Shell "ls /sys/block/ | grep 'sd' | sed -n '" & Avail_HDD & "p'" Wait To sdx
+   sdx = Replace(sdx, "\n", "")
+   TreeView1.Add("" & sdx & "", "" & sdx & "",, "Dyski", "")
+   Shell "ls /sys/block/$(ls /sys/block/ | grep " & sdx & ") | grep  " & sdx & "| wc -l" Wait To cache2 
+   Max_Drives_in_sdx = Replace(Replace(cache2, " ", ""), "\n", "")
+   For Drives_in_sdx = 1 To Max_Drives_in_sdx
+    Shell "ls /sys/block/$(ls /sys/block/ | grep " & sdx & ") | grep  " & sdx & " | sed -n '" & Drives_in_sdx & "p'" Wait To sdz
+    sdz = Replace(sdz, "\n", "")
+    TreeView1.Add("" & sdz & "", "" & sdz & "",, "" & sdx & "")
+   Next
+  Next
+
+End

src/i-nex/.src/FinfosysNew.form

@@ -0,0 +1,8 @@
+# Gambas Form File 3.0
+
+{ Form Form
+  MoveScaled(0,0,106,67)
+  { TreeView1 TreeView
+    MoveScaled(0,0,21,67)
+  }
+}

src/i-nex/.src/Start_App_Args.class

@@ -43,7 +43,12 @@ Public Sub Form_Open()
     FModules.Show
     S = False
     Me.Close
-
+
+   Case "--dev"
+    FinfosysNew.Show
+    S = False
+    Me.Close
+
   End Select
 
   If S = True Then