Move Finfosys.kernel to MKernel

i-nex · Oct 22, 2016 · 1148379 · 1148379
1 parent 1881c95
commit 1148379
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 14 deletions.
diff --git a/I-Nex/i-nex/.src/Kernel/MKernel.module b/I-Nex/i-nex/.src/Kernel/MKernel.module
@@ -0,0 +1,13 @@
+' Gambas module file
+
+
+Public Sub kernel()
+  Dim Machine As String
+  Try Finfosys.TextLabel18.Text = "Build Date: " & CString(File.Load("/proc/sys/kernel/version"))
+  Try Finfosys.TextLabel17.Text = "OS Release: " & CString(File.Load("/proc/sys/kernel/osrelease"))
+  Try Finfosys.TextLabel7.Text = "OS Type: " & CString(File.Load("/proc/sys/kernel/ostype"))
+  Try Finfosys.TextLabel16.Text = "Hostname: " & CString(File.Load("/proc/sys/kernel/hostname"))
+  Try Exec ["arch"] Wait To Machine
+  Finfosys.TextLabel26.Text = "Machine: " & CString(Machine)
+  Try Finfosys.TextArea3.Text = File.Load("/proc/cmdline")
+End
diff --git a/I-Nex/i-nex/.src/MAIN/Finfosys.class b/I-Nex/i-nex/.src/MAIN/Finfosys.class
@@ -15,8 +15,6 @@
 ' You should have received a copy of the GNU General Public License
 ' along with this program. If not, see <http://www.gnu.org/licenses/>.
 Public INEXGLINFO As Process
-
-
 Public AllowLog As Boolean
 Public cpu As String
 Public CPU_FLAGS As New String[]
@@ -170,7 +168,7 @@ Public Sub Form_Open()
  Logs("Check Bios", Logger.Info)
  bios()
  Logs("Check Kernels", Logger.Info)
- kernel()
+ Object.Call(MKernel, "kernel")
  Logs("Check graphic card", Logger.Info)
  grafika()
  ''END Uruchomienie instrukcji dla poszczególnych zakładek w celu wydobycia informacji z systemu
@@ -185,17 +183,6 @@ Public Sub ComboBox1_Click()
 
 End
 
-Public Sub kernel()
-  Dim Machine As String
-  Try TextLabel18.Text = "Build Date: " & CString(File.Load("/proc/sys/kernel/version"))
-  Try TextLabel17.Text = "OS Release: " & CString(File.Load("/proc/sys/kernel/osrelease"))
-  Try TextLabel7.Text = "OS Type: " & CString(File.Load("/proc/sys/kernel/ostype"))
-  Try TextLabel16.Text = "Hostname: " & CString(File.Load("/proc/sys/kernel/hostname"))
-  Try Exec ["arch"] Wait To Machine
-  TextLabel26.Text = "Machine: " & CString(Machine)
-  Try TextArea3.Text = File.Load("/proc/cmdline")
-End
-
 Public Sub bios()
   Try TextBox2.Text = "Board Vendor:   " & Replace(File.Load("/sys/devices/virtual/dmi/id/board_vendor"), "\n", "")
   Try TextBox3.Text = "Board Version:   " & Replace(File.Load("/sys/devices/virtual/dmi/id/board_version"), "\n", "")