Better info for Flags

src/i-nex/.settings

@@ -24,6 +24,7 @@ SearchComment=False
 SearchString=True
 
 [OpenFile]
+Active=1
 File[1]=".src/Finfosys.form"
 File[2]=".src/Global.class:199.7"
 File[3]=".src/About.form"
@@ -48,7 +49,7 @@ File[21]=".src/net.module:2.19"
 File[22]="Data/report-ng.sh:5.3"
 File[23]=".src/Distribution_Detect.module:2.19"
 File[24]=".src/FFlags.module:2.19"
-File[25]=".src/Finfosys.class:22.25"
+File[25]=".src/Finfosys.class:845.20"
 File[26]=".src/FDF.form"
 File[27]=".src/FDF.class:2.19"
 File[28]=".src/FNET_R_T.form"
@@ -85,10 +86,7 @@ File[58]=".src/Formatter.module:2.19"
 File[59]=".src/FDirDialog.class:2.19"
 File[60]=".src/FFileDialog.class:2.19"
 File[61]=".src/FInputDate.class:2.19"
-File[62]=".src/CFlags.form"
-Active=63
-File[63]=".src/CFlags.class:7.35"
-Count=63
+Count=61
 
 [Watches]
 Count=0

src/i-nex/.src/Finfosys.class

@@ -21,9 +21,41 @@ Public cpu As String
 Public flags As String
 Public vendor_id As String
 Public Logs As New Logger
+Public GDF As String
+Public BUFFER As String
+Public DATAT As Collection
 Public Sub Form_Open()
   Dim default_display_manager As Boolean = Exist("/etc/X11/default-display-manager")
   Dim cpuz0, cpuz1, cpuz2, cpuz3, cpuz4, cpuz5, cpuz6, cpuz7, cpuz8, cpuz9, cpuz10, cpuz11 As String
+  Dim z As Integer
+  Exec ["/home/michal/Baazar/git-i-nex/inex-cpuid"] Wait To BUFFER
+  DATAT = JSON.Decode(BUFFER)
+  ListView1.Add(0, DATAT["VENDOR_STR"])
+  ListView1.Add(1, DATAT["CPU_CODENAME"])
+  ListView1.Add(2, DATAT["BRAND_STR"])
+  ListView1.Add(3, DATAT["NUM_CORES"])
+  ListView1.Add(4, DATAT["NUM_LOGICAL_CPUS"])
+  ListView1.Add(5, DATAT["TOTAL_LOGICAL_CPUS"])
+  ListView1.Add(6, DATAT["FAMILY"])
+  ListView1.Add(7, DATAT["MODEL"])
+  ListView1.Add(8, DATAT["STEPPING"])
+  ListView1.Add(9, DATAT["EXT_FAMILY"])
+  ListView1.Add(10, DATAT["EXT_MODEL"])
+  ListView1.Add(11, DATAT["CPU_CLOCK"])
+  ListView1.Add(12, DATAT["CPU_CLOCK_BY_OS"])
+  ListView1.Add(13, DATAT["CPU_CLOCK_BY_IC"])
+  ListView1.Add(14, DATAT["CPU_CLOCK_MEASURE"])
+  ListView1.Add(15, DATAT["MARK_TSC"])
+  ListView1.Add(16, DATAT["MARK_SYS_CLOCK"])
+  For z = 0 To 93
+   If DATAT["Flags"][z]["VALUE"] = 1 Then
+    GDF = "True"
+    ListView1.Add(z + 17, DATAT["Flags"][z]["NAME"] & " " & GDF & " " & DATAT["Flags"][z]["DESC"])
+   Else
+    GDF = "False"
+    ListView1.Add(z + 17, DATAT["Flags"][z]["NAME"] & " " & GDF & " " & DATAT["Flags"][z]["DESC"])
+   Endif
+  Next
   If User.Name = "root" Then
     Message.Error(("Running as root is not allowed!\n " & User.Home & ""))
   Endif
@@ -811,6 +843,6 @@ End
 
 Public Sub Button16_Click()
 
- CFlags.Show
+ TabPanel1.Index = 1
 
 End